MD5解密源码【VB源码】

'部分源码如下：PublicFunctionMD5(sMessage)m_lOnBits(0)=CLng(1)m_lOnBits(1)=CLng(3)m_lOnBits(2)=CLng(7)m_lOnBits(3)=CLng(15)m_lOnBits(4)=CLng(31)m_lOnBits(5)=CLng(63)m_lOnBits(6)=CLng(127)m_lOnBits(7)=CLng(255)m_lOnBits(8)=CLng(511)m_lOnBits(9)=CLng(1023)m_lOnBits(10)=CLn