Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

new to obfu JAPH

by perlaintdead (Scribe)
on Jan 02, 2013 at 11:06 UTC ( #1011247=obfuscated: print w/ replies, xml ) Need Help??

fairly new to obfu. but hears my 3rd attempt at it.

see "download code" link for proper formatting

$i= abs sqrt 1;$|=1;for(my @s;$grove=~m; ;;$i=+"\x31"){caller;$grove=c +hr"\x$i".0}$o=1;$O=0;local@a =( # NAME: U.S.S. perl hacker # SPACE COMMANDER: perlaintdead # MISSION: To gaurd and protect the logic of this code 1,1 .$O. 5+1,$o.$o. 6+1,31+1,114+1,115+1, ' ',96+1,1 .$O. 9+1,112+1,115+1,# # \ /------------- 1 .$O. 3+1,1 .$O.$O +1,113+1,31+1,111+1,# *** ** ===== +==\ 1 .$O.$O+1,1 .$o. 3+1, 1 .$O. 7+1,31+1,1 .$O. 3+1,# *** *****== + ==-====- 96+1,98+1,1 .$O. 6+1,1 .$O.$O+1,113+1# / \#_____***____* * ===== +==/ #27,123,136,2,,63,25,24,45,2435,235,# );map{push@s,chr}@a;my$R=(eval{1/(eval{0/0})})if shift@s;goto mi;; mi:rand$a. cos$grove; for($n=0;$n<5;++$n){uc "j";push@g,'8';}++$R+(eval{1**&x})until $R=$#g; +--$R-1 ;delete@s[(--$R)]; foreach(@s){s//o/ if$_=~m~q~;;;;;;;syswrite$~,$_}sub x{$six=+abs 1;$six=~m/$six/ while$& + lt abs sqrt 100;}

Comment on new to obfu JAPH
Download Code
Re: new to obfu JAPH
by Anonymous Monk on Mar 21, 2013 at 00:02 UTC
    how do you reverse if u want to add or edit something?

      You just need to check that your code works every time you make a change. You know the tricks of how your code works so reversing is fairly easy.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1011247]
Approved by Athanasius
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2014-11-28 15:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (198 votes), past polls