ネタ記録庫/OCaml/暗号化

OCamlでダイジェスト認証をするために文字列を暗号化する方法

MD5に関しては標準ライブラリ(stdlib)内にあるDigestモジュールでOK

let md5_hexdigest s = Digest.to_hex (Digest.string s)

SHA-1ダイジェストで暗号化するためにはCryptokitなどのライブラリが必要

open Cryptokit

let sha1_hexdigest s =
  let hex s = transform_string (Hexa.encode()) s in
  hex (hash_string (Hash.sha1()) s)

コンパイルはocamlfindを使えばこんな感じ

ocamlfind ocamlc -linkpkg -package cryptokit main.ml

open Cryptokit

let sha256_hexdigest s =
  let hex s = transform_string (Hexa.encode()) s in
  hex (hash_string (Hash.sha256()) s)

open Cryptokit

let ripemd160_hexdigest s =
  let hex s = transform_string (Hexa.encode()) s in
  hex (hash_string (Hash.ripemd160()) s)