Simpler Generator macht Probs <:

[n1c3h4x0r]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var Key: String;
begin
 keys.lines.add('81LC-5U27-2LUU-C7HD-B546');
if keys.text= '81LC-5U27-2LUU-C7HD-B546' then
 keys.Lines.add('XD82-817E-18PE-E175-36CD');
end;

Dies ist der Code, den ich bisjetzt habe<:
Also zum Problem,

Ich würde gerne einen kleinen simplen key generator machen.
Bei jedem Buttonklick soll sich Memo.text (keys.text) einen anderen key holen,
und halt immer in einer neuen zeile^^

wäre für hilfe dankbar

[mkinzler]

Und woher soll dieser geholt werden?

[lbccaleb]

Vllt hilft dir das hier ein wenig weiter!!

[Sir Rufo]

Zitat von n1c3h4x0r:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var Key: String;
begin
 keys.lines.add('81LC-5U27-2LUU-C7HD-B546');
if keys.text= '81LC-5U27-2LUU-C7HD-B546' then
 keys.Lines.add('XD82-817E-18PE-E175-36CD');
end;

Also dieser Code produziert nach dem ersten Drücken von Button1 folgendes:

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD

und bei jedem weiteren

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD
81LC-5U27-2LUU-C7HD-B546

und weiteren

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD
81LC-5U27-2LUU-C7HD-B546
81LC-5U27-2LUU-C7HD-B546

und so weiter ...
Das sieht noch nicht mal ansatzweise wie ein KeyGen aus, eher wie ein Memo-Vollschreiber

cu

Oliver

[n1c3h4x0r]

Zitat von Sir Rufo:

Zitat von n1c3h4x0r:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var Key: String;
begin
 keys.lines.add('81LC-5U27-2LUU-C7HD-B546');
if keys.text= '81LC-5U27-2LUU-C7HD-B546' then
 keys.Lines.add('XD82-817E-18PE-E175-36CD');
end;

Also dieser Code produziert nach dem ersten Drücken von Button1 folgendes:

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD

und bei jedem weiteren

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD
81LC-5U27-2LUU-C7HD-B546

und weiteren

Code:

81LC-5U27-2LUU-C7HD-B546
XD82-817E-18PE-E175-36CD
81LC-5U27-2LUU-C7HD-B546
81LC-5U27-2LUU-C7HD-B546

und so weiter ...
Das sieht noch nicht mal ansatzweise wie ein KeyGen aus, eher wie ein Memo-Vollschreiber

cu

Oliver

Oli, was meinste warum ich euch expertis frage
Ich habe sogut wie Nullahnung von Variabelnutzung =P
Ich entwickel gerade mich, und wollte am Anfang nen Keygen coden...
Kann mir keiner ne kleine Erklärung schreiben wie ich es machen KÖNNTE ^^

achja danke bccale aber ich kann nichts mit anfangen -.-

Also nochmal Prob:


[b] Ich habe hier ca. 15 Keys. Die sollen per Buttonklick in ein Memofeld rein.
Ds heiss, drückt man einmal drauf, gibs nur einen Key in einer Zeile,
drückt man 5 Mal, aht man 5 Zeilen, pro Zeile ein ANDERER Key.

Versteht nun was ich meine? Hoffe ihr könnt es nachvollziehen =|

[Noedel]

achso : du willst also einen Key Generator bauen, der die keys schon vorgegeben hat...?!
hab ich das soweit richtig verstanden?

na dann leg doch n array of string an, das die 15 keys beinhaltet und auf knopfdruck lässt du dir ne randomzahl von 1-15 geben.
diese zahl nimmst du als index für dein array und fügst dann

Code:

memo1.lines.add(meinarray[zufall]);

ein ...

[Spiderpig_GER_15]

Also ich hätte da so ein vorschlag:

Delphi-Quellcode:

var: sCodeList: TStringList;
     i: integer;
begin
  sCodeList:= TStringList.create;
  sCodeList.loadfromfile('MeineCodes.txt');

  for i:= 1 to sCodeList.length do
  begin
    Memo1.Lines.Add(sCodeList[i]);
  end;

  sCodeList.Free;
end;

Also lege eine .txt in dem Ordner an in dem dein Projekt gespeichert ist, Der Stringlist wird dann Automatisch dieser Inhalt zugefügt. Und Anschließend werden alle ausgegeben. Hab das grad so runtergeschrieben, ungeprüft, sollte aber gehen.
Wie du das dann zufällig machst ist dann auch nicht mehr so schwer.

Wobei ein KeyGen ja keine Vorgegebenen Codes ausgibt, er GENeriert ja selsbt welche. Das geht anders

Hoffe ich konnte helfen

MfG Spiderpig