2008-02-01から1ヶ月間の記事一覧
■式 H(K XOR opad, H(K XOR ipad, text)) ipad = バイト値 0x36 を 64 回繰り返した文字列 opad = バイト値 0x5C を 64 回繰り返した文字列 1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 use Digest::MD5 qw(md5_hex); 7 use Digest::SHA1 qw(sha…
■式 H(K XOR opad, H(K XOR ipad, text)) ipad = バイト値 0x36 を 64 回繰り返した文字列 opad = バイト値 0x5C を 64 回繰り返した文字列 1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 use Digest::MD5 qw(md5_hex); 7 use Digest::SHA1 qw(sha…