view release on metacpan or  search on metacpan

Blowfish_PP.pm  view on Meta::CPAN

	
	($l,$r)=crypt_block($self,$l,$r,0);

	@block=(
		$l>>24,($l>>16)&0xFF,($l>>8)&0xFF,$l&0xFF,
		$r>>24,($r>>16)&0xFF,($r>>8)&0xFF,$r&0xFF
		);
	map{$_=pack("C",$_)}@block;
	return join"",@block;
	}

=head2 B<decrypt>(I<block>)

The B<decrypt>() method uses the initialised blowfish object to decrypt 8 bytes
of data of the string passed to it. It returns the decrypted block.

=cut

sub decrypt
	{
	my($self)=shift;
	my($block)=shift;
	my(@block)=split//,$block;
	map{$_=unpack("C",$_)}@block;
	my($l)=$block[3]|($block[2]<<8)|($block[1]<<16)|($block[0]<<24);
	my($r)=$block[7]|($block[6]<<8)|($block[5]<<16)|($block[4]<<24);
	
	($l,$r)=crypt_block($self,$l,$r,1);

	@block=(
		$l>>24,($l>>16)&0xFF,($l>>8)&0xFF,$l&0xFF,
		$r>>24,($r>>16)&0xFF,($r>>8)&0xFF,$r&0xFF
		);
	map{$_=pack("C",$_)}@block;
	return join"",@block;
	}

sub blocksize
	{
	return 8;
	}

sub keysize
	{
	return 56;
	}

=head1 COMMENTS

This is probably crap software, but hey, its for general use. I'm happy to patch
it with other people's code... :)

If you want speed, then see the Crypt::Blowfish module.

=head1 AUTHOR

Matthew Byng-Maddick <C<mbm@colondot.net>>

=head1 SEE ALSO

http://www.counterpane.com/,L<Crypt::CBC>

=cut

1;