Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mageia > 5 > i586 > media > core-release > by-pkgid > 32449aa38f56685f5309089b0886b0c4 > files > 71

ocaml-cryptgps-devel-0.2.1-9.mga5.i586.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

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()
;;