Password Generator, Mi serve il vostro aiuto x finirlo

#include <guiconstants.au3>
$form=guicreate ("Password Generator",300,300)
$inizia=GUICtrlCreateButton ("Generate a password",10,80)
$setnum=GUICtrlCreateInput ("Select the lenght of the password",10,45,200)
$spiegaz=GUICtrlCreateLabel ("This generate a password beetween 2 and 16 character"&@CRLF &" insert a number and click generate",10,10)
guisetstate (@sw_show)
sleep (1000)


;Random letter
If Random() < 0.5 Then
;Capitals
$Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

If Random() < 0.5 Then
;Capitals
$Letter2 = Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter2 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

If Random() < 0.5 Then
;Capitals
$Letter3= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter3 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif



$num=random(0,9,1)

If Random() < 0.5 Then
;Capitals
$Letter4= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter4 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

$num2=random(0,9,1)

$num3=random(0,9,1)

If Random() < 0.5 Then
;Capitals
$Letter5= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter5 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif


If Random() < 0.5 Then
;Capitals
$Letter6= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter6 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

If Random() < 0.5 Then
;Capitals
$Letter7= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter7 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

$num4=random(0,9,1)


If Random() < 0.5 Then
;Capitals
$Letter8= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter8 = Chr(Random(Asc("a"), Asc("z"), 1))
Endif

If Random() < 0.5 Then
;Capitals
$Letter9= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter9 = Chr(Random(Asc("a"), Asc("z"), 1))
EndIf

If Random() < 0.5 Then
;Capitals
$Letter10= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter10= Chr(Random(Asc("a"), Asc("z"), 1))
EndIf

If Random() < 0.5 Then
;Capitals
$Letter11= Chr(Random(Asc("A"), Asc("Z"), 1))
Else
;Lower case
$Letter11= Chr(Random(Asc("a"), Asc("z"), 1))
EndIf

$num5=random(0,9,1)
;$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8&$Letter9&$Letter10&$num5&$Letter11


while 1
$form=guigetmsg()
Switch $form
case $inizia
Switch GUICtrlRead($setnum)        
Case '2'
$password=$Letter&$num        
Case '3'
$password=$Letter&$Letter2&$num        
case "4"
$password=$Letter&$Letter2&$Letter3&$num
case "5"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4
case "6"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2
case "7"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3
case "8"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5
case "9"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6
case "10"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7
case "11"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4
case "12"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8
case "13"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8&$Letter9
case "14"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8&$Letter9&$Letter10
case "15"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8&$Letter9&$Letter10&$num5
case "16"
$password=$Letter&$Letter2&$Letter3&$num&$Letter4&$num2&$num3&$Letter5&$Letter6&$Letter7&$num4&$Letter8&$Letter9&$Letter10&$num5&$Letter11
EndSwitch
$input=GUICtrlCreateInput($password,10,120)
case $gui_event_close
Exit
EndSwitch
WEnd

#cs
                           YZA_K 4 www.EnG2ItA.net & Staff ....   since 1982 to 2008 LOL

                                                   Greeting to:
dkdk_it,Max,romsempire,BAT,serassone,nonno fabio,mf3imp,Taliesin,kontini e specie al grandissimo OnePiece!!!

#ce
;
#include <GUIConstants.au3>

HotKeySet("!1", "alt1")

DIM $na
DIM $NB
dim $a
dim $b
dim $c
dim $x
dim $password
dim $K = ""

GUICreate("Password Generator '08",260,180)
GUICtrlCreateLabel ("La lunghezza deve essere da 4 a 20 caratteri "&@CRLF &"Scegli la tua lunghezza....."&@CRLF &"By YZA_K ,www.eng2ita.net o www.wincert.net",10,36)
GUICtrlCreateLabel ("SCRIVI LA PASS CLICCANDO -> ALT+1",10,86)
$NA = GUICtrlCreateCombo ("", 10,10)
GUICtrlSetData(-1,"QUATTRO CARATTERI|CINQUE CARATTERI|SEI CARATTERI|SETTE CARATTERI|OTTO CARATTERI|NOVE CARATTERI|DIECI CARATTERI|UNDICI CARATTERI|DODICI CARATTERI|TREDICI CARATTERI|QUATTORDICI CARATTERI|QUINDICI CARATTERI|SEDICI CARATTERI|DICIASETTE CARATTERI|DICIOTTO CARATTERI|DICIANNOVE CARATTERI|VENTI CARATTERI","")
GUISetState ()
$NB = GUICtrlCreateButton ("GENERA LA PASSWORD",15,108)
GUISetBkColor (0xEE1E3EE)

; LOL
While 1
   $msg = GUIGetMsg()
       
   If $msg = $GUI_EVENT_CLOSE Then ExitLoop
   
   if $msg = $nb Then
       $K = GUICtrlRead($nA)
       YZAK()
       $RISUL=GUICtrlCreateInput($password,15,148)
       
   EndIf
   
Wend
EXIT

Func AZmai()  
   $x =random(1,3,1)
   If $x = 1 Then
       AZmaix()
   endif
   if $x = 2 Then
       azminx()
   endif
   if $x = 3 Then
       anumx()        
   endIf
   
EndFunc

Func AZmaix()  
   $a = Random(1,26,1)
   If $a = 0 Then
  ;$b = Chr(32)
   Else
       $b = Chr($a + 64)
   EndIf
EndFunc

Func azminx()  
   $a = Random(1,26,1)
   If $a = 0 Then
  ;$b = Chr(32)
   Else
       $b = Chr($a + 96)
   EndIf
EndFunc

Func anumx()  
   $a = Random(1,10,1)
   If $a = 0 Then
  ;$b = Chr(32)
   Else
       $b = Chr($a + 47)
   EndIf
EndFunc

Func alt1()
   sleep (288)
   send ($password)
EndFunc

Func YZAK()
   $password=""
   Switch $K
       case $K = "QUATTRO CARATTERI"
           for $i=1 to 4
           AZmai()
           $password=$password&$b
           next
       case $K = "CINQUE CARATTERI"
           for $i=1 to 5
           AZmai()
           $password=$password&$b
           next
       case $K = "SEI CARATTERI"
           for $i=1 to 6
           AZmai()
           $password=$password&$b
           next    
       case $K = "SETTE CARATTERI"
           for $i=1 to 7
           AZmai()
           $password=$password&$b
           next    
       case $K = "OTTO CARATTERI"
           for $i=1 to 8
           AZmai()
           $password=$password&$b
           next
       case $K = "NOVE CARATTERI"
           for $i=1 to 9
           AZmai()
           $password=$password&$b
           next
       case $K = "DIECI CARATTERI"
           for $i=1 to 10
           AZmai()
           $password=$password&$b
           next
       case $K = "UNDICI CARATTERI"
           for $i=1 to 11
           AZmai()
           $password=$password&$b
           next
       case $K = "DODICI CARATTERI"
           for $i=1 to 12
           AZmai()
           $password=$password&$b
           next
       case $K = "TREDICI CARATTERI"
           for $i=1 to 13
           AZmai()
           $password=$password&$b
           next
       case $K = "QUATTORDICI CARATTERI"
           for $i=1 to 14
           AZmai()
           $password=$password&$b
           next
       case $K = "QUINDICI CARATTERI"
           for $i=1 to 15
           AZmai()
           $password=$password&$b
           next
       case $K = "SEDICI CARATTERI"
           for $i=1 to 16
           AZmai()
           $password=$password&$b
           next
       case $K = "DICIASETTE CARATTERI"
           for $i=1 to 17
           AZmai()
           $password=$password&$b
           next
       case $K = "DICIOTTO CARATTERI"
           for $i=1 to 18
           AZmai()
           $password=$password&$b
           next
       case $K = "DICIANNOVE CARATTERI"
           for $i=1 to 19
           AZmai()
           $password=$password&$b
           next
       case $K = "VENTI CARATTERI"
           for $i=1 to 20
           AZmai()
           $password=$password&$b
           next        
   EndSwitch
EndFunc

$num = InputBox ("Password generator" , "Inserisci il numero di caratteri della password")
Dim $array [61] = ["a" , "b" , "c" , "d" , "e" , "f" , "g" , "h" , "i" , "j" , "k" , "l" , "m" , "n" , "o" , "p" , "q" , "r" , "s" , "t" , "u" , "v" , "w" , "x" , "y" , "z" , "1" , "2" , "3" , "4" , "5" , "6" , "7" , "8" , "9" , "A" , "B" , "C" , "D" , "E" , "F" , "G" , "H" , "I" , "J" , "K" , "L" , "M" , "N" , "O" , "P" , "Q" , "R" , "S" , "T" , "U" , "V" , "W" , "X" , "Y" , "Z"]

$res = ""
$i = 0
While $i <= $num
       $r = Random (1 , UBound ($array) - 1 , 1)
       $res &= $array [$r]
       $i += 1
WEnd

MsgBox (0 , "Password generator" , "Password generata: " & $res)

$gui = GUICreate("Password Maker" , 250 , 250)
$input = GUICtrlCreateInput("" , 30 , 140)
$inputn = GUICtrlCreateInput("" , 110 , 50 , 40)
$gen = GUICtrlCreateButton("Genera" , 108 , 80)
$pass = ""
GUICtrlCreateLabel("scrivi di quanti caratteri vuoi la password" , 40 , 30)
GUISetState()
While 1
       Switch GUIGetMsg()
               Case -3
                       Exit
               Case $gen
                       _gen()
       EndSwitch
WEnd
Func _gen()
       For $i = 0 To GUICtrlRead($inputn)
               $var = Random(1, 3 , 1)
               If $var = 1 Then
                       _number()
               ElseIf $var = 2 Then
                       _upper()
               ElseIf $var = 3 Then
                       lower()
               EndIf
               GUICtrlSetData($input , $pass)
       next
       $pass = ""
EndFunc
Func _number()
       $simb = Random(48 , 57, 1)
       $simbc = Chr($simb)
       $pass &= $simbc
       Return $pass
EndFunc
func _upper()
       $upper = Random(65 , 90 , 1)
       $upperc = Chr($upper)
       $pass &= $upperc
       Return $pass
EndFunc
Func lower ()
       $lower = Random(97 , 122 , 1)
       $lowerc = Chr($lower)
       $pass &= $lowerc
       Return $pass
EndFunc