一聚教程网:一个值得你收藏的教程网站

热门教程

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

时间:2022-07-02 12:13:44 编辑:袖梨 来源:一聚教程网

只有一个方法,使用的时候很简单,比如要加密就这样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

热门栏目