最常用的加密类
1Imports System.Security.Cryptography
2Imports System.Text
3Imports System.Text.RegularExpressions
4 Public Class Security
5
6 '*********************************************************************
7 '
8 ' Security.Encrypt() Method
9 '
10 ' The Encrypt method encryts a clean string into a hashed string
11
12 '
13 '*********************************************************************
14 Public Shared Function Encrypt(ByVal cleanString As String) As String
15 Dim clearBytes As [Byte]()
16 clearBytes = New UnicodeEncoding().GetBytes(cleanString)
17 Dim hashedBytes As [Byte]() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(clearBytes)
18 Dim hashedText As String = BitConverter.ToString(hashedBytes)
19 Return hashedText
20 End Function
21
22 End Class
23
2Imports System.Text
3Imports System.Text.RegularExpressions
4 Public Class Security
5
6 '*********************************************************************
7 '
8 ' Security.Encrypt() Method
9 '
10 ' The Encrypt method encryts a clean string into a hashed string
11
12 '
13 '*********************************************************************
14 Public Shared Function Encrypt(ByVal cleanString As String) As String
15 Dim clearBytes As [Byte]()
16 clearBytes = New UnicodeEncoding().GetBytes(cleanString)
17 Dim hashedBytes As [Byte]() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(clearBytes)
18 Dim hashedText As String = BitConverter.ToString(hashedBytes)
19 Return hashedText
20 End Function
21
22 End Class
23