===================================================================
RCS file: /cvs/palm/Palm-Keyring/lib/Palm/Keyring.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- palm/Palm-Keyring/lib/Palm/Keyring.pm	2006/11/10 17:31:38	1.8
+++ palm/Palm-Keyring/lib/Palm/Keyring.pm	2006/11/10 17:49:51	1.9
@@ -8,8 +8,8 @@
 #
 #   This started as Memo.pm, I just made it work for Keyring.
 #
-# $Id: Keyring.pm,v 1.8 2006/11/10 17:31:38 andrew Exp $
-# $RedRiver: Keyring.pm,v 1.7 2006/11/10 16:45:42 andrew Exp $
+# $Id: Keyring.pm,v 1.9 2006/11/10 17:49:51 andrew Exp $
+# $RedRiver: Keyring.pm,v 1.8 2006/11/10 17:31:38 andrew Exp $
 
 use strict;
 package Palm::Keyring;
@@ -27,7 +27,7 @@
 
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.8 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -337,6 +337,18 @@
 	for ( 0..2 ) {
 		$C[$_] = new Crypt::DES( pack( "H*", substr($passphrase, 16*$_, 16 )));
 	}
+
+
+# XXX From Crypt::TripleDES
+# http://search.cpan.org/src/VIPUL/Crypt-TripleDES-0.24/lib/Crypt/TripleDES.pm
+#
+#    for ( 0 .. (($size)/8) -1 ) { 
+#     my $pt = substr( $plaintext, $_*8, 8 );
+#        $pt = Crypt::PPDES::des_ecb_encrypt( $flag ? $keyvecs{0} : $keyvecs{2}, $flag, $pt );
+#        $pt = Crypt::PPDES::des_ecb_encrypt( $keyvecs{1}, (not $flag), $pt );
+#        $pt = Crypt::PPDES::des_ecb_encrypt( $flag ? $keyvecs{2} : $keyvecs{0}, $flag, $pt );
+#        $cyphertext .= $pt; 
+#    } 
 
 	for ( 0 .. (($size)/8) - 1) { 
 		my $pt = substr( $plaintext, $_*8, 8 );