欢迎来到天天文库
浏览记录
ID:12984271
大小:49.00 KB
页数:23页
时间:2018-07-20
《vb md5加密类模块(vb md5 encryption class module)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、vbmd5加密类模块(VBMD5encryptionclassmodule)明确选择私人constbits_to_a_byte=8私人constbytes_to_a_word=4私人constbits_to_a_word=32私人m_lonbits(30)私人m_l2power(30)私有函数rightnew(tmp_string为字符串,tmp_sum为整数)为字符串如果tmp_string=“”rightnew=“”退出功能最后如果如果tmp_sum>=Len(tmp_string)然后rightnew
2、=tmp_string退出功能最后如果rightnew=中(tmp_string,Len(tmp_string)-tmp_sum,tmp_sum)端功能私有函数leftnew(tmp_string为字符串,tmp_sum为整数)为字符串如果tmp_string=“”leftnew=“”退出功能最后如果如果tmp_sum>=Len(tmp_string)然后leftnew=tmp_string退出功能最后如果leftnew=中(tmp_string,1,tmp_sum)端功能私有函数LSHIFT(左值,ish
3、iftbits)如果ishiftbits=0LShift=左值退出功能“ishiftbits=31如果这1则h80000000LSHIFT=&其他的LShift=0最后如果退出功能“ishiftbits<0或>31ishiftbits错了,提高6。最后如果如果(左值,m_l2power(31ishiftbits))然后LShift=((左值,m_lonbits(31-(ishiftbits+1)))*m_l2power(ishiftbits))或与h80000000其他的LShift=((左值,m_lonb
4、its(31ishiftbits))*m_l2power(ishiftbits))最后如果端功能私有函数rshift(左值,ishiftbits)如果ishiftbits=0rshift=左值退出功能“ishiftbits=31如果左值和h80000000然后rshift=1其他的rshift=0最后如果退出功能“ishiftbits<0或>31ishiftbits错了,提高6。最后如果rshift=(左值和h7ffffffe)m_l2power(ishiftbits)如果(这与h80000000)然后r
5、shift=(RShift或(和h40000000m_l2power(ishiftbits-1)))最后如果端功能私有函数RotateLeft(左值,ishiftbits)RotateLeft=LSHIFT(左值,ishiftbits)或RShift(左值,(32ishiftbits))端功能私有函数addunsigned(LX,LY)昏暗的LX4昏暗LY4昏暗的lx8昏暗LY8暗淡一些lx8=LX和h80000000LY和h80000000LY8=LX4=LX和h40000000LY4=LY和h4000
6、0000一些=(LX和h3fffffff)+(LY和h3fffffff)如果LX4、LY4然后一些h80000000异或XOR和为一些lx8异或LY8elseifLX4或LY4然后如果一些与h40000000然后一些hc0000000异或XOR和为一些lx8异或LY8其他的一些h40000000异或XOR和为一些lx8异或LY8最后如果其他的一些一些lx8异或XORLY8=最后如果一些addunsigned=端功能私有函数md5_f(x,y,z)md5_f=(X和Y)或((不是X)和Z)端功能私有函数md5
7、_g(x,y,z)md5_g=(X、Z)或(Y(不是Z))端功能私有函数md5_h(x,y,z)md5_h=(X或Y或Z)端功能私有函数md5_i(x,y,z)md5_i=(Y异或(X或(不是Z)))端功能私有子md5_ff(A,B,C,D,X,S,AC)aaddunsigned(A,addunsigned(addunsigned(md5_f(B,C,D),x),AC))aRotateLeft(A,S)aaddunsigned(A,B)端子私有子md5_gg(A,B,C,D,X,S,AC)aaddunsig
8、ned(A,addunsigned(addunsigned(md5_g(B,C,D),x),AC))aRotateLeft(A,S)aaddunsigned(A,B)端子私有子md5_hh(A,B,C,D,X,S,AC)aaddunsigned(A,addunsigned(addunsigned(md5_h(B,C,D),x),AC))aRotateLeft(A,S)aaddunsigned(A,B)端子私有子m
此文档下载收益归作者所有