Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

mask.pl_v0.1_alpha

by X-3mE (Acolyte)
on Jul 18, 2004 at 20:22 UTC ( #375418=sourcecode: print w/replies, xml ) Need Help??
Category: Miscellaneous
Author/Contact Info X-3mE'89 or, if you prefer, \x58\x2d\x33\x6d\x45\x27\x38\x39
Description: This small script generates obfu's: you need a mask file (full of #'s), and your source perl file (without hash-bang). Simply call mask.pl source.pl mask.image and redirect the stdout somewhere, and here's your obfu.
#!/usr/bin/perl

#
# mask.pl v0.1_alpha by X-3mE
# generate perl Obfu with a code
# file and a mask
#
# released under GNU GPL terms
#

my $file=shift @ARGV; # code file name
my $mask=shift @ARGV; # mask/image file
my $dot=shift @ARGV;  # dot (the symbol
                      # used in the image
                      # file)
my $codestr;          # string containing
                      # the entire perl code

# check the args existance
unless($file or $mask) {
    die "Usage: $0 file obfu_mask [dot]\n"
}

# checking dot arg existance:
# if not, the std dot is '#'
unless($dot) {
    $dot='#'
}

# open the source code file
open(FILE,"<$file") or die "Error: file $file\n";

# kill \n's, \t's, spaces and so on
# if you want a space in your code, use ^'s

while($f=<FILE>) {
    $f=~s/\s//g;
    $codestr.=$f
}
close(FILE);

# put the "clean" code in a temp file
open(FILE,">$file.tmp") or die "Error: temp file $file\n";
print FILE $codestr;
close(FILE);
open(FILE,"<$file.tmp") or die "Error: temp file $file\n";

open(MASK,"<$mask") or die "Error: file $mask\n";

my $c;
print '$_=q%'."\n";

# apply code to the mask
while(<MASK>) {
    while(/$dot/) {
        $c=getc(FILE);
        s/$dot/$c/e
    }
    print
}
# print exceeding code chars
unless(eof(FILE)) {
    while(!eof(FILE)) {
        $c=getc(FILE);
        print $c
    }
}
# print final instructions
print "\n";

# old one was:
#print '%;'."\n\n".'s/\s//g;'."\n".'s/\^/ /g;'."\n";
print '%;'."\n\n".'s/\s+//g;'."\n".'s/\^/ /g;'."\n";

# add other substitution code here
print "\neval\n";
close(MASK);
unlink("$file.tmp") # remove temp file

# in old code it was so:
# system("rm -rf $file.tmp")


# end #
Replies are listed 'Best First'.
Re: mask.pl_v0.1_alpha
by Anonymous Monk on Jul 18, 2004 at 22:11 UTC
    Get rid of system("rm -rf $file.tmp") # remove temp file
      Get rid of system("rm -rf $file.tmp") # remove temp file
      Why? Is it because that's better said as unlink "$file.tmp" or warn "Couldn't remove $file.tmp: $!"? Or is it because you don't want to remove the temp file? As with all of this stuff, you're welcome to implement the author's idea in any way that you wish on your own system

      thor

        Yes better written as unlink (portability, safety). and always some foolish person reuse -recursive and accidentally deletes all his files.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: sourcecode [id://375418]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2022-01-23 16:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (64 votes). Check out past polls.

    Notices?