Hallo,
ich muss gerade ein paar C Zeilen übersetzten. Aber da hier Äpfel und Birnen addiert werden komme ich nicht weiter.

markieren

Code:

struct crypt_block
{
  uint8 keytable[256];
  uint8 state;
  uint8 counter;
  uint8 sum;
};


static void init_crypt(struct crypt_block *block, uint8 *key, int len)
{
  block->state = *key;
  block->counter=0;
  block->sum=0;
}

static void crypt(struct crypt_block *block, uint8 *data, int len, crypt_mode_t mode)
{
  int i;
  uint8 z;

  for (i = 0; i < len; i++) {
    block->counter++;
    block->sum += block->keytable[block->counter];  
    z = data[i];
    data[i] = z ^ block->keytable[(block->keytable[block->counter] + block->keytable[block->sum]) & 0xff] ^ block->state;
    if (!mode) z = data[i];
    block->state = block->state ^ z;
  }
}

Geschrieben habe ich es nun so:

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TCrypt_Block = Record
    keytable: Array [0 .. 255] of byte;
    state: PArray; // to key
    counter: byte;
    sum: byte;
  End;

  PCrypt_Block = ^TCrypt_Block;

procedure init_crypt(block: PCrypt_Block; key: PArray; len: Integer);
begin
  .........
  block^.state := @key;
  block^.counter := 0;
  block^.sum := 0;
end;

procedure crypt(block: PCrypt_Block; Data: PArray; len: Word; mode: TCrypt_Mode);
Var
  i: Integer;
  z : byte;
begin
  for i := 0 to len - 1 do
    begin
      Inc(block^.counter);
      block^.sum := block^.sum + block^.keytable[block^.counter];
      z := Data^[i];
      Data^[i] := z xor block^.keytable[(block^.keytable[block^.counter] + block^.keytable[block^.sum]) and $FF] xor block^.state; // hier klemmt es

      if mode = DECRYPT then
        z := Data^[i];
      block^.state := block^.state xor z; // und hier auch
    end;
end;

Aber beim block.state komme ich nicht weiter. Ist ja eigentlich ein Zeiger auf ein Array ?

Besten Dank

Hallo,

markieren

Delphi-Quellcode:

uint8 state

=

state: Byte;

markieren

Delphi-Quellcode:

uint8 *data

=

data: PByte;

Prinzipiell.

Hallo,

block->state = *key;

Würde doch auf key[0] zeigen ? Denn Key ist z.B. ein 20 Byte Hash.

markieren

Code:

static void init_crypt(struct crypt_block *block, uint8 *key, int len)
{
  block->state = *key;
  block->counter=0;
  block->sum=0;
}

Da block->state nur 1 Byte groß ist, wird immer nur das erste Byte des Key verwendet und der Rest ignoriert ... fällt auch dadurch auf, daß "len" garnicht verwendet wird.

PS: Bei len=0 und vorallem *key=nil wird es knallen, da es dort dieses Byte garnicht gibt.

Sorry. Komplett sieht das so :

markieren

Code:

 for (i=0; i<256; i++) {
    block->keytable[i] = i;
  }

  for (i=0; i<256; i++) {
    j += key[i % len] + block->keytable[i];  
  }

  block->state = *key;
  block->counter=0;
  block->sum=0;

Das hatte ich, der Übersicht wegen, weggelassen.

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TCrypt_Block = Record
    keytable: Array [0 .. 255] of byte;
    state: Pbyte; // to key or Hash ?
    counter: byte;
    sum: byte;
  End;

procedure crypt(block: PCrypt_Block; Data: PArray; len: Word; mode: TCrypt_Mode);
Var
  i: Integer;
  z: byte;
begin
  for i := 0 to len - 1 do
    begin
      Inc(block^.counter);
      block^.sum := block^.sum + block^.keytable[block^.counter];
      SwapC(block^.keytable[block^.counter], block^.keytable[block^.sum]);
      z := Data^[i];
      Data^[i] := z xor block^.keytable[(block^.keytable[block^.counter] + block^.keytable[block^.sum]) and $FF] xor block.state^;
      if mode = DECRYPT then
        z := Data^[i];
      block.state^ := block.state^ xor z;
    end;
end;

So lässt es sich jetzt compilieren. Bin mir aber mit den ganzen ^ nicht sicher. Pointer
Was macht das für einen Sinn, nur das erste Byte vom Hash zu nehmen ?