【スレッド】 ２ch型掲示板その４ 【フロート式】

[0675 nobodyさん 02/03/04 14:21 ID:???]

#ＩＤを生成する
　　use Digest::MD5;
　　my $md5 = Digest::MD5->new;

　　use Digest::MD5 qw(md5_hex);
　　my $idnum = md5_hex($ENV{'REMOTE_ADDR'});
　　$idnum = substr($idnum,-4);

　　$md5->add($idnum);
　　$md5->add($FORM{"bbs"});
　　$md5->add(substr($DATE,6,2));
　　my $md5datefile = "*************";
　　if(-e $md5datefile){
　　　　open(MD5FILE,"<$md5datefile");
　　　　my $md5line = <MD5FILE>;
　　　　close(MD5FILE);
　　　　my ($md5date,$md5number) = split /<>/,$md5line;
　　　　if($md5date eq $MD5DATE){
　　　　　　$md5->add($md5number);