###前提・実現したいこと
perlでPPPoEクライアントを実装し、負荷試験に使用したいと考えております。
###発生している問題・エラーメッセージ
CHAP認証で、応答パケットを送信する際に、MD5ハッシュ値を生成する必要があり、
Digest::MD5::md5_hex を使用していますが、期待値※になりません。
参考になるサイトやperlでの実装例をご存知でしたら、教えていただけませんでしょうか。
※CiscoルータとWindows7クライアントを使用して、wiresharkでキャプチャーした結果を参照しています。
###該当のソースコード
抜粋です。
#!/usr/bin/perl
use utf8;
use Digest::MD5 qw(md5 md5_hex md5_base64);
&main();
sub main{
my $id = 1;
my $pass = "PASSWORD0001";
my $random = "595b4900b8ceefa1414fbe03c29f5bf4";
print md5_hex( $id, $pass, pack( 'H*', $random )), "\n";
print "8ee3f5b2a10f67cc5e0f9a20e3fe7831\n"; # 期待値
}
###試したこと
md5_hexを使用して、チャレンジパケットのID、ランダム値、該当ユーザのパスワードを順番を入れ替えて入力、
またpack関数のパラメータを変更して試していますが、うまくいっていません。
またRFC1994やpppoeクライアントのソースコードを参照しています。
###補足情報(言語/FW/ツール等のバージョンなど)
perl
回答1件
あなたの回答
tips
プレビュー