Password Generator NonVCL ~22kb (neu 28.03.09)

[lbccaleb]

Hey there,

angetrieben von diesem Thread:

Passwort Generator

Hatte ich ja wie die anderen auch, mich rangesetzt und auch einen Passworgenerator geschrieben! Dabei hab ich mich an das Design und den code von "Rollstuhlfahrer" gehalten, der ja so schon gut genug war. Nur leider ein wenig zu gross. Also hab ich das ganze Ding in nonVCL umprogrammiert...

Hier der Link zu dem Passwort Generator von Rollstuhlfahrer:

Passwort Generator von Rollstuhlfahrer



Neue Version (30.07.08 )
nun wird demonstriert, wie ihr das passwort auch in die zwischenablage bekommt..
diese wurde mit einer CheckBox gelöst, siehe Screenshot

Neue Version (01.02.09 )
Habe nun eine Funktion mit eingebaut, die anzeigt wie sicher das PW ist!
Diese Funktion ist hier zu finden:
PassphraseQuality
Das Programm zeigt die Sicherheit nun in Prozent an und Färbt das Edit ein!

Neue Version (28.03.09 )
Nun können auch eigene Chars ausgewählt werden!

[Fussball-Robby]

Das Programm ist schön klein, nur leider wird auch nichts angezeigt (Anhang)...

[Die Muhkuh]

Du hast zweimal Kleinbuchstaben + Zahlen in der Box stehen, aber einmal sind es Großbuchstaben. ;)

Benutzerdefiniert fehlt mir noch.

[lbccaleb]

Zitat:

Zitat von Fussball-Robby

Das Programm ist schön klein, nur leider wird auch nichts angezeigt (Anhang)...

ja, ich sag ja irgendwo ist noch nen fehler drinn, nur das er gar nichts anzeigt das ist auch mal merkwürdig, woran liegt das denn?? komisch komisch irgendwo ist da noch der wurm drin...

[Luckie]

Was den Fehler angeht, einfach mal in der Hilfe anchgucken unter runtime errors:

Zitat:

201 Range check error

[lbccaleb]

Zitat:

Zitat von Luckie

Was den Fehler angeht, einfach mal in der Hilfe anchgucken unter runtime errors:

Zitat:

201 Range check error

das hab ich schon, wir haben in dem anderen fred schon darüber disskutiert, nur komisch ich hab nicht wirklich nen plan, wieso der fehler auftritt und wo, ursprünglich hieß es, das es an den zuweisungen der schriften liegt, nur wenn ich diese raus nehme kommt der fehler immer noch...

und wieso gar nichts im fenster angezeigt wird, das weiß ich auch nicht genau, denn das hatte ich noch gar nicht..

[FAlter]

Hi,

zu dem Range Check hab ich doch schon was gepostet. Entweder Typecasten oder Range Checks ausstellen. THandle ist nun einmal unsigned und die Parameter von SendMessage signed. Die Parameter von SendMessage muss man öfters mal Typecasten, z. B. auch Pointer->Integer, in deinem Fall THandle->Integer.

Mit den Änderungen, die ich da gepostet habe, konnte ich das Programm dann auch starten. (Vorher kamm ja immer die Fehlermeldung).

Mfg
FAlter

[Luckie]

Hilfe lsen bildet. ;)

Zitat:

The UPDOWN_CLASS window class is registered when the common controls DLL is loaded. If you create an up-down control without using the CreateUpDownControl function, you must ensure that the DLL is loaded. You can do so by using the InitCommonControls function.

Delphi-Quellcode:

var
  {Fensterklasse}
  wc: TWndClassEx = (
    cbSize          : SizeOf(TWndClassEx);
    Style           : CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc     : @WndProc;
    cbClsExtra      : 0;
    cbWndExtra      : 0;
    hbrBackground   : color_btnface + 1;
    lpszMenuName    : nil;
    lpszClassName   : ClassName;
    hIconSm         : 0);
  msg: TMsg;

begin
  InitCommonControls;  // <- benötigt für SpinEdit
  SetLastError(0);
  wc.hInstance  := hInstance;
  wc.hIcon      := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor    := LoadCursor(0, IDC_ARROW);

  {Fenster anmelden}
  RegisterClassEx(wc);
  Writeln(GetLastError);
  {Fenster erstellen}
  CreateWindowEx(0, ClassName, AppName, WS_CAPTION or WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX, 0, 0, WindowWidth, WindowHeight, 0, 0, hInstance, nil);
  // ...;
  // ...;

GetLastError war übrigens 2 (Datei ncht gefunden) nach RegisterCLassEx.

[lbccaleb]

ich hab jetzt die dinge berücksichtig, und oben noch mal eine neue version hochgeladen...
jetzt hatte ich keine fehler mehr, bleibt bloß noch die frage wieso das fenster lehr geblieben ist... ?? :gruebel:

[Luckie]

Das habe ich dir doch gerade erklärt.