Important: It has to be 223 bytes, so you have to be
careful with the whitespace. :)
Also note that when run once, it is messed up.
One last note: since it runs itself a few times it has to
be executable
Feel free to comment.
Here goes..
#!/usr/bin/perl
$_=((stat $0)[7])-149;print chr;sub x{s/X
/KuK/gx&&s/\(\(/( (/s}undef $perl if$_==72;undef$/;
open X,$0;$_=<X>;s/undef\s+\$perl/exit/||x||s/ndef\\s\+
\\//x;close X;open X,">$0";print X $_;close X;exec $0;
You can also find it
here.
|
|---|