Software vor Raubkopierer schützen

[stoxx]

Hi Neo !

ich bekomms nicht hin

Da muss noch irgendwas falsch dran sein, wenn ich nämlich in einer im Quelltext darüberliegenden PRocedure noch eine Zeile einfüge, dann ändert sich die (in der Tat recht einfache) Checksumme ..

normalerweise dürfte doch der Compiler nicht unterschiedlichen Code in Abhängigkeit von einer PRocedure obendrüber machen, oder ??
Ist hier was falsch (ausser der fehlenden Abbruchbedingung)

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