Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Вниз

Компонент для шифрования файла   Найти похожие ветки 

← →
Checist [root]   (2004-12-07 10:14) [0]

Подскажите простой компонент для надежного шифрования текстового файла для D7

---

← →
Ega23 ©   (2004-12-07 10:17) [1]

xor  ?
CryptAPI?
Только не забывай о правовом использовании шифрования.

---

← →
Reindeer Moss Eater ©   (2004-12-07 10:18) [2]

Самый надежный это одноразовый кодоблокнот.
То есть бобайтный ксор на ключе с длиной превышающей длину сообщения.

---

← →
Checist [root]   (2004-12-07 10:20) [3]

А еще какие нибудь с поддержкой разнообразных методов...
> Ega23 > Где его найти?

---

← →
Rouse_ ©   (2004-12-07 10:26) [4]

вот этим я иногда шифрую не сильно важную информацию...

unit TEA;

interface

uses
 Windows,
 SysUtils,
 Classes;

const
 Delta = $9E3779B9;  //Смещение контрольной суммы ~ 32 бит
 _k0: Int64 = $992C98C1;    //Главный 128 битный ключ (4 части по 32 бита)
 _k1: Int64 = $7D8F4D4B;
 _k2: Int64 = $B3AE3151;
 _k3: Int64 = $971BC789;
 Header = "ETA"; // Enhanced TEA

type
 PHash = ^THash;
 THash = array of Byte;

 function DeCript(var S: THash): Boolean;
 procedure EnCript(var S: THash);

implementation

////////////////////////////////////////////////////////////////////////////////
//
// ЧАСТЬ ПЕРВАЯ * * * КОДИРОВАНИЕ * * *

procedure EnCript(var S: THash);
var
 InBuf,
 OutBuf,
 ResultBuf: THash;   // Входной, выходной и результирующий буфера
 Y, Z, Sum: LongWord;        // Временные переменные для кодируемых блоков данных
 k0, k1, k2 , k3: LongWord;  // Текущий ключ для шифрования
 I, A, Len: Integer;         // Переменные для циклов
 C: Byte;                    // Счетчик кол-ва мусора
 Guid, Key: String;
 G: TGUID;
begin
 // Проверка размера данных
 if Length(S) = 0 then Exit;
 
 CreateGUID(G); // Генерируем ключик на основе GUID - а :)
 Guid := GUIDToString(G);
 for I := 1 to Length(Guid) do
   if Guid[I] in ["0".."9", "A".."F"] then
     Key := Key + Guid[I];      

 k0 := StrToInt64("$" + Copy(Key, 1, 8));
 k1 := StrToInt64("$" + Copy(Key, 9, 8));
 k2 := StrToInt64("$" + Copy(Key, 17, 8));
 k3 := StrToInt64("$" + Copy(Key, 25, 8));

 C := 0;             // Инициализируем счетчик дозаполнений
 // Дозаполняем данные чтобы последний блок данных был равен 64 битам
 while (Length(S) div 8) * 8 <> Length(S) do // 64 бита = 8 байтам :)
 begin
   Len := Length(S);
   Inc(Len);
   SetLength(S, Len);
   S[Len - 1] := Random(255); // Заполняем случайными данными
   Inc(C);
 end;

 Len := Length(S); // Вычисляем размер кодируемого блока
 SetLength(InBuf, Len);  // Устанавливаем размер буферов

 // Размер выходного буфера увеличен на 21 байт из-за
 // 1 байт - счетчик кол-ва мусора в конце буфера
 // 16 байт - кодированный ключ 4 Cardinal = 32 бит
 // 1 байт - метка расположения кодированного ключа
 Inc(Len, 21);
 SetLength(OutBuf, Len);
 SetLength(ResultBuf, Len);

 Inc(C);// Увеличим кол-во мусора для удаления самого поля счетчика
 OutBuf[0] := Ord(Header[1]); // добавляем идентификатор
 OutBuf[1] := Ord(Header[2]);
 OutBuf[2] := Ord(Header[3]);
 OutBuf[3] := C; // Добавляем счетчик мусора (он будет самым первым)

 Move(S[0], InBuf[0], Length(S));// Заполняем входной буфер данными

I := 0;
 while I < Len - 21 do // Непосредственно кодировка
 begin
   Move(InBuf[I], Y, 4);     // Берем первые 32 бита
   Move(InBuf[I + 4], Z, 4); // Берем вторые 32 бита
   // Кодируем
   Sum := 0;
   for A := 0 to 31 do  // 64 битный кодируемый блок (2 части по 32 бита)
   begin
     Inc(Sum, Delta);
     Inc(Y, ((Z shl 4) + k0) xor (Z + Sum) xor ((Z shr 5) + k1));
     Inc(Z, ((Y shl 4) + k2) xor (Y + Sum) xor ((Y shr 5) + k3));
   end;
   Move (Y, OutBuf[I + 4], 4); // Помещаем кодированные блоки в выходном буфер
   Move (Z, OutBuf[I + 8], 4);
   Inc(I, 8); // Пропускаем обработанный блок, переходим к следующему
 end;

 Sum := 0;
 for A := 0 to 31 do  // Кодируем первые 2 части ключа внутренним ключем
 begin
   Inc(sum,Delta);
   Inc(k0, ((k1 shl 4) + _k0) xor (k1 + Sum) xor ((k1 shr 5) + _k1));
   Inc(k1, ((k0 shl 4) + _k2) xor (k0 + Sum) xor ((k0 shr 5) + _k3));
 end;

 Sum := 0;
 for A := 0 to 31 do  // Кодируем вторые 2 части ключа внутренним ключем
 begin
   Inc(Sum, Delta);
   Inc(k2, ((k3 shl 4) + _k0) xor (k3 + Sum) xor ((k3 shr 5) + _k1));
   Inc(k3, ((k2 shl 4) + _k2) xor (k2 + Sum) xor ((k2 shr 5) + _k3));
 end;

 // Определяем позицию размещения ключа в блоке данных
 Randomize;
 if Len < 255 then
   I := Len
 else
   I := 255;
 repeat
   I := Random(I);
   if I < 4 then I := 4;
 until I <= Len - 16;

 // Смещаем данные освобождая место для четырех
 // частей ключа
 Move(OutBuf[0], ResultBuf[0], I);
 Move(OutBuf[I], ResultBuf[I + 16], Len - I - 17);

 // Разбиваем четвертую четверть ключа на 4 восьмибитных части
 ResultBuf[I]    := Byte(k3 shr 24);
 ResultBuf[I + 1]  := Byte(k3 shr 16);
 ResultBuf[I + 2]  := Byte(k3 shr 8);
 ResultBuf[I + 3]  := Byte(k3);

 // Разбиваем третью четверть ключа на 4 восьмибитных части
 ResultBuf[I + 4]  := Byte(k2 shr 24);
 ResultBuf[I + 5]  := Byte(k2 shr 16);
 ResultBuf[I + 6]  := Byte(k2 shr 8);
 ResultBuf[I + 7]  := Byte(k2);

 // Разбиваем первую четверть ключа на 4 восьмибитных части
 ResultBuf[I + 8]  := Byte(k0 shr 24);
 ResultBuf[I + 9]  := Byte(k0 shr 16);
 ResultBuf[I + 10] := Byte(k0 shr 8);
 ResultBuf[I + 11] := Byte(k0);

 // Разбиваем вторую четверть ключа на 4 восьмибитных части
 ResultBuf[I + 12] := Byte(k1 shr 24);
 ResultBuf[I + 13] := Byte(k1 shr 16);
 ResultBuf[I + 14] := Byte(k1 shr 8);
 ResultBuf[I + 15] := Byte(k1);

 // Сдвигаем данные с 14 позиции на одну вправо для метки
 // (буфер начинается с нуля)
 for A := Len - 1 downto 14 do
   ResultBuf[A] := ResultBuf[A - 1];

 // Помещаем метку начала ключа (14-й байт)
 ResultBuf[13] := I;

 S := ResultBuf;
end;

---

← →
Rouse_ ©   (2004-12-07 10:26) [5]

////////////////////////////////////////////////////////////////////////////////
//
// ЧАСТЬ ВТОРАЯ * * * ДЕКОДИРОВАНИЕ * * *

function DeCript (var S: THash): Boolean;
var
 InBuf,
 OutBuf,
 ResultBuf: THash; // Входной, выходной и результирующий буфера
 Y , Z, Sum: LongWord;     // Временные переменные для кодируемых блоков данных
 k0, k1, k2, k3: LongWord; // Текущий ключ для шифрования
 I, A, Len: Integer;       // Переменные для циклов
 AHeader: String;
begin
 Result := False;

 Len := Length(S); // Вычисляем размер декодируемого блока

 // Проверка размера
 if Len < 27 then Exit;
 if Len <> (((Len - 21) div 8) * 8) + 21 then Exit;

 // Проверка заголовка
 AHeader := Char(S[0]) + Char(S[1]) + Char(S[2]);
 if AHeader <> Header then Exit;

 // Проверка позиции ключа
 if not(S[13] in [4..255]) then Exit;
 if S[13] + 16 > Len then Exit;

 // Проверка счетчика мусора
 if S[3] > 8 then Exit;

 SetLength(InBuf, Len);  // Устанавливаем размер буферов

 Move(S[0], InBuf[0], Len);// Заполняем входной буфер данными

 I := InBuf[13]; // Узнаем начальную позицию ключа

 // Удаляем метку на начало ключа
 for A := 13 to Len - 2 do
 begin
   InBuf[A] := InBuf[A + 1];
   InBuf[A + 1] := 0;
 end;
 Dec(Len);

 // Извлекаем ключ
 k3 :=(InBuf[I + 3] or (InBuf[I + 2] shl 8) or (InBuf[I + 1] shl 16) or (InBuf[I] shl 24));
 k2 :=(InBuf[I + 7] or (InBuf[I + 6] shl 8) or (InBuf[I + 5] shl 16) or (InBuf[I + 4] shl 24));
 k0 :=(InBuf[I + 11] or (InBuf[I + 10] shl 8) or (InBuf[I + 9] shl 16) or (InBuf[I + 8] shl 24));
 k1 :=(InBuf[I + 15] or (InBuf[I + 14] shl 8) or (InBuf[I + 13] shl 16) or (InBuf[I + 12] shl 24));

 // Удаляем ключ из блока данных
 for A := I + 16 to Len do
 begin
   InBuf[A - 16] := InBuf[A];
   InBuf[A] := 0;
 end;
 SetLength(OutBuf, Len);
 ZeroMemory(OutBuf, Len);
 Dec(Len, 16); // Удаляем размер ключа

 // Декодируем первые две части ключа
 Sum := Delta shl 5;
 for A := 0 to 31 do
 begin
   Dec(k1, ((k0 shl 4) + _k2) xor (k0 + Sum) xor ((k0 shr 5) + _k3));
   Dec(k0, ((k1 shl 4) + _k0) xor (k1 + Sum) xor ((k1 shr 5) + _k1));
   Dec(Sum, Delta);
 end;

 // Декодируем вторые две части ключа
 Sum := Delta shl 5;
 for A := 0 to 31 do
 begin
   Dec(k3, ((k2 shl 4) + _k2) xor (k2 + Sum) xor ((k2 shr 5) + _k3));
   Dec(k2, ((k3 shl 4) + _k0) xor (k3 + Sum) xor ((k3 shr 5) + _k1));
   Dec(Sum, Delta);
 end;

 I := 0;
 Dec(Len); // Удяляем из размера место счетчика мусора
 Dec(Len, 3); // Удаляем из размера заголовок ETA
 while I < Len do // Непосредственно декодировка
 begin
   Move(InBuf[I + 4], Y, 4);  // Берем первые 32 бита
   Move(InBuf[I + 8], Z, 4);  // Берем вторые 32 бита
   // Декодируем
   Sum := Delta shl 5;
   for A := 0 to 31 do  // 64 битный кодируемый блок (2 части по 32 бита)
   begin
     Dec(Z, ((Y shl 4) + k2) xor (Y + Sum) xor ((Y shr 5) + k3));
     Dec(Y, ((Z shl 4) + k0) xor (Z + Sum) xor ((Z shr 5) + k1));
     Dec(Sum, Delta);
   end;
   Move(Y, OutBuf[I], 4);  // Запоминаем кодированные блоки в выходном буфере
   Move(Z, OutBuf[I + 4], 4);
   Inc(I, 8);              // Пропускаем обработанный блок, переходим к следующему
 end;

 // Отрезаем мусор (-1 потому что место для счетчика уже удалено из Len)
 Len := Len - (InBuf[3] - 1);
 SetLength(ResultBuf, Len);
 Move(OutBuf[0], ResultBuf[0], Len);

 // Выводим текст из выходного буфера
 S := ResultBuf;
 Result := True;
end;

end.

---

← →
Checist [root]   (2004-12-07 10:29) [6]

Хорошо бы пиоиметь готовый коипонент. Неужели таких не бывает. Сомневаюсь.

---

← →
Rouse_ ©   (2004-12-07 10:30) [7]

Ну дык и переделай в компонент, какие проблемы то? ;)

---

← →
Checist [root]   (2004-12-07 10:33) [8]

Я в компоненто варении также как и в криптографии ;)

---

← →
Rutven ©   (2004-12-07 10:48) [9]

http://www.securitylab.ru/tools/?ID=25275&Platform=172

---

← →
Rouse_ ©   (2004-12-07 10:50) [10]

А зачем тебе компонент?
Тут 2 функции всего, одна шифорвать вторая расшифровывать...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.49 MB
Время: 0.076 c