Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Figure This

by nashdj (Friar)
on Jun 03, 2000 at 16:40 UTC ( #16181=obfuscated: print w/ replies, xml ) Need Help??

Well... I had fun :)
$_="1+118156160-57260279+26102884-11144193+4426003-1625071+555027 -187402+75866-44885+34066-26614+19643-13472+8557-4990+2616-1183 +426-104+16-13+11+106";s/\+|(-)/ \1/g;split;for(0..@_-1){@c= ($_[$_+1],$_[$_]);for(0..$_-2){$b=0;for(0..$_+1){$b+=$a[$_] }$c[$_+2]=$b}@a=@c}print map(chr,@a)

Comment on Figure This
Download Code
Replies are listed 'Best First'.
My obfuscated "obfuscation code" obfuscator
by nashdj (Friar) on Jun 04, 2000 at 11:16 UTC
    This is the little (well actually, much compacted, and obfuscated) script I wrote to generate the encoded data for the japh script you see above.

    If you like tossing over obfuscaion in you head, don't start with this, it will probably give away the algorythm too easily. Instead I put it here in case people get stuck, though it is quite a nice example of obfuscation itself, so it might not really be of much help :)
    $i='1 '.join(' ',unpack('C'x length($ARGV[0]),$ARGV[0])) ;for (1..length($ARGV[0])){{$_=$i,s\.+? \\,split,($l,$i) ='';$i.=' '.($t=$_-$l),$l=$_ for(@_)}$i=~s/^ //,$o.=$i, $o=~s\ .*\+\;}$_=$o,$_='1+'.join('+',reverse(split(/\++/ ,$_))),s/\+-/-/g;print
    Note: This script needs an argument, so either save it to a file and 'perl "just another perl hacker"' or add an extra line at the beginning "$ARGV[0]='just another perl hacker';".
      gw nash :)

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (19)
As of 2015-11-24 22:18 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (664 votes), past polls