Sophie

Sophie

distrib > Mandriva > 2010.2 > x86_64 > by-pkgid > c0e885b27ff9741f30a06a7c559c98ff > files > 21

ocaml-cryptgps-devel-0.2.1-1mdv2010.1.x86_64.rpm

open Crypt_blowfish;; (* or Crypt_blowfish32 *)
open Cryptsystem;;
open Cryptmodes;;
let k = prepare "abcdefghijklmnop";;
let s = String.make (1024*1024) ' ';;

let x0 = Sys.time() in
ignore(encrypt_cbc k (0,0,0,0) s);
print_float (Sys.time() -. x0);
print_newline()
;;