- 416 名前： ◆GodofTripY mailto:sage [2006/08/01(火) 01:25:49 ID:???]
- ($name, $tripkey) = split(/\#(.+)/, $form{'name'});
if($tripkey){
$salt = substr($tripkey.'H.', 1, 2);
$salt =~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./;
$salt =~ s/[^\.-z]/\./g;
$trip = '◆'. substr(crypt($tripkey, $salt), -10);}
print "$name$trip";
2chトリップ判定。
