[ad_1]
The token is calculated as follows: sha256(sha256(Request) + "/" + sha256(merchant + "/" + password)), where: sha256 – calculation of data hash according to the SHA-256 algorithm and hash conversion to HEX in the uppercase format Request – list of the "key"="value" pairs sorted by key and separated by the "&" character merchant – Internet shop ID password – value set in the PosSecret parameter
< 我尝试过的:
请帮助详细说明这一点并提供样本 sha256
解决方案2
解决方案1
只需使用您最喜欢的搜索引擎搜索“SHA256(您选择的语言)”一词,然后按照将出现的众多文档和示例进行操作。
解决方案3
这是您需要的脚本:
<% ' IMPORTANT: save this file as UTF-8 BOM !!! function sha256(ByVal input) Dim hAlg,hEnc,BinaryStream,enc set hAlg=CreateObject("System.Security.Cryptography.SHA256Managed") set hEnc=CreateObject("System.Text.UTF8Encoding") input=hAlg.ComputeHash_2(hEnc.GetBytes_4(input)) ' --------- security check ---------- if NOT varType(input)=8209 then Set BinaryStream=CreateObject("ADODB.Stream") with BinaryStream .Type=2 .CharSet="utf-8" .Open .WriteText input .Position=0 .Type=1 .Position=0 input=.Read end with set BinaryStream=Nothing end if ' ---------------------------------- set enc=CreateObject("MSXML2.DomDocument").CreateElement("encode") enc.dataType="bin.hex" enc.nodeTypedValue=input sha256=enc.Text set enc=nothing set hEnc=nothing set hAlg=nothing end function %>
[ad_2]
コメント