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

class procedure Tfoo.bar(var stream:byte8;key1:Cardinal;key2:Byte);
var i:Integer;
    key1a:Array[0..3] of Byte;
begin
  PCardinal(@key1a[0])^:=key1;
  for i:=0 to 3 do
    stream[i]:=stream[i] XOR (stream[i]+key1a[i]+key2);
  for i:=4 to 7 do
    stream[i]:=stream[i] XOR (stream[i]+key1a[i-4]+key2);
end;					

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

Unit1.pas.31: PCardinal(@key1a[0])^:=key1;
0046423C 8BDC             mov ebx,esp
0046423E 8913             mov [ebx],edx
Unit1.pas.32: for i:=0 to 3 do
00464240 BE04000000       mov esi,$00000004                      // Schleife hat 4 Durchlaeufe
00464245 8BD0             mov edx,eax                            // edx ist offset zu key1a  
00464247 8BFC             mov edi,esp                            // edi ist offset zu stream
Unit1.pas.33: stream[i]:=stream[i] XOR (stream[i]+key1a[i]+key2);
00464249 0FB61F           movzx ebx,[edi]
0046424C 021A             add bl,[edx]
0046424E 02D9             add bl,cl
00464250 301A             xor [edx],bl
00464252 47               inc edi                                // naechstes byte fuer stream
00464253 42               inc edx                                // neachstes byte for key1a
Unit1.pas.32: for i:=0 to 3 do
00464254 4E               dec esi                                // esi --
00464255 75F2             jnz $00464249                          // wenn nicht null weitermachen