>>458
>ord($FORM{'bbs'}),
これじゃ同じくなる可能性あるでしょ

my $idcrypt = substr(crypt($idnum * $FORM{'key'}, substr($DATE, 8, 2)), -8);