Имя: Пароль:
1C
 
Во как зашифровать по Base64 из 1с
,
0 sintez1234
 
22.10.14
11:48
Была тема как зашифровать в Base64. Обещал что отвечу когда разберусь, но тему уже не вижу где :) Пишу тут, вот так можно зашифровать по Base64.


Функция ЗашифроватьBase64(Строка) Экспорт
    
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
    ЗаписьТекста = Новый ЗаписьТекста(ИмяВременногоФайла);
    ЗаписьТекста.Записать(Строка);
    ЗаписьТекста.Закрыть();

    Двоичные = Новый ДвоичныеДанные(ИмяВременногоФайла);
    Результат = Base64Строка(Двоичные);
    Результат = СтрЗаменить(Результат, "77u/", "");
    Результат = СтрЗаменить(Результат, Символы.ПС, "");
    
    УдалитьФайлы(ИмяВременногоФайла);
    
    Возврат Результат;
    
КонецФункции
1 Looser-1c
 
22.10.14
11:55
А теперь то же самое, но без временного файла...
2 sintez1234
 
22.10.14
12:04
(1) хотелось бы без временно, но это решение вполне устроила, а дальше разбираться в этой экозтической теме просто лень, ибо это в будущем точно никогда не пригодится :)
3 vde69
 
22.10.14
12:12
4 H A D G E H O G s
 
22.10.14
12:31
(0) Это херня будет работать КРАЙНЕ медленно на размерах от пары мегабайт.
Независимо от того, куда вы едете — это в гору и против ветра!