¿Cómo generar SHA256?

[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

< Lo que he probado:

Por favor, ayude con detalles sobre esto y proporcione el ejemplo sha256.

Solución 2
Solución 1
Solución 3

Solución 2

Clase SHA256 (Sistema.Seguridad.Criptografía) | Documentos de Microsoft[^]

Solución 1

Simplemente utilice su motor de búsqueda favorito para las palabras “SHA256 (idioma de su elección)” y siga algunas de las numerosas documentaciones y ejemplos que aparecerán.

Solución 3

Aquí está el guión que necesita:

<% ' 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]