einfacher Keygenerator

[Superfly]

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;