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? :gruebel:

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 :gruebel: oder was ganz anderes :mrgreen:?

[freak4fun]

Hm... sry. :oops:

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. :mrgreen:

... 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! :thumb:
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? :gruebel:

Sry, aber ich versteh das echt nicht.

mfg
freak

[fiasko]

Hallo,

Zitat:

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? :roll:

mfg
freak

[fiasko]

Zitat:

Zitat von freak4fun

Hast du vielleicht ein Bsp dafür? :roll:

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

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

[Chris1986]

bei mir das gleiche

[Nils_13]

Bei mir auch :?

[Chegga]

Das habe ich beim Googeln gefunden:
Delphi - Errors

Zitat:

$00D8 - 216 - Zugriffsverletzung

MfG Marc

P.S.: Wie man dieses Problem behebt, überlasse ich gerne
dem Eigentümer des Programms! :wink: :mrgreen:

[freak4fun]

Ups, entschuldigt bitte. Ich weiß nicht woran es liegt. Hat es jemand mal mit Win2000Pro getestet?
Morgen kommt hoffentlich eine lauffähige Version.

mfg
freak

[Thorben86]

ICh könnte es unter Win2kPro SP4 testen, bzw. wollte es, aber siehe da: Hat einen fehler verursacht und muss beendet werden :shock:

[freak4fun]

Bekommt es den gar keiner zum Laufen?! :wall: Ich hab das mal aufm Notebook mit XP getestet und es läuft. :gruebel:

mfg
freak

[SubData]

Bei mir gehts auch nich... Windows 2000 SP 3

[Jelly]

Bei mir auch nicht: W2k Prof Deutsch, SP4 :cry:

[MatthiasW]

Bei mir gehts auch nicht -> WindowsXP Prof :gruebel:

[freak4fun]

Huhu,

ich hab jetzt eine neuer Version hochgeladen. Sie enthält einen Bugreport (madcollection wie bei winspy). Ich hoffe das funktioniert auch. Ich hab das Problem auf keinem meiner Rechner reproduzieren können. :roll: Bin also auf eure Hilfe angewiesen.

mfg
freak

[Lasse2002]

Die neue Version hat bei mir keine Schutzverletzung mehr, aber sonst passiert auch nichts (kein Mainform).

Ich stelle allerdings fest, daß er 2 Dateien nicht findet:
mykeygenproject.enu
mykeygenproject.enu.dll

[freak4fun]

Ja, das ist ja interessant.
Also ich weiß nicht mehr weiter.

mfg
freak

[MatthiasW]

Also ich habs probiert, Resultat: "Diese Anwendung hat fehler verursacht und muß geschlossen werden" :? :gruebel:

[freak4fun]

So Leutz,
ich weiss langsam nervts, aber ihr kennt das ja wenn man etwas hinbekommen will muss man hartnäckig sein.
Also neue Version.
Bitte testen.

Danke an alle die schon so fleißig waren und auch noch sind.

mfg
freak

[Lasse2002]

Jetzt funktioniert es bei mir. Jetzt müssten nur noch die Buttons "Eintragen" und "Test" aktiviert werden...

[MatthiasW]

Auch bei mir gehts jetzt :-D und ich schließe mich meinem Vorgänger an die beiden Buttons sollten noch aktiviert werden.

[Chegga]

Jo,

klappt einwandfrei!!
(Außer den schon genannten Buttons)

MfG Marc

P.S.: Ich würde es nicht mit "Benutzername" machen,
sondern mit "eMail-Adresse". Dann ist der Account einmalig! :wink:

[SubData]

Hübsches Ding... gibs den Source? -g-

[freak4fun]

Da das Problem jetzt gelöst ist kommt das nächste.

Also ich will ja wissen wie sicher der Key ist. Wie kann ich das jetzt testen lassen?

1. Soll ich euch eine .exe geben wo man Name und Schlüssel eingeben muss und ihr sagt mir den Text der bei Erfolg kommt?

2. Soll ich euch einen Namen und einen Schlüssel geben und ihr versucht dann neue zu generieren?

3. ...

Wie soll ich das anfangen?

PS: In der Zwischenzeit arbeite ich weiter dran. Ich hoffe ihr macht es euch schwer. :zwinker:

achso: das ich den quellcode öffentlich mache hängt vom erfolg ab :mrgreen:

mfg
freak

[Jelly]

Zitat:

Zitat von freak4fun

1. Soll ich euch eine .exe geben wo man Name und Schlüssel eingeben muss und ihr sagt mir den Text der bei Erfolg kommt?

2. Soll ich euch einen Namen und einen Schlüssel geben und ihr versucht dann neue zu generieren?

Bedenke bitte die Vorgehensweise eines potentiellen Hackers. Der wird nicht versuchen, oder selten versuchen, geeignete Seriennummern zu generieren, die dein Programm dann freischalten sollen.

Irgendwo hast du ja in deinem Programm eine Bedingung stehen à la:

Delphi-Quellcode:

if SerialNumberIsValid (Number) then begin
   { hier mach was, wenn die Nummer richtig ist }
end ;

Ein Hacker sucht jetzt diese Stelle im Programm auf, und macht daraus ein

Delphi-Quellcode:

if not(SerialNumberIsValid (Number)) then begin
   { hier mach was, wenn die Nummer richtig ist }
end ;

und schon klappt jede nur denkbare Seriennummer, außer die vor dir selbst richtig erstellten.

Wenn du also nicht noch weitere Schutzmechanismen in dein Programm einbaust, kannst dus auch gleich ganz weglassen :-)

Das sei nur hier an dieser Stelle mal betont. Einen sicheren Softwareschutz zu erstellen ist schon etwas aufwendiger.

[freak4fun]

Mein Gott sei doch nicht so negertiv und vermassel uns allen den Spaß. Ich würde mich freuen, wenn ich ein Programm hätte, wo sich cracker dran setzen. :angel2:

Ich mach weiter und dann könnt ihr damit machen was ihr wollt. Auch du Jelly. :cyclops:

@Jelly: Nicht jeder kann Cracken. Lass dir das auch mal gesagt sein. :mrgreen:

mfg
freak

[freak4fun]

So hier nun ein neuer Versuch.

// edit So jetzt als .zip. Hoffe es geht!

mfg
freak

[MatthiasW]

Sag mal was machst du denn mit deinem KeyGen :shock: jetzt wird das Programm nicht mal mehr gestartet auch keine Fehlermeldung :!:

[freak4fun]

Öhm... bitte was?

:wiejetzt: :wiejetzt: :wiejetzt:

mfg
freak

[MatthiasW]

Zitat:

Zitat von freak4fun

Öhm... bitte was?

:wiejetzt: :wiejetzt: :wiejetzt:

mfg
freak

ich will dein Programm starten und nichts passiert.

[MatthiasW]

möglicherweise ist die EXE - defekt. Es erscheint kein neuer Prozess im Windows Task - Manager.
Auch ein neuer Download deiner App hat keine besserung gebracht.

[freak4fun]

Ich arbeite dran ... :drunken:

mfg
freak

[Bowler]

Hm. Also bei mir hat bisher jede Version funktioniert.
WinXP Pro SP2

[freak4fun]

Unbestätigten Meldungen zu Folge geht der Download jetzt. :drunken:

mfg
freak

[MatthiasW]

:thumb: Deine App funktioniert wieder. Das einzige was ich auszusetzen habe ist: die Form ist zu klein geraten, bitte korrigieren - sonst alles in bester Ordnung :mrgreen: