２ch型掲示板

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

735 ：◆IRreONPU ：2001/08/14(火) 13:12 ID:???: >>733
＞そもそも該当個所の意味がわからないのですが、
＞単純に削除してよろしいでしょうか？

17さんの >>691のスクリプトで

my $trip;
#トリップ
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/([^#]*)#(.+)/;
$trip=substr(crypt($2,86),-8);
}

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

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

と書いてある場所を置き換えてください。

＞かちゅ板でテストしたところ、
＞＞next if ($salt =~ /["#&.\/<>]/o);
＞のせいで、$saltにこれらの文字が含まれていると、
＞パスがそのまま表示されてしまいます。

申し訳ありません。解析プログラムの、チェックを飛ばしているところを
そのままにしてしまったようです。当該行は削除してください。
736 ：◆IRreONPU ：2001/08/14(火) 13:33 ID:???: >>734
こっちもそのとおりです。
737 ：◆IRreONPU ：2001/08/14(火) 13:59 ID:???: >>728の改良版です。>>733-734の指摘を受けた場所を変更しています。
17さんのスクリプトから置き換える場所は >>735と同じ。

#トリップ
my ($trip,$key,$salt);
if($FORM{'FROM'}=~/#/){
$FORM{'FROM'}=~/#(.+)/;
$key = $1;
$salt = substr($key."H.", 1, 2);
$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);

チェックしてみた限りでは、これでOKのはず。

211KB

新着レスの表示

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

0ch BBS 2004-10-30