📄 ripemd160managed.cls
字号:
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnFF(bb, cc, dd, ee, aa, mX(14), 9)
bb = bb + (cc Xor dd Xor ee) + mX(14)
bb = ((bb * &H200&) Or (((bb And &HFF800000) \ &H800000) And &H1FF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnFF(aa, bb, cc, dd, ee, mX(15), 8)
aa = aa + (bb Xor cc Xor dd) + mX(15)
aa = ((aa * &H100&) Or (((aa And &HFF000000) \ &H1000000) And &HFF&)) + ee
cc = (cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&)
'Call fnGG(ee, aa, bb, cc, dd, mX(7), 7)
ee = ee + ((aa And bb) Or ((Not aa) And cc)) + mX(7) + &H5A827999
ee = ((ee * &H80&) Or (((ee And &HFE000000) \ &H2000000) And &H7F&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(dd, ee, aa, bb, cc, mX(4), 6)
dd = dd + ((ee And aa) Or ((Not ee) And bb)) + mX(4) + &H5A827999
dd = ((dd * &H40&) Or (((dd And &HFC000000) \ &H4000000) And &H3F&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(cc, dd, ee, aa, bb, mX(13), 8)
cc = cc + ((dd And ee) Or ((Not dd) And aa)) + mX(13) + &H5A827999
cc = ((cc * &H100&) Or (((cc And &HFF000000) \ &H1000000) And &HFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(bb, cc, dd, ee, aa, mX(1), 13)
bb = bb + ((cc And dd) Or ((Not cc) And ee)) + mX(1) + &H5A827999
bb = ((bb * &H2000&) Or (((bb And &HFFF80000) \ &H80000) And &H1FFF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(aa, bb, cc, dd, ee, mX(10), 11)
aa = aa + ((bb And cc) Or ((Not bb) And dd)) + mX(10) + &H5A827999
aa = ((aa * &H800&) Or (((aa And &HFFE00000) \ &H200000) And &H7FF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(ee, aa, bb, cc, dd, mX(6), 9)
ee = ee + ((aa And bb) Or ((Not aa) And cc)) + mX(6) + &H5A827999
ee = ((ee * &H200&) Or (((ee And &HFF800000) \ &H800000) And &H1FF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(dd, ee, aa, bb, cc, mX(15), 7)
dd = dd + ((ee And aa) Or ((Not ee) And bb)) + mX(15) + &H5A827999
dd = ((dd * &H80&) Or (((dd And &HFE000000) \ &H2000000) And &H7F&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(cc, dd, ee, aa, bb, mX(3), 15)
cc = cc + ((dd And ee) Or ((Not dd) And aa)) + mX(3) + &H5A827999
cc = ((cc * &H8000&) Or (((cc And &HFFFE0000) \ &H20000) And &H7FFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(bb, cc, dd, ee, aa, mX(12), 7)
bb = bb + ((cc And dd) Or ((Not cc) And ee)) + mX(12) + &H5A827999
bb = ((bb * &H80&) Or (((bb And &HFE000000) \ &H2000000) And &H7F&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(aa, bb, cc, dd, ee, mX(0), 12)
aa = aa + ((bb And cc) Or ((Not bb) And dd)) + mX(0) + &H5A827999
aa = ((aa * &H1000&) Or (((aa And &HFFF00000) \ &H100000) And &HFFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(ee, aa, bb, cc, dd, mX(9), 15)
ee = ee + ((aa And bb) Or ((Not aa) And cc)) + mX(9) + &H5A827999
ee = ((ee * &H8000&) Or (((ee And &HFFFE0000) \ &H20000) And &H7FFF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(dd, ee, aa, bb, cc, mX(5), 9)
dd = dd + ((ee And aa) Or ((Not ee) And bb)) + mX(5) + &H5A827999
dd = ((dd * &H200&) Or (((dd And &HFF800000) \ &H800000) And &H1FF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(cc, dd, ee, aa, bb, mX(2), 11)
cc = cc + ((dd And ee) Or ((Not dd) And aa)) + mX(2) + &H5A827999
cc = ((cc * &H800&) Or (((cc And &HFFE00000) \ &H200000) And &H7FF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(bb, cc, dd, ee, aa, mX(14), 7)
bb = bb + ((cc And dd) Or ((Not cc) And ee)) + mX(14) + &H5A827999
bb = ((bb * &H80&) Or (((bb And &HFE000000) \ &H2000000) And &H7F&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(aa, bb, cc, dd, ee, mX(11), 13)
aa = aa + ((bb And cc) Or ((Not bb) And dd)) + mX(11) + &H5A827999
aa = ((aa * &H2000&) Or (((aa And &HFFF80000) \ &H80000) And &H1FFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnGG(ee, aa, bb, cc, dd, mX(8), 12)
ee = ee + ((aa And bb) Or ((Not aa) And cc)) + mX(8) + &H5A827999
ee = ((ee * &H1000&) Or (((ee And &HFFF00000) \ &H100000) And &HFFF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(dd, ee, aa, bb, cc, mX(3), 11)
dd = dd + ((ee Or (Not aa)) Xor bb) + mX(3) + &H6ED9EBA1
dd = ((dd * &H800&) Or (((dd And &HFFE00000) \ &H200000) And &H7FF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(cc, dd, ee, aa, bb, mX(10), 13)
cc = cc + ((dd Or (Not ee)) Xor aa) + mX(10) + &H6ED9EBA1
cc = ((cc * &H2000&) Or (((cc And &HFFF80000) \ &H80000) And &H1FFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(bb, cc, dd, ee, aa, mX(14), 6)
bb = bb + ((cc Or (Not dd)) Xor ee) + mX(14) + &H6ED9EBA1
bb = ((bb * &H40&) Or (((bb And &HFC000000) \ &H4000000) And &H3F&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(aa, bb, cc, dd, ee, mX(4), 7)
aa = aa + ((bb Or (Not cc)) Xor dd) + mX(4) + &H6ED9EBA1
aa = ((aa * &H80&) Or (((aa And &HFE000000) \ &H2000000) And &H7F&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(ee, aa, bb, cc, dd, mX(9), 14)
ee = ee + ((aa Or (Not bb)) Xor cc) + mX(9) + &H6ED9EBA1
ee = ((ee * &H4000&) Or (((ee And &HFFFC0000) \ &H40000) And &H3FFF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(dd, ee, aa, bb, cc, mX(15), 9)
dd = dd + ((ee Or (Not aa)) Xor bb) + mX(15) + &H6ED9EBA1
dd = ((dd * &H200&) Or (((dd And &HFF800000) \ &H800000) And &H1FF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(cc, dd, ee, aa, bb, mX(8), 13)
cc = cc + ((dd Or (Not ee)) Xor aa) + mX(8) + &H6ED9EBA1
cc = ((cc * &H2000&) Or (((cc And &HFFF80000) \ &H80000) And &H1FFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(bb, cc, dd, ee, aa, mX(1), 15)
bb = bb + ((cc Or (Not dd)) Xor ee) + mX(1) + &H6ED9EBA1
bb = ((bb * &H8000&) Or (((bb And &HFFFE0000) \ &H20000) And &H7FFF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(aa, bb, cc, dd, ee, mX(2), 14)
aa = aa + ((bb Or (Not cc)) Xor dd) + mX(2) + &H6ED9EBA1
aa = ((aa * &H4000&) Or (((aa And &HFFFC0000) \ &H40000) And &H3FFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(ee, aa, bb, cc, dd, mX(7), 8)
ee = ee + ((aa Or (Not bb)) Xor cc) + mX(7) + &H6ED9EBA1
ee = ((ee * &H100&) Or (((ee And &HFF000000) \ &H1000000) And &HFF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(dd, ee, aa, bb, cc, mX(0), 13)
dd = dd + ((ee Or (Not aa)) Xor bb) + mX(0) + &H6ED9EBA1
dd = ((dd * &H2000&) Or (((dd And &HFFF80000) \ &H80000) And &H1FFF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(cc, dd, ee, aa, bb, mX(6), 6)
cc = cc + ((dd Or (Not ee)) Xor aa) + mX(6) + &H6ED9EBA1
cc = ((cc * &H40&) Or (((cc And &HFC000000) \ &H4000000) And &H3F&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(bb, cc, dd, ee, aa, mX(13), 5)
bb = bb + ((cc Or (Not dd)) Xor ee) + mX(13) + &H6ED9EBA1
bb = ((bb * &H20&) Or (((bb And &HF8000000) \ &H8000000) And &H1F&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(aa, bb, cc, dd, ee, mX(11), 12)
aa = aa + ((bb Or (Not cc)) Xor dd) + mX(11) + &H6ED9EBA1
aa = ((aa * &H1000&) Or (((aa And &HFFF00000) \ &H100000) And &HFFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(ee, aa, bb, cc, dd, mX(5), 7)
ee = ee + ((aa Or (Not bb)) Xor cc) + mX(5) + &H6ED9EBA1
ee = ((ee * &H80&) Or (((ee And &HFE000000) \ &H2000000) And &H7F&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnHH(dd, ee, aa, bb, cc, mX(12), 5)
dd = dd + ((ee Or (Not aa)) Xor bb) + mX(12) + &H6ED9EBA1
dd = ((dd * &H20&) Or (((dd And &HF8000000) \ &H8000000) And &H1F&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(cc, dd, ee, aa, bb, mX(1), 11)
cc = cc + ((dd And aa) Or (ee And (Not aa))) + mX(1) + &H8F1BBCDC
cc = ((cc * &H800&) Or (((cc And &HFFE00000) \ &H200000) And &H7FF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(bb, cc, dd, ee, aa, mX(9), 12)
bb = bb + ((cc And ee) Or (dd And (Not ee))) + mX(9) + &H8F1BBCDC
bb = ((bb * &H1000&) Or (((bb And &HFFF00000) \ &H100000) And &HFFF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(aa, bb, cc, dd, ee, mX(11), 14)
aa = aa + ((bb And dd) Or (cc And (Not dd))) + mX(11) + &H8F1BBCDC
aa = ((aa * &H4000&) Or (((aa And &HFFFC0000) \ &H40000) And &H3FFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(ee, aa, bb, cc, dd, mX(10), 15)
ee = ee + ((aa And cc) Or (bb And (Not cc))) + mX(10) + &H8F1BBCDC
ee = ((ee * &H8000&) Or (((ee And &HFFFE0000) \ &H20000) And &H7FFF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(dd, ee, aa, bb, cc, mX(0), 14)
dd = dd + ((ee And bb) Or (aa And (Not bb))) + mX(0) + &H8F1BBCDC
dd = ((dd * &H4000&) Or (((dd And &HFFFC0000) \ &H40000) And &H3FFF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(cc, dd, ee, aa, bb, mX(8), 15)
cc = cc + ((dd And aa) Or (ee And (Not aa))) + mX(8) + &H8F1BBCDC
cc = ((cc * &H8000&) Or (((cc And &HFFFE0000) \ &H20000) And &H7FFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(bb, cc, dd, ee, aa, mX(12), 9)
bb = bb + ((cc And ee) Or (dd And (Not ee))) + mX(12) + &H8F1BBCDC
bb = ((bb * &H200&) Or (((bb And &HFF800000) \ &H800000) And &H1FF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(aa, bb, cc, dd, ee, mX(4), 8)
aa = aa + ((bb And dd) Or (cc And (Not dd))) + mX(4) + &H8F1BBCDC
aa = ((aa * &H100&) Or (((aa And &HFF000000) \ &H1000000) And &HFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(ee, aa, bb, cc, dd, mX(13), 9)
ee = ee + ((aa And cc) Or (bb And (Not cc))) + mX(13) + &H8F1BBCDC
ee = ((ee * &H200&) Or (((ee And &HFF800000) \ &H800000) And &H1FF&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(dd, ee, aa, bb, cc, mX(3), 14)
dd = dd + ((ee And bb) Or (aa And (Not bb))) + mX(3) + &H8F1BBCDC
dd = ((dd * &H4000&) Or (((dd And &HFFFC0000) \ &H40000) And &H3FFF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(cc, dd, ee, aa, bb, mX(7), 5)
cc = cc + ((dd And aa) Or (ee And (Not aa))) + mX(7) + &H8F1BBCDC
cc = ((cc * &H20&) Or (((cc And &HF8000000) \ &H8000000) And &H1F&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(bb, cc, dd, ee, aa, mX(15), 6)
bb = bb + ((cc And ee) Or (dd And (Not ee))) + mX(15) + &H8F1BBCDC
bb = ((bb * &H40&) Or (((bb And &HFC000000) \ &H4000000) And &H3F&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(aa, bb, cc, dd, ee, mX(14), 8)
aa = aa + ((bb And dd) Or (cc And (Not dd))) + mX(14) + &H8F1BBCDC
aa = ((aa * &H100&) Or (((aa And &HFF000000) \ &H1000000) And &HFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(ee, aa, bb, cc, dd, mX(5), 6)
ee = ee + ((aa And cc) Or (bb And (Not cc))) + mX(5) + &H8F1BBCDC
ee = ((ee * &H40&) Or (((ee And &HFC000000) \ &H4000000) And &H3F&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(dd, ee, aa, bb, cc, mX(6), 5)
dd = dd + ((ee And bb) Or (aa And (Not bb))) + mX(6) + &H8F1BBCDC
dd = ((dd * &H20&) Or (((dd And &HF8000000) \ &H8000000) And &H1F&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnII(cc, dd, ee, aa, bb, mX(2), 12)
cc = cc + ((dd And aa) Or (ee And (Not aa))) + mX(2) + &H8F1BBCDC
cc = ((cc * &H1000&) Or (((cc And &HFFF00000) \ &H100000) And &HFFF&)) + bb
ee = ((ee * &H400&) Or (((ee And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnJJ(bb, cc, dd, ee, aa, mX(4), 9)
bb = bb + (cc Xor (dd Or (Not ee))) + mX(4) + &HA953FD4E
bb = ((bb * &H200&) Or (((bb And &HFF800000) \ &H800000) And &H1FF&)) + aa
dd = ((dd * &H400&) Or (((dd And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnJJ(aa, bb, cc, dd, ee, mX(0), 15)
aa = aa + (bb Xor (cc Or (Not dd))) + mX(0) + &HA953FD4E
aa = ((aa * &H8000&) Or (((aa And &HFFFE0000) \ &H20000) And &H7FFF&)) + ee
cc = ((cc * &H400&) Or (((cc And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnJJ(ee, aa, bb, cc, dd, mX(5), 5)
ee = ee + (aa Xor (bb Or (Not cc))) + mX(5) + &HA953FD4E
ee = ((ee * &H20&) Or (((ee And &HF8000000) \ &H8000000) And &H1F&)) + dd
bb = ((bb * &H400&) Or (((bb And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnJJ(dd, ee, aa, bb, cc, mX(9), 11)
dd = dd + (ee Xor (aa Or (Not bb))) + mX(9) + &HA953FD4E
dd = ((dd * &H800&) Or (((dd And &HFFE00000) \ &H200000) And &H7FF&)) + cc
aa = ((aa * &H400&) Or (((aa And &HFFC00000) \ &H400000) And &H3FF&))
'Call fnJJ(cc, dd, ee, aa, bb, mX(7), 6)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -