Skip to content

Commit

Permalink
add md5
Browse files Browse the repository at this point in the history
  • Loading branch information
@zhouchuanrui
zhouchuanrui committed Apr 22, 2018
1 parent f780fb5 commit d5ec768
Showing 1 changed file with 187 additions and 1 deletion.
188 changes: 187 additions & 1 deletion hash_pkg/CoreMD5.svh
View file
Original file line number Diff line number Diff line change
Expand Up @@ -19,7 +19,7 @@ class CoreMD5 extends BaseHash#(512, 128, 128);
protected struct packed {
tWord mw, lw;
} bit_cnt;
protected bit msg_reg[$];
protected byte msg_reg[$];

function new();
this_type = HASH_MD5;
Expand All @@ -36,6 +36,192 @@ class CoreMD5 extends BaseHash#(512, 128, 128);
state.d = 'h10325476;
endfunction

static const protected byte unsigned
S11 = 7, S12 = 12, S13 = 17, S14 = 22,
S21 = 5, S22 = 9, S23 = 14, S24 = 20,
S31 = 4, S32 = 11, S33 = 16, S34 = 23,
S41 = 6, S42 = 10, S43 = 15, S44 = 21;

`define F(x, y, z) (((x) & (y)) | ((~x) & (z)))
`define G(x, y, z) (((x) & (z)) | ((y) & (~z)))
`define H(x, y, z) ((x) ^ (y) ^ (z))
`define I(x, y, z) ((y) ^ ((x) | (~z)))

`define _add_fun(fn) \
static protected function void fn``fn ( \
tWord b, c, d, Wk, Ti, \
byte unsigned Rn, \
ref tWord a \
); \
a += `fn(b, c, d) + Wk + Ti; \
a = RTOL(a, Rn); \
a += b; \
endfunction

`_add_fun(F)
`_add_fun(G)
`_add_fun(H)
`_add_fun(I)

`undef F
`undef G
`undef H
`undef I
`undef _add_fun

static protected function sState transMD5 (
sState stin, tBlock blkin
);
tWord aa, bb, cc, dd, X[0:15];
sState st_tmp;

st_tmp = stin;
{aa, bb, cc, dd} = stin;
for(byte i=0; i<16; i++) begin
X[15-i] = endianSwitch32(blkin[31:0]);
blkin >>= BLOCK_SISE/16;
end

FF (bb, cc, dd, x[ 0], S11, 0xd76aa478, aa); /* 1 */
FF (aa, bb, cc, x[ 1], S12, 0xe8c7b756, dd); /* 2 */
FF (dd, aa, bb, x[ 2], S13, 0x242070db, cc); /* 3 */
FF (cc, dd, aa, x[ 3], S14, 0xc1bdceee, bb); /* 4 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
FF (bb, cc, dd, x[ 4], S11, 0xf57c0faf, aa); /* 5 */
FF (aa, bb, cc, x[ 5], S12, 0x4787c62a, dd); /* 6 */
FF (dd, aa, bb, x[ 6], S13, 0xa8304613, cc); /* 7 */
FF (cc, dd, aa, x[ 7], S14, 0xfd469501, bb); /* 8 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
FF (bb, cc, dd, x[ 8], S11, 0x698098d8, aa); /* 9 */
FF (aa, bb, cc, x[ 9], S12, 0x8b44f7af, dd); /* 10 */
FF (dd, aa, bb, x[10], S13, 0xffff5bb1, cc); /* 11 */
FF (cc, dd, aa, x[11], S14, 0x895cd7be, bb); /* 12 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
FF (bb, cc, dd, x[12], S11, 0x6b901122, aa); /* 13 */
FF (aa, bb, cc, x[13], S12, 0xfd987193, dd); /* 14 */
FF (dd, aa, bb, x[14], S13, 0xa679438e, cc); /* 15 */
FF (cc, dd, aa, x[15], S14, 0x49b40821, bb); /* 16 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
GG (bb, cc, dd, x[ 1], S21, 0xf61e2562, aa); /* 17 */
GG (aa, bb, cc, x[ 6], S22, 0xc040b340, dd); /* 18 */
GG (dd, aa, bb, x[11], S23, 0x265e5a51, cc); /* 19 */
GG (cc, dd, aa, x[ 0], S24, 0xe9b6c7aa, bb); /* 20 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
GG (bb, cc, dd, x[ 5], S21, 0xd62f105d, aa); /* 21 */
GG (aa, bb, cc, x[10], S22, 0x2441453, dd); /* 22 */
GG (dd, aa, bb, x[15], S23, 0xd8a1e681, cc); /* 23 */
GG (cc, dd, aa, x[ 4], S24, 0xe7d3fbc8, bb); /* 24 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
GG (bb, cc, dd, x[ 9], S21, 0x21e1cde6, aa); /* 25 */
GG (aa, bb, cc, x[14], S22, 0xc33707d6, dd); /* 26 */
GG (dd, aa, bb, x[ 3], S23, 0xf4d50d87, cc); /* 27 */
GG (cc, dd, aa, x[ 8], S24, 0x455a14ed, bb); /* 28 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
GG (bb, cc, dd, x[13], S21, 0xa9e3e905, aa); /* 29 */
GG (aa, bb, cc, x[ 2], S22, 0xfcefa3f8, dd); /* 30 */
GG (dd, aa, bb, x[ 7], S23, 0x676f02d9, cc); /* 31 */
GG (cc, dd, aa, x[12], S24, 0x8d2a4c8a, bb); /* 32 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
HH (bb, cc, dd, x[ 5], S31, 0xfffa3942, aa); /* 33 */
HH (aa, bb, cc, x[ 8], S32, 0x8771f681, dd); /* 34 */
HH (dd, aa, bb, x[11], S33, 0x6d9d6122, cc); /* 35 */
HH (cc, dd, aa, x[14], S34, 0xfde5380c, bb); /* 36 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
HH (bb, cc, dd, x[ 1], S31, 0xa4beea44, aa); /* 37 */
HH (aa, bb, cc, x[ 4], S32, 0x4bdecfa9, dd); /* 38 */
HH (dd, aa, bb, x[ 7], S33, 0xf6bb4b60, cc); /* 39 */
HH (cc, dd, aa, x[10], S34, 0xbebfbc70, bb); /* 40 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
HH (bb, cc, dd, x[13], S31, 0x289b7ec6, aa); /* 41 */
HH (aa, bb, cc, x[ 0], S32, 0xeaa127fa, dd); /* 42 */
HH (dd, aa, bb, x[ 3], S33, 0xd4ef3085, cc); /* 43 */
HH (cc, dd, aa, x[ 6], S34, 0x4881d05, bb); /* 44 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
HH (bb, cc, dd, x[ 9], S31, 0xd9d4d039, aa); /* 45 */
HH (aa, bb, cc, x[12], S32, 0xe6db99e5, dd); /* 46 */
HH (dd, aa, bb, x[15], S33, 0x1fa27cf8, cc); /* 47 */
HH (cc, dd, aa, x[ 2], S34, 0xc4ac5665, bb); /* 48 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
II (bb, cc, dd, x[ 0], S41, 0xf4292244, aa); /* 49 */
II (aa, bb, cc, x[ 7], S42, 0x432aff97, dd); /* 50 */
II (dd, aa, bb, x[14], S43, 0xab9423a7, cc); /* 51 */
II (cc, dd, aa, x[ 5], S44, 0xfc93a039, bb); /* 52 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
II (bb, cc, dd, x[12], S41, 0x655b59c3, aa); /* 53 */
II (aa, bb, cc, x[ 3], S42, 0x8f0ccc92, dd); /* 54 */
II (dd, aa, bb, x[10], S43, 0xffeff47d, cc); /* 55 */
II (cc, dd, aa, x[ 1], S44, 0x85845dd1, bb); /* 56 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
II (bb, cc, dd, x[ 8], S41, 0x6fa87e4f, aa); /* 57 */
II (aa, bb, cc, x[15], S42, 0xfe2ce6e0, dd); /* 58 */
II (dd, aa, bb, x[ 6], S43, 0xa3014314, cc); /* 59 */
II (cc, dd, aa, x[13], S44, 0x4e0811a1, bb); /* 60 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))
II (bb, cc, dd, x[ 4], S41, 0xf7537e82, aa); /* 61 */
II (aa, bb, cc, x[11], S42, 0xbd3af235, dd); /* 62 */
II (dd, aa, bb, x[ 2], S43, 0x2ad7d2bb, cc); /* 63 */
II (cc, dd, aa, x[ 9], S44, 0xeb86d391, bb); /* 64 */
`LOG($sformatf("a:%0h, b:%0h, c:%0h, d:%0h", aa, bb, cc, dd))

st_tmp.a += aa;
st_tmp.b += bb;
st_tmp.c += cc;
st_tmp.d += dd;
return st_tmp;
endfunction: transMD5

virtual function void update (
byte msg[$]
);
bit_cnt += msg.size()*8;
msg_reg = {msg_reg, msg};
while(msg_reg.size() >= BLOCK_SISE/8) begin
repeat(BLOCK_SISE/8-1) begin
block_reg[7:0] = msg_reg.pop_front();
block_reg <<= 8;
end
block_reg[7:0] msg_reg.pop_front();
state = transMD5(state, block_reg);
block_reg = 0;
end
endfunction: update

virtual function tDigestTr getDigest ();
int pad_len;
tWord pad_word;
sState st_tmp;
byte pad_msg[$];
`LOG($sformatf("Total Message size: %0d bit", bit_cnt))
msg_reg.push_back(8'h80);
pad_len = (msg_reg.size()< BLOCK_SISE/8 - 8)?
(BLOCK_SISE/8 - msg_reg.size() - 8):
(BLOCK_SISE/8 - msg_reg.size() - 8 + BLOCK_SISE/8);
repeat(pad_len) pad_msg.push_back(0);
pad_word = bit_cnt.lw;
repeat(4) begin
pad_msg.push_back(pad_word[7:0]);
pad_word >>= 8;
end
pad_word = bit_cnt.mw;
repeat(4) begin
pad_msg.push_back(pad_word[7:0]);
pad_word >>= 8;
end
assert((msg_reg.size()+pad_msg.size())%(BLOCK_SISE/8) == 0)
else
$fatal(1, "Wrong msg padding..");
update(pad_msg);
st_tmp = {
endianSwitch32(state.a),
endianSwitch32(state.b),
endianSwitch32(state.c),
endianSwitch32(state.d),
};
initState();
`LOG($sformatf("[%s]Message digest: %0h", this_type.name(), st_tmp))
return st_tmp;
endfunction

endclass: CoreMD5 extends BaseHash#(512, 128, 128)
`endif

0 comments on commit d5ec768

Please sign in to comment.