#!/usr/bin/perl -w
# This is a simple script that takes in a string
# and spits out a perl script that is "obfuscated"
# and prints out the string.
use strict;
my ($y, @list);
die "File Param Missing!\n" unless $ARGV[0];
chomp ($y = <STDIN>);
while($y)
{
        push (@list, ord chop $y);
}
@list = reverse(@list);
open (OBFU, ">$ARGV[0]") or die "Cannot create file $ARGV[0]!\n";
print OBFU <<"SKEL";
use strict;
my\@o=qw.@list.;
my\$o=pack("C*",\@o);print"\$o\\n";
SKEL
close OBFU;
print "Done!\n";
[download]