Basic MD5, SHA1 - PERL

#!/usr/bin/perl
 
#Name: basic_crypto.pl
#
#Written by: Balazs, Lendvay (ITFanatic :) )
#
#Purpose: basic MD5 and SHA1 hashing
#
#The script can be downloaded from "ITFanatic.com" and it is absolutely FREE,
#you can redistribute it and/or modify it under the same terms as Perl itself. (I think:) )
#This script comes with NO WARRANTY of any kind. (I am sure! :) )
#I cannot guarantee that this works in your environment, and I am not responsible
#for any harm it may cause on your computer. (I hope it won't cause harm at all :) )
 
use Digest::MD5  qw(md5 md5_hex md5_base64);
use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
 
$data="aaa";
 
################################################################################
#MD5 hashing algorithm
#
#$hash_md5 = md5 $data;
$hash_md5 = md5_hex $data;
#$hash_md5 = md5_base64 $data;
################################################################################
 
################################################################################
#SHA1 hashing algorithm
#
#$hash_sha1 = sha1($data);
$hash_sha1 = sha1_hex($data);
#$hash_sha1 = sha1_base64($data);
#$hash_sha1 = sha1_transform($data);
################################################################################
 
 
print "md5hex : $hash_md5\n";
print "sha1hex: $hash_sha1\n";