fbpx
  • slide microsft
  • slide aida64
  • Установка драйвера ATI Radeon 9000 на Windows 7
  • Свернуть массив в 1С
  • Google Chrome научится воспроизводить FLAC
  • AMD представила первые настольные процессоры с частотой до 5,0 ГГц
  • Мягкий жесткий диск
  • Перезагрузка или завершение работы удаленного компьютера с Windows
  • Увеличение размера виртуального и системного диска в Windows Server без остановки VMWare
  • Как отключить легкую установку (easy install) в VMWare Workstation
  • Dj Tro - TO [2008]
  • Что, еще и место выбирать ?!
  • Zalman начала процедуру банкротства
  • Новый Adobe Photoshop CC взломан через день после релиза
  • Нововведения в новой мобильной ОС Android 4.3
  • 5 неудачных антипиратских решений
  • Анлок и джеилбрейк 3.1.2 на iPhone 2G/3G/3GS из-под Windows
  • Настройка и подключение Wi-Fi роутера D-Link DIR300
  • Обзор бесплатных антивирусов
  • Ошибка 0x8000000000000002. Решение.
  • Первое впечатление о Windows 8 Beta
  • Dj Tro - The new trance [2013]
  • Новое на сайте tro.net.ua
  • День системного администратора 2019
  • Одна из первых реклам Microsoft
  • Apple лишает работоспособности iPhone и iPad после неофициального ремонта
  • Старый новый
  • Warframe. Или как закалялась сталь.
May27

Функция хеширования (конвертирования) строки в MD5 для 1С

Троцкий Юрий

Функция хеширования (конвертирования) строки в MD5 для 1С

Готовый код по хешированию (конвертированию) строки в MD5 для 1С

толстый клиент, тонкий клиент

     Что такое MD5 (англ. Message Digest 5) ? Это 128-битный алгоритм хеширования, разработанный профессором Рональдом Л. Ривестом еще в далеком в 1991 году. Но его до сих пор успешно применяют в современных методах хеширования, например для сверки контрольных сумм документов (удостоверение в его неизменном содержимом), хранения паролей, цифровых подписей и много где еще.

     Не смотря на широкое расспространение, готовой функции в 1С нету, поэтому предлагаю вам готовый код ниже:

 

Функция КонвертироватьВМД5 (ТекстОригинал);
	
	
	оMD5 = Новый COMОбъект("System.Security.Cryptography.MD5CryptoServiceProvider");
	оEnc = Новый COMОбъект("System.Text.UTF8Encoding");
	оStr = Новый COMОбъект("System.Text.StringBuilder");
	
	// переводим в байтовый массив 
	Массив = оEnc.GetBytes_4(ТекстОригинал);
	
	// MD5
	Массив = оMD5.ComputeHash_2(Массив);
	
	// переведем обратно из байтового массива в строку
	КолЭлементовМассива = Массив.GetLength();
	
	Для Ит = 0 ПО КолЭлементовМассива - 1 Цикл 
		оStr.AppendFormat("{0:x02}", Массив.GetValue(Ит));
	КонецЦикла;
	
	оMD5 = NULL;
	оEnc = NULL;
	
	Возврат оStr.ToString();
	
КонецФункции

P.S. Так-же мы предоставлям надежное обланое хранилище для ваших баз 1С. Подробнее...

Leave a comment

Please login to leave a comment.