最新下载
热门教程
- 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
相关文章
- 柴犬币进军医疗领域,5000美元牙科账单用迷因币支付 07-13
- 道家经典名句解释162句 07-13
- 魔兽世界永恒长夜护腿在哪里刷-永恒长夜护腿刷取介绍 07-13
- 狗狗币能涨到1美元吗?DOGE创始人这样看 07-13
- ps怎么把黑白照片变成彩色?ps把儿童黑白照变彩色教程 07-13
- 关于命运的经典句子78句 07-13