Changeset 150

Timestamp:

04/03/09 10:55:24 (15 years ago)

Author:

nanardon

Message:

• performance test

File:

• trunk/sandbox/encryption.pl (modified) (2 diffs)

trunk/sandbox/encryption.pl

@@ -9 +9 @@
     my ($public, $private) = 
         $rsa->keygen ( 
-            Identity  => 'Lord Macbeth <macbeth@glamis.com>',
-            Size      => 128,  
+            Identity  => 'Vote ID 12',
+            Size      => 768,  
             Password  => undef, 
             Verbosity => 0,
@@ -32 +32 @@
 print $encryptedballot . "\n";
 
-my $ballot = $rsa->decrypt(
+my $ballot;
+foreach (0..1000) {
+$ballot = $rsa->decrypt(
         Cyphertext => $encryptedballot,
             Key        => $private,
             Armour     => 1,
         ) || die $rsa->errstr();
+}
 
 print $ballot