Base 64 Encoder / Decoder Coded By nu11_()_v0!d

Base 64 Encoder / Decoder Coder By nu11_()_v0!d

--- by nu11_()_v0!d

Code:

#!usr/bin/perl
 
use MIME::Base64;
 
print "Base 64 Encoder / Decoder Coder By nu11_()_v0!d\n";
print "Would you like to Encode Or Decode?\n";
print "Enter 1 To Encode - Enter 2 to Decode\n";
 
$ARGV[0] = ;
 
if($ARGV[0] == 1)
{
print "\nPlease enter text to encode\n";
$ARGV[1] = ;
$encoded = encode_base64($ARGV[1]);
print "Encoding Please wait...\n";
sleep 2;
print $encoded;
print "Thank you for using nu11_()_v0!d's encoder";
exit
}
 
 
if($ARGV[0] == 2)
{
print "\nPlease enter text to decode\n";
$ARGV[2] = ;
$decoded = decode_base64($ARGV[2]);
print "Decoding Please wait...\n";
sleep 2;
print $decoded;
print "Thank you for using nu11_()_v0!d's Decoder";
exit
}