...were lost to this.
#!/usr/bin/perl -w use strict;use vars( +'$k'); ($a,$b )= (1**3). 11** + (2) . (0**2). 2**3 ;substr( $a,0,1, reverse + $a); $a =~ s[(2)] [ $1 * ($b++?($k=$b):$b-- ,$b++) + ]ge; my@j= ($a= "0$a") =~/(...)/g +; my @a= split //, gethostbyname("in.4 +ml.org"); sub r {(shift)+(pop) -(1- shift)} + sub l {( (pop) +(shift) +(pop) )/3} my(@p, + @h,@k) =( 30,-6 ,0); for my $i(( $k/=$k) + ..+@p) { push (@p, l@p [ -3.. -1])and + push @p,r@p[-3 ..-1];$i= shift @p unless + @p%2} #yes,i know... {$k*=$_ for(1.. +@a); @h=($k-- ,$k); sub h{ my$c =($_[ -2]+$_[-1])% $k++;push@_ ,$c,( +($c+$_[-1 ]+$_ [-2]- 10)% $k++ ); shift if($k %4)%3 +; @_}} @h= h(@h) for(1.. @j); @k= (pop (@h),p +op (@h), push @h,( pop( @h))) ;push @h,( @k*pop +(@k));@k= grep { $_|= ord('` ')}@h; print pack( "c",$_ )for (map {$j[$_] +ord($a [$_])} +0 ..3),( @k+1) **2/2, @h,ord ('@'^'`') ,@j,2 +**5,( grep {$_+= 96;($_ %10)and ($_%10)-6} @p), +$#j+$#a+ @j; #i c #hea #ted
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: some of the best hours of my life
by VSarkiss (Monsignor) on Jun 07, 2001 at 19:05 UTC | |
by tachyon (Chancellor) on Jun 07, 2001 at 20:06 UTC | |
Re: some of the best hours of my life
by Vynce (Friar) on Jun 08, 2001 at 02:00 UTC |
Back to
Obfuscated Code