Bytes/Checksumme einer Procedure ?

[stoxx]

In dem Thread hab ich die Frage schonmal gestellt, ist aber auf Grund der vielen Postings untergegangen ...

http://www.delphipraxis.net/internal...ct.php?t=30879


Ich wollte die Bytes bzw. irgendeine Checksumme einer Procedure/function errechnen, um ein nachträgliches patchen zumindest etwas zu erschweren.
Neolithos hat vorgeschlagen, solange zu zählen, bis 0xC3 erscheint.
Mein Problem war immer noch, dass unterschiedliche Ergebniss rauskommen, wenn man in einer nachfolgenden darunterstehenden Procedure im Quelltext was ändert.
Irgendwie scheint C3 doch nicht der richtige Abbruchparameter zu sein, oder ist dieses Verhalten normal ?

Danke schonmal 1

Code:

function checkSum : integer; 

type 
  PBuffer = ^TBuffer; 
  TBuffer = array[0..0] of byte; 
var 
    p : PBuffer; 
    i : integer; 

    sum : Integer; 

begin 

p := Pointer( @Txtradeclass.Info1Click); 
sum := 0; 
i := 0; 

while Byte(p^) <> $C3 do 
begin 
  inc(sum, Byte(p^)); 
  inc(p); 
  inc(i); 
end; 

showmessage(inttostr(sum)); 


end; // von checksum

[stoxx]

*vorsichtig nochmal nach oben schieb*

:spin2: