CGI探してますスレで答えもらってるのでは？

102 Name_Not_Found sage 2005/08/18(木) 21:43:50 ID:???
トリップテスタープログラムを探してます。

【種別】　掲示板（たぶん違う）
【条件】　フリー、シェア、どちらでも。
【言語】　PHP、Perl、Aspでも可


103 Name_Not_Found sage 2005/08/18(木) 22:57:38 ID:???
>>102
sub trip {

my $seed = shift;
my $salt = substr($seed, 1, 2);

$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
$salt =~ s/[^\.\/0-9A-Za-z]/./g;

return (substr(crypt($seed, $salt), -10));

}