今天在在网页的源代码中找到了MD5加密算法的代码,呵呵,搬过来VB用了~~
直接调用就可以了
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValu...
阅读全文>>