version 1.8, 2006/11/10 17:31:38 |
version 1.9, 2006/11/10 17:49:51 |
|
|
# This started as Memo.pm, I just made it work for Keyring. |
# This started as Memo.pm, I just made it work for Keyring. |
# |
# |
# $Id$ |
# $Id$ |
# $RedRiver: Keyring.pm,v 1.7 2006/11/10 16:45:42 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.8 2006/11/10 17:31:38 andrew Exp $ |
|
|
use strict; |
use strict; |
package Palm::Keyring; |
package Palm::Keyring; |
|
|
for ( 0..2 ) { |
for ( 0..2 ) { |
$C[$_] = new Crypt::DES( pack( "H*", substr($passphrase, 16*$_, 16 ))); |
$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) { |
for ( 0 .. (($size)/8) - 1) { |
my $pt = substr( $plaintext, $_*8, 8 ); |
my $pt = substr( $plaintext, $_*8, 8 ); |