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

新客网 XKER.COM 2003-07-12 来源： 收藏本文

'EZ_Crypt.vb(字符串加密和解密类)

'参考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))
                If Pos = Len(key) Then Pos = 0
                Pos = Pos + 1
            Next

            Decrypt = NewStr
        End Function
    End Class
End Namespace

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决