質問編集履歴
1
ソースコードの追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,6 +26,44 @@
|
|
|
26
26
|
|
|
27
27
|
###該当のソースコード
|
|
28
28
|
|
|
29
|
+
抜粋です。
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
#!/usr/bin/perl
|
|
34
|
+
|
|
35
|
+
use utf8;
|
|
36
|
+
|
|
37
|
+
use Digest::MD5 qw(md5 md5_hex md5_base64);
|
|
38
|
+
|
|
39
|
+
|
|
40
|
+
|
|
41
|
+
&main();
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
|
|
45
|
+
sub main{
|
|
46
|
+
|
|
47
|
+
my $id = 1;
|
|
48
|
+
|
|
49
|
+
my $pass = "PASSWORD0001";
|
|
50
|
+
|
|
51
|
+
my $random = "595b4900b8ceefa1414fbe03c29f5bf4";
|
|
52
|
+
|
|
53
|
+
print md5_hex( $id, $pass, pack( 'H*', $random )), "\n";
|
|
54
|
+
|
|
55
|
+
print "8ee3f5b2a10f67cc5e0f9a20e3fe7831\n"; # 期待値
|
|
56
|
+
|
|
57
|
+
}
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
](adee6c4619be73930f266841be8dda51.jpeg)
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
29
67
|
|
|
30
68
|
|
|
31
69
|
###試したこと
|