MD5加密
1
' ----------------------------------------------------
2
'The Encrypt method enables Encryt a clean string into hash
3
'
4
'加密字符串为hash
5
'
6
'SHA512Managed().ComputeHash(dataToHash)
7
'CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(data1ToHash)
8
'----------------------------------------------------
9
Public Shared Function Encrypt(ByVal cleanString As String) As String
10
'采用MD5
11
Dim clearBytes As [Byte]()
12
clearBytes = New UnicodeEncoding().GetBytes(cleanString)
13
Dim hashedBytes As [Byte]() = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(clearBytes)
14
Dim hashedText As String = BitConverter.ToString(hashedBytes)
15
16
'再采用MD5
17
clearBytes = New UnicodeEncoding().GetBytes(hashedText)
18
hashedBytes = CType(CryptoConfig.CreateFromName("MD5"), HashAlgorithm).ComputeHash(clearBytes)
19
hashedText = BitConverter.ToString(hashedBytes)
20
21
Return hashedText
22
End Function

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22
