Hallo,
das Script von Sion S ( Zum Beitrag ) hat mich zu einem anderen Passwortgenerator gebracht.
Er generiert aus dem Benutzernamen, einer Zufallszahl und einigen Computerzeiten ein Passwort, welches standartmäßig 300 Zeichen lang ist. Es gibt allerdings einen "Kurzes Passwort"-Button und dann wird es nur ca. 32 Zeichen lang ( alle Angaben mit einem 1-Stelligen Benutzernamen ).
So sieht es dann aus:
[Blockierte Grafik: http://hauke96.bplaced.net/PC-World/Sonstiges/PassGen_01.bmp]
Und hier das Script:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Untitled - 4.ico
#AutoIt3Wrapper_outfile=Passwort Generator.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#Include <String.au3>
#Include <Misc.au3>
$passwort = "- Ihr Passwort -"
Global $benutzername
GUICreate("Passwort Generator", 300, 170)
$input_name = GUICtrlCreateInput("", 86, 10, 205, 20)
GUICtrlCreateLabel("Benutzername", 10, 13)
$btn_generieren = GUICtrlCreateButton("Generieren", 10, 35, 282, 20)
$btn_kurz = GUICtrlCreateButton("Kurzes Passwort", 10, 60, 282, 20)
$btn_kopieren = GUICtrlCreateButton("Passwort Kopieren", 10, 85, 282, 20)
$btn_beenden = GUICtrlCreateButton("Beenden", 10, 110, 282, 20)
Global $input_passwort = GUICtrlCreateInput($passwort, 10, 135, 282, 20)
GUISetState()
start()
func start()
while 5
$msg = GUIGetMsg()
$benutzername = GUICtrlRead($input_name)
Select
case $msg = $btn_generieren Or _IsPressed("0D")
$data2 = Random(0, 99)
$data = @MSEC & @SEC & @MSEC & @MSEC & @ScriptDir & @MSEC & @MDAY & @MIN & @MSEC
GUICtrlSetData($input_passwort, "Passwort wird Generiert")
GUICtrlSetData($input_passwort, _StringEncrypt(1, $data & $benutzername, $benutzername, $data2))
case $msg = $GUI_EVENT_CLOSE or $msg = $btn_beenden
Exit
case $msg = $btn_kopieren
ClipPut(GUICtrlRead($input_passwort))
case $msg = $btn_kurz
kurz()
EndSelect
WEnd
EndFunc
func kurz()
$data2 = Random(0, 99)
$data = @MSEC & @SEC & @MDAY
GUICtrlSetData($input_passwort, "Passwort wird Generiert")
sleep(100)
GUICtrlSetData($input_passwort, _StringEncrypt(1, $data & $benutzername, $benutzername, $data2))
start()
EndFunc
Download:
autoit.de/wcf/attachment/13401/
Ich freue mich über Verbesserungsvorschläge und Kritiken.
mfg
hauke96