balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add comment for checksum in base48 encoding

Browse Source
This commit is contained in:
Arthur Breitman 2016-11-20 00:29:58 -08:00 committed by Grégoire Henry
parent ac7342a43d
commit 39ea223e5b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/utils/base48.ml
View File

@ -89,6 +89,7 @@ let sha256 s =
let computed_hash = hash#result in hash#wipe; let computed_hash = hash#result in hash#wipe;
computed_hash computed_hash
(* Prepend a 4 byte cryptographic checksum before encoding string s *)
let safe_encode ?alphabet s = let safe_encode ?alphabet s =
raw_encode ?alphabet (s ^ String.sub (sha256 (sha256 s)) 0 4) raw_encode ?alphabet (s ^ String.sub (sha256 (sha256 s)) 0 4)