Mehrere Strings mit gleichem MD5 Wert

[Dust Signs]

Ich hab sowas auch mal gemacht - is aber schon einige Zeit her. Ebenfalls keine Ahnung, wie sicher es ist - ob es Kollissionen erzeugt kannst du ja ausprobieren :mrgreen:

Dust Signs

[Neutral General]

Wie meinst du das mit der Quersumme ?
Ach ja : Ich will das Programm ja (falls es nicht so gut wird wie ich es mir vorstelle^^) nicht verkaufen... Das Programm werden wahrscheinlich eh nur ein paar Freunde von mir benutzen :mrgreen:
Das mit dem CD-Key soll halt nur etwas professionell aussehen und verhindern das einer mehr als ein Account in meinem Programm hat.

[barf00s]

Quersumme(13) = 1 + 3 = 4

Quersumme(123143522) = 1 + 2 + 3 + 1 + 4 + 3 + 5 + 2 + 2 = 23

[brechi]

nehmen wir an du hast nen string "ABCDEFG" dann addiert du alle ordinalwerte von den ascizeichen zusammen

Delphi-Quellcode:

var i, qs: integer;
begin
  qs := 0;
  for i := 1 to lenght(s) do qs := qs+ord(s[i]);
end;

dann muss halt qs immer z.b. 1360 sein

oder du nimmst ne zahl und prüfst ob die durch ne primzahl dividiert werden kann

Delphi-Quellcode:

var i: integer;
begin
  i := strtointdef(edit1.text,0);
  if i <> 0 then
  begin
    if i mod 1337 = 0 then //gültig
  end;
end;

[Neutral General]

@ brechi : danke ich glaube das reicht für mich.
@ barf00s : Ich weiß schon was normalerweiße eine Quersumme ist (Sollte man mit 16 wissen ;))
Aber da man von Strings normalerweiße keine Quersumme erstellen kann hab ich gefragt wie das
mit Strings gehen soll.

[Neutral General]

Ich hab mir jetzt eine Function gebaut die CD-Keys generieren soll aber es funktioniert nicht richtig -.-

Delphi-Quellcode:

function CreateKey : String;
var qs : Integer;
    r : Integer;
    s : String;
begin
qs := 0;
 repeat
  r := random(25)+65;
  s := s+ Chr(r);    // Zufälligen buchstaben hinzufügen
  qs := qs + r;      // der Quersumme hinzufügen
  if qs + 65 > 974 then begin  // falls Kein "A" mehr reinpasst
   qs := qs - r;  // Quersumme eins zurücksetzten
   delete(s,length(s)-1,1); // String auch den letzten buchstaben löschen
   s := s + chr(975-qs); // und den buchstaben hinzufügen das es passt
   qs := qs + (975-qs);  // und das auch zur Quersumme hinzufügen
  end;
 until qs = 975;
 Result := s;
end;

mit der Function check ich die Keys :

Delphi-Quellcode:

function IsRight(S : String) : Boolean;
var i, qs: integer;
begin
  qs := 0;
  for i := 1 to length(s) do begin
   qs := qs+ord(s[i]);
  end;
  if qs = 975 then Result := true
  else Result := false;
end;

so gehts in der praxis

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := CreateKey;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if IsRight(Edit1.Text) then ShowMessage('Stimmt :)');
end;

[MrKnogge]

Was genau funktioniert denn nicht ?

[Neutral General]

Ach so hups hab ich ganz vergessen ^^
Also die Strings haben nicht alle die gleiche Quersumme -.-
sie werden zwar generiert aber die Quersumme ist irgendwie immer verschieden.
Nicht drastisch aber dennoch verschieden...

[jfheins]

Schau mal:

Delphi-Quellcode:

if qs + 65 > 974 then begin  // müsste es nicht > 975 heißen ??
   delete(s,length(s)-1,1); // sicher, dass du den vorletzten Buchstaben löschen möchtest ?

[Neutral General]

Lol Thx... Da ist bei mir irgendwie ein Fehler in der Logik :mrgreen: