Perl with Simple Module - MD5, Base64

[lucifer]

#Simple Code

Encode

[hide=1]

#!/usr/bin/perl -w
#Encode to Base64 and MD5
use Digest::MD5 qw(md5_hex);
use MIME::Base64;
print "\n"."Base64: ".encode_base64($ARGV[0]);
print "MD5: ".md5_hex($ARGV[0]);

[/hide]

Decode

[hide=1]

#!/usr/bin/perl -w
#Decode to Base64
use MIME::Base64;
print "\n"."Decode Base64: ".decode_base64($ARGV[0]);

[/hide]