Alguem pode me dizer qual sistema usado pra criptografar esse código. e como fazer...

 

 

local($^W)=0;my$a13859901537="IyEvdXNyL2xvY2FsL2Jpbi9wZXJsDQoJIyBTY3JpcHQgcHJvZHVjZWQgd2l0aCBQZXJsZ3VhcmRp
YW4gdiA1LjIgLi4uLg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT0NCiMgqSBDb3B5cmlnaHQgU29oYWliIEtoYW4gLSB3d3cucGVybGd1YXJkaWFu
LmNvbQ0KIyCuIEFsbCByaWdodHMgcmVzZXJ2ZWQNCiMgQW55IGF0dGVtcHQgdG8gY29weSBvciBy
ZXZlcnNlIGVuZ2luZWVyIHRoaXMgY29kZSB3aWxsIGJlIHByb3NlY3V0ZWQNCiMgTm8gcmVkaXN0
cmlidXRpb24gb2YgdGhlIGNvZGUgaXMgYWxsb3dlZA0KIyA9PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiANCgkNCgkgCSAjIS91c3IvYmluL3BlcmwN
Cg0KcmVxdWlyZSAicGFnZXMucGwiOw0KDQp1c2UgQ0dJOw0KJGNnaSA9IG5ldyBDR0k7DQoNCiMj
IyMjIyMjIyMjIyMjIyMjIyMNCiRpcCAgICAgICA9ICRjb29raWV7J2tleSd9Ow0KJGlwcCAgICAg
ID0gJEVOVnsnUkVNT1RFX0FERFInfTsNCiR1aXAgICAgICA9ICRjZ2ktPnBhcmFtKCJyIik7DQok
aWogICAgICAgPSB0aW1lKCk7DQokZGlqICAgICAgPSBzdWJzdHIoIiRpaiIsOSwxMCk7DQpteSAk
bGV0cmEgPSAmcmFuZF9sZXRyYXMoMSk7DQoNCiMjIyMjIyMjIyMjIyMjIyMjIyMjIw0Kb3BlbihV
U0VSLCJhZG1pbi9iYXNlcy8kdWlwL2RpdmVyc29zL2FkbWdlcmFsLmRsbCIpOw0KZmxvY2soVVNF
UiwxKTsNCkB1c2VyPTxVU0VSPjsNCmNsb3NlKFVTRVIpOw0KZm9yZWFjaCAoQHVzZXIpeyBjaG9t
cDsNCigkdWlkLCRlbXByZXNhLCRjbnBqLCRub21lLCRzb2JyZSwkY3BmLCRlbmQsJGJhaXJybywk
Y2lkYWRlLCR1ZiwkY2VwLCRmb25lLCRjZWwsJGVtYWlsYWRtaW4sJGxvZ2lueCwkc2VuaGF4LCRz
dGF0dXMsJGRlc2RlLCRzbG9nYW4sJHVybGJvbGV0bywkdXJscGFpbmVsLCRsb2dvYSwkc2l0ZSwk
cGVyaW9kbywkcHJvbW9zLCRpbXBvc3RvcykgPSBzcGxpdCgvXHwvLCRfKTsNCmlmKCR1aXAgPT0g
JHVpZCl7DQokdmFpID0gJHNpdGU7DQp9DQp9DQp1bmxpbmsoInRlbXAvJGlwLmRsbCIpOw0KcHJp
bnQgImNvbnRlbnQtdHlwZTogdGV4dC9odG1sXG5cbiI7DQpwcmludCBxcX4NCjxzY3JpcHQ+DQpz
ZWxmLmxvY2F0aW9uLmhyZWY9KCckdmFpPyRsZXRyYS5odG0nKTsNCjwvc2NyaXB0Pg0KfjsNCgkJ";my$r="";$a13859901537=~tr|A-Za-z0-9+=/||cd;if(length($a13859901537)%4){exit;}$a13859901537=~s/=+$//;$a13859901537=~tr|A-Za-z0-9+/| -_|;while($a13859901537=~/(.{1,60})/gs){my$l=chr(32+length($1)*3/4);$r.=unpack("u",$l.$1);}$_=$r;eval;@b=map($a13859901537,chr($r[4]));$a=60;s/...$/1$&/;$_=$b[4]*32;$r=$b[int(4+length($r)*3/4)];$b=73;$e=256|(ord$b[4])<<9|ord$b[$a];eval $e;
 

 

 

 

Descriotocrafar um arquivo sendo ele de qualquer extensão ou até mesmo, de qualquer autor, fere as regras vigentes aqui do Portal do Host, com isso, fecho o tópico e fica à dica para o autor.