last-modified: 19th/June/'01;
since: 1st/June/2001;
$ | $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 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 %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$rfor
$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: 2001SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||