14 lines
249 B
Text
14 lines
249 B
Text
PRAGMA INCLUDE <openssl/sha.h>
|
|
PRAGMA LDFLAGS -lcrypto
|
|
|
|
OPTION MEMTYPE unsigned char
|
|
|
|
DECLARE result TYPE unsigned char*
|
|
|
|
result = SHA256("Rosetta code", 12, 0)
|
|
|
|
FOR i = 0 TO SHA256_DIGEST_LENGTH-1
|
|
PRINT PEEK(result+i) FORMAT "%02x"
|
|
NEXT
|
|
|
|
PRINT
|