palm/Palm-Keyring/lib/Palm/Keyring.pm - diff

Return to Keyring.pm CVS log

Up to [local] / palm / Palm-Keyring / lib / Palm

version 1.8, 2006/11/10 17:31:38

version 1.9, 2006/11/10 17:49:51

Line 9

# This started as Memo.pm, I just made it work for Keyring.

# $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;

package Palm::Keyring;

Line 337

for ( 0..2 ) {

$C[$_] = new Crypt::DES( pack( "H*", substr($passphrase, 16*$_, 16 )));

}

# XXX From Crypt::TripleDES

# 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 );