>>243
http://www.japu.org/tinybbs/を信じれば、

my $idnum = substr($ENV{'REMOTE_ADDR'}, 8);
my $bbscrypt = unpack("C*",$FORM{"bbs"});
my $idcrypt = substr(crypt(($bbscrypt + $idnum), substr($DATE, 6, 2)), -8);

らしいけどね。「鍵を秘密」にすると管理する人が必要になるねぇ。