Zitat von
PierreB:
Zitat von
freak4fun:
Ja, ganz genau. Wie kommst du damit klar?
Mf
freak
Ähm naja, ein bisschen Quelltext interpretieren kann ich auch.
Nur komm ich mit den Rechenoperatoren nicht so ganz klar. Ich möchte das statt
Ergebnis[1] := {26}ord('P')-ord('7')+1;
der 26 die Summe 29 berechnet wird. Was muss ich das ändern ? Diese Berechnungsroutine versteh ich nicht so ganz. Und wenn ich dann das mit der 29 hab, wie muss ich das in der Abfrage ändern ?
Thanx
Hi Pierre
Also ich schaffe es nur den serial algo zu ändern in der h.dll ,bloß scheiter ich beim keygen ändern des algos in der G.dll.
Hat wer ein tip für mich bitte
Hier mal die H.dll wen ich hier was änder, ändert sich die richtige serial wie es sein sollte, funzd auch zu 100% super wie es sollte
habe teste weise mal die Summe=26 auf 29 geändert
Delphi-Quellcode:
Case j of
1: begin
if not (Summe = 26) then (Zu testzwecken auf 29 geändert)
OK := false;
end;
2: begin
if not (Summe = 16) then
OK := false;
end;
3: begin
if not (Summe = 21) then
OK := false;
end;
4: begin
if not (Summe = 31) then
OK := false;
end;
end;
end;
Hier kommt das Problem in der G.dll
Habe einfach mal in der keygen G.dll aus
Ergebnis[1] := {26}ord('P')-ord('7')+1;
das gemacht
Ergebnis[1] := {29}ord('P')-ord('7')+1;
Bloß der keygen funzd nicht zu der geänderten H.dll?
Hat wer ein Beispiel zum leichteren verstehen
Danke schon mal für jede hilfe
Delphi-Quellcode:
if Start then begin
Ergebnis[1] := {26}ord('P')-ord('7')+1; (Zu testzwecken auf 29geändert)
Ergebnis[2] := {16}ord('X')-73+1;
Ergebnis[3] := {21}ord('I')-ord('?')+10+1;
Ergebnis[4] := {31}ord('q')-ord(')')-42+1;
for j := 1 to 4 do begin
Randomize;
repeat
Block := '';
Summe := 0;
for i := 1 to 5 do begin
Ziffer := Random (10);
Summe := Summe + Ziffer;
Block := Block + IntToStr(Ziffer);
end;
until
Ergebnis[j] = Summe;
if Ergebnis[j] = Summe then
Key := Key + Block + '-';
end;