最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
还有一个这次新写的加密类。VB.NET的。支持中文加密。总体感觉不错。
时间:2008-01-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
解密的时候还是这样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
-
上一个: 密码的故事 (转自MSDN)
相关文章
- C#复制数组的两种方式及效率比较解读 10-24
- ASP.NET Identity用法解析 10-24
- ASP.NET MVC使用Identity增删改查用户介绍 10-24
- C语言中atoi函数模拟实现介绍 10-18
- .Net反向代理组件Yarp用法介绍 10-10
- .NET使用YARP通过编码方式配置域名转发实现反向代理教程 10-10