工場長さんのところで使われてた文字絵方式の投稿コードを簡易版にして付けてみました 画像に比べて解析は容易ですがわざわざこれを突破する専用のルーチン組む情熱がある スパマーは許してもいいような気がします しばらくこれで動かして問題なければv3.07ってことにしましょう 今回の追加は環境設定の書き込みチェックに $useAAcode = 1; # 文字絵投稿コードを使用する場合は1、使用しない場合は0 投稿フォームに if($useAAcode == 1){ $codeB=substr($code -4 4); $codeA=substr($code 0 -4); @AAcode=split(// $codeB); foreach(@AAcode){ if ($_==1){ $l1.=' ■ '; $l2.=' ■ '; $l3.=' ■ '; $l4.=' ■ '; $l5.=' ■ '; } elsif ($_==2){ $l1.='■■■ '; $l2.=' ■ '; $l3.='■■■ '; $l4.='■ '; $l5.='■■■ '; } elsif ($_==3){ $l1.='■■■ '; $l2.=' ■ '; $l3.='■■■ '; $l4.=' ■ '; $l5.='■■■ '; } elsif ($_==4){ $l1.='■ ■ '; $l2.='■ ■ '; $l3.='■■■ '; $l4.=' ■ '; $l5.=' ■ '; } elsif ($_==5){ $l1.='■■■ '; $l2.='■ '; $l3.='■■■ '; $l4.=' ■ '; $l5.='■■■ '; } elsif ($_==6){ $l1.='■■■ '; $l2.='■ '; $l3.='■■■ '; $l4.='■ ■ '; $l5.='■■■ '; } elsif ($_==7){ $l1.='■■■ '; $l2.=' ■ '; $l3.=' ■ '; $l4.='■ '; $l5.='■ '; } elsif ($_==8){ $l1.='■■■ '; $l2.='■ ■ '; $l3.='■■■ '; $l4.='■ ■ '; $l5.='■■■ '; } elsif ($_==9){ $l1.='■■■ '; $l2.='■ ■ '; $l3.='■■■ '; $l4.=' ■ '; $l5.='■■■ '; } elsif ($_==0){ $l1.='■■■ '; $l2.='■ ■ '; $l3.='■ ■ '; $l4.='■ ■ '; $l5.='■■■ '; } } } および if($useAAcode == 1){ print <<"EOF"; <input type=hidden name=\"codeA\" value=\"$codeA\"> <small><pre>$l1 $l2 $l3 $l4 $l5</pre></small> 投稿コード <input type=text name=\"codeB\" size=10><small> (上の数字を半角で書き写してください)</small><br><br> EOF } else{ print "<input type=hidden name=\"code\" value=\"$code\">\n"; } 投稿記録処理に # 投稿コードチェック if($useAAcode == 1){ $FORM{'code'} = $FORM{'codeA'}.$FORM{'codeB'}; } 以上です
■■■ ■■■ ■ ■ ■■■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■■■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■■■ ■■■ ■ ■■■