Crypt::Util 0.02

Crypt::Util is a lightweight Crypt/Digest convenience API.

SYNOPSIS

use Crypto::Util; # also has a Sub::Exporter to return functions wrapping a default instance

my $util = Crypto::Util->new;

$util->default_key("my secret");

# MAC or cipher+digest based tamper resistent encapsulation
# (uses Storable on $data if necessary)
my $tamper_resistent_string = $util->tamper_proof( $data );

my $verified = $util->thaw_tamper_proof( $untrusted_string, key => "another secret" );

# If the encoding is unspecified, base32 is used
# (hex if base32 is unavailable)
my $encoded = $util->encode_string( $bytes );

my $hash = $util->digest( $bytes, digest => "md5" );

die "baaaad" unless $util->verify_hash(
hash => $hash,
data => $bytes,
digest => "md5",
);