>>1

for($i=1;$i;++$i){
while(1){
$key = $i;
$salt = substr($key."H.", 1, 2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-8);
next unless ($trip =~ /$ARGV[0]/io);
print "◆$trip : #$key\n";
}
}

これでもつかっとけYO!