{ **** 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;