perl base64解码

看phrack的时候，作者的代码有时不是以plain text的格式粘贴出来，有时使用了base64的编码，有时使用的uuencode格式的编码。

要识别base64还是uuencode编码可以看文件的第一行，如果明确了base64的话，那么就是base64编码，否则很有可能就是uuencode。

于是写了一个小脚本用来把base64/uuencode转换成tar.gz(大多数情况下都是这种格式)的。

使用方法：

将文件粘贴到记事本中保存之。然后运行脚本。

如果是UUEncode的编码， 则begin和end也要保存。

然后运行

perl decode.pl -s source.txt -d dest.txt -c base64

perl  decode.pl -s a.txt  -c UU

===========================================================================================

decode.pl

===========================================================================================

#!/usr/bin/perl -w


use strict;
use warnings;
use MIME::Base64;
use Convert::UU qw(uudecode);
use Getopt::Long;


my $srcfile;
my $dstfile;
my $help;
my $encode;
GetOptions(
        'h|help'        => \$help,
        's=s'           => \$srcfile,
        'd=s'           => \$dstfile,
        'c=s'           => \$encode);
sub help{
        print <<_EOT_;
'perl $0 -s source.txt -d dest.txt -c base64'
'perl $0 -s source.txt -c UU'
only decode base64 or UU
when decoding base64, you should specify the dst file name
_EOT_
        exit;
}
help() if $help;
help() unless $srcfile;
help() unless ($encode eq "base64") or ($encode eq "UU");
print "$srcfile doesn't exist\n" unless -e $srcfile;




sub main_base64{
        my ($src, $dst) = @_;
        my $in;
        my $out;
        my $string;
        my $result;
        help() unless $dst;
        open $in, $src;
        open $out, ">", $dst;
        while(<$in>){
                chomp;
                $string = $string.$_;
        }


#       if($enc eq "base64"){
        $result = decode_base64($string);
#       }elsif($enc eq "UU"){
#               $result = uudecode($string, "vlc_lulz_v0.1.tar.gz", 644 );
#       }
        print $out $result;
        close($in);
        close($out);
        print "Done\n";
        exit;
}


sub main_uu{
        my ($src, $dst) = @_;
        my $in;
        my $out;
        open $in, $src;
        my($string, $filename, $mode) = uudecode($in);
        open $out, ">", $filename;
        print $out $string;
        close($in);
        close($out);
        print "Done\n";
        exit;
}
main_base64($srcfile, $dstfile)if $encode eq "base64";
main_uu($srcfile, $dstfile) if $encode eq "UU";