A simple script that takes a string, and using the given file, spits out a program that contains the string in numerical value. The reason why this came to be is I saw
penguinfuz's obfu and thought that I could write a script to generate code almost exactly like his. This as no practical purpose but I enjoy it, so I wanted to pass the joy on. ( Note: to see
penguinfuz's original go
here)
#!/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";
