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

MD5 †

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

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

SHA-1 †

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

(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

SHA-256 †

open Cryptokit

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

RIPEMD-160 †

open Cryptokit

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-05-22 (火) 23:15:44 (3108d)