板 1- 前 次 新 ﾚｽ
真央ﾀﾝのｱﾉ日(血)◆ﾄﾘｯﾌﾟ・ﾁｪｲｻｰ◆常駐ｽﾚpart105
[117] ◆eroya.uKKA ：2006/01/17(火) 20:06:29 0
$salt = substr($key."H.", 1, 2); $salt =~ s/[^\.-z]/\./go; $salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/; $trip = substr(crypt($key, $salt),-10); $time++; if($time =~ /00000$/){ print '.'; } if($time =~ /000000$/){ print ' '; } if($time =~ /5000000$/){ print "\n $time -> "; } if($trip =~ /$ARGV[1]/){ last; } } &jikan; print "#$key : ◆$trip"; exit; sub jikan{ ($sec, $min, $hour, $day, $mon, $year) = localtime time; $year = $year + 1900; $mon++; print "\n$year年$mon月$day日 $hour時$min分$sec秒\n"; }
前 次 新
0ch BBS 2004-01-25