未来罵声研究所

---

• au問題について
  auの携帯ブラウザのHTTP_USER_AGENTには「KDDI」という文字があるらしいので、それがある場合COOKIEを読み取らないようにしました。
  赤い部分を追加して回避しました。
  ソース：ノーマル罵声　580行目
  sub getc{
  　　local($p_ua);
  　　local($p_uah);
  　　$p_ua = $ENV{'HTTP_USER_AGENT'};
  　　local($p_uah) = split(/-/,$p_ua);
  　　if($p_uah ne "KDDI"){
  　　　　$ret=$ENV{'HTTP_COOKIE'};
  　　　　@pairs = split(/;/, $ret);
  　　　　foreach $pair (@pairs) {
  　　　　　　local($name, $value) = split(/=/, $pair);
  　　　　　　$name =~ s/ //g;
  　　　　　　$ck{$name} = $value;
  　　　　}
  　　　　@pairs = split(/,/, $ck{'BASEI'});
  　　　　foreach $pair (@pairs) {
  　　　　　　local($name, $value) = split(/:/, $pair);
  　　　　　　$ck1{$name} = $value;
  　　　　}
  　　}
  }
  
  
• 強制ID付加
  強制的にIDを負荷するなら、IDオン/オフの分岐行をコメントアウトでよいかと思います。 トップページのチェックボックスも同様にコメントアウトで。。。
  カサマツさんでは、トップページのチェックボックスを消しただけだったのでしょう。なので、IDを消す裏技がありました。
  ソース：ノーマル罵声　129行目
  #if ($form{'id'} eq 'on'){
  　　$ip=$ENV{'REMOTE_ADDR'};
  　　($ip1,$ip2,$ip3)=split(/\./,$ip);
  　　$ip=sprintf("%lx%lx%lx",$ip1,$ip3,$ip2);
  　　$ip=$ip.$ENV{'REMOTE_USER'};
  　　$ip=$ip.$ENV{'HTTP_USER_AGENT'};
  　　@aline=unpack('C*',$ip);
  　　foreach $ans(@aline){$zu=$zu+1;$seed=$seed+$ans*$zu;}
  　　srand($seed);
  　　for($i=0;$i<5;$i++){
  　　　　$a=int(rand(16));
  　　　　$a=sprintf("%lx",$a);
  　　　　$id=$id.$a;
  　　}
  　　$id="_$id";
  #}
  ソース：ノーマル罵声　472行目
  <!--<INPUT type="checkbox" name="id" value="on"checked>ID表\示オン-->
  
  
• 「神問題」について
  オリジナルの罵声では、名前に「_」を付けられないようになっています。恐らく、IDをオンにすると、"名前"_"ID"の表記のため、IDをOFFにして名前を「よんこ_f131a」とするような成りすましを防止したのでしょう。コレが「神」問題の原因です。
  強制的にIDを付加するなら、この行はコメントアウトでよいかと思います。
  ソース：ノーマル罵声　127行目
  #$form{'name'}=~s/_//g;
  
  
• RRにID機能を追加する場合の注意
  RRベースでIDを追加したい場合、注意点があります。ノーマルの127から145行目あたりと472行目をコピペで動くと思いますが、その場合IDによって数値が変わってしまいます。
  まあ、それって本家りんごやカサマツさんのRRと同じって事なので別にいいと思いますが、ノーマル罵声と同じにしたい場合は、ノーマルの195、196行目にあるように、$seed=0;$zu=0;を追加します。追加する位置は通常モードと革命モードの切り替え前（下記参照してください）が良いかと思います。
  逆に言うと、この数値を操作できるのがウチのシードシステムなのです。$0-0でノーマル罵声スペックになるのはそのためです。
  ソース：ノーマル罵声　188行目
  #結果ＨＴＭＬ
  sub kekkahtml{
  　　&atama;
  　　print "<h2>結果</h2>\n";
  　　$cname2=$cname;
  　　$cname2=~s/_.....//g;
  　　undef @aline;
  　　$seed=0;　←ココでリセットしてます
  　　$zu=0;　←ココでリセットしてます
  　　@aline=unpack('C*',$form{'come'});
  ソース：RR　97行目
  &openkeyfile;
  &keywordsyori;
  &hitkey;
  $seed=0;
  $zu=0;
  if ($sw eq "on"){
  　　&kekkahtml2;
  }else{
  　　&kekkahtml;
  }
  
• アクセス禁止機能の実装
  [1] ルーチン設定
  まずは&decodeの下に「アクセス禁止リストを読み込む」ルーチンと「アクセス禁止処理」ルーチンを追加します。
  ソース：ノーマル罵声　76行目
  &decode;
  &openkinshi; ←「アクセス禁止リストを読み込む」ルーチン実行
  &kinshi; ←「アクセス禁止処理」ルーチン実行
  &mozisu;
  [2] decodeの編集
  今回はIDにてアク禁を設定するので、decode内で作成した$idを$id2に保存するように変更をします。
  ソース：ノーマル罵声　129行目
  #if ($form{'id'} eq 'on'){
  　　$ip=$ENV{'REMOTE_ADDR'};
  　　($ip1,$ip2,$ip3)=split(/\./,$ip);
  　　$ip=sprintf("%lx%lx%lx",$ip1,$ip3,$ip2);
  　　$ip=$ip.$ENV{'REMOTE_USER'};
  　　$ip=$ip.$ENV{'HTTP_USER_AGENT'};
  　　@aline=unpack('C*',$ip);
  　　foreach $ans(@aline){$zu=$zu+1;$seed=$seed+$ans*$zu;}
  　　srand($seed);
  　　for($i=0;$i<5;$i++){
  　　　　$a=int(rand(16));
  　　　　$a=sprintf("%lx",$a);
  　　　　$id=$id.$a;
  　　}
  　　$id=$id2; ←$id2に_や[]の無いIDを保管
  　　$id="_$id";
  #}
  [3] ルーチンの実装
  下記ルーチンを適当な場所に追加して下さい。
  #アクセス禁止リスト読み込み
  sub openkinshi{
  　　open(IN,"kinshi.dat");
  　　@kinshiline=;
  　　close(IN);
  }
  #アクセス禁止処理
  sub kinshi{
  　　foreach $ans(@kinshiline){
  　　　　chomp $ans;
  　　　　($kinshiid,$level)=split(/<@@>/,$ans);
  　　　　if ($kinshiid eq $id2){
  　　　　　　&atama;
  　　　　　　print "閉鎖しました。ご愛顧ありがとうございました。";
  　　　　　　&ketu;
  　　　　　　exit;
  　　　　}
  　　}
  }
  [4] アク禁リストのアップロード
  アクセス禁止リスト「kinshi.dat」ファイルを作成し、cgiと同じ場所にアップロードして下さい。アクセス禁止リストの書式は以下の通りです。アクセス禁止レベルを付けてありますが、現状は使用しておりません。僕はアクセス禁止レベルによって結果を変えてあります。例えばこのレベルなら好きな名前を付けられないとか。また、0は何もしないにしておいて悪質なID（例：Google先生）の覚書にしています。
  ファイル名：kinshi.dat
  内容：
  a0606<@@>1<@@>
  472db<@@>1<@@>