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

xuanxiao · 发表于 2023-5-1 14:23:30

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

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

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

微信截图_20230501142225.png

xuanxiao · 发表于 2023-5-2 10:02:15

<%
Response.Write SHA512("ttasp" , False)
Public Function SHA512(sIn , bB64)
'128 Hex: cf83e1357eefb8bd...etc
'88 Base-64: z4PhNX7vuL3xVChQ...etc
Dim oT , oSHA512
Dim TextToHash, bytes
Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")
TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA512.ComputeHash_2((TextToHash))
If bB64 = True Then
SHA512 = ConvToBase64String(bytes)
Else
SHA512 = ConvToHexString(bytes)
End If
Set oT = Nothing
Set oSHA512 = Nothing
End Function
Private Function ConvToBase64String(vIn)
Dim oD
Set oD = CreateObject("MSXML2.DOMDocument")
With oD
.LoadXML "<root />"
.DocumentElement.DataType = "bin.base64"
.DocumentElement.nodeTypedValue = vIn
End With
ConvToBase64String = Replace(oD.DocumentElement.text, vbLf, "")
Set oD = Nothing
End Function
Private Function ConvToHexString(vIn )
Dim oD
Set oD = CreateObject("MSXML2.DOMDocument")
With oD
.LoadXML "<root />"
.DocumentElement.DataType = "bin.Hex"
.DocumentElement.nodeTypedValue = vIn
End With
ConvToHexString = Replace(oD.DocumentElement.text, vbLf, "")
Set oD = Nothing
End Function
%>

复制代码

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[文章教程] ASP对字符串实现SHA256/SHA512加密示范

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[文章教程] ASP对字符串实现SHA256/SHA512加密示范

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)