- 523 名前：nobodyさん mailto:sage [2006/07/24(月) 13:18:28 ID:???]
- 2chトリップ
#perl
$tripkey = "#istrip";
$tripkey = substr($tripkey,1,);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = sprintf("◆%s",$trip);
print "$trip";
おながいします。
