Hash

last-modified: 19th/June/'01;
since: 1st/June/2001;

[$BJQ?t$H@\F,J8;z(B]
$$B%9%+%i!
@$BG[NsJQ?t(B
%$B%O%C%7%e(B

$B%O%C%7%e$H$O!"!VO"A[G[Ns!W$H$b8F$P$l$k$b$N$G$9!#(B$BG[Ns(B$B$G$OMWAG$O(B 0 $B$+$i;O$^$kHV9f$G;2>H$7$F$$$^$7$?!#$3$NHV9f$O%$%s%G%/%9$H8F$P$l$k$3$H$b$"$j$^$9!#(B$B%O%C%7%e(B$B$G$O!"HV9f$NBe$o$j$KJ8;zNs$G;2>H$G$-$^$9!#(B

$B0z$-=P$7$KHV9f$,$D$$$F$$$kC=?Z$,G[Ns$G!"L>A0$,$D$$$F$$$kC=?Z$,%O%C%7%e$G$9!#>\$7$/$O(B$B!VJQ?t!W(B$B$r;2>H$/$@$5$$!#(B

$B%O%C%7%e$O!"%9%/%j%W%H$G$O(B % $B$+$i;O$^$kJ8;zNs$G$9!#G[Ns$KBe$o$C$F!"Hs>o$K=EJu$9$k!"0?$$$OIT2D7g$J>lLL$,$"$k$N$G!"@'Hs3P$($^$7$g$&!#(B

$B%5%s%W%k%9%/%j%W%H$H$7$F!"%f!<%6L>$r%-!<$H$7$F%Q%9%o!<%I$r3JG<$9$k%O%C%7%e$N%5%s%W%k%9%/%j%W%H$r:n@.$7$^$9!#(B

passes.pl>>

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
#!/usr/bin/perl
#$B>e$N9T$G$O!"(B Perl $B$N%Q%9$r5-=R$7$F$/$@$5$$!#(B
$account{'nawata'} = 'piyopiyo';
$account{'sugai'} = 'hogehoge';
$account{'yasuda'} = 'hoohoo';
$account{'yasumura'} = 'foofoo';
for($i = 0; $i <3; $i++){
  print "\n","user name: ";
  chomp($name = <STDIN>);
  print "pass word: ";
  chomp($pass = <STDIN>);
  if($account{$name} eq $pass){
    print "$name $B$5$s!"$h$&$3$=!*(B";
    exit;
  }
}
print "$B%Q%9%o!<%I$H(B ID $B$,%^%C%A$7$^$;$s$G$7$?!*(B","\n";

line 4-7:

$B%O%C%7%e(B %account $B$rDj5A$7$F$$$^$9!#(B

line 9-18:

for $B%k!<%W$G!"%V%m%C%/$r(B 3 $B2s7+$jJV$7$^$9!#(B

line 10-13:

$B%f!<%6L>$H%Q%9%o!<%I$NF~NO$r5a$a!"$=$l$>$l$r(B $name $B$H(B $pass $B$KBeF~$7$^$9!#(B

line 14-17:

$B%O%C%7%e(B %account $B$N(B $name $B$r%-!<$H$9$kCM(B $account{$name} $B$,F~NO$5$l$?%Q%9%o!<%I(B $pass $B$K0lCW$9$k$+$I$&$+$r>r7o$H$7$FJ,4t$7$^$9!#0lCW$9$l$P%V%m%C%/Fb$r

line 15-16:

$B%Q%9%o!<%I$H%f!<%6L>$,0lCW$9$l$P!"%a%C%;!<%8$r=PNO$7!"%9%/%j%W%H$N

$B0lCW$7$J$1$l$P!"(B for $B%k!<%W$KLa$j!"(B 3 $B2s$N7+$jJV$7$,=*N;$9$l$P

$B!ZM=9p!*![(B

CGI $B$G$O%U%)!<%`$N%G!<%?$r!"4D6-JQ?t$rDL$7$F%O%C%7%e$H$7$FoE*$J:n6H$G$b!"=;=jO?$d%0%m%C%5%j!<$J$I$N4JC1$J%G!<%?%Y!<%9$r:n@.$7$F$*$/$HJXMx$G$9!#(B

$B$H1>$&Lu$G!"%9%/%j%W%H$NCf$K%G!<%?$r=q$-9~$s$G$7$^$&$N$O$"$^$j8-$$J}K!$G$O$"$j$^$;$s!#$=$3$G!"

Copyright: SUGAI, Manabu. Since: 2001
SEO 仕事 掲示板 レンタルサーバー プロフ SEO