２ちゃんねる用ブラウザ「OpenJane」Part58

15 ◆garnetkKQ2 [sage] 03/02/17 02:12 ID:lbs3huKg
トリップが化ける原因が判明。
perl-5.8.0とbbs.cgiのせいだぞｺﾞﾙｧ！

16 BG ★[sage] 03/02/17 02:18 ID:???
という事は、どうやらさんが
何かをごにょごにょすれば直るという事?
どうやらさんに期待。

17 ◆garnetkKQ2 [sage] 03/02/17 02:20 ID:lbs3huKg
トリップが化ける→トリップの結果がいつもと違う

salt に与える文字列が問題のようです。
仕様が変わっていなければこんな感じになっていると思います。

my $change_salt = substr($handle_pass, , 1) . "H";
$handle_pass = substr(crypt($handle_pass, $change_salt), -8);

これだと salt がそのままの文字列で暗号化してしまうので、

my $change_salt = substr($handle_pass, , 1) . "H";
$change_salt =~ tr/\.-z/./c;
$change_salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$handle_pass = substr(crypt($handle_pass, $change_salt), -8);

とすれば多分大丈夫です。