Changeset 240

Timestamp:

06/13/09 09:42:13 (15 years ago)

Author:

nanardon

Message:

• use 3DES instead DES

Location:

trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Vote/DB/Poll/Bdata.pm (modified) (3 diffs)

trunk/Makefile.PL

@@ -8 +8 @@
 requires 'Catalyst::Plugin::Static::Simple';
 requires 'Catalyst::Action::RenderView';
+
 requires 'YAML'; # This should reflect the config file format you've chosen
                  # See Catalyst::Plugin::ConfigLoader for supported formats
+
+# out of catalyst
+requires 'XML::Simple';
+requires 'Crypt::CBC';
+requires 'Crypt::DES_EDE3';
+requires 'Crypt::RSA';
+requires 'DBI';
+requires 'MIME::Base64';
+requires 'Mail::Mailer';
+requires 'LaTeX::Driver';
+
 catalyst;
 

trunk/lib/Vote/DB/Poll/Bdata.pm

@@ -9 +9 @@
 use XML::Simple;
 use Crypt::CBC;
-use Crypt::DES; # Called from CBC
+use Crypt::DES_EDE3; # Called from CBC
 
 =head1 NAME
@@ -151 +151 @@
 sub _store_crypted {
     my ($self) = @_;
-    my $symkey = map{ chr(rand(256)) } (1 .. (256 / 8));
-    my $cipher = new Crypt::CBC($symkey, 'DES');
+    my $symkey = map{ chr(rand(256)) } (1 .. 24);
+    my $cipher = new Crypt::CBC($symkey, 'DES_EDE3');
     my $encryptedballot = $cipher->encrypt_hex(
         $self->xmlout()
@@ -185 +185 @@
         Armour     => 1,
     ) || die $self->poll->rsa->errstr();
-    my $cipher = new Crypt::CBC($symkey, 'DES');
+    my $cipher = new Crypt::CBC($symkey, 'DES_EDE3');
     $self->xmlin($cipher->decrypt_hex($data));
 }