- 713 名前：nobodyさん mailto:sage [2006/12/26(火) 17:21:36 ID:???]
- ﾄﾘｯﾌﾟ作成っていまもこれでおｋ？
523 ：nobodyさん ：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";
