[UTILITY] IL MIO PASSWORD GENERATOR

[Yza_K]

Questo programmino l'ho fatto leggendo un post di un ragazzo che chiedeva aiuto per un pass gen...

.... ECCOLO !

p.s. una volta fatta la pass con alt+1 la scrivi dove vuoi ....

#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