1:
2:
3:
4:
5:
6:

TKey = array [0..15] of byte;
TBlock = array [0..63] of byte;

InitializeKey(KeyString: String; var Key: TKey);

Encode(const Key: TKey; var Block: TBlock);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function DecodeText(Inputtext, Key: String): String;
begin
  with TCipher_1DES.Create do
  try
    Mode := cmECBx;
    Init(Key);
    Result := EncodeBinary(Inputtext, TFormat_HEXL);
  finally
    Free;
  end;
end;					

1:
2:
3:

  begin
      DoEncode(@S[0], @D[0], 8);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  begin                               // Size = 8 und Context.Blocksize <> 1
    if Context.BlockSize = 1 then
    begin
      DoEncode(S, D, 8);
      FState := csEncode;
    end else
    begin
      Dec(Size, 8);
      I := 0;
      while I <= Size do
      begin
        DoEncode(@S[I], @D[I], 8);
        Inc(I, 8);
      end;
      Dec(Size, I - 8);
      if Size > 0 then
        if Size mod Context.BlockSize = 0 then
        begin
          DoEncode(@S[I], @D[I], Size);
          FState := csEncode;
        end;
    end;
  end;					

1:

DoEncode(S, D, 8);					

1:
2:
3:
4:

"Nimm Adresse von X"
"Addiere 0"
"Das ist ein Wert"
"Davon die Adresse"					

1:

"Nimm die Adresse von X"					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

// Erstellen und initialisieren
Chipher := TDECCipher.Create;
Cipher.Mode := cmECBx;
Cipher.Init(Key);

// mit dem objekt arbeiten
Cipher.EncodeBinary(...);
Cipher.EncodeBinary(...);
Cipher.EncodeBinary(...);
Cipher.EncodeBinary(...);

Cipher.DecodeBinary(...);
Cipher.DecodeBinary(...);
Cipher.DecodeBinary(...);
Cipher.DecodeBinary(...);

// Wenn nicht mehr gebraucht, dann freigeben.
Chipher.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure Gen();
var
  X, Y, I, Len, p:  Integer;
  Wort: arr8;
  Key: arr8;
begin
  with TCipher_1DES.Create do
  Len := 0;
  for X := 0 to 7 do
    wort[X] := (Ord('A')-65);

  inc(wort[0],32);
  for X := 0 to combs do
  begin
    Y := 0;
    inc(wort[Y]);

    while wort[Y] > Ord('z') do
    begin
      if (X = 90) or (X = 8190) or (X = 737190) or (X = 66347190) or (X = 5971247190) or (X = 537412247190) then
         inc(wort[Y + 1],32);

      inc(wort[Y + 1]);
      wort[Y] := ord('!');
      inc(Y);
      Len := max(Y, Len);   // Mysteriöserweise schneller mit diesem Unsinn
    end;
    anf:=parityshift(Wort);
    try
      Mode := cmECBx;
      TDECCipher.Init(anf);
      Result := EncodeBinary('KGS!@#$%', TFormat_HEXL);
    finally
      Free;
    end; 
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  TDECCipherClass = class of TDECCipher;
  TDECCipher = class(TDECObject)
  private
    FData: PByteArray;
    FDataSize: Integer;
  protected
    FBufferIndex: Integer;
    FUserSize: Integer;
    FBuffer: PByteArray;
    FVector: PByteArray;
    FFeedback: PByteArray;
    FUser: Pointer;
    FUserSave: Pointer;
    procedure DoInit(Key: Array of Byte); virtual; abstract;
    procedure DoEncode(Source, Dest: Pointer); virtual; abstract;
  public
    constructor Create; override;
    class function Context: TCipherContext; virtual; abstract;
    procedure Init(Key: Array of Byte; IFiller: Byte = $FF);
    procedure Protect; virtual;
    procedure Encode(const Source; var Dest);
    function  EncodeBinary(): Binary;
  published
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure Gen();
var
  X, Y, I, Len, p:  Integer;
  Wort: arr8;
  Key: arr8;
begin
  with TCipher_1DES.Create do begin  //das hier fehlte bei dir: so wird das with-Statement nur auf Len bezogen..
  Len := 0;
  for X := 0 to 7 do
    wort[X] := (Ord('A')-65);

  inc(wort[0],32);
  for X := 0 to combs do
  begin
    Y := 0;
    inc(wort[Y]);

    while wort[Y] > Ord('z') do
    begin
      if (X = 90) or (X = 8190) or (X = 737190) or (X = 66347190) or (X = 5971247190) or (X = 537412247190) then
         inc(wort[Y + 1],32);

      inc(wort[Y + 1]);
      wort[Y] := ord('!');
      inc(Y);
      Len := max(Y, Len);   // Mysteriöserweise schneller mit diesem Unsinn
    end;
    anf:=parityshift(Wort);
    try
      Mode := cmECBx;
      TDECCipher.Init(anf);
      Result := EncodeBinary('KGS!@#$%', TFormat_HEXL);
    finally
      Free;
    end; 
  end;
end;