Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Шифрование строки InString, с возможностью корректного сохранения результата шифрования в TEXT-FILE
Шифрование строки InString, с возможностью корректного сохранения результата шифрования в TEXT-FILE

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование строки InString, с возможностью корректного
сохранения результата шифрования в TEXT-FILE

Функция представляет модификацию функции UBPFD.Encrypt.
Отличие от указанной функции заключается в том, что функция
EncryptEX возвращает результат, обработанный функцией
UBPFD.StrToAsсii, т.е. обеспечивает возможность
корректного сохранения шифр-текста в текстовый файл.

Зависимости: UBPFD.Encrypt, UBPFD.StrToAscii
Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright: VID
Дата: 30 апреля 2002 г.
***************************************************** }


function EncryptEX(const InString: string; StartKey, MultKey, AddKey: Integer):
string;
begin
Result := StrTOAscii(Encrypt(InString, StartKey, MultKey, AddKey));
end;
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Расшифровка строки InString, зашифрованной с помощью функции EncryptEX

Функция является модификацией UBPFD.Decrypt. Отличие в том,
что UBPFD.DecryptEX расшифровывает шифр-текст, зашифрованный
с помощью функции UBPFD.EncryptEX

Зависимости: UBPFD.Decrypt, UBPFD.AsсiiToStr
Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright: VID
Дата: 30 апреля 2002 г.
***************************************************** }


function DecryptEX(const InString: string; StartKey, MultKey, AddKey: Integer):
string;
begin
Result := Decrypt(AsciiToStr(InString), StartKey, MultKey, AddKey);
end;

Пример использования:

var
S: string;
begin
S := UBPFD.EncryptEX('String', 1, 1, 1);
// S является источником данных для функции UBPFD.DecryptEX
ShowMessage('Расшифровка: ' + UBPFD.DecryptEX(S, 1, 1, 1));
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 09)
Просмотров: 753 | Теги: Шифрование строки InString | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar