ASP对字符串实现SHA256/SHA512加密示范

base64和hex经常用在加密解密的好处：
这种编码方式将密文以一种友好的方式显示出来. 同时base64和hex使用的字符集都来自ascii字符集, 因此这些密文在所有支持ascii的机器上都能正常显示.
base64是以6个二进制位来表示一个字符, 那么对于hex, 则是以4个二进制位表示一个字符

SHA安全散列算法（Secure Hash Algorithm，缩写为SHA）是一个密码散列函数家族，是FIPS所认证的安全散列算法。能计算出一个数字消息所对应到的，长度固定的字符串（又称消息摘要）的算法。


Rsa256加密.asp (1.08 KB, 下载次数: 3, 售价: 50 个ASP币)

2023-5-1 14:27 上传

点击文件名下载附件

1. <%
   
2. Response.Write SHA512("ttasp" , False)        
   
3. 
   
4. Public Function SHA512(sIn , bB64)
   
5. 
   
6.     '128 Hex:   cf83e1357eefb8bd...etc
   
7.     '88 Base-64:   z4PhNX7vuL3xVChQ...etc
   
8.    
   
9.     Dim oT , oSHA512
   
10.     Dim TextToHash, bytes
    
11.    
    
12.     Set oT = CreateObject("System.Text.UTF8Encoding")
    
13.     Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")
    
14.    
    
15.     TextToHash = oT.GetBytes_4(sIn)
    
16.     bytes = oSHA512.ComputeHash_2((TextToHash))
    
17.    
    
18.     If bB64 = True Then
    
19.        SHA512 = ConvToBase64String(bytes)
    
20.     Else
    
21.        SHA512 = ConvToHexString(bytes)
    
22.     End If
    
23.    
    
24.     Set oT = Nothing
    
25.     Set oSHA512 = Nothing
    
26.    
    
27. End Function
    
28. 
    
29. Private Function ConvToBase64String(vIn)  
    
30.     Dim oD      
    
31.     Set oD = CreateObject("MSXML2.DOMDocument")
    
32.       With oD
    
33.         .LoadXML "<root />"
    
34.         .DocumentElement.DataType = "bin.base64"
    
35.         .DocumentElement.nodeTypedValue = vIn
    
36.       End With
    
37.     ConvToBase64String = Replace(oD.DocumentElement.text, vbLf, "")
    
38.    
    
39.     Set oD = Nothing
    
40. End Function
    
41. 
    
42. Private Function ConvToHexString(vIn )
    
43.     Dim oD      
    
44.     Set oD = CreateObject("MSXML2.DOMDocument")      
    
45.       With oD
    
46.         .LoadXML "<root />"
    
47.         .DocumentElement.DataType = "bin.Hex"
    
48.         .DocumentElement.nodeTypedValue = vIn
    
49.       End With
    
50.     ConvToHexString = Replace(oD.DocumentElement.text, vbLf, "")
    
51.    
    
52.     Set oD = Nothing
    
53. End Function
    
54. 
    
55. %>

复制代码