当前位置：首页 » 编程博文

开发技术指南» 文章正文

    引言： -摘抄于网络´ MD5加密算法在VB中的实现 O

 

 

MD5加密算法在VB中的实现

-摘抄于网络

【程序编程相关:《C++语言的设计和演化》书评 】

【推荐阅读:ImageList控件的问题 】

´ md5加密算法在vb中的实现 【扩展信息:关于数据库连接串的安全问题 】

option explicit

dim w1 as string, w2 as string, w3 as string, w4 as string

function md5f(byval tempstr as string, byval w as string, byval x as s

tring, byval y as string, byval z as string, byval xin as string, byva

l qdata as string, byval rots as integer)

    md5f = bigmod32add(rotleft(bigmod32add(bigmod32add(w, tempstr), bi

gmod32add(xin, qdata)), rots), x)

end function

sub md5f1(w as string, byval x as string, byval y as string, byval z a

s string, byval xin as string, byval qdata as string, byval rots as in

teger)

dim tempstr as string

    tempstr = bigxor(z, bigand(x, bigxor(y, z)))

    w = md5f(tempstr, w, x, y, z, xin, qdata, rots)

end sub

sub md5f2(w as string, byval x as string, byval y as string, byval z a

s string, byval xin as string, byval qdata as string, byval rots as in

teger)

dim tempstr as string

    tempstr = bigxor(y, bigand(z, bigxor(x, y)))

    w = md5f(tempstr, w, x, y, z, xin, qdata, rots)

end sub

sub md5f3(w as string, byval x as string, byval y as string, byval z a

s string, byval xin as string, byval qdata as string, byval rots as in

teger)

dim tempstr as string

    tempstr = bigxor(x, bigxor(y, z))

    w = md5f(tempstr, w, x, y, z, xin, qdata, rots)

end sub

sub md5f4(w as string, byval x as string, byval y as string, byval z a

s string, byval xin as string, byval qdata as string, byval rots as in

teger)

dim tempstr as string

    tempstr = bigxor(y, bigor(x, bignot(z)))

    w = md5f(tempstr, w, x, y, z, xin, qdata, rots)

end sub

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：