VB6雷池编码

1Private Sub Label1_Click()
2Dim str As String '以下载入函数 QQ:3925993
3   str = Text1.Text '转载注明出处,红防安全网 http://blog.hkfx.net
4   Call encrypt(str)
5   Text2.Text = encrypt(str)
6End Sub

1Private Sub Label2_Click()
2Dim str1 As String
3     str1 = Text3.Text
4     Call decrypt(str1)
5     Text4.Text = decrypt(str1)
6End Sub

 1Public Function encrypt(ecode)
 2     Dim texts '加密函数
 3     Dim i
 4     For i = 1 To Len(ecode)
 5     texts = texts & Chr(Asc(Mid(ecode, i, 2)) + i)
 6     Next
 7     encrypt = texts
 8End Function
 9 
10Public Function decrypt(dcode)
11     Dim texts '解密函数
12     Dim i
13     For i = 1 To Len(dcode)
14     texts = texts & Chr(Asc(Mid(dcode, i, 2)) - i)
15     Next
16     decrypt = texts
17End Function