16,550
社区成员
发帖
与我相关
我的任务
分享
Dim script As New ScriptControl
script.Language = "JScript"
script.Reset()
script.AddCode("var mr="""",nr="""",qr,or=new Array(),pr;function kr(lr){for(qr=0;qr<pr.length;qr++)or[qr]=pr.charCodeAt(qr);qr=52;while(qr>=1){or[qr]=(-((-or[qr])&0xff))&0xff;or[qr]=(or[qr]+35)&0xff;qr--;}qr=1;while(true){if(qr>53)break;or[qr]=((((or[qr]^52)-138)&0xff)>>1)|(((((or[qr]^52)-138)&0xff)<<7)&0xff);qr++;}qr=""qr=2;while(qr<=51){or[qr]=(((or[qr]+188)&0xff)+114)&0xff;or[qr]=((or[qr]<<2)&0xff)|(or[qr]>>6);qr++;}"";eval(qr);pr="""";for(qr=1;qr<or.length-1;qr++)if(qr%6)pr+=String.fromCharCode(or[qr]^lr);eval(pr);}pr=""3\xb3O\xd9\xd6ZmN\xb9Z\xd4Uv\xd9\xb0Y\xd30\xc8\xbb:2\xcf\xd6\x97\xd5NPU\xe7\x801h\xad\xd33\xb9\xb3\xb3\xbb0\xd9\x1b\xd3\xba\xbb\xe2TIU\xda\xd5%Z}"";kr(91);")
Dim result As Object
result = script.Eval("")
Console.WriteLine(result)