5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

2ch死亡の秋近づく! −厨房の秋

1 :東京kitty:01/10/14 00:53 ID:uvpiZ4GQ
各板の注意書きに、

>6 荒しの定義
>何を以って荒しと認定するかについての問い合わせには
>基本的にお答えしません。
>ただし自動的にスクリプトで判断しているわけではありません。
>くれぐれもコピー&ペーストを執拗に繰り返したり、
>同内容の繰り返しを執拗に張りつけたり、
>可読性を損なうことを目的に書き込みを繰り返したりしないように
>注意してください。次項にもありますが、容赦なく対処します。

とあるが、
荒しの定義が提示されないまま処分だけするとはねー
これで2chは死んだな。
明確な制限規定を置くことなく、
いつでも管理者側の恣意だけで処分を下すことをよしとする
雰囲気は、。極めて強権的だ。
掲示板の勢いを殺ぐものだね

332 :マァヴ ★:01/10/14 04:59 ID:???
#IDを生成する
  use Digest::MD5;
  my $md5 = Digest::MD5->new;
  my $idnum = $ENV{'REMOTE_ADDR'};
  $idnum =~ s/\./0/g;
  $idnum = crypt($idnum,$idnum);
  $idnum = substr($idnum,-3);
  $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);
    }else{
      open(MD5FILE,">$md5datefile");
      srand(time^$$);
      my $data=int(rand(100000000));
      print MD5FILE "$MD5DATE<>$data";
      close(MD5FILE);
      $md5->add($data);
    }

333 :マァヴ ★:01/10/14 04:59 ID:???
  }else{
    open(MD5FILE,">$md5datefile");
    srand(time^$$);
    my $data=int(rand(100000000));
    print MD5FILE "$MD5DATE<>$data";
    close(MD5FILE);
    $md5->add($data);
  }
  my $idcrypt = $md5->b64digest;
  $idcrypt = substr($idcrypt,0,8);
  my $outdat;

119 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)