Software vor Raubkopierer schützen

[stoxx]

Zitat von SirThornberry:

@delphifreund: hinn bekommen kann man so ziemlich alles, man kann es den leuten nur schwer machen. Und wenn ein Programm in jeder Procedure noch die checksumme der Procedure nutzt um korrekte arbeit zu leisten ist es doch schon etwas aufwendiger das programm zu cracken wenn man ohne diesen mechanismus vorher nur Gleich einfach durch Ungleich ersetzen brauchte.

So, mal noch nen kleines Beispiel für die Leute die nicht wissen was ich meine:

Delphi-Quellcode:

type
  PBuffer255 = ^TBuffer255;
  TBuffer255 = array[0..255] of char;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var L1: TBuffer255;
    LSumme, LCount: Integer;
begin
 L1 := PBuffer255(@TForm1.Button1Click)^;
 LSumme := 0;
 for LCount := 0 to 255 do
 begin
   inc(LSumme, Byte(L1[LCount]));
 end;
 if LSumme = 35 then
 begin
   ShowMessage('ja');
 end;
 showmessage(inttostr(LSumme));
end;

Hi SirThornberry

eine ziemlich interssante Idee, hast Du noch eine Ahnung, wie man die Größe der Procedure rausbekommen könnte ?
Meine Versuche mit sizeof waren irgendwie erfolglos ! :-/