a random program ;)

[layer]

i dont know why i made it, but i like random things, thanks CS and Slim for helping me

#include <GUIConstants.au3>
GUICreate ("Random Generator", 200, 100)
$char= GUICtrlCreateInput ("# of characters outputted", 10, 20, 140)
$make= GUICtrlCreatebutton ("Make", 10, 60)
$pw= GUICtrlCreateEdit ("", 70, 63.5, 125, 20, $ES_READONLY)
GUICtrlCreateLabel ("Output:", 135, 40)
GUISetState ()
GUICtrlSetState ($char, $GUI_FOCUS)
While 1
   $get= GUIGetMsg ()
   If $get= $make then
      Generate ()
   EndIf
   If $get= -3 then Exit
WEnd
    
Func Generate ()
   $read= GUICtrlRead ($char)
   If NOT StringIsDigit($read) Then Return
   $read= Number($read)
   GuictrlSetData ($pw, "")
   GUICtrlSetLimit ($pw, $read)
   For $i = 1 To $read
      $pass= Chr(Random(Asc("a"), Asc("z"), 1))
      GuictrlSetData ($pw, $pass, 1)
      GUICtrlSetData ($pw, Random (0, 9, 1), 1)
   Next
EndFunc

need the latest beta...

EDIT: i guess u could make -hard-to-guess- passwords, eh?

Edited January 25, 2005 by layer

[MHz]

Very nice, Layer.

The generate function is awesome. You could also add an updown ctrl on the input ctrl to enhance selection. Generating passwords, has never been so easy.

Thankyou for sharing

[layer]

Very nice, Layer.

The generate function is awesome. You could also add an updown ctrl on the input ctrl to enhance selection. Generating passwords, has never been so easy.

Thankyou for sharing

<{POST_SNAPBACK}>

thanks! i think ill update it now since i have no school today because we got some snow

EDIT: i actually named it "Password Generator" but i didnt want any one to think that it was a keygen or anything in that matter

Edited January 26, 2005 by layer