Sophie

Sophie

distrib > Mandriva > 2010.0 > i586 > media > contrib-release > by-pkgid > 535695ec62871b1ac842aa895a496bfb > files > 23

ocaml-cryptgps-devel-0.2.1-1mdv2010.0.i586.rpm

open Crypt_des;;
open Cryptsystem;;
open Cryptmodes;;
let k = prepare (set_parity "abcdefgh");;
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()
;;