laziness, impatience, and hubris PerlMonks

### Re: Fibonacci Sequence

 on Mar 28, 2013 at 23:42 UTC ( #1026057=note: print w/replies, xml ) Need Help??

in reply to Fibonacci Sequence

did this one when i was first starting to OBFU.

```my(\$a,\$b,\$c,\$r);(\$a,\$b,\$c)=f();sub t{\$r=caller if eval{ord(71)};};loca
+l \$d="\xAA\x79\x53\x54\x44\x4f\x55\x54";"\xAA\x79"=~m/\xAA\x79/;
t(\$&);my @z=('0','5','6','4',rand(10),'0','','3','8','4');\$d=~s///;for
+(\$i=\$z[int(4+(.714287*7))];\$i<125;\$i=\$i+5){\$c=\$a+=\$b;\$a=\$b;\$b=\$c;__("
+\x0A");}
sub __{\$xz=pop;syswrite \$d,"\$c\$xz"};sub f{return("\x30"+("\x31")*(((1-
+1)+1)/(1*1)-1)-(int(48*0.020833333))),
\$b=(int(((ord " ")+1)*("0.0434782" ))),\$c="\x5C\x78".(4+("\x2D". 1)).(
+0),,,,,,,,,,,,,};

Create A New User
Node Status?
node history
Node Type: note [id://1026057]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2018-03-25 04:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When I think of a mole I think of:

Results (300 votes). Check out past polls.

Notices?