對應： mkakikomitai Ver0.864 ( official : Tacky’s Room )
作用：

早前自用的超簡單文字式四位數字驗證碼
由於這是給沒有提供 GD module (圖形庫)的 server 用的
所以防禦力非常有限
如果失守的話建議換個有 GD module 的空間然後再安個圖形驗證碼吧 ^ ^b

建議：
1. 先備份舊檔 ( 最簡單安全是把運行正常的舊檔改另一個名稱)
2. 按下文修改
3. 如果出現 500, 重置備份, 待程式正常正常運作後, 再逐段加入看看會不會500 error。

作成：

mkakikomitai.cgi — 相關位置加入青字

$t_width = 500;
$antispam_use = 1;

sub forminput

#文字顏色：
if ( $colf_use != 1 ) {
print "<tr><td $tbgcolor>文字顏色：</td>\n";
print "<td $tbgcolor>\n";
foreach (0 .. $#COLORS_F) {
if ( $c_color_f == $_ || ($c_color_f eq '' && $_ == 0)) { $dmy = "checked"; } else { $dmy = "" ; }
print "<input type=radio name=color_f value=\"$_\" $dmy>";
print "<span style=font-size:$pt_mini;color:$COLORS_F[$_]>■</span>\n";
}
print "</td></tr>\n";
}
print "<tr>\n";

# Anti-Spam
if ( $antispam_use == 1 ) {
for ($i=1; $i<=4; $i++){
$aspass .= int(rand 8)+1;
}
print "<tr><td $tbgcolor>驗證碼：</td>\n";
print "<td $tbgcolor>\n 請輸入 → <font size=\"4\" color=\"red\">$aspass</font>";
print "<input type=hidden name=\"asverify\" value=\"$aspass\">\n";
print "&nbsp; <input type=text name=\"aspass\" size=\"4\" maxlength=\"4\" value=\"\" $css_style>\n";
print "</td></tr>\n";
}
print "<tr>\n";

sub regist

#Anti-Spam
if ($antispam_use == 1){
if ( $FORM{'aspass'} eq '' ) { &error("你還沒有填入驗證碼喔！"); }
if ( $FORM{'aspass'}!=$FORM{'asverify'} ) { &error("驗證碼填錯了喔！"); }
}

if ( $FORM{’name’} eq ”) { &error(”你還沒有填入你的名字喔！”); }

 

相關閱讀：

Perl 學習手札
http://perl.hcchien.org/TOC.html
網路管理語言 Perl 入門與實作
http://linux.tnc.edu.tw/techdoc/perl_intro/book1.html
防制發廣告機器人的檢核碼
http://planetoid.info/weblog/archives/000069.html

 

PS:
如果你認為這個內容不錯，想在加個連結在您的程式內的話，
可以直接連到這一頁:
http://i-fiddle.net/blognp/
網站名稱可以用 『古月之糸己』 。
連結並非強迫性的，各位朋友可以自行考量是否加入～

由於之前的blogn plus已經沒在使用了
如果有問題可以在 fiddle 新 blog 的 再生版 post 內發問