最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
还有一个这次新写的加密类。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
解密的时候还是这样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
相关文章
- 《无限暖暖》天星之羽获得位置介绍 12-20
- 《流放之路2》重铸台解锁方法介绍 12-20
- 《无限暖暖》瞄准那个亮亮的成就怎么做 12-20
- 《无限暖暖》魔气怪终结者完成方法 12-20
- 《无限暖暖》曙光毛团获得位置介绍 12-20
- 《无限暖暖》日光果获得位置介绍 12-20