view release on metacpan or  search on metacpan

lib/Crypt/Lucifer.pm  view on Meta::CPAN

XSLoader::load('Crypt::Lucifer', $VERSION);

sub new{
	my $self = bless {}, shift;
	setkey(shift);
	$self;
}
sub set_key{
	setkey($_[1]);
}
sub encrypt(){
	return luc_encrypt($_[1]);
}
sub decrypt(){
	return luc_decrypt($_[1]);
}
1;
__END__
=head1 NAME

Crypt::Lucifer - Perl implementation of the Lucifer encryption algorithm

=head1 SYNOPSIS