---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

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

675 ：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);

183KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30