Changeset 166

Timestamp:

04/06/09 11:23:26 (15 years ago)

Author:

nanardon

Message:

• use sym key to encrypt data

File:

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

trunk/sandbox/encryption.pl

@@ -2 +2 @@
 
 use Crypt::RSA; # crypt/decrypt
+use Crypt::CBC; # sym key
 use XML::Simple; # dump data
 use MIME::Base64; # to make it ascii
@@ -10 +11 @@
         $rsa->keygen ( 
             Identity  => 'Vote ID 12',
-            Size      => 768,  
+            Size      => 1024,  
             Password  => undef, 
             Verbosity => 0,
@@ -19 +20 @@
 print encode_base64($private->serialize);
 print "\n";
+
+my $symkey = map{ chr(rand(256)) } (1 .. (256 / 8));
+
 my $xs = XML::Simple->new(ForceArray => 1, RootName => 'ballot');
 print my $xml = $xs->XMLout({ id => '8daad55a7f94a4fb79bda7ab007953dc', sbal => [ 'coco', 'kikikikikikikikikikikikiki' ], fsbal => [] });
-print "##########\n";
+print "# ENC SYMKEY\n";
 
-my $encryptedballot = $rsa->encrypt ( 
-            Message    => $xml,
+my $encryptedsymkey = $rsa->encrypt ( 
+            Message    => $symkey,
             Key        => $public,
             Armour     => 1,
@@ -30 +34 @@
 
 # reading
-print $encryptedballot . "\n";
-
-my $ballot;
-foreach (0..1000) {
-$ballot = $rsa->decrypt(
-        Cyphertext => $encryptedballot,
+print "# DEC SYMKEY\n";
+$symkey = $rsa->decrypt(
+        Cyphertext => $encryptedsymkey,
             Key        => $private,
             Armour     => 1,
         ) || die $rsa->errstr();
+
+my $ballot;
+my $cipher = new Crypt::CBC($symkey, 'DES');
+print "# ENC BALLOT\n";
+my $encryptedballot = $cipher->encrypt_hex($xml);
+print $encryptedballot . "\n";
+
+print "# DEC BALLOT\n";
+foreach (0..1000) {
+    print "$_\n";
+    $symkey = $rsa->decrypt(
+        Cyphertext => $encryptedsymkey,
+            Key        => $private,
+            Armour     => 1,
+        ) || die $rsa->errstr();
+    my $cipher = new Crypt::CBC($symkey, 'DES');
+    $ballot = $cipher->decrypt_hex($encryptedballot);
 }