SHA512在扩展字符集的vba中不工作
如果输入字符串包含任何字符>chr（127），则在vba中使用.net库对SHA512进行哈希运算是不正确的。正在将输出与PHP SHA512进行比较。有什么想法吗 我尝试了不同的文本编码SHA512在扩展字符集的vba中不工作,vba,sha512,Vba,Sha512,如果输入字符串包含任何字符>chr（127），则在vba中使用.net库对SHA512进行哈希运算是不正确的。正在将输出与PHP SHA512进行比较。有什么想法吗 我尝试了不同的文本编码 Public Function SHA512(sIn As String) As String Dim oT As Object, oSHA512 As Object Dim TextToHash() As Byte, bytes() As Byte Set oT = Create
Public Function SHA512(sIn As String) As String
Dim oT As Object, oSHA512 As Object
Dim TextToHash() As Byte, bytes() As Byte
Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA512 = CreateObject("System.Security.Cryptography.SHA512Managed")
TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA512.ComputeHash_2((TextToHash))
SHA512 = ConvToHexString(bytes)
Set oT = Nothing
Set oSHA512 = Nothing
End Function
Private Function ConvToHexString(vIn As Variant) As Variant
On Error Resume Next
Dim oD As Object
Set oD = CreateObject("MSXML2.DOMDocument.6.0")
With oD
.loadXML "<root />"
.documentElement.DataType = "bin.Hex"
.documentElement.nodeTypedValue = vIn
End With
ConvToHexString = Replace(oD.documentElement.Text, vbLf, "")
Set oD = Nothing
End Function
Private Sub Command0_Click()
Dim strg As String
strg = "abc" & Chr(148) & "defg"
MsgBox SHA512(strg)
MsgBox strg
End Sub
<?php
$strg = "abc".chr(148)."defg";
echo hash('sha512', $strg);
echo "</br>".$strg;
?>
公共函数SHA512（sIn作为字符串）作为字符串
尺寸oT作为对象，oSHA512作为对象
Dim TextToHash（）作为字节，bytes（）作为字节
Set oT=CreateObject（“System.Text.UTF8Encoding”）
设置oSHA512=CreateObject（“System.Security.Cryptography.SHA512Managed”）
TextToHash=oT.GetBytes_4（sIn）
bytes=oSHA512.ComputeHash_2（（TextToHash））
SHA512=ConvToHexString（字节）
设置oT=无
设置oSHA512=无
端函数
专用函数ConvToHexString（vIn作为变量）作为变量
出错时继续下一步
将oD作为对象
设置oD=CreateObject（“MSXML2.DOMDocument.6.0”）
有oD
.loadXML“”
.documentElement.DataType=“bin.Hex”
.documentElement.nodeTypedValue=vIn
以
ConvToHexString=Replace（oD.documentElement.Text，vbLf，“”）
设置oD=无
端函数
专用子命令0_单击（）
作为字符串的Dim strg
strg=“abc”和Chr（148）和“defg”
MsgBox SHA512（strg）
MsgBox strg
端接头