Самораспаковывающяя иконка (тэст)

Option Explicit
Sub EnCode()
    Dim b() As Byte, i&, j#, ii&, n&, f$, h$(): ReDim h$(12): On Error Resume Next: ChDir App.Path: If Len(Dir("10.ico")) > 0 Then Exit Sub
    h(0) = "`````Тс‰°№pmc`зИ№``f```````ЉwєpАs`Њb``ыd``aЗујлs„Е}nzc`pp``xxwґ±·gnЊЉfЕжЂ±»КЪЦѓйЛРЮl·wѓЇТЂТХuuВuАБЪ€ґТбп`шІ±wБДosЂшrжqа±m±ЃrqиuРmґиЖЂІУtЃнzeЃъlё№ъfЪзеЛС{жчѕує№xпцжВХiПутллъЮµЙОтуяуж·‡й№фдюрФэыЯэЌзЮ№нПpbppЂllµфАцфѓ‡}Рі|ІxЫв‡јёРрlшШНhaу¶т»`d~гtmЙлрkb‹b¶Вжj…°ПqАґмeРРЫЖвЭqЭuхгxcѕvВ±оъЩИ‚єдґЧДЧlщИЦ±КьyЮбічГЮkЗъВґ®ЦЭ·fБо°‰ъоєeВабдcdАfі€хюѕГЗoжСя‹}ъЮлpЗу{b№г°„ґчЛуСЭwЕ€¶ЅдОЃf€ј»ЪЅрoхо»спo·лПѓяМТ||ЂИю‚u‰ОЊ}жaіиВcЂkиКsЫѕn~ЭлФф}х·‡pьХпы°БdХn`‚шИЮЫnсЛюwАzдјуяp‡ёПючpщјы}цЮєХфБЂЪИЧЬbОѕрruчаxв®frішмїЩряхпЮКІЩнЦЪїoзиѕнЯЙЯуi…¶хЦwЊ`wКпыbЩЙ¶х‰эЇО†pwк‚щ„dјґъoЬщґ†q†йјКbЉsЖчдцїСЗкЂ~®ЊјtТъs~gэѓБ‹s·ПіуОe†{јЊґЗ‹зМиЉiыГµзмµqcдЮ‡РШлґѓнvЗЧЌjyХtfЕТшФzєНtЅФ№рмhс~Ашй„фgЩФЮ‰ъЅЊН…s}}s€zcЇіЮВнФкФіфйјx}ЮiЃрьЇЇЙр‚Мцqоµ±bжиeсВзѕЇу|жґmyЫ·|`nГзьєЦ¶Щ»®ХТЗъВЊgЦАНїс|scоф·ССУ‡цЭµpеаf¶ЭЂг®ІП®ДгЃm†p®€»·rКоfр®‹…щЛГ‰уly…БЕзІГМjyѕ‹ЫіlЖty…шэµії}шТЌКlзфБЉрз‹dез‹qЮ`елqyЂп‹Љ~оЕлЭНЫ`Саlѓїnеаiюѓ°vбifѕ€єъbґЭuуЩoЌ}МЧЭЉ‚ґДn»hЅЃШqјПБЮk}jьъы…УјЛХzыЖбЩбdэДaТЯыґuНѓДЭbжuяЯеїгь‹Упы€rzУЕdјхм·xЇјИ№швОЃpЇШОт°vычшбЮґvсЉНЪqЃЊdС{`ѓјusјјµЫл†БЯ·rs"
    h(1) = "`ґЭФsпс»ви€НрfiпЧuЅЌ‹†ЉxдeЮёРГ±юыЊщДЙчМР‰нq|йаЮeЅжЙНЭЫеѕwnГчдpыыиИМ‰}ФЦж±УgЧУя»Г}мл¶чoмЦУ€јgЃ†еnАОЌ‹Й·ЅДфіКгЛ·°€нz|Р‡еФоЧтЅьuЊqЭvГsрЗчЧїcвЭєnыеґeобёшЯfОР€ЛdАхдdяцп°kнЩ®ніф{°sэА~{єpАr`Аa``ыd``aммЂas„Е}nzb`pp``xwґ±·glМhdЮihявnЃРqФjdдДЗьa‚єaЗА€‚єaq‚рвrЉkАvЖ±врЃАqаиdШЖ‹v±гqdЙb‚dbrpѓtі`†|xxлјРxйМ†ЭЦЮnеoЧг‚fЩЕъїЙмМ‹КцеЭруКьчО~К~ХЧsъјчmЙЬп…р`РxаххЗз†rycomпЦ·іnЖМoНфигЩ€нЗЂФaЭятtщ{°yjисЗuбm·НЛуoї±ШЅјЧрцфЮcХ†т~о~l†…m~лїuФЉbЫЬЧгЪtіpЖЛАemwфЇЦ‹kГj€онb·ht}€°шМВ{Яfму°жч°хѕёpъъѓb‹ИР{jйјaпухuФнКиyхeцґ`єВuЃЭИ°ґТwчuИЦєМХ¶ЯєНтbВлrvіІg‡n„ВКрхХlxЫПуПК‡ерч€…ЫэјИЬФґЬ‰zeµѕфwХЖЧІ€fЛлpюЦЊhВј°wЉf·µЂОнгзыЃэыegxydЅgёяьЂпМо¶ЛЗккгftЙmізѕнмпоz®нрцЧбзЗХВє№†ЧьїсрxoОрэг°яыm»сгОлЂЩЙЭхуКЪsЙrЌqЫоч…ЬmЖФ¶ПНБi®jюЛvКйбчeЫШЬБзЅЗsfЭЕЭєvЛкщ|тиимЙзНТhВеzМсзоrbишшmaмон}gСoЌ‡lРэ±ЙлПѓЇГ‹»з~zpeґЫд·мРГнµЌ°kЗшюБсrсµсйдddоuІяШµаЂчййшгя‚дnгЃЇШІЛШaУvµок…bцskЊНтЖвiдbЕЂrhлdqqdЂБ·ssьqФb»pЖвhеєhХЊЉlbьр°Ђh††зЮшЗди„±dФБЕ|Њ‰±dвБ‰·єхЙРЛ€яеРБМwСРЂЪє|€пlоц¶ЙРЛвiёb‡ёШХд{ґТЬмЇoЯЇОbиЂh‹ЗkjсfоїЇѓbч‡Жp‰И‹уeevБіus{ЖйБМpЩзkkСfМЦyМОѓбнwСрpЭx‹ущjeeЪ"
    h(2) = "ЯЕЮ‰хzчяeшКЇЊвС{Њ‡…|ЊЇФ{а±»ѕ®{趻»rа±єЂі‹ЦТЛьzшЇбЩо}яЊЃл…пe¶ЪІ{іЦixјhКЙ±дфqeлщпНТЊlгgbёfЌ~lµзn„ОГБеГБvfТКЦ†ЧэГїфw†єpАr`єa``ыd``aщЌиЬs„Е}nzb`pp``ywґ±·dlкЉdЮjjъЙЩй‰ЩєvиК†жйЦиЕev{Ѓйкв~irјrРєzрвhjЇxьpј®a€hh‚€idpТеЕИЃИvПjъ°З†ъі†ЬЬу{nпщМзёЪзxiуrjфґzі·ѕпЬЯ№ѕgЯлщЯјѕрэЅлгнэць¶zЯc~{р`РyащщЛхШ†ЭjїµїёЯj№ј№рeЖЯoЛКСtЂkЗняЃdcniщvgbШЗюФя|Гёщ№ЇБжеЅg‡~ш~щ·РхфхaБёэ‡ЦdЗИЕ·ЮpЗЪlЉзЃП}fkЪnШаЌЦlЦxЊнДgїіvuЭhЂшПЖЭmЕ№шгыxzo`ѕюЩґчХюѓнfКg|йЯ»јwхЮcuзЮ‰хbЛjРЯлФkЌЉМ‹ЌfwЉВютЙzЧЫ~¶Ш°рЇauэллРтbТcnwФу€teжsнЯУНgТwxwt|Ф‹jюѓеФОю·пtРbЫа°ХТЧ¶ЊfлюИїхсb°іЕµкcbцДnїёЕяЉ·ІбiІАЩlЅ·ЊъцЙФНшйЭдСвЊюЛi`мtјЛјН{Ђ·‰йx‰З¶шЛюяzБЛвјбБяф~ЯiИјєyуы`яХykХєyЛнчыsЫэЖдЛ¶іbикЖgґз±ЌnЮzЮЖзl»лёшэю†йд®пЯЖвґ…ѓу†Ю¶jkµpЪ‚ЇЬ…f…егфfф№ф°…s~ъСьПwЩдсиТЗ…ШvРїµmй·ЙкФВБКДuЩЙ‡Ы‚„ееsх¶ТЙЖЪВЧЪЪВнzР°рТiбц№яДєwПgйтеwаb®щЧ·rЊqoрxЩдлйyh…ritbИЃнТѓ‚iАbо†ЖѕyФb»pЖвhеЕ‚µлЉ‰Ђ{ЉtqdДШлРgЖсИpДsСevо€ТвiДbТмхк|Т…tя¶ЊЂ†mqР‚ЪєЬирvЃц…сdЬБУpИ‹И·т…ЂНjібЇсИzh‡ВjСєЃЮ‚Эзбфѓ‰ЮІЉТjьfЕvЕµjiuБЙИ†hЊіхВФЕµjЬtдбЉeґмkdbи‡сdqц{‚пxЭоЮвьЂјs{К‰ГРАїСнeГОк€ъcсЩ‡‚МіЕ|ёЊuтПжЯї»ЇсъzvЩйЗЬДcbfВp|інЕІБъ±"
    h(3) = "ѓ{ipКЂмЧlхѓгmъВіЕfЕwml°єъєбГПъfюИыЗєpАr`тa``ыd``aЗ°хЪs„Е}nzb`pp``ywґ±·fмМЉdЗжЂЇрёcСРЌvЪn®¶С‚¶Т…µКр‰нdµµ®…СЌkкДxрЖјЅ‡ЛФjЗЃйдШЅodlШрБov‚cБxЂЗ…Зhuqсu„в‚вhxЇМЦµјЧыгорvlnії`ФНлъНэyјЮдчцїzФПу‡}~МыЙыП„ЬЯЭzЧжъ¶ЕdЧВhhзmШІРйајХЗ»дzѓОґгУb{Ѓ~fс‹dЙХЛ№€ЪмaЅНѓЫoМµ·ЛЕЉkЌОchl‰н‡ойРѓч|fЌжхОЌmасУяЂУqЃgЌоюфЬz{ЩсфЧеtИрТПukiТµгжУжj‹Ы~vѕН{iВЊЪМwЫпІЭъ¶еЫрБхЪЕПЧѓДvsgІЉ®rНµЖдјc·РчјеЃ°УДпИ»чФЦЩЅСшФЂ®¶ЊхъyхНЭЇуµѕoїЭзи~епhІэ‹ТФчЦСk‰мТмјДЙaЙХјъ‰Юсµ~юел|ЌzЪz‹ґЊoХзюйaЖ№гшѕвИюПш„єЊ®Ж…xnПхkЌКтЭtіt®®»dУn±‡mЪtЭфрtcеzcОqphn‡КєЃМІйъц·k€ЇвыдДСЦuур±‹jзЮчoАфТtjіiкЮЛk†ЩяХУѓУИцъЧїэiыЃо·ИЕпайщgc»‡РС±СЧЛєЇчжЌвпhш°m{ЯвqрЯюПwгЅѓcуЖЖэІэКПМННяЯхbь~wwvvЩюе®№ждяЩi№‰yДджюЩЯТУsj|ЙЫугїшщlvmчяІїМlчгehъюМЯчсчйЯїkхб°яf·ЩымчефЖющkwыШцня{ь¶Ш…Ќ°~оЊЃТлВ‡cємьмЫнЛmhsmЂїїг»€µ‚ъвЬ¶rх°wОwѕУШsЧхys††ѓsp€гsбЅЉаЛжз‹Хѓs‹кsбiбдiьМювыiГssкs±`иzЇА€АxРъ`ёАtmр|°°ами°ґьЪx~аёаьпзФgМpАЧжйкчbлx`±ѕЫРО†УМръ»ЇсяЅуt®вw‰Еy±зшЪёнxyёЧ¶фОрhшuпТ}·УК~АЊдhx·x†°РтХ‚Љ~ѕУbЖdщПЛжЖ‹Б±dУgЖolѓmfceгdvoЛжРЭ†°ѕ°Њб„ВСfclпПоЧ°~ІюЯІcШqМ·xеэ`ТЌгбРВйdу‡Ѕ{№±ЩevЫв±°сЂЖБlмЂГйfпСмoкэёчР"
    h(4) = "У|Яoh¶ъї‹ґ±±cБmal¶|eЕoАхЇ…п±кА‚сnм·БйШШzМХpШs№eОqвчэцъюяfЮёгh~·ёлКВdєpАr`уa``ыd``aфzь€s„Е}nzb`pp``zwґ±·flКjдЮlhЬdpААБЕйАЂ‰иtzТєtkЊЦЗВєЦєdcvoАґzЧК®¶ДqТиrиИ±fЗд‚ЗАmЛyxdbИeШЊЂФшЛd‰гЖжцТЪdзєtЛ‚ЩХЪд~МОьЅМоч„чЯНцчЙsЬsЙЮщјуЩ|Мдyy‡ї`apqЃ‡†щЖeДЪЙмЫК¶i‚qШ‰мsh°БЮјпвa¶Флu`орБсДЕяi‹ЦПx№ЖЬјµфhЃnяЉ№‡Ќ~ѕdшю~»o‡ЕВЮІАіяьхкwэ№ЂтХИg†ІР®є‹Яu€хнЖl{Ю€ющБxжх†ГhwФРsЯЪвwХнЮv{Ф·†lnхёёґаfmz|шёЇow|ѕцьрум®l‹ЫekлЂчeрлТЬцхГсуфfЯЦжcбЭѓwб~юµсоьaжЦ~cеТѕ†·°d‡Њжє‡Ю…цqТІсс‰ґюТккЪ№rіуsl„qіЬізёЩ‚Ул·Э¶rДГєЉ†уiдІжФфмwЛ††зyоtЩПМйЖСьЂЂНЪЅЫЦіпѓЩ}xзйЫРоизЫТО†z¶whwмЩ‚ajэiбы}ѕьгЙcйїqtbГЭјЯ„Лzюг|єыcx‡c~хМ°ЉЩ`bдТЫяУЦ°ЙЯi‹ВКжgшщтЗs‹тЛЦбЊ‚ЛxЙпkзeияµИЙйrШКbЫdwІЩП„ЅзЭЅ°rЪ€…ДЙfЫxxq…дЙфФrъ„ИЌlМаs°„Лjdyq·ЊЫxzІјвдugЊеЊkЪѕ»ЭЩ{rйdzuБл№еОК}чєЛьРКНdЂc°О·пЦеОэээmѕyiЕФБlйqЇsывЯш„еЉiХУі~цГМОЛґiјbОТ№yОЩУg{pјіЊ‹Ќ{ЬЮqшХМг°ПѓГіХ¶}·‚„лдгэіышоp€ёЖєзд·АЉцoСДјо†Бl{ЖоnЩУefІЅх¶n®ъОсЅХbъїхШ‡®vщяиЫТlюР~sєpАr`}b``ыd``aЦЭоЕs„Е}nzb`pp``zwґ±·glкЉfЕжЂ±»ЛРkФВ€ЌВфеиЛФµ€oАхegea~aСДj№tqсЯЃэygЕs±с»vvЦ‹…ъјvДТДг‚в‚tеhШеbtнqf№л|ЛЛрУ·Ѕжбу|іцёжЖРДэНЙы{ЧµН뇹s|эцїНп{ъО"
    h(5) = "юръНэїѕЮщЌОшуЧ~ИДВ†РбБпyЗ¶…МjЧ»…†sлiхкаОrхoЪЩd‹ЦТІЩ{~мчБneЦжЉvјДыxјЬol{lоч¶бѕЊлпЛО‚~ВлЬХяiіЭиаЕЖЧiн®xЌqИpстЗВnµiuЊ†bшsЖЛxу»хЉяДи°sѓг‡ПИЭы‰®е†ЛrКн°Цсk}·iучhlяe®пд}КнeжЉЊs‰бтСиауspзчсqІeэѓзщyОШиµПёмПТїЖЗ‡юИуЫїХtя·qz»fЗЅэСгуfmЧaнЪзЬ†ПГєїЕ·СЗЭ`jeХяЬЌыЪѕіщьЗэxИ®ьv®ЮґЅпЪФхяј±Я…Пїi„ю»жЮкгkrЮлp№‰ЭьёkzѕѓдЅЕЦпtjПптЕЌЅгНьЬёЛцзГйѕЕwішЌйтjЅЕТДфvМnkСлѓciрїјqшwЬtхЅ„‹щШмХмЧѕо·ЙбУХб„ЦмuЫЌµгzw№ч®кфЦКјЌЅнтхц‚jєЗОЫЙмЭл~톆¶oхt}wjoЇ»……ѕгqННЭщ{jъъьnъОНттmюГД€Оёы‹Оіu~qїЧ‹ъе‡ья{ґОхлпХ}pиµЪэlфчЪцЕЦiн~Ѕ~vътсооррqц}гЯчэЊовихyz}Сшc»z}Їгіі··ѓЂнµншуХЯчnуЩ‡эїътЯwЮkъоЊКИЛЩХѕ|ДoФxЧqю…хОs°нЛ»зИВ№µУяюРЪЬјll`БЂ®g‰БuЌзЙЅЕнпЭf±шзxmёcъБЙ„·yЛѕxжdл‹н}ЌТ{k‹аЭpхhјlЊЉeуm‹уwч†Оc„мuю¶Ештhј„~вnЃfЅvБОsмйбАхh¶ЇОЧЮнЫАв°~ТoбgМЭБ№‰ъёОЩфАtcтСч|Ц‰эжц}haнЂiнф¶wБш`tюgу„ышРcЅdchf{Тоnб†·Оёы®±ШцgнliИnИo{ѓюТшф}`vf`pБЂa{‡ЊЇті°eЃ`ґpєЂХq°Їm±пqщЉШѓpsЂal`ИЂон®п»ЛoпiюrВe‚»кюЊw`юа}Д°uґфl`ојґµаїpЊ±ФЌїАeуреЃbвxІЙиЦ·їуЂ|hwЛхкНдЗАЙмmmїr‰lЊз€ЉЙЬгfhhzЌnМ‡БУ№}dьШxjГfИбіигxxГaШgзх‚~qфюшhр€ibxкИІ…фЯЭo·я¶в¶еЩs·ыА®чєpАr`±b``ыd``aЛmПдs„Е}nzb`pp``{wґ"
    h(6) = "±·flЉjжЗжЂЌrppdrИВфsЃЙЙЮЪdiйнЌЊpЊ€Ы崶vqlрgeКЉЫбйЕьЉБгТмЦЂЉ‹‚‚zbЅjЮaЩЃСеФЌКnТdp°h‚фrµЬиhКЫo‚№РтЊМзЗ{іxЪ®Љj~ж…‡ЅжіЪДуky¶яµґѕЛѕШѕрТынжх|Яg№пП`bppЂnnµфАцфѓ‡ЬПу|ІxЬb‡ВёРрlУбЊЂg€іqЭdЂч{ЂпkЯ`Ь±Шqіw°ХнfьЌe€ЮЉ†ВЫдkъЗъХХnцfьЊЕдФхѓрДхИй°ИЌyуq®бzсІЅЕИуГЯjІьdщЩЇјкmvfИЉъоє…‚бгеchјf»€нюОГ‡oкЙп‹|ъЮл`ИуzbБжАrЫ№жщи®w‚М{юІ‡ОbЂ»ѕХыаыёyПЗБјЯ®јqэ±Ит±Б‡щjЬ‡ёІєХbоШeБwТt†№ш}НЛ·Љй№коПЃшЛ~чгhh‹Њ°ЖсСјЗЃУxь°Б№КхзяБПсЭэg„тdцГнїс‹йbИµsЇ»dЌeр…ЊЇБµЖЪm…пхЫю¶йокЭј…нГ»Ќ·ъСРщЪѕsзrНgЖ`wКшЅaoрУоЅъПФ‹†…Ы‡ЃЙ…і±ДШ¶ЫiІж{НЉ‚}ґьЬЪb±г¶ѕr»ОbгѕшПНкПшЪµz·ШСyy€ЪщЗВВ€eszzлЦф†фdтwГ№знµ±ГФо‹СЩФйЗєЭ~·Яt±ДСщuПгУлйґРкЃЛg„ЗjкcИЛ‹„ѕЛ…сkцнтЩИyiyyhyдґпёчrwЧБЅЅ»ЊЛ‡яЛ‚йјПЇМтјёs}ьлobЂЬН`ѕ€МчЕюгlгАТОЭs`aИмяжЮєбіnЭТЗєВ‹ЗЦїН·щjО}ЙУПЕМЇЭшОЛwhxыvБnјМјЅqnd¶zВ°Ђи№М‹єyДєЇwґЬyлјpКЌj‹ЅtЩЩ~xжПЉоМГёРaґПw††пхВlцfизяіНЅСбнnрy№дфпКДЧfyzфжй}ххУОЩаіХЮ¶nіlъ‚ґлѕОагАШХбlФuУ¶шЊжѕДчµбъЉvЫґzlРѕdнЗа„ЗлАШ‡йщШпЗ°јХ·шЯЊШЯµnЧx€рМµПцcУґm‰Ыu‹чЅ~ЪыЇрeдpЭjfшЅіВрІ~д®Я»ЗфэжЃПГbйhadѕюУuз·et}ыЃпЩЃсѕВІ…юzімtчhІcwl‹сшРјv‚Врf{s`ь|~иzjішЃ…Гыㆇ·вНТьА‹Кj|іkыугзs…а°А‡ёЖфeqЅbfХj}Н"
    h(7) = "лЕѕ†НГчжpь»€ЛоФМРЧСуШ‰aлкЇеqОјjъЛ綋еz~ЛрsіЗЯзЦНФЊїДфяГЉуВoЂТЫіёЃОУ€Х~суЩ‹x‚»ј¶зрЗчЧЅcжЭєѕыЕґечшмшЯГstЉrБЇ}ШэїэЫЛгял±Я¶жez„яРГzєpАr`єb``ыd``aоДmїs„Е}nzb`pp``{wґ±·flЉhfеж`ЌНЗ{oИЬсиoЖ·пьiѓqdbaqИдc`°ЂёqдИdДaЃpјbq~ВТшiжДjБhнpx|ЖdНqm№Ђ`Иi№`ЬoАгn€цfЅr¶МнжgoЖРЉЉпґЮдЉЗxlhqіЬ„№энује‹‹ЧЭ»ьЧТщЉщТыГkп№ЪеЧпВэпА`юcш‚вН}°ЅН€Й†іМзl`wh…Оnt|ѓ„ШКьaйцт»Рd~»ДmсгнkjЉВµВзjyhПaxµлeКјЫ|ЃпИпКъ±Мб~жИ‹Щ~±иh‹Тz{тёcѕrµ№yоУЉЬь†ЬeШЃпhЕu{‹vАЫЯеbrхЇЛ`®†®иёЛhмъnЯл·рµлЭъ±Ї€идbІБh‚Цеa…kоУ‚jиЌШcхЦДйРФwЗХјжoвы±Рчз|e‡q~№nжЂѓѕсЙvуjг‹Р…ЊИПфqьщВлЗЃТЪёъЮ{оzатgpµЧхxаeЌВdЗ…{Йт{№їєьrьЖюгрtЧ…ЗНтП‡oвю{Жє»рЖv±ХЧ`p‹»dmЭР…щx`УФюэwкЌ}оЌГЗФЩёєk‡Бьэ‡Ѕ‹й¶юЃ„ЪыАiьЇямhяbgчзТщюеµi®йјвИЩЙ№Фю`ууґn‡µѕЌ‰tй‚Ѓ‚iЃfнь„ц}eДіОiиьЩ®кrqД‚ihшэЮгЖ№ьja~АКщЮД¶p}яТЛшыэдИхqЌтцЫЅАчБЗ°ЩВlСjяЃи»ъ}enzeДiрШbпЫАшiдґзЩ„Ѕсы»вvѕn®ІІ®nЕЊуЅ}а…ЧНМММлТк~ои№юуГсј®оlУ®hлЯБk„wєэ‚шїЂc€Мі»ЫІр`№aѓиЙФЩ†лЩЉИЫШЕркЗe†оЌЙЕґєПдµУЃхЬ°mзбfЉСшвоуo®dйРf†p€€№хТкнfсЌЉ„№‹Гѓсvxь`‚іШсПбдМЯХЕyfСxхйОЅєyпЛdі·ЩбХЪв¶ЦpzюВОЅsцkИuhЇhІuИМО»зк†xЌѕбЌєж}юr|№ЕЛ№ЯБФя‹єъмsНбХ±ЭюВЧиЗтµчК€ЊсcіДk±ЗпШiо`иї~ія"
    h(8) = "ЧРЊУrzy°‚bГ}РхчЉ…ѕЫЕ{Ы¶БЬв~xГЅ»Эmbъѕ»®эіlйjМeЫОЗеїЛъЃОfНС‹ogшыНi®ЧМтv®Юг·юОИфсpНЃp°ЧНусvъШ№aаЇweb|d‚тЧeѓ¶бЗшл†щШЉ·чЊГГ䄇pй·зіртыби€НИfфзйnzjЛ…b…ЩБЧxt°КЇЯ}ПЪvЛВИА‚іЖуесЅbтї…ОтйКі¶aъуhэ}ґжиДИРХОфІtЅхфпмјжѕХХЅЫ‹uЇПoЌЂЙМсЧyХ°п‰пq|чкѕ€МэаsцЊn€У·кІбѕЪкК|tЧЭzРьґюТЧАСv|чЕjyв‹ётјпГstЉrБ®}ШрїхЛЛ‚їЛ±яЫІцНrяијГєpАr`…b``ыd``a‹lwis„Е}nzb`pp``|wґ±·gnКЉfЕжЂ±»КЪЦuґЅЕиЛщыХbeССЬ€ёh‹ХvjЬ‰бПfЖ‚ш€qтдovМВЊf±¶„±„ъ…ъhЫОdвk…±КvСЂТ·®yстфmµМЛ}wЇЖн{ЮщМижбЅfдІДzы{sолЪыяэЙНопъ|яµ‰їЙїУучgУып·ЅуzузЇј`hаГbѕјСРcХПmВкaЩГДkъТиЗКnqrм…f`хk№†аЃg°еfд±чeАuy…€№ВЊм·ВаЪЖ‚‹иЌ~ё·Д{‚~€чtпхxЌ{{№dЧРm}щ‚сѕ‚ЛfЩosЉЬЊчьЕрѓЦqЂФкпЫcЮ»ЂuЭЗЭЪспсІaБвЖ‹„хюn‹ЗsмСяЉЭтј¶Аsж¶drјр„·чНуСЭїЅ€¶В‡ОdЌЇ‡ЦЪа~КмwгЯ~Э°Ѕ‡щгqЗГdЇа‰rОсЬхІiЫт‰щИѕxЃµУак®~ЅЯБЯЩшъ‡fБяцшАlґБdчq{НсЮ№ЇѕьsЬч~ясuoqпСсoС„ѕ…®µЭpКvІ¶·`wІѕdЕrАОрЧcЕЯыхЇ»яє‡ЇЌЯтцлоgтуц‹ЂпшДsЫп`…ЭыѕАgшЉ¶ѕ}ЧиЦФs¶iиТКННТ‡хgН~¶Ф}СщµдiУИидiфѓлјдц}eйшр‡€фиыЮр~ЖЖй¶ЮСРгФДз…жОзgмѕюыЛШйгЗ€н·{ЇЦИmЫѓcЕѕГУ‹l‚ґЂыyУбФккґq°±uај`сrЛиis‰ь‚эц‰ЊґЬt||tЬВЪЮѕnсТйи€€‡хiыиzє®{Асьo{їkґмг}л‚eКПkЮfОцїШБtжyЩ»Ір`»q}ъжм®Уєоt„ч‹"
    h(9) = "„вјЧ`ґЭµ‰ёwЗНьјхrяЭлЩООpд®zfѕчЊтБzф‰ІТuegВєйХШЬ{»y~Г`МЮдfЩшСЩтШчщaswУыжБtжБъпeСС»щаfaцаия‚€xgµxѓЇЩРjрГ·вlМгѕnzйыЕНфЛ|gСb±ныяf}фБТuУц·нзѕtч№д±НЅѕ€хxбГЭСоtёМєюжісмЇФОэЛХлЇ{gеhВ|Еarьyfфэzц»ппЊ~Яь‚№mнЕfёЬіІш®Ђв°гёЖшэ†бОГ‚йjcamoѓmЯЇar}гБпzЃУн†iюоаwhdжа€пiЭw‡qОЦх°чНДбї|ІЂПѕИнeq{бlкїУyµНГ¶ЉШеeЦИыЃАуХьРsпЩ‚є{tзДЧ{`СЫіС¶ШщП}ГpэyдэЅ„ец‚дЦuФ|¶КЂсх‡мРзЮЅmхуыuґМoyИЙЬБдjХµщ‹v‚єЯХ…iykР‰ЌЪ|РѓгТоЧтБьvlСЭ®Уsшйэ¶oАШw®wzЩЕ‰ХЫ»~·бЙjtiШxouАЇюцуxоНxоЫіfНrя€rлєpАr`¶b``ыd``aсхвxs„Е}nzb`pp``|wґ±·fnКЉfЕжЂЇ»КЪЮvТwЂЅyпЇоХАЃФФЧkГaeк‚СЛfЯjшІ±wБкЗЙpјЩіh°xЖШpЙИфКфq¶eqh‹‰jР¶ebpЅfЪ№ъfuЛофЬЅy¶пызіѓyfчовЪeuчх‡ЩЌпнэчі{джхyьЦ„э†ю{јїПЯѕЦѕзµгПюш`oАяdМЙ‡†g‰…yґЮыЊбpbаt№БВcdеmi`ѕз‹i`пpэцГЉoэІПfЉТµдщb…жіакЌУaТ±vзxЫС»Т~°уґіЬЕuуДvнaeШЃ‰јѓъібѓХivнІ‹klг`єtЅЩh‚ѓгрР{ХШаѓм·йЇЕВВЙgqamgХУыэw®fЕkПЦ·х|ЬАЖуybЌо°rЩёе№и®я‚И{®є‡Рb„Ѕ·‹цФ~ВмgcЮ~пw~Жюёд№ёЂnыe„ЪО‹О±АvІЂwЂkзjsЪ»nnХУТфЬф¶зpјеп»ЌАdЌхш‚ёиЮПpеЙэ·`wд№уш†ёоѕоАтрцЇи»пЊкbґіn‹·deеР„л®Б‹ЖЅf~‡…Ыю†Щжл}јэНѓ‹‰ішЗРчЪО{oвrНwЅyзЯяЂГьt{їЖoНу‰иiчК‡rЖКЙО€фg{}tфтr±Ъ}}ЃuiвЃtїqУmmґуqЪgwч®yЕgµЮВВoбЃб"
    h(10) = "хЫoЂзфs№fbЧРт…ґgъя…wтцъёqтѓЩениµcмюЫЯ±ex†w·вvgВЂЧРйЂФАv|pЮcxomґf|ы„{БЇчмsЗБЕЖЖЕБИ†ЛyіјДЪЩ№yymтохооc~пьпЕпЂНЫhfъиЃуґbчЯґЯwуРдyfояЌn`gЂґюzКЉС»юНЪЗzТЊgЦЅЌѕbтО}‰Тя‡ЕФgУрК·w`x‹ЦЃiёКј№q‹ВzЪВЂЂмлдЦЫlвЫХЙтwfЖЯ|±чЃЕз±гіЩxѕі‹Іls±у…ёЅЕТЯeржЧеfлчѓаё…Жмр±у€йЧuh®ьІuиМН»жл‡x®ЬЛЩтФєлсiя±пЛ®ЭoаХxіЫЦЯpХuіuчl…юфч‹Щт®юЛґzЊpжgОярП€»Ѓї‡щШпgЊёЧЌцЭЌЪЭґnгh„Н}ngчzЫеlГ¶в¶хe·сЫПУюИУЅtЦ}ОшЕФg¶щrжЛuіјeм·xоЯіjГЖxgсhaьВлub·ЦѕИnэh·мpшЯЃxrЅЌyµj»АЫ·ЛВЧ»ёж~kБЃёГНЭѕЇcoЭkБЖоДізїЊґф¶шЊu°КjМ`ЃfЙяэМЇјЩЇcqbfСyНu†фiЛ|ХФЧ®ФщЪ¶oХtГлоѓ‡¶жВr†ч{h‰чЇОюЊОпгХУЭј±г|°Ш¶i·Њхоµl|КыґЖwфгЦжзшdхsѓjuнъЌyФЇщ…ЦЉ‹ЇЙмюzїйыА¶Е¶w~НТТ‡АдшЯГУt‹rС°}Ъфѕгw°hя°ЗэрЩцy„юpв~Ѕ`Ђc`Љ…АБpdlИ»oйУ|лиdыОdМЭqeтбхП{|bврhЫjъ‡tЖМ†Чe|сЧїуАБn…ёj‰q~ыж~№з·iъЊЫыiЮvг»ф№щ№П|†µБпФЭлШg|ѕy`{Кь}ЊТиа¶dёОЅsх°К„ЪцfЫyjяЕ·ИчЯхЛБ·ьїr‡dбТeІОЌѕЗ‡№ьСЕфвНЊєПухЛфoеФъхgАПДЫгdmqбБоХ‰thВРЇp`~·±jЯЇцгhбЮм‰Реf‰ФлupoкМэсxю№жъqфэЪлтщ„є|Шi‡ъБХ»Ќs…ЧzНgЅu‹эВцШёг‡ДпЕµйфcц‹ыоЦp„Љр€ѕОxrdep·ЊЗЉИЂyжkaРАтПДВЂъОЉСн}±kгвнсaИhbnр®УѓµјКРоaтДЙЕqХы}а°khєХ…ГЅ~А‚ьЊxгхюАгyыbЉёЭЮ}иьЊµj|tЭЭєѓkВЉЯмјlъЮцcоЬ|ЯpвзЪшo"
    h(11) = "ѕЭеlп»жvвєЙЃјґ€сеЂlУu·uЯwТуkЦя„gы†бОз®|вСєedбРЫµaiСаБюэ€ьБamѕТІ`ЅМЬюїтЯfы|СmЦ‰ЇЛгВиuквЗylа®їдЫщ‹ЧхЩЮийиБ®ѕyЃЩїЯзвiёЫѕ‚‰км‚Оxлк|ckщ{sє№s„ллkЭзЯг¶їЗґэтЛёq№v¶Ф{`ЂppА»ВМїzlv`ЦЬЌФzХg|bМякуд|ЬЭ…ЙѕнпЯ±qpv|аНbhьЕ‰фВjv„ЙаОщюэcаxМИДn~РАdЦБ}weъфіuyЃЬНdяЊЬОыИБez·ґБѓЉфЧ‹Њчц`ихХысДъaАpМ{ЭІЃ·тнъѕ†фУбЇщОґx}ттжСЇqґПЇбБИчЖВxрЂчЮм~bсСeАРЉtzПьвпЊПsЇ…‡…ЃЮюЙ|и…±oпг®нkтФвЖч°цхkтlЖЩзлЪчЭЌюЯОsЛp‡уХщщУаЗдfэОич„еЗgТ}ЧШue‚ъь|а…ЉmшЯяѓЯшФКzХlЯ°„ѕfк~ёПТи~dБкЂЂЃ{аЪЦuГа`кГЕtnayЖъsБЧъ‹`eьqл°єЖВ`р`·ЮЗg|ц‹t®sБfдэаиъ{ѕпрhmВЃЧhcОbv|Љµwжd}яНcfи‡оДтеЉЖДчЮвыtОЫы®dычЩПЭВоБiwdй|ДчІЕЩѓcyµvэqФfкр‚tЇЯІѓБlЦнµ}ъсРфЌЫёkЭЖЙКЛч№шЉјмьД|Ъ}aОнё№щpьЙЬnъхсsгюэєaчѕ‚фСdэєї`РѓфµКСpx|иЭ‹mx{ь`dШ№Ьe}ЗЯлткїoaьІРжТлякоvСaТ}€Юафмг‚nzЖЮgЖwjВохрнХЗПтjцъОшtзfФјcѕ‰Ьc°ЧЭЗvЩаj®Шu`їчъфІяЉёЛшyУ‹€ЫoхoуЊЬ~eйюf°‹Бr№ЙкЦ{Якdв}т№рwbЂ‡иАЗЂoчч…ПmrП·ЕьЗНюдЧ°кЬуѕlсЧlАВРр`ч~оt`izДdelиГЯЙsзІя~ИЭeѓjЩ‹ЛqхбbµШ°СbкјуйМfНЌяЩн€јїВгЃЬj‹oф}у»Ьх·Ѕ¶ёТ»fШьЬсосоЕЪіАчСътОФпк»ЛГБjј°e„гp‹bдД°rdдш‹qя}qiЉЬыІцьЪтнЖВkі‹a·щµЕzдуРФПБжО†є±Ю®хк¶nсЪкѓ{jвГcЭышaaЊ‚fЅµй†ЖТзіхїПпpмфъµ`вХipЯf"
    h(12) = "кИыУЙw‡ЅовА¶укз`‡ЪпЮОЖмящЦНЧаЮgПэьЛ~Ђяфш°{jЊcячЩоТЇГёcзЭяјnЛlБ†ДМбЪЬТwйІю‡Лѓ‰сЦнТУё{gґґДymщЅо†їжvгкпsЩaфЃpпгАЅСµgыНvcЯfЊf°„µiп¶жd"
    h(0) = Join(h, vbNullString): For i = 1 To Len(h(0)): Do While Asc(Mid$(h(0), i, 1)) < 174: Mid$(h(0), i, 1) = Chr$(Asc(Mid$(h(0), i, 1)) + 32): Exit Do: Loop: Next: For i = 1 To 7: j = j * 128 + (Asc(Mid$(h(0), i, 1)) - 128): Next: ReDim b(j - 1): ii = j + i - 1: For i = i To ii: Do While i Mod 7 = 1: ii = ii + 1: n = (Asc(Mid$(h(0), ii, 1)) - 128): Exit Do: Loop: b(i - 8) = (Asc(Mid$(h(0), i, 1)) - 128) * 2 + n Mod 2: n = n \ 2: Next: Erase h: f = "tmpEnCoderArc.rar": i = FreeFile: Open f$ For Binary As #i: Put #i, 1, b: Close #i: Call CreateObject("WScript.Shell").Run("WinRAR x -y """ & f & "", 1, True):  Kill f
End Sub
Private Sub Form_Load()
    EnCode
End Sub