PPPoE CHAP認証について

Question

###前提・実現したいこと

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

Comments

[ikedas]

ご自分で書いたPerlのソースコードを示して下さい。ご質問に直接関係ない部分はそう断って省いてもらって結構ですから。

[vfg]

コメントありがとうございます。サンプルコードとパケットキャプチャーの結果を追加しました。

Answer 1

RFC1994, §4.1には

Identifier

 The Identifier field is one octet.  The Identifier field MUST be
 changed each time a Challenge is sent.

 The Response Identifier MUST be copied from the Identifier field
 of the Challenge which caused the Response.

とあり、

Value
...

 The Response Value is the one-way hash calculated over a stream of
 octets consisting of the Identifier, followed by (concatenated
 with) the "secret", followed by (concatenated with) the Challenge
 Value.  The length of the Response Value depends upon the hash
 algorithm used (16 octets for MD5).

とありますから、$idがIdentiferの数値、$passがsecretの文字列、$randomがチャレンジの16進表記なら、レスポンスの16進表記は、

md5_hex( pack( 'C', $id ), $pass, pack( 'H*', $random ))

Comments

[vfg]

ご回答ありがとうございました！
期待通りの値になりました。