Re: Fibonacci Sequence

[perlaintdead]

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),,,,,,,,,,,,,};