---

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

２ch型掲示板

728 ：◆IRreONPU ：2001/08/13(月) 20:45 ID:???

>>725-727
トリップスレにあったトリップサーチスクリプトから移植。

#トリップ
my ($trip,$key,$salt);
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/([^#]*)#(.+)/;
$key = $2;
$salt = substr($key."H.", 1, 2);
next if ($salt =~ /["#&.\/<>]/o);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = substr(crypt($key, $salt),-8);
}

$FORM{'mail'} =~ /([^#]*)/;$FORM{'mail'} = $1;
$FORM{'FROM'} =~ /([^#]*)/;$FORM{'FROM'} = $1;

$FORM{'FROM'}.=" ◆$trip" if($trip);

かちゅ〜しゃ板のスクリプトを入れ替えて正常動作することを確認。

211KB

---

新着レスの表示

---

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

0ch BBS 2004-10-30