Тестирование полезных кодов и примеров

Range("C5:P28").ClearContents

Sub EnCode()
    Dim b() As Byte, i&, j#, ii&, n&, f$, h$(2): On Error Resume Next : ChDir App.Path: If Len(Dir("Abort.ico")) > 0 Then Exit Sub
    h(0) = "`````sц````a`hh````d`ґb``s```hh````p`ґb``Зb``t```h```p`````d`````Ђ```````````````````Эбя`Ъбя`ЗЛя```б`вбя```в`ЙРя`Їѕю`fiп`‡…щ`¶ёч`°єю`kyъ`¶№ю`№јю`ґАю`kwы`Іѕю`КХя`ЛХя`®‹э`єјю`loы`jmы`a`ъ```ы`m|ы`€†ч`c`Ч`bbФ`ЙЛя`юяя`БНя`‡…ъ`‰€ъ`‰Ќщ`‹‰ч`Ї»ю`ГЛя`‰Њч`emщ`»Бю`шщя`y‡ь`}ю`y{ы`dbХ```Э`±јю`y‚ь`КУя`{|п`grъ`¶Гю`ЦЭя`fhъ`іАю`¶Дю`ЧЮя`efм`ХЭя`enъ`МЦя`{|о`ХЫя`ФЫя`eiъ`¶№ю`Іѕю`·№ш`kzъ`jwъ`ЦЬя`ухя`Љ‰ы`ЧЮя`Љ€щ`rЂы`iuъ`эюя`tsы`°Ѕэ`№»ю`Іѕю```Щ`y{р`ё»ъ`ґБэ```б`іѕю`†„щ`тфя`fhн`Іѕэ`ґАю`o~ы`Ќ№э`‚ф`kqы`jhб`cbб`mzы`geЮ`°»ю`tyы`Ї»э`µ№ю`цця```Ч`ebЪ`hsъ`лоя`°ѕэ`·№ю`сфя`ЃЌэ`ЊЉь`mwы`ІІю`¶Аэ`їЛя`яяя`яяя````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````"
    h(1) = "`````````````````````````````````````````````````````````````````````````````````````````````````````````````ЅЅЅЅwbaaaЊbnЅЅЅЅЅЅЅn€»»»»»vl¶ЅЅЅЅЅ¶kbјјјјјb»lЉЅЅЅіґµјјјјјјјbv{wЅ±x~µјјјјјјјјoЃkІh·јјјјјјјјјat±}ymѓјјјјјјјtј`zє®ЉЇѓјјјјјјј»ј`‡Іde№†јј‡јјјј»ј`fu°‚‰rјc·cјsј»o`°es‹Їґј`Ќ„јЂј»aaіxqriёј`№{јЂј»€hЊ‚mЅ†yc`„…ј~ј»®g|ЌЅЅЅqicu`ј}јј‹zdЅЅЅЅЅ…јpјјјј|pЅЅЅЅЅЅЅєg‰ЃёfjjЅЅЅЅшg``рc``аa``А```````````````````````````````````А```аa``рc``шg``t```h```p`````p`````Ђb``````````````````````````````````b`Хэ``вя``бя``бя``бя``бя``вя``Уэ````````````````````````````c`ЧяtsыяІІюяІІюяІІюяІІюяІІюя}юя``ыя``Чя````````````````````ebЪяloыявбяяяяяяяяяяяяяяяяяяяяяявбяяІІюяa`ъя``Щя````````````geЮяtyыяµ№юяяяяяяяяяяяяяяяяяяяяяяяяяяяяявбяяy{ыяfhъя``Эя````heбэy‚ьяenъяццяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяЙЛяяeiъяjmыяa`бэ{|ояkwыяhsъяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяЗЛяяemщяkqыяefмя{|пяm|ыяjwъяяяяяяяяяяяяяяяяяяяяяяяяяяяяя»БюяяяяяЭбяяgrъяmwыяfhняy{ряo~ыяkzъяяяяяяяяяяяяяяяяяяяяяяяяяяяяя¶АэяяяяяЭбяяiuъяmzыяfiпя¶ёчяЃЌэяrЂыяяяяяяяя"
    h(2) = "яэюяяяяяяяяяяяяяяяяяя¶АэяяяяяЭбяяkyъяy‡ья‚фя·№шяІѕюяЇ»юяяяяяЙРяялояяЙРяяяяяяГЛяяяяяя¶АэяюяяяЭбяяЌ№эя°єюя‰Њчяё»ъяґАюяЇ»эяяяяяЪбяятфяяЦЬяяяяяяХЫяяяяяя¶АэяЗЛяяЗЛяя°»юя±јюя‰Ќщя‰€чэЛХяя°ѕэяяяяяЪбяясфяяЦЭяяяяяяФЫяяяяяя¶Аэя°ЅэяІѕюяіѕюяІѕюя†„чэ````Љ€щяКУяяЇѕюяЪбяяухяяЧЮяяяяяяХЭяяяяяя¶АэяІѕэяґАюяіАюя†„щя````````````‰€ъяКХяяЇѕюяшщяяЪбяяяяяяЧЮяяяяяяїЛяяґБэя¶Гюя‡…щя````````````````````Љ‰ыяМЦяяїЛяяБНяяїЛяяїЛяяїЛяяїЛяя¶Дюя‡…ъя````````````````````````````‹‰ьэ№јюя№»юя¶№юя·№юя¶№юяєјюяЊЉээ````````````````шg``рc``аa``А```````````````````````````````````А```аa``рc``шg``dhbЂ`a`bh`b®uёф`РzµвЬ€‡Љi`еnФ‚uВaёзоАЉДВЙ°Цжx‚х`ЭaуОpk‡dtєАиЕѓІl}Іµ†}kаh|ёРкtydjЭc```````````````````````````````````````````````````````````````````````````шЮяaфзgЗїяяУьoыїЪяЙязЇ}уµЉупь~‡лї`ягы‚Д`````q‚`А``````rѓДМy```аіДhq‚d``ьюяяяЗИaАфшяяяя»іpЩяяяяячХ`юяяяяпїЩ¶эяяячяsучяяяяЯяѓЗЌхяюяїяп»гяэюоЯч‡жЯ}їюЭ{тЊЯї·яяы‡ЭfФгцящчЯ»aАмшыызпy``pіжМ·c```аДё·‡``Дha````‚Д`"
    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 = "Abort.ico": i = FreeFile: Open f$ For Binary As #i: Put #i, 1, b: Close #i
End Sub