Алгоритм шифрования TEA

[ImmortalAlexSan]

Ребят, 5-ый день бьюсь над этой якобы ерундой (так везде написано, что легко), однако у меня даже исходники из интернета не работают и переделывал их и по другому делал, ничего не выходит. Вот что сейчас есть:

Const
  Delta=$9E3779B9;

type
  TTEAKey=array [0..3] of Cardinal;
  TTEAData=array [0..1] of Cardinal;
  PTEAKey=^TTEAKey;
  PTEAData=^TTEAData;

var
  Form1: TForm1;
  Sum:DWORD;
  InData,OutData:TTEAData;
  Key:TTEAKey;

function pEnCodeTEA(aData:PTEAData;aKey:TTEAKey):PTEAData;
Var
  i:Integer;
begin
  Sum:=0;
  Result:=aData;
  for i:=1 to 32 do
  begin
    Inc(Sum,Delta);
      Inc(Result^[0],(((Result^[1] shl 4)+aKey[0]) xor
                  (Result^[1]+Sum) xor ((Result^[1] shr 5)+aKey[1])));
      Inc(Result^[1],(((Result^[0] shl 4)+aKey[2]) xor
                  (Result^[0]+Sum) xor ((Result^[0] shr 5)+aKey[3])));
  end;
end;

function pDeCodeTEA(aData:PTEAData;aKey:TTEAKey):PTEAData;
Var
  i:Integer;
begin
  Result:=aData;
  for i:=1 to 32 do
  begin
      Dec(Result^[1],(((Result^[0] shl 4)+aKey[2]) xor
                  (Result^[0]+Sum) xor ((Result^[0] shr 5)+aKey[3])));
      Dec(Result^[0],(((Result^[1] shl 4)+aKey[0]) xor
                  (Result^[1]+Sum) xor ((Result^[1] shr 5)+aKey[1])));
    Dec(Sum,Delta);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit2.Text:='';
  Key[0]:=$195AF45B;
  Key[1]:=$165AF44F;
  Key[2]:=$194AF4FB;
  Key[3]:=$193FF421;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  InData[0]:=$77359400; //2 000 000 000
  InData[1]:=$3B9ACA00; //1 000 000 000
  OutData:=pEnCodeTEA(@InData,Key)^;
  RichEdit1.Text:=inttostr(OutData[0])+' '+inttostr(OutData[1]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  InData[0]:=OutData[0];
  InData[1]:=OutData[1];
  FillChar(OutData,SizeOf(TTEAData),0);
  OutData:=pEnCodeTEA(@InData,Key)^;
  RichEdit2.Text:=inttostr(OutData[0])+' '+inttostr(OutData[1]);
end;

Помогите разобраться пожалуйста, что неправильно. А то препод задал, ничего не объяснив...

[ImmortalAlexSan]

Ребят, разобрался сам. Сейчас выложу правильный код, если кому нужно будет.

[ImmortalAlexSan]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

Const
  Delta=$9E3779B9;

type
  TTEAKey=array [0..3] of Cardinal;
  TTEAData=array [0..1] of Cardinal;
  PTEAKey=^TTEAKey;
  PTEAData=^TTEAData;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    TextForEnCode:String;
    TextForDeCode:String;
    InData,OutData:TTEAData;
    Key:TTEAKey;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Sum:Cardinal;

implementation

{$R *.dfm}


function pEnCodeTEA(aData:PTEAData;aKey:TTEAKey):TTEAData;
Var
  i:Integer;
  y,z:Cardinal;
begin
  FillChar(Result,SizeOf(TTEAData),0);
  y:=aData^[0];
  z:=aData^[1];
  Sum:=0;
  for i:=1 to 32 do
  begin
    inc(Sum,Delta);
    inc(y,(((z shl 4)+aKey[0]) xor (z+Sum) xor ((z shr 5)+akey[1])));
    inc(z,(((y shl 4)+aKey[2]) xor (y+Sum) xor ((y shr 5)+akey[3])));
  end;
  Result[0]:=y;
  Result[1]:=z;
end;

function pDeCodeTEA(aData:PTEAData;aKey:TTEAKey):TTEAData;
Var
  i:Integer;
  y,z:Cardinal;
begin
  FillChar(Result,SizeOf(TTEAData),0);
  y:=aData^[0];
  z:=aData^[1];
  for i:=1 to 32 do
  begin
    dec(z,(((y shl 4)+aKey[2]) xor (y+Sum) xor ((y shr 5)+akey[3])));
    dec(y,(((z shl 4)+aKey[0]) xor (z+Sum) xor ((z shr 5)+akey[1])));
    dec(Sum,Delta);
  end;
  Result[0]:=y;
  Result[1]:=z;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FillChar(InData,SizeOf(TTEAData),0);
  InData[0]:=$77359400; //2 000 000 000
  InData[1]:=$3B9ACA00; //1 000 000 000
  OutData:=pEnCodeTEA(@InData,Key);
  RichEdit1.Text:=inttostr(OutData[0])+' '+inttostr(OutData[1]);
  FillChar(InData,SizeOf(TTEAData),0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  InData:=pDeCodeTEA(@OutData,Key);
  RichEdit2.Text:=inttostr(InData[0])+' '+inttostr(InData[1]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit2.Text:='';
  Key[0]:=$195AF45B;
  Key[1]:=$165AF44F;
  Key[2]:=$194AF4FB;
  Key[3]:=$193FF421;
end;

end.

Вот рабочий код для алгоритма шифрования TEA, знаю, что проблема с описанием этого алгоритма (его как-такового и нет), а если и есть, то нерабочие. Сейчас чуть-чуть переделаю с шифрованием текстов и выложу отдельной темой наверное... Всем спасибо.

[ImmortalAlexSan]

Сделал шифрование текста. Писал в дельфи 2010. Основная проблема была с переводом числа в символ, так как после шифрования получается число типа Cardinal со всеми заполненными битами, а Chr берет только первые 16 бит, так что пришлось отдельно сохранять каждое старшее слово шифр-буквы и потом восстанавливать шифрованное число для обратной дешифровки. Добавил исходники как обещал.

[medved62]

а почему де шифрование не корректно работает?

а все работает)можете прокоментировать его????

[Huligan799]

де шифрование не корректно работает

[alextrof94]

Чуваки, теме 2-3 года, не насилуйте труп.