Во как зашифровать по Base64 из 1с

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

1C-фукция Base64Строка() работает?

4 H A D G E H O G s

22.10.14

✎

12:31

(0) Это херня будет работать КРАЙНЕ медленно на размерах от пары мегабайт.