今天在在网页的源代码中找到了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...

阅读全文>>