字符串加解密的类（VB.NET Source Code）

NewStr = Side1 & Side2

End If

Encrypt = NewStr

End Function

@#解密字符串

Public Function Decrypt(ByVal PlainStr As String, ByVal key As String) As String

Dim strChar, KeyChar, NewStr As String

Dim Pos As Integer

Dim i As Integer

Dim Side1 As String

Dim Side2 As String

Pos = 1

If Len(PlainStr) Mod 2 = 0 Then

Side1 = StrReverse(Left(PlainStr, (Len(PlainStr) / 2)))

Side2 = StrReverse(Right(PlainStr, (Len(PlainStr) / 2)))

PlainStr = Side1 & Side2

End If

For i = 1 To Len(PlainStr)

strChar = Mid(PlainStr, i, 1)

KeyChar = Mid(key, Pos, 1)

NewStr = NewStr & Chr(Asc(strChar) Xor Asc(KeyChar))

If Pos = Len(key) Then Pos = 0

Pos = Pos + 1

Next

Decrypt = NewStr

End Function

End Class

End Namespace