MD5の値が異なる

質問

ＭＤ５のマニュアルを読み、自分なりに下記のように解釈したのですが、
思ったように動作してくれません。なぜでしょうか。
そもそも考え方が間違っていますでしょうか？
どうぞよろしくご指導願います。

【test.cgi】でtest.cgi?name=hogehoge&tel=031234xxxxを受け取り、
$name = $query_form->param('name');
$tel = $query_form->param('tel');
$digest64=md5_base64($name,$tel);
$param="name=".$name."&tel=".$tel."&digest64=".$digest64;
をtest2.cgiのパラメタとしてtest2.cgiへ

【test2.cgi】でtest2.cgi?name=hogehoge&tel=031234xxxx&digest64=NSKBL6fmS/msCw6e/KXm3wを受け取り、
$name = $query_form->param('name');
$tel = $query_form->param('tel');
$digest64_before = $query_form->param('digest64');
$digest64_after=md5_base64($name,$tel);

としたとき、$digest64_beforeと$digest64_afterの値が同じであれば
ＯＫだと思うのですが、
$digest64_beforeにはnullが
$digest64_afterには実際にtest.cgiで求めたダイジェストとは別の値が入っています。
エンコードとかよくわからないのですが、そのあたりの問題でしょうか？

よろしくお願いいたします。

回答No.1

nipotan · ベストアンサー

一応、手元で確認してみました
---
use strict;
use CGI;
use Digest::MD5 'md5_base64';

{
my $query_form =
CGI->new('name=hogehoge&tel=031234xxxx&digest64=NSKBL6fmS/msCw6e/KXm3w');
my $name = $query_form->param('name');
my $tel = $query_form->param('tel');
my $digest64_before = $query_form->param('digest64');
my $digest64_after = md5_base64($name, $tel);
print 'Content-Type: text/plain'."\n\n";
print $digest64_before."\n";
print $digest64_after."\n";
}
---
まずローカル (ターミナルや DOS 窓) で実行してみてください。
同じ結果は得られると思います。

原因はなんだろうな？と考えたんですが、そもそも、それを実行するサーバはなんでしょうか？
CGI としての動作がおかしいのでは？と思うんです。

環境がわからないと何ともいえませんが、恐らく一部の httpd において、/ (スラッシュ) が入る QUERY_STRING を PATH_INFO として扱うために、QUERY_STRING がフラッシュされてしまっているのかも知れません。

とりあえず、test.cgi 側で、以下の関数を追加してください。
---
sub urlescape{
my $str = shift;
$str =~ s/([^\w ])/'%'.unpack('H2', $1)/eg;
$str =~ tr/ /+/;
$str;
}
---

そして、
> $param="name=".$name."&tel=".$tel."&digest64=".$digest64;

としている箇所を

$param = urlescape("name=".$name."&tel=".$tel."&digest64=".$digest64);

として実行してみたらいかがでしょうか。

そもそも

> をtest2.cgiのパラメタとしてtest2.cgiへ

としている箇所も、どうやってパラメタとしているのかが気になるところではありますが。(「$digest64_beforeにはnullが」ってので、少し気になります。)