#!/usr/bin/perl
#
#

use MIME::Base64;
use Getopt::Std;

getopts('e:d:');
our($opt_e, $opt_d);

my $enkode = $opt_e;
my $dekode = $opt_d;

$verz=<<AKIR

***********************************
base64 encoder/decoder
by iko(iko94\@yahoo.com)

***********************************

AKIR
;

$baner=<<END

***********************************
base64 encoder/decoder
by iko(iko94\@yahoo.com)

use : $0 -e "teks yg mau di encode"
      $0 -d "teks yg mau di decode"
contoh : $0 -d "MTg4NzpiaW1hOjA4MTRiMmIyNWUxNWUyNTc5OGJiYTlkY2JhMGE4M2JlOjEwOjowOjA6MDowOjo0MDk2"

:))

***********************************

END
;      


if ($enkode) {
     print "$verz";
     print "teks yg mau di enkode :\n";
     print "$enkode";
     $encoded_text = encode_base64($enkode);
     print "\nhasil enkoding :\n";
     print $encoded_text;
     print "\n";
}

elsif ($dekode) {
     print "$verz";
     print "teks yg mau di dekode :\n";
     print "$dekode";
     $decoded_text = decode_base64($dekode);
     print "\nhasil dekoding :\n";
     print $decoded_text;
     print "\n";
}

else {
print "$baner";
}