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

2ch型掲示板

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