1. Trotter_NN 11.09.19 15:31 Сейчас в теме

Зашифровать значение md5 и расшифровать

Подскажите пожалуйста, хочу зашифровать строку использую
Хэш = Новый ХешированиеДанных(ХешФункция.MD5);
Хэш.Добавить("Привет");
Рез = СокрЛП(Хэш.ХешСумма);

Получаю двоичные данные, сохраняю в строку
Как из зашифрованных данные получить обратно слово "Привет" ?
Найденные решения
7. Sashares 18 11.09.19 16:04 Сейчас в теме
Спасибо, подняли настроение))
shatunovs; Vovan1975; Trotter_NN; +3 Ответить
Остальные ответы
Избранное Подписка Сортировка: Древо
3. VmvLer 11.09.19 15:42 Сейчас в теме
(1) перебором лет через 5 получите
2. SlavaKron 11.09.19 15:34 Сейчас в теме
Разговаривают два программиста:
- Слушай, вчера написал новый архиватор. Любой файл сжимает в 5 байт!
- Ну, просто рулез!..
- Ага. Сейчас работаю над разархиватором...
Sashares; +1 Ответить
4. Trotter_NN 11.09.19 15:45 Сейчас в теме
Получается что нельзя ? 1С не поддерживает ?
8. shatunovs 11.09.19 20:42 Сейчас в теме
(4)Курите маны по криптографии, коллега. Тема "хеш-функции". Хотя бы в яндексе или википедии
5. Trotter_NN 11.09.19 15:48 Сейчас в теме
Может кто - то другой метод предложит ?
6. Den75Ch 11.09.19 15:52 Сейчас в теме
//Функция ХэшированиеШтатныеСредства(СтрокаJSON, Base64JSON ,КлючХешированияДанных = "")

//
//Описание:
// Реализует инкрементальный расчет хеш-суммы по добавленным данным, использую хеш функцию SHA1.
//
//Параметры:
// СтрокаJSON - Строка. Строка в формате JSON.
//
// КлючХешированияДанных - Строка. Закодированные данные идентификатора в base64.
//
// Возвращаемое значение:
// Строка. Закодированная хеш сумма в base64.
//
Функция ХэшированиеШтатныеСредства(СтрокаJSON, КлючХешированияДанных = "")

Base64JSON = ЗакодироватьВBase64(СтрокаJSON);

ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.SHA1);
ХешированиеДанных.Добавить(base64Значение(КлючХешированияДанных));
ХешированиеДанных.Добавить(base64Значение(Base64JSON));

ТипДвоичныеДанные = ФабрикаXDTO.Тип("http://www.w3.org/2001/XMLSchema", "base64Binary");
ДвоичныеДанные = ФабрикаXDTO.Создать(ТипДвоичныеДанные,ХешированиеДанных.ХешСумма);

Возврат ДвоичныеДанные.ЛексическоеЗначение;

КонецФункции
Функция ЗакодироватьВBase64(СтрокаДанных) 

ИмяФайлаЗаписьТекст = ПолучитьИмяВременногоФайла(); 

ЗаписьТекста = Новый ЗаписьТекста(ИмяФайлаЗаписьТекст); 
ЗаписьТекста.ЗаписатьСтроку(СтрокаДанных); 
ЗаписьТекста.Закрыть(); 

ДвДанны = Новый ДвоичныеДанные(ИмяФайлаЗаписьТекст); 

Возврат base64Строка(ДвДанны); 

КонецФункции
Показать
7. Sashares 18 11.09.19 16:04 Сейчас в теме
Спасибо, подняли настроение))
shatunovs; Vovan1975; Trotter_NN; +3 Ответить
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Программист 1С
Санкт-Петербург
зарплата от 130 000 руб.
Полный день


Программисты 1С УТ / БУЗ/ЗУП / БИТ ФИНАНС
Москва
зарплата от 100 000 руб. до 180 000 руб.
Полный день

Программист 1С
Москва
зарплата от 150 000 руб. до 150 000 руб.
Полный день

Программист, аналитик, эксперт 1С
Санкт-Петербург
По совместительству