außerdem fängst Du mit der Einstellung Passwortlänge = 1 an - mittlerweile werden mindestens 10 vorgeschrieben, da man 8 Zeichen auf einem aktuellen Dualcore Laptop auch schon in einem Jahr (253 Tage bei 8 verwendeten aus 62 versch. mögl. Zeichen [Groß,Klein,Zahlen]) cracken kann.
oder arbeitest Du für den CIA und möchtest denen die Arbeit erleichtern?
... so, da wollen wir mal:
Da müßte in dem dritten TAB immer noch die Richedit-komponente sein.
Damit kannst Du formatierte RTF Dateien laden (sieht besser aus; dickere Überschriften usw.)
dann ein Button namens "Hilfe"
und in die zweite Form ein MEMO und ein Button 'Close'
ganz oben unter "implementation" in der ersten Form den Namen der zweiten unit eintragen, - also
Delphi-Quelltext
dann im Hilfe-Button der ersten Form
Delphi-Quelltext
1: 2: 3: 4: 5:
| try form2.Richedit1.lines.loadfromfile('.\HilfeDatei.rtf'); else MessageDlg ('Hilfe-Datei existiert nicht !',mtError, [mbOK], 0); end; |
oder
Delphi-Quelltext
1: 2: 3: 4: 5:
| if FileExists('.\HilfeDatei.rtf') then form2.Richedit1.lines.loadfromfile('.\HilfeDatei.rtf') else messag ... s.o. end; |
.\ im DateinamenString sorgt dafür, daß das Programm später im Anwendungs/Programm/exe) Verzeichnis - aus dem es gestartet wurde - nach der Datei sucht - damit vermeidest Du einen konkreten Pfad wie 'C:\Programme\MeinPWgenerator\Hilfe.rtf' - welcher auf anderen Systemen nicht stimmen muß und zu Fehlern führen könnte.
und dann kannste noch
statt der Radiobuttons die 5 Checkboxen anlegen und 1 weiteres Editfeld.
und machst dann im Generieren Button
Delphi-Quelltext
1: 2: 3: 4:
| if checkbox1.checked then Auswahl := 'ABCDE'; if checkbox2.checked then Auswahl := 'abcde'; ... if checkbox5.checked then Auswahl := 'ABCDEabcd123465' + Edit2.text; |
und genrierst dann davon.
und unter FORM.Create () machste
Delphi-Quelltext
1:
| Edit2.text := ' !"#$%&'()*+,-./:;<=>?@[\]^_`~'; |
(das erste ist ein LEERZEICHEN - könnte man auch noch optional mit ner weiteren Checkbox dranhängen/auslagern)
und dann noch:
ein Button 'Copy'
und trägst dann da ein:
Delphi-Quelltext
1:
| Clipboard.astext := Edit1.text; |
und fügst ganz oben in der unit noch unter USES Windows, sysutils, bla ... , clipbrd; ein, damit's läuft.
und dann vermeide aber bitte einen "Registrieren/KAUFEN - nur 29 Euro" Button
weil sowas gibt's schon wie Sand am Meer.
und erklär mir doch bitte noch, warum der bei 10.000 Zeichen ganze 4 Sekunden braucht?
[Aha, dafür ist also die Prograessbar doch notwendig ... aber ungewönlich ] - also, WARUM ?