ID表示ってやばくない？

このエントリーをはてなブックマークに追加
147 ：名無しさん＠お腹いっぱい。：
・my $idnum = substr($ENV{'REMOTE_ADDR'}, 8);
・my $bbscrypt = unpack("C*",$FORM{"bbs"});
・my $idcrypt = substr(crypt(($bbscrypt + $idnum), substr($DATE, 6, 2)), -8);