字符串加解密的类（VB.NET Source Code）
点击次数：82 次 发布日期：2008-11-06 08:06:59 作者：源代码网
源代码网推荐 源代码网推荐 "参考Namespace 源代码网推荐 Imports System 源代码网推荐 Imports Microsoft.VisualBasic 源代码网推荐 Imports System.Collections 源代码网推荐 Imports System.Configuration 源代码网推荐 源代码网推荐 Namespace Security 源代码网推荐 Public Class Crypt 源代码网推荐 "加密字符串 源代码网推荐 Public Function Encrypt(ByVal PlainStr As String, ByVal key As String) As String 源代码网推荐 Dim strChar, KeyChar, NewStr As String 源代码网推荐 Dim Pos As Integer 源代码网推荐 Dim i, intLen As Integer 源代码网推荐 Dim Side1, Side2 As String 源代码网推荐 Pos = 1 源代码网推荐 源代码网推荐 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 源代码网推荐 源代码网推荐 If Len(NewStr) Mod 2 = 0 Then 源代码网推荐 Side1 = StrReverse(Left(NewStr, (Len(NewStr) / 2))) 源代码网推荐 Side2 = StrReverse(Right(NewStr, (Len(NewStr) / 2))) 源代码网推荐 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)) 软件开发网 www.mscto.com 源代码网推荐 If Pos = Len(key) Then Pos = 0 源代码网推荐 Pos = Pos 1 源代码网推荐 Next 源代码网推荐 源代码网推荐 Decrypt = NewStr 源代码网推荐 End Function 源代码网推荐 End Class 源代码网推荐 End Namespace 源代码网推荐 源代码网供稿. |
