Passwort und Benutzername

[freak4fun]

Hallo,
ich versuche einen Keygenerator zu programmieren. Dabei hab ich folgende Probleme.

Als erstes möchte ich den Key gern an den Benutzernamen anpassen, aber ich weiß nicht wie. Ich hab überlegt die Buchstaben in Zahlen umzuwandeln, aber wie kann ich das in der Keyerzeugung nutzen?

Das zweite Problem resultiert daraus, denn wenn zwei oder mehr gleiche Benutzernamen benutzt werden, sollen die Keys trotzdem verschieden sein.

Habt ihr eine Idee?

mfg
freak

[fiasko]

Hallo,

kannst du mal sagen was du mit Keygenerator genau meinst? Willst du Serials generieren, oder geht's um einen Algo für ne Hash-Table oder was ganz anderes ?

[freak4fun]

Hm... sry.

Also ich will für ein Programm ( das es noch nicht gibt ) Serials erzeugen.
Soll heißen: Das Programm soll von mir sein. Um es zu registrieren muss man Benutzername und Key(serialkey) eingeben. Vorher läuft nix.
*überleg* Ich denke es würde dann so laufen. Mann schickt mir eine email mit dem gewünschten Benutzernamen und bekommt dann des Key. Oder hat jemand eine bessere Idee?

Wenn ich dann den benutzernamen erhalte will ich den nur in meinen Keygenerator eingeben und den Key per Knopfdruck erhalten. Dann soll aber das Programm des "Kunden" auch was mit dem Key anfangen können.

... ich finde das Kompliziert.

mfg
freak

[alcaeus]

Hallo freak4fun,

zum generieren des Keys koenntest du eine Hash-Funktion verwenden. Dabei bleibt vorerst das Problem mit gleichen Benutzernamen. Du koenntest aber auch verlangen, dass eine eMail-Adresse angegeben werden muss, und die Kombination von Benutzername und eMail einmalig sein muss (Daten muessen gespeichert werden). Somit hast du einen eindeutigen Key.

Greetz
alcaeus

[freak4fun]

Das ist eine super Idee, alcaeus!
Hm... aber dieses hash versteh och nicht ganz. Ich versteh darunter ( hab mir nen paar achen dazu angeschaut ) das man etwas verschlüsselt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Ziffer, Summe, MasterSumme, Laenge: Integer;
  Key, Name, NameOrd: String;
  KeyArray: Array[1..4] of String;
begin
  Name := EditName.Text;
  Laenge := Length(Name);
  for i := 1 to Laenge do begin
    Name[i] := upcase(Name[i]);
    NameOrd := NameOrd + '.' + IntToSTr(Ord(Name[i])-64);
  end;
  EditName.Text := NameOrd;
  Randomize;
  Summe := 0;
  MasterSumme := 0;                    stringlist
  for j := 1 to 4 do begin
    for i := 1 to 5 do begin
      Ziffer := Random (10);
      Summe := Summe + Ziffer;
      Key := Key + IntToStr(Ziffer);
    end;
    KeyArray[j] := Key;
    Key := '';
    MasterSumme := MasterSumme + Summe;
  end;
  EditKey.Text := KeyArray[1] + '-' + KeyArray[2] + '-' + KeyArray[3] + '-' + KeyArray[4];
  Label2.Caption := IntToStr(Summe);
  Label4.Caption := IntToStr(MasterSumme);
  ListBox1.Items.Add(EditKey.Text);
end;

Ist hier schon sowas wie dieses hash-Dingens drin?

Sry, aber ich versteh das echt nicht.

mfg
freak

[fiasko]

Hallo,

Zitat von freak4fun:

Hm... aber dieses hash versteh och nicht ganz. Ich versteh darunter ( hab mir nen paar achen dazu angeschaut ) das man etwas verschlüsselt.

Ein Hash hat erstmal überhaupt nichts mit Verschlüsselung zu tuhen. Die Idee ist das eine (große) Menge an Information auf eine kleinere, meist mit fester Größe, Menge an Information abgebildet wird. Diese Abbildung ist dabei nicht umkehrbar (außer alles durchprobieren). Wenn du nun aus <GEHEIMER TEXT>+<NUTZERSPEZ. TEXT> mittels einer Hash funktion dir einen Hash aurechnen läßt, dann braucht dein Programm nur das gleich zu machen. Der Nutzer gibt <NUTZERSPEZ. TEXT> und <HASH-WERT> an, und dein Prog. schaut ob hashfunc(<GEHEIMER TEXT>+<NUTZERSPEZ. TEXT>)==<HASH-WERT>. Nachteil ist dabei natürlich das der Geheime Text irgendwo im Quellcode steht... aber so sehr gesichert muß dein Programm ja sicher nicht sein

[freak4fun]

Hast du vielleicht ein Bsp dafür?

mfg
freak

[fiasko]

Zitat von freak4fun:

Hast du vielleicht ein Bsp dafür?

Nein, da ich i.d.R. nur freie Software schreibe, vorallem wenn ich meine Informationen dafür frei bekomme

Als Hash Funktion kommt etwas wie md5 oder sha1 in Frage. Für MD5 kann man z.B. http://www.fichtner.net/delphi/md5.delphi.phtml nehmen, gibt es ein schön einfache Funktion um Hash Werte von Strings zu berechnen. Der Rest müßte eigentlich klar sein.

[freak4fun]

Hallo,
hier jetzt mein Ergebnis.

Öhm... ja. Könntet ihr mal schreiben wie schnell ihr den Code/Key knackt? Und dann wie sicher der Generator ist?

mfg
freak

[Chegga]

Hi,

ich würde ihn ja mal gerne testen!
Aber ich kann es nicht öffnen!
Folgende Fehlermeldung:
Error
Runtime error 216 at 004034F6

MfG Marc