还有一个这次新写的加密类。VB.NET的。支持中文加密。总体感觉不错。

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

只有一个方法，使用的时候很简单，比如要加密就这样EnDeCode("Data",1234)
解密的时候还是这样EnDeCode("Data",1234)。很简单的。
代码：
Public Class Encryption
    Public Function EnDeCode(ByVal Source As String, ByVal Key As Integer) As String
        Dim X As Single
        Dim intCharNumber As Integer
        Dim shtRADInt As Short
        Dim strChar As String
        Dim strTmp As String
        If Key < 0 Then
            Key = Key * (-1)
        End If
        X = Rnd(-Key)
        Dim i As Integer
        For i = 1 To Len(Source) Step 1
            strChar = Mid(Source, i, 1)
            intCharNumber = Asc(strChar)
WhileEncode:
            shtRADInt = Int(127 * Rnd())
            If shtRADInt < 30 Or shtRADInt > 100 Then GoTo WhileEncode
            intCharNumber = intCharNumber Xor shtRADInt
            strTmp = strTmp & Chr(intCharNumber)
        Next i
        EnDeCode = strTmp
        Exit Function
    End Function
End Class

• ·身份证函数 查看身份证地区信息
• ·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元数据库失败的解决