Function UserCode(password As String) As String '用户口令加密 Dim il_bit, il_x, il_y, il_z, il_len, i
在看了网友 everjoe评论后，俺改进了一下该程序，其实也就是把W系列的函数用B系列去替代，然后就支持中文加密了 修改后的全部代码入下: Function UserCode(password
'sCode 待加密字串 'sKey 密钥字串(前8位有效) Public Sub DES_Encode(ByRef sCode() As Byte, ByVal sKey As
MD5算法研究 综述 md5的全称是message-digest algorithm 5（信息-摘要算法），在90年代初由mit laboratory for computer scienc
随着计算机应用的普及，信息的安全性越来越受到人们的重视，对数据加解密算法的研究也在不断地深入，但一般的加解密算法如DES和RSA等过于复杂，且运算速度慢，特别是它的移位操作，对于VB这样的高级语言实现
'sCode 待解密字串 'sKey 密钥字串 Public Sub DES_Decode(ByRef sCode() As Byte, ByVal sKey A
－忘了摘自何处 ' RSA加密算法在VB中的实现 Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKLMN
以下为MD5算法用c#的实现 //MD5.cs //MD5 16-bit,32-bits algorithm implemented in C# using System; using System.
-摘抄于网络 ' MD5加密算法在VB中的实现 Option Explicit Dim w1 As String, w2 As String, w3 As String, w4 As St
－忘了摘自何处 ' RSA加密算法在VB中的实现 Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKL