SHA256 कैसे जनरेट करें?

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
समाधान 3

समाधान 2

SHA256 क्लास (सिस्टम.सुरक्षा.क्रिप्टोग्राफी) | माइक्रोसॉफ्ट डॉक्स[^]

समाधान 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

%>

समाधान 2

समाधान 1

समाधान 3

コメント