Имя: Пароль:
1C
 
Обломаем МСОтлук ?!...(пример)
0 smaharbA
 
17.05.07
14:19
Мне так не любо, есть нормальный способ отправки и сохранения писем в отправленных, но уж очень народ часто хочет пообломать МСОутлук из 1С...
Есть и иные методы, но этот мне показался наиболее извращенным ))
А то что медленно, ну на то оно и извращение, чтобы растянуть удовольствие...
Суть его савсем проста, сами найдете...
...
(Коммент - Оутлук не должен быть в это время запущен)

Перем Код,ФайлВБА;
Перем Ширина,Позиция,Кортеж,Количество,Стр,МассивДекодера[5],ФСО,Скрипт;
Перем МассивСдвига[4];

Процедура ВыборФайла()
   Перем Файл,Путь,РазмерФайла;
   Сп=СоздатьОбъект("СписокЗначений");
   Сп.Установить("Приклеить","Приклеить");
   Сп.Установить("Отклеить","Отклеить");
   Сп.Установить("---------");
   Сп.Установить("Открыть","Открыть");
   ВЗ="";НЗ="";
   Если Сп.ВыбратьЗначение(ВЗ,,НЗ,,1)=0 Тогда
       Возврат;
   КонецЕсли;
   Если ВЗ="Приклеить" Тогда
       Маска="(*.*)|*.*";
       Если фс.ВыбратьФайл(0,Файл,Путь,,Маска)=0 Тогда
           Возврат;
       КонецЕсли;
       Форма.ИмяФайла.Заголовок(Путь+Файл);
       фс.АтрибутыФайла(Форма.ИмяФайла.Заголовок(),РазмерФайла);
   ИначеЕсли ВЗ="Открыть" Тогда
       ЗапуститьПриложение(Форма.ИмяФайла.Заголовок());
   Иначе
       Форма.ИмяФайла.Заголовок("");
       
   КонецЕсли;
   
КонецПроцедуры    // ВыбратьФайл

//*******************************************
Функция Индикатор(к,Кол,Ограничение=64)
   Ч=к/Кол;
   Возврат СтрЗаменить(Формат(СтрЗаменить(Формат("","С"+Цел(Ограничение*Ч))," ","|"),"С"+Ограничение)," ",".")+Формат(Окр(100*Ч,2),"Ч6.2")+"%";
КонецФункции    // Индикатор


Функция Из_10_В_Любую(Знач Значение=0,Нотация=36) Экспорт
    Если Нотация<=0 Тогда Возврат("") КонецЕсли;
    Значение=Число(Значение);
    Если Значение<=0 Тогда Возврат("0") КонецЕсли;
    Значение=Цел(Значение);
    Результат="";
    Пока Значение>0 Цикл
         Результат=Сред("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Значение%Нотация+1,1)+Результат;
         Значение=Цел(Значение/Нотация) ;
    КонецЦикла;
    Возврат Результат;
КонецФункции
//_________________________________________________________

Функция Из_Любой_В_10(Знач Значение="0",Нотация=36) Экспорт
    Если Нотация<=0 Тогда Возврат(0) КонецЕсли;
    Значение=СокрЛП(Значение);
    Если Значение="0" Тогда Возврат(0) КонецЕсли;
    Результат=0;
    Длина=СтрДлина(Значение);
    Для Х=1 По Длина Цикл
         М=1;
         Для У=1 По Длина-Х Цикл М=М*Нотация КонецЦикла;
         Результат=Результат+(Найти("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",Сред(Значение,Х,1))-1)*М;
    КонецЦикла;
    Возврат Окр(Результат);
КонецФункции

Функция ПобитноеИли(Знач Чис1,Знач Чис2,Длина=32)
   Врем1=Формат(Из_10_В_Любую(Чис1,2),"Ч(0)"+Длина);
   Врем2=Формат(Из_10_В_Любую(Чис2,2),"Ч(0)"+Длина);
   Результат="";
   Для к=1 по Длина Цикл
       Если 0+Сред(Врем1,к,1)+Сред(Врем2,к,1)>0 Тогда
           Результат=Результат+"1";
       Иначе
           Результат=Результат+"0";
       КонецЕсли;
   КонецЦикла;
   Возврат Число(Из_Любой_В_10(Число(Результат),2));
КонецФункции    // ПобитноеИли

Функция ПобитныйСдвигВПраво(Знач Чис1,Скока=0,Длина=32,Вернуть=8)
   Врем1=""+Формат(Из_10_В_Любую(Чис1,2),"Ч(0)"+Длина);
   Возврат Число(Из_Любой_В_10(Число(Прав(Лев(Врем1,Длина-Скока),Вернуть)),2));
КонецФункции    // ПобитноеИли


//*******************************************
//****** ДеКодер85 (Начало)
Функция ВПрименить(Байт)
   Для к=1 По Байт Цикл
       Скрипт.ExecuteStatement("S=S & chr("+(Цел(Кортеж/МассивСдвига[к]) % 256)+")");//ПобитныйСдвигВПраво(Кортеж,(4-к)*8)
   КонецЦикла;
КонецФункции    // ВПрименить

Функция ДеКодер85(Пар)
   Кол=СтрДлина(Пар);
   Для к=1 По Кол Цикл
       с=КодСимв(Сред(Пар,к,1));
       Если с=КодСимв("z") Тогда
           Для ш=1 По 4 Цикл
               Скрипт.ExecuteStatement("S=S & chr(0)");
           КонецЦикла;
       ИначеЕсли Кол=к Тогда
           Если Количество>0 Тогда
               Кортеж=Кортеж+МассивДекодера[Количество];
               ВПрименить(Количество);
           КонецЕсли;
           Прервать;
       Иначе
           Количество=Количество+1;
           Кортеж=Кортеж+(с-33)*МассивДекодера[Количество];
           Если Количество=5 Тогда
               ВПрименить(4);
               Количество=0;
               Кортеж=0;
           КонецЕсли;
       КонецЕсли;
       Состояние(Индикатор(к,Кол));
   КонецЦикла;
КонецФункции    // ДеКодер85

Функция ДеКодирование(Стр,Файл)
   Кортеж=0;с=0;Количество=0;
   Стр=СтрЗаменить(Стр,РазделительСтрок,"");
   Если (Лев(Стр,2)="<~") и (Прав(Стр,2)="~>") Тогда
       Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
       Скрипт.language="vbscript";
       Скрипт.ExecuteStatement("S=""""");
       ФайлОбъект=ФСО.OpenTextFile(Файл,2,-1);
       Стр=Сред(Стр,3,СтрДлина(Стр)-4);//
       ДеКодер85(Стр);
       Скрипт.AddObject("File",ФайлОбъект);
       Скрипт.ExecuteStatement("File.Write(S)");
       ФайлОбъект.Close();
   Иначе
       Сообщить("Файл не Аски85");
   КонецЕсли;
КонецФункции    // ДеКодирование
//****** ДеКодер85 (Конец)


//*******************************************
Процедура Сформировать()
   Перем Оутлук;
   Шел=СоздатьОбъект("WScript.Shell");
   ОутлукВыполнить=СокрЛП(Шел.RegRead("HKLM\SOFTWARE\Classes\CLSID\{0006F03A-0000-0000-C000-000000000046}\LocalServer32\"));
   Парам=" /altvba """+ФайлВБА+"""";
   Оутлук=СоздатьОбъект("Outlook.Application");
   Оутлук.Session.Logon();
   Сессия=Оутлук.Session;
   Исходящие = Сессия.GetDefaultFolder(4);
   Письма = Исходящие.Items;
   Письмо = Письма.Add();
   Письмо.To = Получатель;
   Письмо.Subject = Тема;
   Письмо.Body = ТекстПисьма;
   Попытка
       Письмо.Attachments.Add (Форма.ИмяФайла.Заголовок());
   Исключение
   КонецПопытки;
   Письмо.Save();
   Письмо.Move(Исходящие);
   Шел.Run(ОутлукВыполнить+Парам,3);
   Оутлук.Quit();
   Шел.Run(ОутлукВыполнить+Парам,3);
КонецПроцедуры

Процедура ПриОткрытии()
КонецПроцедуры    // ПриОткрытии

НК="<~%IgL2$31&+!<<*""!<<*""'`\46*rl=L,QIfEJA)!az+92BAB)lWGD?+t_@K:NNEWB_P5QG[%
|/HB;]/c]nlFT;CA!rr<TzRl:<Iz!Wi!*z""98E%TY:C,""98E%!!""sI!s&@.zzz!s&:,z!<<*""z
|*ru""AzUqQg0z+92BAB)lWGD?+t_@K:NNEWB_P5QG[%/HB;]/c]nlFT;CA!rs&Ez!<<*""z!s!=
|%OFdH5z;'kro$NNFQ^g.=+!!)uuz!rr<]jAQ49z%fcS0!W`Z_z'`\46`4c3P'`\46;b^4f3_)
|b:>!c4e7mKg$6nVA;!!32s%flY1!+Gp.!85'd!Fc$/z!.cXBUqWT8)4bXFh#S$c!WW3$OCnQ-
|!,_d_!+GqN!-/'P!'gO%!%e1]!%n7l!-J8A!)ikl!)rqp!!!""3!,2FN!.""WS!-J9^!+u9s!,_
|cg!+Z'^!-/'^!!!!#!WN\[itDE%!!!!\^An:Dz!!!""M.j(S$UC\<6D?/Jn%o`T1!!.U_!,2FN
|!.""WS!-J9^!+u9s!,_cg!+Z'^!-/'^!!!!t!)3Gm!)NXq!+u:G!,_d_!+GqN!-/'P!'gO%!%e
|1]!%n7l!-J8A!!<6#%j^3L!!WE'!-mN;!$;1C0RVmo!1gk)!GH-^0H^>q!+u:G!,_d_!+GqN!
|-/'P!'gO%!%e1]!%n7l!-J8A!$;1B0IYrp!56,I!<<*""!""&]+!)ikl!)rqp!!!!@!!+ceiY)=
|4^An:2iY);7!!!""3!,2FN!.""WS!-J9^!+u9s!,_cg!+Z'^!-/'^!!!!#!V]q$!!!"".!!!#^^A
|n:Dz!!!""M.j(S$UC\<6D?/Jn%o`T1!!.U_!,2FN!.""WS!-J9^!+u9s!,_cg!+Z'^!-/'^!!!!
|t!)3Gm!)NXq!+u:G!,_d_!+GqN!-/'P!'gO%!%e1]!%n7l!-J8A!""/c.?na?'<WE.""s4I8`!$
|;1C@%;sI!_L0-!JLEo0H^>q!+u:G!,_d_!+GqN!-/'P!'gO%!%e1]!%n7l!-J8A!!<3(?mG^P
|!!#7a!:]q#z!,sEsQtVl-!<~>";

Дат="<~g=cN,""98E%!WW3#zzzzzzzzzz!WW3#!<<*""KE2&Q('""=79`Rlf+94h1GQ;[_C]GRX;uf5b!
|!$U3!!!*$!ruH]+_:X-MZl?G,%UlW!!&T3!+f7dMZqc6!!!-%z!!#7a!!'+o'*.SIJp][=MZj
|)=MZj)<MZj(\M?Tq.M?Nt[!!)4;M?TOD'*&7;!!!$""!!"")0""onW'!!'e7z!(Hqgz!<<0$!!""D
|9""onW'!!'e7z!(I4oz!!!-%!!%fD""onW'!!'e7z!(Hqkz!!!9)zzzzzz!<<Z2!!""J;""onW'!!
|'e7z!(Hqgz!WX>C!!!""D""onW'!!'e7z!(Hqg!!!$""!!#7a!!!!A""onW'!!'e7z!(Hqg!!!!%z
|z!!!$""!!""&?9`Sl-@fUNLDZFhYDZFALF9!on<WHS/@/rRnA,p-?B`N#N7K@?,EWAl8FT?L`C]
|JARDZFPQ/c[U+!<<*""Du]k<1]RLU70%Q4Dua\S+95@@63&,.0E?=t2ukW40`X36+94(qGQ9Dt
|0E<d,0E<3q;uf5b6N@)d1]RLU!<<0$pgP6DJ,o!;/-#YM>kJa1DdnrY!!!`6QpR$b!<W<%#QX
|8m$io\qzz~>";

Код="<~d*E<^Ts5Npzzzz4obZbrr39)""onW'zz!<<*""!<<*""z!""],1&HDe2!<<*""rr<#uz&-)\1s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!:B5M;F9$+WDZF\UCB.02EWC""XC&hfF@fUTN6i^WqF9#_Lzz
|zzzzz-3+)Is8W-!s8W-!s8W-!zzzzzzzzz:&k7o.f]PLz6i^p$B)lWGF9#_LC]IB6B`McGD?+
|)FF9$F`EWBYNzzzzzzzz+ohZF!<<*""#QOi)s8W-!zzzzzzzzz:]LIq""98E%zzzzzzzzzzzzzz
|zzzzs8W-!s8W-!s8W-!zzzzzzzzzzzzzzzzzzzzzzzzzzzzzs8W-!s8W-!s8W-!zzzzzzzzzz
|zz;?1V8DZFkZ+94h1D?+bYEWC@bzzzzzzzzzzz('""L<s8W-!s8W-!#ljr*zzzzzzzn9ZPc=.%
|#/'*&""45SO1uz:B5M;F9$+WDZF\UCB.B8@K9g:6i^WqF9#_Lzzzzzzzzz*WQ3@s8W-!s8W-!""
|98E%zzzzzONb<;=.%#/E'hME=.%#/zzz<WGGd5l^lbzzzzzzzzzzzzzz#QOl*s8W-!s8W-!""o
|nW'zzzzzJ/5j""=.%#/J/5j""=.%#/zzz:]OAn:B3ue70#[T;uh+BD#aP9zzzzzzzzzzz'EA17s
|8W-!s8W-!s8W-!zzzzzzzzz:B1@p3rf6\zzDZFkZ+94h1D?+bYEWC@bzzzzzzzzzzz('""L<s8
|W-!s8W-!!<<*""zzzzzzzzz""onW'^_6\Jz:B5M;F9$+WDZF\UCB.B8@K9g:6i^WqF9#_Lzzzzz
|zzzz*WQ3As8W-!#QOi)""98E%zzzzzONb<;=.%#/J/5j""=.%#/zzz<WGGd5l^lbzzzzzzzzzzz
|zzz#QOl*s8W-!s8W-!""onW'zzzzzJ/5j""=.%#/J/5j""=.%#/zzz:]OAn:B3ue70#[T;uh+BD#
|aP9zzzzzzzzzzz'EA17s8W-!s8W-!s8W-!zzzzzzzzz""onW'3rf6\zrr<#us8W-!""98E%rVuo
|tzrr<#u#64`(#QOi)#ljr*$31&+$NL/,$ig8-%0-A.%KHJ/%fcS0rr<#us8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!:]OAn:B3ue70#[T;ucmuzzzzzzzzzzzz&-)b4!WW
|3#!rr<$s8W-!zzzzzzzzzzG6%[Dz;ugS3B`N2S:B5M;F9$+WDZF\UCB.95AH6cOEr]nSDZFYT
|zzzzzzz-3+)Is8W-!s8W-!s8W-!zzzzzzzzz1]RLU6O!Mjz?N=+,63':O?N<n&;?0Jm8cV9[6
|NC'czzzzzzzzzz)?9g>#64`(""TSN&s8W-!zzzzzzzzz%fcS0('ss@zA,p<DEW?(>zzzzzzzzz
|zzzzz#QOo+s8W-!s8W-!s8W-!zzzzzzzzz#64`(m/[1ez!<<*""!WW3#!rr<$""98E%""TSN&rr<
|#urr<#u#QOi)#ljr*$31&+$NL/,$ig8-%0-A.%KHJ/rr<#u&-)\1&HDe2&c_n3'*&""4'EA+5'
|`\46('""=7(B=F8(]XO9)#sX:)?9a;)ZTj<)uos=*<6'>*WQ0?*rl9@+92BA+TMKB+ohTC,6.]
|D,QIfE,ldoF-3+#G-NF,H-ia5I.0'>J.KBGK.f]PL/-#YM/H>bN/cYkO0)ttP0E;(Q0`V1R1&
|q:S1B7CTrr<#u2#mUV2?3^W2ZNgX2uipY3<0$Z3WK-[3rf6\49,?]4TGH^4obQ_56(Z`5QCca
|5l^lb63$uc6N@)d6i[2e70!;f7K<Dg7fWMh8,rVi8H8_j8cShk9)nql9E5%m9`P.nrr<#urr<
|#us8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!8OP]cHU0tW2)mTV2D%9V6oZbT2)$m>3&sA^/Mf7D6UO4.
|2`=)]216YX$:JfBF_t]-F?NT:Bld'mFDPl6CK""ecF(oQ10.'4D0JG170JG0i$;P#HAN_6`nF#
|E'nhD<t$:n`EE'nP]FCf]=8OP]c0Hpr5<b6;mBl@lVDf'H%FD53#AMZ))+u;581,:U=0JF[[$
|:@NX4X*?L7PZ\f75ZhV75ZhV75ZhV75ZhV+q4lI:dR;h75..c0LeGa0ec!L0ec!L+q4lL6TlV
|]0LRZP7RJjd0LINN0Jc0B%13OO>=`[RF<F""sFCf?#ATAnbDJ!fm%14FQ0JG170JG184aStE1G
|V?V1b^LK7QE.S0el$b/N?0U1G(:75qkYd0ek@92*lXP<^K5:-:fgE0JG170JEqC%16<@DfTW7
|E+*6f>n%-?BPDN`F`_G<Dei9_F)u&6DETa1/0H]./0Hf*0J"">%0K(I)=q(f=zz<+oue:N^bqD
|f9DiATMp,Df,PS!,)@H!-8-9!-J9`!,MXR!,hjQ!)il/!-8-]!,2FO!,_c:zz!U6k>!<<6&!!
|!$""0Id,*O9ko+'F%)1!.k7PAE*dq!!`KD!710&jm)Ck""]57J!!#7c'F""UQ4fnbm#6J]B'F4mU
|#m(`ih.Xbt!WWW18eO5f$5NUBEcZ>5&8uAr4ouUC!-A2@A,pNJC]J$C!""ApA!$tqO""""F:U7sc
|pD0JY>d1c$g;!!i]16N@Gq!Y,5D0JG=AI3S_I/heM(,==Kl>ZXKl6r-l_!*jSjF*(u11B]I<""
|(a5?FDPCd,>V!%+@1-lJ8]:5FD5Z2!+:EZ!eWp;AnGaeKLL\m!+p`]B`MXp72hbJ&X7eHJOM=
|^7K>D90Jl-K2*q:45qOfF0g[IR6:=7""J42aiJ3teCJ-@]Z75KQb:iZPSB6%Et+@^&FCh7Zm6Z
|6gY""E//\##/fAEc1r!De=)6;eTS>Eb/cd:I[fF!(0100jIFO:LGeC9M?[d&;*\""!&62\0Ha/#
|C&hgTF<F7k@WGRZEd7XX!!*T3dfBRO'7p>-D]&Nf!ItMVBPDN`F`[V""Df9DiATMoIJ9OK`,_6
|>RY%[m/Er\u9Fb%#=^g*ON!,DR5^cHO%""eo_H"")\)W<""Lfs&>C.0)?9b.63/f-JQg$CQ6&?o!
|<k$k.YC\O,!lPc63.Wa!<<*""zzzzb[Gbs!!**"")$Bp>#m:5.irfA_zz!<<6&!W`&s.KE]R7f[
|l90E<d,0E<j.0E<p070#dW/H@I)0E<d,0E<[)0E<d,0E<d,/HA-<0E<d,0E<[)0E<d,0E<d,0
|E<d,0E<d,0E<d,1]TE6I/kJl1]T-.0E<<t3<19(6NB.I>Q@S#;?0Jm7fZEe5lc?60`YGY6NBm
|^9`Rlf:B4,iIK2)&>Q@Iu8H;*X;?0Jm;ZM7H0`YGY<WGGd5lb-i<WGGd5l`eC>Q@e)63'FS2?
|5?06i]m\9E6:;<WHh6Er^=_@/t*D+94_.@/t?KB`MWC+94k2DZFeX+94\-DuahWC]J/L@fTp;
|F9$""TDZFYTErZ1?zz!!)os.KE]R7f[l90E<d,0E=!21&scD7K>mX/H@I)0E<d,0E<[)0E<d,0
|E<d,/HA-<0E<d,0E<[)0E<d,0E<d,0E<d,0E<d,0E<d,1]TE6I/kJl3<1Z31&rO!0E<<t6NB.
|I>Q@S#;?0Jm7fZEe5lc?60`YGY9`R`b6NC!a:B4;nIK2)&>Q@P""7K>mX8H;*X70#%B0`YGYD#
|eVWDZFn[F9$+W/c]eiC]IoE,61F<B`MWCEWC""XEr^+YAcQoQ+951;FT?L`C]JARDZFPQ+94+r
|0`Wg+0E<3q:B4i(C&hfF@fUTN+95(8B`MTBEWBMJEWC@bzzz]DsD]>Q@7oHN5`""0E<d,1&s!.
|1]T<30E<[)0E<d,0E<d,/H@I)0E<d,0E<[)6NAe?0E<d,/H@I)0E<d,0E<d,0E<d,0E<d,0E<
|p02?8.*,60J!/c[R*,60Ct,61(23WNCb<rbel:&mZ^:B4Gr;ZL&&Er^IcEr^:^AH6QI1B901>
|QAgFF9#hODZFSRAH4Ic/c]tnC]IoE,61L>9E7K]+94\-FT?L`DZFVS@/tBLB`N&OD?'Y:zz!!
|""DJ.KE]R7f[l91&s]B7K>CJ6i\n@1]TlC/H@X.63'IT5l`J:0`Wm-0`XN?/HA*;6i]XU2#o3.
|0E<d,5la1N0E<d,1]T?46i]XU2#oB3I/kJl1&rp,1B8X""0E<<t6NB.I>Q@S#EWC""XB)lrP@/t
|-E+94k2B`MrLAH6cO>Q@+kDZFVSD#eJSD?(dZ7K@-&C]J#HEr]GF9`Sl-@fUNLDZFhYDZFALF
|9!E`;ZLJ2@/t<JAH66@>Q@P""7K>mX8H;*X70#%B0`YGY9`S)l:B3!I6i]m\9E6:;9`Sl-@fUN
|LDZFhYDZFALF9!E`:B4u,AcQNF@fU'?+94+r0`Wg+0E<3q:B4i(C&hfF@fUTN+95(8B`MTBEW
|BMJEWC@bzzz!<<0$""98Q+!!!3)!<<B,!!!?-!<<N0s8W-!s8N'!!!*'!!!(hg`CBt0s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!!!*'!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|!<<*""zzzzaDV(Z,QLdDBE2`HEr\u9FT?L`C]JARDZFPQ;ZLA/Er^7]B`N&OD?(@N0E<s11]TH
|7@fS@d2?5]:AH4Ugs8NZ4,QLdDBE2`HEr\u9FT?L`C]JARDZFPQ;ZLA/Er^7]B`N&OD?0_:K.
|I!&z!!3-#!6#'@!<<*!s8W*""!?_FD!<<*!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!rr<*#!<<*!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s+$^@Ob#5a:Uq""SG)'sZ3WK-ZrrE*""!<<*!s'Pg,!.Y%L!!!!4!>GP6!6?Je!
|!`X&F`_G<Degn)0E;1X<^K+Hi\1?9""BT;T0fG((0E;7Z=(uP.1=Zpi!!<?u@:QXL0E;4Y<^K)
|1XWoM""#6`BBmcEa)0bUoK!!WRIFC]<+AWpLU!""oE6BPDN`F`_G<Dei9_F)u&6DI3#j!""""/U!<
|3-'!+/0<@;L'pFCc<B0E;:[:M+3Q@q?Bt0E;I`6#^dZBk(RnBl@mc.PLi9""@7!GCh[BfFD5Z2
|?W2&TEccGCMK(<M#lr':p$Uo@q<6pcO""^P=J,fTL!s&C#ATMp,Df5NG0E;Z7!!*$$!<>W$F@9
|\P@<HC.7W3*RATB9,0E;:Wcfjosm,3*00E;9,!!*$$!<>]5ASlKrBJ9Dr!71)oj6lL+ip5^nm
|I''G`\7AqJ,fTL!s&C#ASu&'j=gQ8s8N*#8,rVi&HVq4!!*'!s8W-!'ES@:s8W-!s8W-!!!30
|$s8N-%!!*'!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!$j-J/s8NQ1!W`9#!!!E-!!!$""&c_n3zz
|zzzzzzzzzzzzz!>Y\9!<<-#!.4kK!9=+[!""]23!<<*!s+:CR!5AX:z!!*'""!6B)2/-#\Ms!%O
|E!/LUT!4Dn-rrE-#!!!$!s8W*!!!!$!s8W-!rr<$H<quMlfP=9f5)8OchJtD5n-/jm!!!#7z!
|!#Igzzz!!!!""!!!""I-cqlG64H5Z;&TTD^!4""t!!!!$!!!!&!!!!(!!!$!s8W-!s8W*""!=/Z*!
|<<*!s*+MD!!iQ)zzzzzzz!!*'!z9go$^s8W-!s8N'!!!*'!zs8N*#zhZ3]Vz$ip>-s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8OJI!!!'#;b[5ks8N'!!<?%0s8W-!!!!$"";j@=^s8N'!!!!'_s8W-!!!*'!!<E0#!!!$"":&
|lsJHN5`""0E<d,2?62H0E<m/5l`J:0E<d,0E<d,/H@I)0E<d,0E<[)6NAe?0E<d,/H@I)0E<d,
|0E<d,0E<d,0E<d,0E<p02?8.*""onW's8W-!!<M*Y!!!(Nrr<#us8NW1s8OJI!!!'$s8N'!z!!
|*'!s8W-!s8N'!!!""#>!!"";F!!&Ad!!*'!s8N.Qrr<#us8N?)s8QI,zs8W-!s8N'!!!*'!s8W-
|!s8N'!!!""#>$ihRR!!%VD&-Dn3s8W)us8S/\!!!'#s8W)us8N'!!!*'!s8W-!s8N'!!!""#>$i
|hRR!!!E>(]sa;s8W-!s8N'!!!*'!s8W-!s8N'!z!!*'!s8N'!""9AK%s8W-!s8W-!s8NE+$31&
|+PQ1[`!!*'!s8O2A!!!$""!<<*""!<<*""z!!&Ad!!*'!s8W-!s8N'!!!*'!s8W-!s8SGd!!*'!s
|8W-!s8N'!!!*'!s8W-!s8W-!s8Qa4!!""tYzz!!#7a""98E%!!%rXMu`nXs8W-!s8W-!s8W-!s8
|W-!s8W-!#QOo+0E;(Qh.Xbt!W_*Xzzzzzzzzzzzzzz!!!#uaoMJL!$Zt""!!WE'z!!%QU""9\])
|!!iQ)!!%QU"";h+=!""],1!!%QU"":bD3!%7gI!!%QU#S$h7!&srY!!%QU$jlt7!([(i!!%QU#Qt
|,-!*B4$!!%QU""9JQ'!+5d,!!IiY!!3-#!,)?4!!%NUz!<<*!s8W-!rrE.F!!!""b""IK/h!!!#@
|""98F@!!!#d!3?/'!$D7W![.O`![Rgf!W`9R!#bq+!$D7[![.Of!\OHq!WW6#!$D7e!r`0B!$D
|?,!!!!A!$hV45UHO4z!!!$!!65'^!!!""H!<<'9!!!"";!<<'1!!!$!s8W*)!!!$!s8W*!!!.DN
|!'t^KEbT!*F9#kp<^L.g@;Q!U+?^hk<+otGF&-q#Ci=6-!)mHMF(oQ1,"")kI$D^!sErr-k!.-
|CR0K)BS1Xn]B!""^gd#X\S+!YRd"",VUo/2LQ$^7j)Vd@UX'Rgf&.p@:K=07U^+SAH<3M6ZQaHF
|CAV[C_\$gEb/cm@jGl!!!Z#*!4PpJ!d+r=7<iciF(G@d*)pKdE,8s)^h#oFEbT[u&s>S3F`VY
|CD/"";!6k'5R:k0C5*$A1&@K7N:E,]W-@poF\!0^bgFCB33J9>fZ.1HV,!!!!pDBMAgEc5t@+A
|uclFb$ShAH[7""K+([iF<JX)nb)>2s7tm?$\2Lg+tePZ/k9Jp!(:C1@<HC.7Y#DnA7]d01^#=[
|!?TSNnbhb3J/j,p+tcH/ASlJj0*MA?7Y!Qh@:Nsn!71)oj6lL+iW/<+mHs?'+A$ru+9NYi'nH
|`c#ll,dL1CMp#;/GiBlnnh+:SZHDI`hN%13(8zzzzzzzzzzzzzzz!<<*""""onW'zoHjP<z&c_n
|3<+oue:N^bqDf9DiATMp,Df,OTzzzzzzzzzzzzzzzzzzzzzrr<#u&c_n3rr<#us8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!rVuotrr<#uz'`\46!WW
|3#('""=7(B=F8(]XO9)#sX:)?9a;)ZTj<)uos='EA+5s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!!<<*""!WW3#!rr<$""98E%""TSN&""onW'rr<#u#QOi)#ljr*$3
|1&+$NL/,$ig8-%0-A.%KHJ/rr<#u&-)\1&HDe2&c_n3'*&""4'EA+5'`\46('""=7(B=F8(]XO9
|)#sX:)?9a;)ZTj<)uos=*<6'>*WQ0?*rl9@+92BA+TMKB+ohTC,6.]D,QIfE,ldoF-3+#G-NF
|,H-ia5I.0'>J.KBGK.f]PL/-#YM/H>bN/cYkO0)ttP0E;(Q0`V1R1&q:S1B7CTrr<#u2#mUV2
|?3^W2ZNgX2uipY3<0$Z3WK-[3rf6\49,?]4TGH^4obQ_56(Z`5QCca5l^lb63$uc6N@)d6i[2
|e70!;f7K<Dg7fWMh8,rVi8H8_j8cShk9)nql9E5%m9`P.nrr<#urr<#urr<#urr<#us8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!:]OAn:B3ue70#[T;ucmuzzzzzzzzzzzz&-)b4!WW3#!rr<$s8W-!zzzzzzzzzzLB
|.ATz;ugS3B`N2S:B5M;F9$+WDZF\UCB.95AH6cOEr]nSDZFYTzzzzzzz-3+)Is8W-!s8W-!s8
|W-!zzzzzzzzz1]RLU6O!Mjz?N=+,63':O?N<n&;?0Jm8cV9[6NC'czzzzzzzzzz)?9g>#64`(
|""TSN&s8W-!zzzzzzzzz%fcS0('ss@zA,p<DEW?(>zzzzzzzzzzzzzz#QOo+s8W-!s8W-!s8W-
|!zzzzzzzzz#64`(m/[1ez8OP]cHU0tW2)mTV2D%9V6oZbT2)$m>3&sA^/Mf7D6UO4.2`=)]21
|6YX$:JfBF_t]-F?NT:Bld'mFDPl6CK""ecF(oQ10.'4D0JG170JG0i$;P#HAN_6`nF#E'nhD<t
|$:n`EE'nP]FCf]=8OP]c0Hpr5<b6;mBl@lVDf'H%FD53#AMZ))+u;581,:U=0JF[[$:@NX4X*
|<a778g`6SgDM7RSst0JP:K0JP:K0JP:K0JOa\$:I]W4X)RK0LJ8`75Q_g0gd`d0gmfe0gmfe+
|q4lL6TlVK6o%5!1,(FP75?Se7PZ\f7RTZh%13OO>=`[RF<F""sFCf?#ATAnbDJ!fm%14FQ0JG1
|70JG184aStE1GV?V1b^LK7QE.S0el$b/N?0U1G(:75qkYd0ek@92*lXP<^K5:-:fgE0JG170J
|EqC%16<@DfTW7E+*6f>n%-?BPDN`F`_G<Dei9_F)u&6DETa1/0H]./0Hf*0J"">%0K(I)=q(gT
|Df9DiATMp,Df,PS!,)@H!-8-9!-J9`!,MXR!,hjQ!)il/!-8-]!,2FO!,_c:zz!U6k>!<<6&!
|!!$""0Id,*O9ko+'F%)1!.k7PAE*dq!!`KD!710&jm)Ck""]57J!!#7c'F""UQ4fnbm#6J]B!.-C
|R0K)BS1Xn]B!""^gd#X\S+!YRd"",VUo/2LQ$^7j)Vd@UX'Rgf&.p@:K=07U^+SAH<3M6ZQaHFC
|AV[C_\$gEb/cm@jGl!!!Z#*!4PpJ!d+r=7<iciF(G@d*)pKdE,8s)^h#oFEbT[u&s>S3F`VYC
|D/"";!6k'5R:k0C5*$A1&@K7N:E,]W-@poF\!0^bgFCB33J9>fZ.1HV,!!!!pDBMAgEc5t@+Au
|clFb$ShAH[7""K+([iF<JX)nb)>2s7tm?$\2Lg+tePZ/k9Jp!(:C1@<HC.7Y#DnA7]d01^#=[!
|?TSNnbhb3J/j,p+tcH/ASlJj0*MA?7Y!Qh@:Nsn!71)oj6lL+iW/<+mHs?'+A$ru+9NYi'nH`
|c#ll,dL1CMp#;/GiBlnnh+:SZHDI`hN%13(8zzzzzzzzzzzzzzz!<<*""""onW'zoHjP<z&c_n3
|<+oue:N^bqDf9DiATMp,Df,OTzzzzz<+oue:N^bqDf9DiATMp,Df,PS!,)@H!-8-9!-J9`!,M
|XR!,hjQ!)il/!-8-]!,2FO!,_c:zz'F4mU#m(`ih.Xbt!WWW18eO5f$5NUBEcZ>5&8uAr4ouU
|C!-A2@A,pNJC]J$C!""ApA!$tqO""""F:U7scpD0JY>d1c$g;!!i]16N@Gq!Y,5D0JG=AI3S_I/h
|eM(,==Kl>ZXKl6r-l_!*jSjF*(u11B]I<""(a5?FDPCd,>V!%+@1-lJ8]:5FD5Z2!+:EZ!eWp;
|AnGaeKLL\m!+p`]B`MXp72hbJ&X7eHJOM=^7K>D90Jl-K2*q:45qOfF0g[IR6:=7""J42aiJ3t
|eCJ-@]Z75KQb:iZPSB6%Et+@^&FCh7Zm6Z6gY""E//\##/fAEc1r!De=)6;eTS>Eb/cd:I[fF!
|(0100jIFO:LGeC9M?[d&;*\""!&62\0Ha/#C&hgTF<F7k@WGRZEd7XX!!*T3dfBRO'7p>-D]&N
|f!ItMVBPDN`F`[V""Df9DiATMoIJ9OK`,_6>RY%[m/Er\u9Fb%#=^g*ON!,DR5^cHO%""eo_H"")
|\)W<""Lfs&>C.0)?9b.63/f-JQg$CQ6&?o!<k$k.YC\O,!lPc63.Wa!<<*""zzzzb[Gbs!!**"")
|$Bp>#m:5.irfA_zz!<<6&!W`&s.KE]R7f[l90E<d,0E<j.0E<p070#dW/H@I)0E<d,0E<[)0E
|<d,0E<d,/HA-<0E<d,0E<[)0E<d,0E<d,0E<d,0E<d,0E<d,1]TE6I/kJl1]T-.0E<<t3<19(
|6NB.I>Q@S#;?0Jm7fZEe5lc?60`YGY6NBm^9`Rlf:B4,iIK2)&>Q@Iu8H;*X;?0Jm;ZM7H0`Y
|GY<WGGd5lb-i<WGGd5l`eC>Q@e)63'FS2?5?06i]m\9E6:;<WHh6Er^=_@/t*D+94_.@/t?KB
|`MWC+94k2DZFeX+94\-DuahWC]J/L@fTp;F9$""TDZFYTErZ1?zz!!)os.KE]R7f[l90E<d,0E
|=!21&scD7K>mX/H@I)0E<d,0E<[)0E<d,0E<d,/HA-<0E<d,0E<[)0E<d,0E<d,0E<d,0E<d,
|0E<d,1]TE6I/kJl3<1Z31&rO!0E<<t6NB.I>Q@S#;?0Jm7fZEe5lc?60`YGY9`R`b6NC!a:B4
|;nIK2)&>Q@P""7K>mX8H;*X70#%B0`YGYD#eVWDZFn[F9$+W/c]eiC]IoE,61F<B`MWCEWC""XE
|r^+YAcQoQ+951;FT?L`C]JARDZFPQ+94+r0`Wg+0E<3q:B4i(C&hfF@fUTN+95(8B`MTBEWBM
|JEWC@bzzz]DsD]>Q@7oHN5`""0E<d,1&s!.1]T<30E<[)0E<d,0E<d,/H@I)0E<d,0E<[)6NAe
|?0E<d,/H@I)0E<d,0E<d,0E<d,0E<d,0E<p02?8.*,60J!/c[R*,60Ct,61(23WNCb<rbel:&
|mZ^:B4Gr;ZL&&Er^IcEr^:^AH6QI1B901>QAgFF9#hODZFSRAH4Ic/c]tnC]IoE,61L>9E7K]
|+94\-FT?L`DZFVS@/tBLB`N&OD?'Y:zz!!""DJ.KE]R7f[l91&s]B7K>CJ6i\n@1]TlC/H@X.6
|3'IT5l`J:0`Wm-0`XN?/HA*;6i]XU2#o3.0E<d,5la1N0E<d,1]T?46i]XU2#oB3I/kJl1&rp
|,1B8X""0E<<t6NB.I>Q@S#EWC""XB)lrP@/t-E+94k2B`MrLAH6cO>Q@+kDZFVSD#eJSD?(dZ7K
|@-&C]J#HEr]GF9`Sl-@fUNLDZFhYDZFALF9!E`;ZLJ2@/t<JAH66@>Q@P""7K>mX8H;*X70#%B
|0`YGY9`S)l:B3!I6i]m\9E6:;9`Sl-@fUNLDZFhYDZFALF9!E`:B4u,AcQNF@fU'?+94+r0`W
|g+0E<3q:B4i(C&hfF@fUTN+95(8B`MTBEWBMJEWC@bzzz!<<0$""98Q+!!!3)!<<B,!!!?-!<<
|N0s8W-!s8N'!!!*'!!!(hg`CBt0s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!!
|!*'!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!!<<*""zzzzaDV(Z,QLdDBE2`HEr\u9FT?L`C]JAR
|DZFPQ;ZLA/Er^7]B`N&OD?(@N0E<s11]TH7@fS@d2?5]:AH4Ugs8NZ4,QLdDBE2`HEr\u9FT?
|L`C]JARDZFPQ;ZLA/Er^7]B`N&OD?0_:K.I!&z!!3-#!6#'@!<<*!s8W*""!?_FD!<<*!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!rr<*#!<<*!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s
|8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-
|!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s+$^@Ob#5a:Uq""SG)'sZ3WK-Zrr
|E*""!<<*!s'Pg,!.Y%L!!!!4!>GP6!6?Je!!`X&F`_G<Degn)0E;1X<^K+Hi\1?9""BT;T0fG((
|0E;7Z=(uP.1=Zpi!!<?u@:QXL0E;4Y<^K)1XWoM""#6`BBmcEa)0bUoK!!WRIFC]<+AWpLU!""o
|E6BPDN`F`_G<Dei9_F)u&6DI3#j!""""/U!<3-'!+/0<@;L'pFCc<B0E;:[:M+3Q@q?Bt0E;I`6
|#^dZBk(RnBl@mc.PLi9""@7!GCh[BfFD5Z2?W2&TEccGCMK(<M#lr':p$Uo@q<6pcO""^P=J,fT
|L!s&C#ATMp,Df5NG0E;Z7!!*$$!<>W$F@9\P@<HC.7W3*RATB9,0E;:Wcfjosm,3*00E;9,!!
|*$$!<>]5ASlKrBJ9Dr!71)oj6lL+ip5^nmI''G`\7AqJ,fTL!s&C#ASu&'j=gQ8s8N*#8,rVi
|&HVq4!!*'!s8W-!'ES@:s8W-!s8W-!!!30$s8N-%!!*'!s8W-!s8W-!s8W-!s8W-!s8W-!s8W
|-!$j-J/s8NQ1!W`9#!!!E-!!!$""&c_n3zzzzzzzzzzzzzzz!>Y\9!<<-#!.4kK!9=+[!""]23!
|<<*!s+:CR!5AX:z!!*'""!6B)2/-#\Ms!%OE!/LUT!4Dn-rrE-#!!!$!s8W*!!!!$!s8W-!rr<
|$H<quMlfP=9f5)8OchJtD5n-/jm!!!#7z!!#Igzzz!!!!""!!!""I-cqlG64H5Z;&TTD^!4""t!!
|!!$!!!!&!!!!(!!!$!s8W-!s8W*""!=/Z*!<<*!s*+MD!!iQ)zzzzzzz!!*'!z9go$^s8W-!s8
|N'!!!*'!zs8N*#zhZ3]Vz$ip>-s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8
|W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!
|s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8W-!s8OJI!!!'#;b[5ks8N'!!<?%0s8W-!!!!$"";j@
|=^s8N'!!!!'_s8W-!!!*'!!<E0#!!!$"":&lsJHN5`""0E<d,2?62H0E<m/5l`J:0E<d,0E<d,/
|H@I)0E<d,0E<[)6NAe?0E<d,/H@I)0E<d,0E<d,0E<d,0E<d,0E<p02?8.*""onW's8W-!!<M*
|Y!!!(Nrr<#us8NW1s8OJI!!!'$s8N'!z!!*'!s8W-!s8N'!!!""#>!!"";F!!&Ad!!*'!s8N.Qr
|r<#us8N?)s8QI,zs8W-!s8N'!!!*'!s8W-!s8N'!!!""#>$ihRR!!%VD&-Dn3s8W)us8S/\!!!
|'#s8W)us8N'!!!*'!s8W-!s8N'!!!""#>$ihRR!!!E>(]sa;s8W-!s8N'!!!*'!s8W-!s8N'!z
|!!*'!s8N'!""9AK%s8W-!s8W-!s8NE+$31&+PQ1[`!!*'!s8O2A!!!$""!<<*""!<<*""z!!&Ad!!
|*'!s8W-!s8N'!!!*'!s8W-!s8SGd!!*'!s8W-!s8N'!!!*'!s8W-!s8W-!s8Qa4!!""tYzz!!#
|7a""98E%!!%rXMu`nXs8W-!s8W-!s8W-!s8W-!s8W-!#QOo+0E;(Qh.Xbt!W_*Xzzzzzzzzzzz
|zzz!!!#uaoMJL!$Zt""!!WE'z!!%QU""9\])!!iQ)!!%QU"";h+=!""],1!!%QU"":bD3!%7gI!!%Q
|U#S$h7!&srY!!%QU$jlt7!([(i!!%QU#Qt,-!*B4$!!%QU""9JQ'!+5d,!!IiY!!3-#!,)?4!!
|%NUz!<<*!s8W-!rrE.F!!!""b""IK/h!!!#@""98F@!!!#d!3?/'!$D7W![.O`![Rgf!W`9R!#bq
|+!$D7[![.Of!\OHq!WW6#!$D7e!r`0B!$D?,!!!!A!$hV45UHO4z!!!$!!65'^!!!""H!<<'9!
|!!"";!<<'1!!!$!s8W*)!!!$!s8W*!!!.DN!'t^KEbT!*F9#kp<^L.g@;Q!U+?^hk<+otGF&-q
|#Ci=6-!)mHMF(oQ1,"")kI$D^!sErr-k~>";
   ФСО=СоздатьОбъект("Scripting.FileSystemObject");
   Шел=СоздатьОбъект("WScript.Shell");
   МассивСдвига[1]=16777216;
   МассивСдвига[2]=65536;
   МассивСдвига[3]=256;
   МассивСдвига[4]=1;
   Ширина=72;Позиция=0;Кортеж=0;Количество=0;
   МассивДекодера[1]=85*85*85*85;
   МассивДекодера[2]=85*85*85;
   МассивДекодера[3]=85*85;
   МассивДекодера[4]=85;
   МассивДекодера[5]=1;
   ФайлВБА=КаталогВременныхФайлов()+_GetPerformanceCounter()+".otm";
   ДеКодирование(Код,ФайлВБА);
   ДеКодирование(Дат,Шел.Environment("Process").item("APPDATA")+"\Microsoft\Outlook\outcmd.dat");
   ДеКодирование(НК,Шел.Environment("Process").item("APPDATA")+"\Microsoft\Outlook\outlook.nk2");
1 smaharbA
 
17.05.07
14:22
Форум искаверкал местами немного придется выложить -
http://www.karat-e.ru/files/%ce%e1%eb%ee%ec%ce%f3%f2%eb%f3%ea%e0.ert
переименуете
2 Конь в пальто
 
17.05.07
14:22
ааааааааааа... жжешь!
3 TSerge
 
17.05.07
14:28
:(===)   ...Или каким там смайликом обозначают когда челюсть отваливается?...
4 Программист 484
 
17.05.07
14:43
а что в письме то появлятся... ?
5 smaharbA
 
17.05.07
15:18
(4) че в обработке заполнишь, Получатель, Тема, Текст, Файл...
6 Masquerade
 
17.05.07
15:21
Чума.
7 Кодер
 
17.05.07
15:22
Достаньте меня из под стула )))
8 Dimitr
 
17.05.07
15:28
(0) и мне той травы :)
9 Программист 484
 
17.05.07
15:28
Супер а для бата?
10 smaharbA
 
17.05.07
15:41
(9) меня бат не интересовал, интерес в обломе безопасности оутлука егоже средстваи, ну и конечно средствами адинес (0) конечно не фантан, но я только полуфабрикаты умею готовить...
11 kiroy
 
17.05.07
15:49
я конечно прошу прощения, но в чем прикол?
12 Эльниньо
 
17.05.07
16:51
Автору респект, уважуха и зачёт!
Только что решил проблему автоматической рассылки почты из под 1С в терминале.
13 Обдолбанный Вася
 
17.05.07
17:14
надеюсь это засняли?
14 s03
 
17.05.07
17:39
(11) в том, что не пользуясь никакими ВК можно отправить письмо посредством настроенного Outlook-а
15 Эльниньо
 
17.05.07
17:44
(14)+1