VB6.0超级模块函数.JiaMi字符串加密

'加密函数
 Function JiaMi(s As String) As String
   Dim str1 As String
   Dim n As Long
    n = Len(s)
    For i = 1 To n
        str1 = str1 & Hex((Asc(Mid(s, i, 1)) - 1) Or &H25)
    Next i
JiaMi = str1
End Function

调用方法如下：

 JiaMi("abc123你好,www.zai996.com") 

得到 密文字符串为：

656567353537C4E7BAE72F7777772D7D656D3D3D352D676F6D

一般我们会将用户电脑的CPU序列号或者 网卡序列号加密下显示到软件上。作为软件绑定保护措施之一。为了不想让用户一看就能看出来是网卡序列号或者是CPU序列号。

VB交流站 www.zai996.com  q1016058890