18 lines
372 B
Plaintext
18 lines
372 B
Plaintext
PRAGMA INCLUDE <stdio.h>
|
|
PRAGMA INCLUDE <stdlib.h>
|
|
PRAGMA INCLUDE <string.h>
|
|
PRAGMA INCLUDE <openssl/md5.h>
|
|
PRAGMA LDFLAGS -lcrypto -lm -w
|
|
|
|
DECLARE result TYPE unsigned char *
|
|
DECLARE string TYPE const char *
|
|
|
|
string = "Rosetta code"
|
|
strlenght = LEN(string)
|
|
|
|
result = MD5( string, strlenght , 0)
|
|
|
|
FOR i = 0 TO MD5_DIGEST_LENGTH-1
|
|
PRINT result[i] FORMAT "%02x"
|
|
NEXT
|