sha512_test.om (460B)
1 func main(argc: int, argv: **byte, envp: **byte) { 2 var d: _sha512_digest; 3 var digest: *byte; 4 var out: *file; 5 var alen: int; 6 var blen: int; 7 out = nil; 8 digest = (&d) as *byte; 9 if argc == 2 { 10 alen = strlen(argv[1]); 11 sha512(digest, argv[1], alen); 12 fxxd(out, digest, 64); 13 } else if argc == 3 { 14 alen = strlen(argv[1]); 15 blen = strlen(argv[2]); 16 sha512_hmac(digest, argv[1], alen, argv[2], blen); 17 fxxd(out, digest, 64); 18 } else { 19 exit(2); 20 } 21 }