GodlessAstronomer
Lifer
So I somehow found myself at this website about a runner-up in a PERL obfuscated code competition and I can't find an example of just what his code does. I know nothing about PERL and don't have any sort of PERL compiler or environment set up here so I'm hoping someone can run this little program and let me know WTF it is 🙂
Here's the code in case you can't be arsed following the link
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
As far as I know it's not malicious and there's a detailed explanation (which I didn't understand) about how it works on the website.
Here's the code in case you can't be arsed following the link
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
As far as I know it's not malicious and there's a detailed explanation (which I didn't understand) about how it works on the website.
