質問編集履歴
1
ソースコードの追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,7 +12,26 @@
|
|
|
12
12
|
|
|
13
13
|
|
|
14
14
|
###該当のソースコード
|
|
15
|
+
抜粋です。
|
|
15
16
|
|
|
17
|
+
#!/usr/bin/perl
|
|
18
|
+
use utf8;
|
|
19
|
+
use Digest::MD5 qw(md5 md5_hex md5_base64);
|
|
20
|
+
|
|
21
|
+
&main();
|
|
22
|
+
|
|
23
|
+
sub main{
|
|
24
|
+
my $id = 1;
|
|
25
|
+
my $pass = "PASSWORD0001";
|
|
26
|
+
my $random = "595b4900b8ceefa1414fbe03c29f5bf4";
|
|
27
|
+
print md5_hex( $id, $pass, pack( 'H*', $random )), "\n";
|
|
28
|
+
print "8ee3f5b2a10f67cc5e0f9a20e3fe7831\n"; # 期待値
|
|
29
|
+
}
|
|
30
|
+
|
|
31
|
+
](adee6c4619be73930f266841be8dda51.jpeg)
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
16
35
|
###試したこと
|
|
17
36
|
md5_hexを使用して、チャレンジパケットのID、ランダム値、該当ユーザのパスワードを順番を入れ替えて入力、
|
|
18
37
|
またpack関数のパラメータを変更して試していますが、うまくいっていません。
|