Delphi World - Шифрование текстовых полей таблицы Interbase
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Шифрование текстовых полей таблицы Interbase

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование текстовых полей таблицы Interbase

Простенько но шустро шифрует текстовую строку VarChar в текстовую
строку VarChar, пригодную для сохранения в текстовом поле базы Interbase.
НЕ ЗАТРАГИВАЕТ ПРОБЕЛЫ!
Метод генерации (в начале) и изменения ключа (в 2-местах!) в вашей программе
лучше изменить от исходного в сторону усложнения, но не трогать "And 127" в конце.
Для работы с Char возможно стоит добавить "Trim(S1);" в самое начало.

Зависимости: Windows, SysUtils, DB
Автор:       Vemer, Vemer@List.Ru, Петрозаводск
Copyright:   Vemer
Дата:        16 ноября 2003 г.
***************************************************** }

function Morf(S1: string; T: Boolean): string;
var
  LS: Byte; //длина строки
  KB: Byte; //ключ, байт
  I: Byte; //Счетчик
  B: Byte; //байт строки
  W: Smallint; //буфер для ключа
  S2: string; //результат
begin
  LS := Length(S1);
  S2 := '';
  KB := LS * LS; //-------Изменить/Усложнить!And 127 не трогать!
  if T = False then // Выбор между шифрованием и дешифрованием
  begin
    for I := 1 to LS do
    begin //шифрование
      B := Byte(S1[I]);
      if B > 32 then
      begin
        W := B + KB;
        if W > 255 then
          W := W - 223;
        B := W;
      end; //If
      S2 := S2 + Chr(B);
      KB := (KB + (I * 2)) and 127;
      //-(1) Изменить/Усложнить! And 127 не трогать!
    end; //For
  end
  else
  begin //дешифровка
    for I := 1 to LS do
    begin
      B := Byte(S1[I]);
      if B > 32 then
      begin
        W := B - KB;
        if W < 33 then
          W := W + 223;
        B := W;
      end; //If
      S2 := S2 + Chr(B);
      KB := (KB + (I * 2)) and 127;
      //---(2) Сделать как в (1)! And 127 не трогать!
    end; //For
  end; //Else

  Result := S2;
end;

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

// В вычисляемом поле для отображения текста в нормальном виде:
TableNewName.Value := Morf(TableName.Value, True);

// Для занесения в таблицу в зашифрованном виде например из Edit:
TableName.Value := Morf(Edit.Text, False);
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования