- 713 名前:nobodyさん mailto:sage [2006/12/26(火) 17:21:36 ID:???]
- トリップ作成っていまもこれでおk?
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";
|

|