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

Delphi , Синтаксис , Шифрование

Автор: VID
WEB-сайт: http://delphibase.endimus.com

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

Код содержит две функции: EncryptEX и DecryptEX. Эти функции используются для шифрования и дешифрования строк с помощью custom-алгоритма шифрования.

Вот разбивка кода:

EncryptEX

function EncryptEX(const InString: string; StartKey, MultKey, AddKey: Integer): string;
begin
  Result := StrToAscii(Encrypt(InString, StartKey, MultKey, AddKey));
end;

Функция EncryptEX принимает строковый ввод InString и четыре целочисленные параметра: StartKey, MultKey, AddKey. Она использует функцию Encrypt (не показанная в этом коде) для шифрования входной строки. Результат затем конвертируется в ASCII с помощью функции StrToAscii.

DecryptEX

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

Функция DecryptEX принимает строковый ввод InString и четыре целочисленные параметра: StartKey, MultKey, AddKey. Она использует функцию AsciiToStr для конвертации входной строки из ASCII обратно в строку Delphi. Затем она дешифрует полученную строку с помощью функции Decrypt (не показанной в этом коде) с теми же значениями ключа.

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

var
  S: string;
begin
  S := UBPFD.EncryptEX('String', 1, 1, 1); // Шифрование строки
  ShowMessage('Дешифровано: ' + UBPFD.DecryptEX(S, 1, 1, 1)); // Дешифровать и отобразить результат
end.

В этом примере строка "String" шифруется с помощью EncryptEX с значениями ключа 1, 1 и 1. Полученная зашифрованная строка затем дешифруется с помощью DecryptEX с теми же значениями ключа, и результат отображается в сообщении.

В целом, эти функции предоставляют основу для механизма шифрования и дешифрования строк с помощью custom-алгоритма. Однако, пожалуйста, отметьте, что этот код может не быть безопасным или надежным для использования в производственной среде без дополнительной проверки и тестирования.

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

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Шифрование ::