; Sha256TextBytes Example
; -----------------------
; Requires Extended mode.

; Hash a save-game summary string as RAW bytes - useful when the
; digest is stored in a binary save header rather than as text
save_text$="player=Aria;gold=1250"
Print "Hashing: "+save_text
Print ""

; Sha256TextBytes returns a new owned 32-byte Bank
digest=Sha256TextBytes(save_text)
Print "Digest Bank size: "+BankSize(digest)+" bytes"

; Show the raw bytes as hex - it matches Sha256Text's hex output
hex_text$=""
For i=0 To BankSize(digest)-1
    hex_text=hex_text+Right(Hex(PeekByte(digest,i)),2)
Next
Print "Digest bytes:     "+Lower(hex_text)
Print "Sha256Text gives: "+Sha256Text(save_text)

; The digest Bank is owned by us and must be freed
FreeBank digest

Print ""
Print "Press any key to close the example"
WaitKey

End