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