Jump to content
Sign in to follow this  
Yza_K

[UTILITY] IL MIO PASSWORD GENERATOR

Recommended Posts

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...