Passwort Creator [Aktuell Version 1.2|31.1.2005-20:15]

[Gast]

Hey,

nach vielen Problemen habe ich es endlich geschafft. Dieses Programm hätte ich gestern gut für mein Spiel "Click the Car" gut gebrauchen können. Vielleicht brauchen es ja auch noch andere von euch, deswegen habe ich es einfach mal erstellt.

Damit könnt ihr euch belibig viele Passwörter mit belibig vielen Stellen erstellen lassen. Diese dann anschließend entweder kopieren oder auch als Textdatei speichern.


Möglicher Anwendungszweck:
Du erstellst ein Game bei dem es nach jedem Level ein Passwort geben soll das man eingeben kann um bei der letzten Stelle weiter zu machen.

Der bekannte Bug und die geplaten Features wurden in Version 1.2 behoben/realisiert ! Download sehr empfehlenswert.
Gr33tZ!
Tigerhead

PS: Würde mich über Feedback freuen :)


Außerdem: Auf meiner kleinen Homepage www.Tigerhead.degibts alle Programme von mir ! Gucke doch einfach mal vorbei ;) Thx a lot !


*edit* Habe nur die URL verlinkt :)

[Matze]

Es wäre schön, wenn das Programm im Windows-Design wäre.

Und zu deinem Bug: Wieso hast du ihn nicht gleich behoben? :gruebel:

[Gast]

Ich weiß nicht wie das geht ... habe da auch erstmal keine nerven zu, denn "if edit1.text = ''" etc. geht irgendwie nicht :(

Mit dem Windows Design gucke ich auch mal sobald ich Lust habe :)

[toms]

Hi,

Nützliches Programm!

Zitat:

Bekannter Bug:
Wenn man in den beiden Feldern keine Zahl drin stehen hat, dann gibts eine Fehlermeldung.

Ich würde eine TSpinEdit Komponente nehmen. Dann hast du das Problem nicht.

[ReDoX]

Super Programm! :thumb:
Du könntest eine Passwort-Sicherheits-Prüfung machen d.h. du überprüfst die Sicherheit des Passworte
nach doppleten Buchstaben oder wiederholungen...
Mfg ReDoX

Edit: WOW mein 100er beitrag :dp:

[Matze]

Zu den Edits noch, mach's doch so:

Delphi-Quellcode:

  if not (Length(Edit1.Text) = 0) and
     not (Length(Edit2.Text) = 0) then
  begin
    //Hier dein Code
  end;

[Gast]

Dachte nicht, dass das Programm so gut ankommt :) Danke erstmal fürs Feedback. Matze dein Vorschlag funktioniert. Werde noch ein bisschen am Programm basteln und die neue Version dann uploaden *g* Lohnt sich jetzt aber noch nicht. Mal gucken was ich noch einbauen kann, hehe.

Gr33tZ!
Tigerhead

[toms]

Zitat:

Zitat von Matze

Zu den Edits noch, mach's doch so:

Delphi-Quellcode:

  if not (Length(Edit1.Text) = 0) and
     not (Length(Edit2.Text) = 0) then
  begin
    //Hier dein Code
  end;

Funktioniert nicht zuverlässig in jedem Fall (z.B wenn man Buchstaben aus
der Zwischenablage einfügt.)

Besser wäre eine Überprüfung, ob's sich um einen Integer Wert handlet.

[Gast]

Stimmt, habs mit der Zwischenablage auch gerade gemerkt, aber habe leider keinen Plan wie so eine integer Prüfung geht :/

[malo]

Wegen Fehlermeldungen: try..except :zwinker:

[mirage228]

...oder eventuell TryStrToInt oder StrToIntDef ;)

mfG
mirage228

[Gast]

Okay habe neue Version hochgeladen inklusive Neuem Screenshot !

[Rastaman]

Da kommt aber die gleiche Fehlermeldung, nur dass alle 2 sekunden eine neue Fehlermeldung kommt, wenn man da was nix eingibt.

[Gast]

Habs auch gerade gedehen .. :( mal nachher gucken

[Airblader]

Frag Fehleingaben beim Buttonclick ab, nicht per timer o.ä.

Denn wenn ich ne zahl ändern will, was ich standardmäßig mit dem lösch-key mache und nich durch markieren-überschreiben, nerven die dinger gewaltig ;)

Als Feature könnten evtl. gemishcte Groß-Klein sein (dmYza4B als beispiel) und variable zeichenketten (zahlen,buchstaben,beides,nur bestimmte, ...)

air

[Gast]

Mit der Großschreibung habe ich schon überlegt und auch nachgefragt (HIER). Aber leider noch keine Antwort. Mache mit dann evtl next Wochenende ran .. obwohl dann habe ich Geburtstag .. sorry falls es doch erst übernächstes wird.

[KLS]

Ich hab vor ca. einem halben Jahr ein ähnliches prog geschrieben (mit auswahl von Zahlen/Buchstaben(Groß/Klein)/Sonderzeichen), hier mal der quellcode.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, SysUtils, Forms, Dialogs, Spin, clipbrd, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    PWlaenge: TSpinEdit;
    Edit1: TEdit;
    Button1: TButton;
    CheckBox2: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox0: TCheckBox;
    Button2: TButton;
    CheckBox3: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,i2,zufall : byte;
  zahlen,sonder : array[0..3] of byte;
  PW : string;
begin
  for i2 := 0 to 3 do if TCheckBox(FindComponent('Checkbox'+inttostr(i2))).Checked then
  begin
    setlength(PW,PWlaenge.Value);
    for i := 0 to PWlaenge.Value-1 do
    begin
      zahlen[0] :=  48 + random(10);                                        //Zahlen
      zahlen[1] :=  65 + random(26);                                        //Großbuchstaben
      zahlen[2] :=  97 + random(26);                                        //Kleinbuchstaben
      sonder[0] :=  32 + random(16);
      sonder[1] :=  58 + random(7);
      sonder[2] :=  91 + random(6);
      sonder[3] := 123 + random(4);
      zahlen[3] := sonder[random(4)];                                       //Sonderzeichen
      repeat
        zufall := random(4);                                                //welcher Zeichentyp soll gewählt werden
      until TCheckBox(FindComponent('Checkbox'+inttostr(zufall))).Checked;
      PW[i] := char(zahlen[zufall]);
    end;
    edit1.Text := PW;
    break;
  end;
  if i2 = 4 then showmessage('Zeichensatz auswählen!');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Clipboard.Open;
  Clipboard.AsText := edit1.Text;
  Clipboard.Close;
end;

initialization
  randomize;
end.

Vieleicht kannst du dir hier was abgucken *g*

[Gast]

Danke :) Bin gerade das problemchen wegen diesem integer zu lösen :(

[Gast]

Bei mir heißt der Code für die PWs erstellen so:

Code:

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  result := '';
  SetLength(Result,Length);
  for i := 1 to Length do
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

Wie baue ich da Zahlen mit ein ? Also was muss ich ändern ? Sehe paralellen aber komme nicht an die Lösung :(

[KLS]

Z.B. so:

Delphi-Quellcode:

function RandName(Length : Integer):String; 
var 
  i : Byte; 
begin 
  result := ''; 
  SetLength(Result,Length); 
  for i := 1 to Length do 
  case random(2) of
    0 : Result[i] := Char(Random(25)+65);
    1 : Result[i] := Char(Random(10)+48);
  end;
end;

PS: Die Variable "Length" ist schlecht gewählt. Nenne sie besser "PWLength".

[Gast]

Danke .. werde in ca 15 Minuten eine neue Version Online erstellen :) Dankt für die Hilfe !!

[Rastaman]

Nice one :thumb:
Find ich wirklich gut, bis auf das design.
Kopier mal die angehängte datei in den Projektordner und schreibe dann noch Folgendes in den Implementation-Abschnitt im Code :

Code:

{$R design.res}

Dann isses gut :wink:

[Gast]

Sieht echt besser aus :) Beim nächsten Update ists mit drin .. bin jezt zu Faul :( Aber Danke !

[Airblader]

Super :thumb:

Nur felht mir noch eins:

du hast sicher etwas a la:

Delphi-Quellcode:

if length(trim(Form1.laenge.text)) > 0 then

Mir fehlt dann noch so etwas:

Delphi-Quellcode:

else
  Form2.laenge.text := '1';

air ;)

[Gast]

Verstehe ich irgendwie nicht so ganz .. :oops: Wofür soll das gut sein und warum fehlt dir das ?

Gr33tz!
Tigerhead