Шифрование текстовых полей таблицы Interbase
Материал из DRKB
Шифрование текстовых полей таблицы Interbase[править | править код]
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Шифрование текстовых полей таблицы Interbase
Простенько но шустро шифрует текстовую строку VarChar в текстовую
строку VarChar, пригодную для сохранения в текстовом поле базы Interbase.
НЕ ЗАТРАГИВАЕТ ПРОБЕЛЫ!
Метод генерации (в начале) и изменения ключа (в 2-местах!) в вашей программе
лучше изменить от исходного в сторону усложнения, но не трогать "And 127" в конце.
Для работы с Char возможно стоит добавить "Trim(S1);" в самое начало.
Зависимости: Windows, SysUtils, DB
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);
Author: Vemer
Source: http://delphibase.endimus.com
ID: 02932