--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/releasing/cbrtools/perl/Crypt.pm Fri Jun 25 18:37:20 2010 +0800
@@ -0,0 +1,318 @@
+# Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the License "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+#
+
+package Crypt;
+
+use strict;
+
+#
+# Constructor
+#
+
+sub New {
+ my $invocant = shift;
+ my $class = ref($invocant) || $invocant;
+ my %args = @_;
+ my $self = {
+ defaultPath => $args{default_path},
+ verbose => $args{verbose}
+ };
+ bless $self, $class;
+ $self->Initialize();
+ return $self;
+}
+
+sub Initialize {
+ my $self = shift;
+
+ #convert defaultPath attribute to correct format
+ if ($self->{defaultPath}) {
+ $self->DefaultPath($self->{defaultPath});
+ }
+}
+
+#
+# Public getters/setters
+#
+
+sub DefaultPath {
+ my $self = shift;
+
+ if (defined $_[0]) {
+ my $defaultPath = shift;
+ $defaultPath =~ s/\\/\//g; #replace '\'s with /
+ $defaultPath =~ s/\/+$//; #remove trailing '/'s
+ $self->{defaultPath} = $defaultPath;
+ delete $self->{publicKeys}; #new default path implies new keyring files so delete
+ delete $self->{secretKeys}; #the current key lists
+ }
+ return $self->{defaultPath};
+}
+
+#
+# Public methods
+#
+
+sub Encrypt {
+ my $self = shift;
+ my $plainText = shift;
+ my $cipherText = shift;
+ my @recipientKeys = @{$_[0]};
+
+ unless (defined $plainText and defined $cipherText and @recipientKeys) {
+ die "Error: Incorrect arguments for encryption.\n";
+ }
+ $plainText=~ s/\\/\//g; #replace '\'s with /`s
+ $cipherText=~ s/\\/\//g;
+
+ if ($self->{verbose} > 1) {
+ print "Encrypting $plainText with key(s) ".join(", ",@recipientKeys)."\n";
+ }
+
+ unless (-e $plainText) {
+ die "Error: Encryption aborted. $plainText does not exist.\n";
+ }
+ #check to see if all the recipient keys exist on the public keyring
+ foreach my $recipientKey (@recipientKeys) {
+ $self->PublicKeyExists($recipientKey)
+ or die "Error: Encryption failed. $recipientKey not in keyring.\n";
+ }
+
+ #call subclass method to actually encrypt file
+ $self->DoEncrypt($plainText, $cipherText, \@recipientKeys);
+
+ #throw an error if encrypted file not created
+ unless (-e $cipherText) {
+ die "Error: Encryption of $plainText failed.\n";
+ }
+}
+
+sub Decrypt {
+ my $self = shift;
+ my $cipherText = shift;
+ my $plainText = shift;
+ my $passPhrase = shift;
+
+ unless (defined $plainText and defined $cipherText and defined $passPhrase) {
+ die "Error: Incorrect arguments for decryption.\n";
+ }
+ $plainText=~ s/\\/\//g; #replace '\'s with /`s
+ $cipherText=~ s/\\/\//g;
+
+ if ($self->{verbose} > 1) {
+ print "Decrypting $cipherText\n";
+ }
+
+ unless (-e $cipherText) {
+ die "Error: Decryption aborted. $cipherText does not exist.\n";
+ }
+ #call subclass method to actually decrypt file
+ $self->DoDecrypt($cipherText, $plainText, $passPhrase);
+
+ #throw an error if decrypted file not created
+ unless (-e $plainText) {
+ die "Error: Decryption of $cipherText failed.\n";
+ }
+}
+
+sub PublicKeyList {
+ my $self = shift;
+
+ unless (exists $self->{publicKeys}) {
+ #call subclass method to get key list
+ foreach my $key (@{$self->GetPublicKeyList()}) {
+ $self->{publicKeys}->{uc($key)} = 1;
+ }
+ }
+ my @keys = keys %{$self->{publicKeys}};
+ return \@keys;
+}
+
+sub SecretKeyList {
+ my $self = shift;
+
+ unless (exists $self->{secretKeys}) {
+ #call subclass method to get key list
+ foreach my $key (@{$self->GetSecretKeyList()}) {
+ $self->{secretKeys}->{uc($key)} = 1;
+ }
+ }
+ my @keys = keys %{$self->{secretKeys}};
+ return \@keys;
+}
+
+
+sub PublicKeyExists {
+ my $self = shift;
+ my $requiredKey = shift;
+
+ unless (exists $self->{publicKeys}) {
+ $self->PublicKeyList();
+ }
+ return ($self->{publicKeys}->{uc($requiredKey)});
+}
+
+sub SecretKeyExists {
+ my $self = shift;
+ my $requiredKey = $_[0];
+
+ unless (exists $self->{secretKeys}) {
+ $self->SecretKeyList();
+ }
+ return ($self->{secretKeys}->{uc($requiredKey)});
+}
+
+#
+# Abstract methods (must be implemented in a subclass)
+#
+
+sub DoEncrypt {
+ die "Error: Call to abstract method ".ref($_[0])."::_DoEncrypt.\n";
+}
+
+sub DoDecrypt {
+ die "Error: Call to abstract method ".ref($_[0])."::_DoDecrypt.\n";
+}
+
+sub GetPublicKeyList {
+ die "Error: Call to abstract method ".ref($_[0])."::_GetPublicKeyList.\n";
+}
+
+sub GetSecretKeyList {
+ die "Error: Call to abstract method ".ref($_[0])."::_GetSecretKeyList.\n";
+}
+
+#
+# Private methods
+#
+
+sub Quoted {
+ my $self = shift;
+ my $string = $_[0];
+ return ($string =~ /^\s*(\".*\")\s*$/) ? $1 : "\"$string\"";
+}
+
+1;
+
+=head1 NAME
+
+Crypt.pm - Abstract base class to crypt modules.
+
+=head1 SYNOPSIS
+
+ use Crypt::PGP;
+
+ $crypt = Crypt::PGP->New(default_path => 'somePath/someDir',
+ verbose => 1);
+
+ $crypt->DefaultPath('somedir/anotherdir');
+ $defaultpath = $crypt->DefaultPath();
+
+ @publickeys = @{$crypt->PublicKeyList()};
+ @secretkeys = @{$crypt->SecretKeyList()};
+
+ $crypt->Encrypt('somefile.txt', 'somefile.pgp', ['0x24534213', '0x1EA3B4DC', '0x8721DACE']);
+ $crypt->Decrypt('somefile.pgp', 'somefile.txt', 'mypassphrase');
+
+
+=head1 DESCRIPTION
+
+C<Crypt> is the abstract base class to a family of modules of the form C<Crypt::>F<PGPTool> which are simple wrappers over PGP command line tools. Each module in the C<Crypt> directory must implement the following abstract interface...
+
+=over 4
+
+=item * DoEncrypt($plainText, $cipherText, \@recipientKeys)
+
+Should encrypt the C<$plainText> file with the public keys C<@recipientKeys> and store the result in the C<$cipherText> file.
+
+=item * DoDecrypt($cipherText, $plainText, $passPhrase)
+
+Should decrypt the C<$cipherText> file using the secret key with pass phrase C<$passPhrase> and store the result in the C<$plainText> file. Must die with C<"BAD_PASSPHRASE"> if passphrase incorrect and C<"NO_SECKEY"> if secret key not available for decrypting file.
+
+=item * array_ref GetPublicKeyList( )
+
+Should return the list of keyids stored on the public keyring.
+
+=item * array_ref GetSecretKeyList( )
+
+Should return the list of keyids stored on the secret keyring.
+
+=back
+
+B<NOTE:> A key id is an 8 digit hexadecimal number preceeded by a zero and an x (or X) e.g 0x12345678, 0X3eDC2A82
+
+
+=head1 INTERFACE
+
+=head2 New
+
+Passed an argument list in the form of hash key value pairs. The supported arguments are...
+
+ default_path => $path_string
+ verbose => $verbosity_integer
+
+Returns a reference to an object derived from C<Crypt> (C<Crypt> is abstract so cannot be instantiated)
+
+=head2 DefaultPath
+
+Returns the current value of the C<defaultPath> attribute which stores the path to the users configuration and keyring files. If the C<defaultPath> is undefined then the tools default path is used. If passed a path as an argument sets the C<defaultPath> attribute to this value and updates the public and secret keyring file names.
+
+=head2 Encrypt
+
+Passed a plain text file name, a cipher text file name and a reference to an array of recipients pgp keyids. Encrypts the plain text file with the recipients keys. Outputs the result to the cipher text file.
+
+=head2 Decrypt
+
+Passed a cipher text file name, a plain text file name and the users private key pass phrase. Decrypts the cipher text file with the users private key and outputs the result to the plain text file.
+
+=head2 PublicKeyList
+
+Returns a reference to an array of keyids for keys stored in the public keyring
+
+=head2 SecretKeyList
+
+Returns a reference to an array of keyids for keys stored in the secret keyring
+
+=head2 PublicKeyExists
+
+Passed a public key id. Returns true if the key exists in the public keyring
+
+=head2 SecretKeyExists
+
+Passed a secret key id. Returns true if the key exists in the secret keyring
+
+=head1 KNOWN BUGS
+
+None
+
+=head1 COPYRIGHT
+
+ Copyright (c) 2000-2009 Nokia Corporation and/or its subsidiary(-ies).
+ All rights reserved.
+ This component and the accompanying materials are made available
+ under the terms of the License "Eclipse Public License v1.0"
+ which accompanies this distribution, and is available
+ at the URL "http://www.eclipse.org/legal/epl-v10.html".
+
+ Initial Contributors:
+ Nokia Corporation - initial contribution.
+
+ Contributors:
+
+ Description:
+
+
+=cut