File: speed_blowfish.ml

package info (click to toggle)
cryptgps 0.2.1-4
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 292 kB
  • ctags: 420
  • sloc: ml: 2,627; sh: 180; ansic: 172; makefile: 120
file content (11 lines) | stat: -rw-r--r-- 270 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
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()
;;