Lets try and tie everything in knots

Now lets take these methods and side effects a bit further ...

sub :::::: {$x=sub {$z={};$b="$N{";$_="$x$y$z$w\n";};
$y=[a..z,$w=\$z,[0..9,2..3]]}Izwq(Qo}fi|z0Xdad(Xr`jis
&$x;s/(?<=\(.)(.*?\))//g;$c=length($b);$_=($b&"\340"x
$c)|(($_^$b)&"\037"x$c);$_.="\n";} &::::::;print;
[download]

This is a bit more convoluted that my last one.
UnderMine

Comment on Lets try and tie everything in knots Download Code

Replies are listed 'Best First'.
Re: Lets try and tie everything in knots by diotalevi (Canon) on Nov 30, 2002 at 01:59 UTC
This also prints the control characters 0x1f and 0x02. ActiveState perl 633 5.6.1 on Windows 2000. `__SIG__ use B; printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE;` [download]	[reply] [d/l]

Back to Obfuscated Code