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 ! :-/