Es handelt sich um diesen Codeteil:
Code: Alles auswählen
const
TXorData: array[0..15] of Byte = (
$F3, $B3, $6C, $99, $95, $3F, $AC, $B6,
$C5, $FA, $6B, $63, $69, $6C, $C3, $9F
);
procedure MeineFkt(SrcBuf: Pointer; BufLen: LongWord); assembler;
asm
or edx,edx
jz @@end
@@loop:
mov cl,byte ptr[eax + edx - 1]
xor cl,byte ptr[TXorData + edx - 1]
mov byte ptr[eax + edx - 1],cl
dec edx
jnz @@loop
@@end:
end;