modcrypt.bas

字符串加解密码程序,用于字符串的加解密,VB源码

Attribute VB_Name = "modCrypt"

Public Function jiamimafun(texti, salasana) As String   '加密
On Error Resume Next
For T = 1 To Len(salasana)
  sana = Asc(Mid(salasana, T, 1))
  X1 = X1 + sana
Next

X1 = Int((X1 * 0.1) / 6)
salasana = X1
G = 0
For TT = 1 To Len(texti)
    sana = Asc(Mid(texti, TT, 1))
    G = G + 1
    If G = 6 Then G = 0
    X1 = 0
    If G = 0 Then X1 = sana - (salasana - 2)
    If G = 1 Then X1 = sana + (salasana - 5)
    If G = 2 Then X1 = sana - (salasana - 4)
    If G = 3 Then X1 = sana + (salasana - 2)
    If G = 4 Then X1 = sana - (salasana - 3)
    If G = 5 Then X1 = sana + (salasana - 5)
    X1 = X1 + G
    jiamimafuned = jiamimafuned & Chr(X1)
Next
    jiamimafun = jiamimafuned
End Function

Public Function jiemimafun(texti, salasana) As String   '解密
On Error Resume Next
For T = 1 To Len(salasana)
    sana = Asc(Mid(salasana, T, 1))
    X1 = X1 + sana
Next
    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0
For TT = 1 To Len(texti)
    sana = Asc(Mid(texti, TT, 1))
    G = G + 1
    If G = 6 Then G = 0
    X1 = 0
    If G = 0 Then X1 = sana + (salasana - 2)
    If G = 1 Then X1 = sana - (salasana - 5)
    If G = 2 Then X1 = sana + (salasana - 4)
    If G = 3 Then X1 = sana - (salasana - 2)
    If G = 4 Then X1 = sana + (salasana - 3)
    If G = 5 Then X1 = sana - (salasana - 5)
       X1 = X1 - G
      jiemimafuned = jiemimafuned & Chr(X1)
Next
   jiemimafun = jiemimafuned
End Function