編程實現英文文本的加密。。

Function jiami(str1 As String)/*加密*/

Dim l, str2, str

str = Trim(str1)

l = Len(str)

For i = 1 To l

If Asc(Mid(str, i, 1)) > 64 And Asc(Mid(str, i, 1)) < 113 Then

str2 = str2 & Chr(Asc(Mid(str, i, 1)) + 10)

ElseIf Asc(Mid(str, i, 1)) > 112 And Asc(Mid(str, i, 1)) < 123 Then

str2 = str2 & Chr(Asc(Mid(str, i, 1)) - 49)

Else

str2 = str2 & Mid(str, i, 1)

End If

Next

jiami = str2

End Function

Function jiemi(str1 As String) /*解密*/

Dim l, str2, str

str = Trim(str1)

l = Len(str)

For i = 1 To l

If Asc(Mid(str, i, 1)) > 74 And Asc(Mid(str, i, 1)) < 123 Then

str2 = str2 & Chr(Asc(Mid(str, i, 1)) - 10)

ElseIf Asc(Mid(str, i, 1)) > 64 And Asc(Mid(str, i, 1)) < 73 Then

str2 = str2 & Chr(Asc(Mid(str, i, 1)) + 49)

Else

str2 = str2 & Mid(str, i, 1)

End If

Next

jiemi = str2

End Function

上一篇:經驗豐富的英文

下一篇:網絡名人Bobo球15元貴嗎？