Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

No more $$$

by mtve (Deacon)
on Mar 11, 2002 at 19:47 UTC ( [id://150950]=obfuscated: print w/replies, xml ) Need Help??

Here is simple auto-obfuscator that translates perl code to /^[a-z ]+$/ equivalent.

#! /usr/bin/perl
undef $/;
$_ = reverse <>;
s/./"s vv chr length q q" . ("a" x ord $&) . "q ve x\n"/egs;
print $_ . "eval";

[download]

It uses half of alphabet for now: "aceghlnqrstvx". Is there some ways how to make it better?

Replies are listed 'Best First'.
Re: No more $$$
by ccn (Vicar) on Jul 17, 2004 at 20:01 UTC 
    #!/usr/bin/perl -n0777

$obfu = ' chr length x eval or';
$obfu = substr $obfu x 255, 0, 255;

($head, $tail) = /\n__(DATA|END)__\n/ ? ($`, "$&$'") : ($_, '');

push @code, "s ss chr length q q" . substr($obfu, 0, ord $_) . "q se"
  for reverse split //, "$head;\$_=''";

print
  join (' x ',
        @code,
        "eval or chr length q q $obfu q",
        sort {rand 2}
        @code),
  $tail;

    [download]
    This modification generates more funny code and does not break __DATA__ section
[reply]
[d/l]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://150950]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-04-26 04:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found