Changeset 171

Timestamp:

04/07/09 02:55:42 (15 years ago)

Author:

nanardon

Message:

• initial crypto work

Location:

trunk

Files:

• lib/Vote/DB/Ballot.pm (modified) (1 diff)
• lib/Vote/DB/Poll.pm (modified) (3 diffs)
• sql/postgres.dump (modified) (previous)

trunk/lib/Vote/DB/Ballot.pm

@@ -39 +39 @@
 
     my $sth = $self->db->prepare_cached(
-        q{ select * from ballot where id = ? }
+        q{ select * from 
+           ballot left join 
+           ballot_enc on ballot.id = ballot_enc.id 
+           where ballot.id = ? }
     );
 

trunk/lib/Vote/DB/Poll.pm

@@ -7 +7 @@
 use Vote;
 use Mail::Mailer;
+use Crypt::RSA;
+use Crypt::CBC;
+use XML::Simple;
+use MIME::Base64;
 use base 'Vote::DB::common';
 use Vote::DB::Ballot;
@@ -300 +304 @@
         return;
     };
+
+    $self->_register_ballot_items($uid, $choice, $fchoice) or do {
+        self->db->rollback;
+        return;
+    };
+
+    $uid
+}
+
+sub _register_ballot_items {
+    my ($self, $uid, $choice, $fchoice) = @_;
 
     my $addbc = $self->db->prepare_cached(
@@ -692 +707 @@
 }
 
+# crypto part
+
+sub rsa {
+    my ($self) = @_;
+    $self->{rsa} ||= new Crypt::RSA ES => 'PKCS1v15';
+}
+
+sub gen_poll_keys {
+    my ($self) = @_;
+    my ($public, $private) = $self->rsa->keygen (
+        Identity  => 'Epoll Vote ' . $self->voteid,
+        Size      => 768,
+        Password  => undef,
+        Verbosity => 0,
+        KF=>'SSH',
+    ) or die $self->rsa->errstr(); # TODO avoid die
+    $self->param(
+        public_key => $public->serialize,
+        private_key => encode_base64($private->serialize),
+    );
+}
+
+sub public_key {
+    my ($self) = @_;
+    my $serialize = $self->info->{public_key} or return;
+    my $pubkey = Crypt::RSA::Key::Public->new;
+    $pubkey->deserialize($serialize);
+
+    $pubkey
+}
+
 =head1 AUTHOR