vb的加密

18362374790

[Visual Basic] 纯文本查看 复制代码

Private Sub Command1_Click()
Text2 = code(Text1, 7)
End Sub

Function code(ByVal s$, ByVal key%) As String
Dim c As String * 1, iasc%
code = ""
For I = 1 To Len(s)
c = Mid(s, I, 1)
Select Case c
Case "A" To "Z"
iasc = Asc(c) + key
If iasc > Asc("Z") Then iasc = iasc - 26
code = code + Chr(iasc)
Case "a" To "z"
iasc = Asc(c) + key
If iasc > Asc("z") Then iasc = iasc - 26
code = code + Chr(iasc)
Case Else
code = code + c
End Select
Next I
End Function

加密里秘钥为7，位移后的每个字符对应的ASC码再用y=6x+15方程二次加密，这个是怎么进行加密的