[PROBLEM]generator

[Bum662]

Siemka zrobilby mi ktos na szybko zwykly kod generatora w ktorym jest do wyboru dlugosc hasla, czy duze litery i czy liczby?

[Keniger]

Global Const $CHR_AZ_LOW        = StringLower("abcdefghijklmnopqrstuvwxyz")Global Const $CHR_AZ_UP        = StringUpper("ABCDEFGHIJKLMNOPQRSTUVWXYZ")Global Const $CHR_NUMBERS    = "0123456789"Global $sUseCharacters = $CHR_AZ_LOW$hWnd = GUICreate("Password Generator.", 460, 175)GUICtrlCreateGroup("Options", 10, 10, 280, 75)GUICtrlCreateLabel("Password length:", 20, 30)$hPasswordLength = GUICtrlCreateInput(8, 130, 27, 40)$hUpDown = GUICtrlCreateUpDown($hPasswordLength)GUICtrlCreateLabel("Characters:", 20, 53)$hCharacters = GUICtrlCreateCombo("a-z", 130, 50, 150, 20, 0x0003)$hCurrentSequence = GUICtrlCreateLabel("Hover me to see your current sequence.", 10, 90, 280)$hGenerate = GUICtrlCreateButton("Generate", 10, 110, 135, 25)$hClearHistory = GUICtrlCreateButton("Clear history", 155, 110, 135, 25)$hPassword = GUICtrlCreateInput("", 10, 145, 280, 20)$hHistory = GUICtrlCreateEdit("", 300, 10, 150, 155, BitOR(0x0800, 0x0040, 0x00200000))GUICtrlSetData($hCharacters, "A-Z|0-9|a-z, A-Z|a-z, 0-9|A-Z, 0-9|a-z, A-Z, 0-9|< User defined ... >", "a-z")GUICtrlSetLimit($hUpDown, 99, 1)GUICtrlSetTip($hCurrentSequence, $sUseCharacters)GUISetState()While 1    Switch GUIGetMsg()        Case -3            Exit        Case $hCharacters            $sRead = GUICtrlRead($hCharacters)            If ($sRead == "a-z") Then                $sUseCharacters = $CHR_AZ_LOW            ElseIf ($sRead == "A-Z") Then                $sUseCharacters = $CHR_AZ_UP            ElseIf ($sRead == "0-9") Then                $sUseCharacters = $CHR_NUMBERS            ElseIf ($sRead == "a-z, A-Z") Then                $sUseCharacters = $CHR_AZ_LOW & $CHR_AZ_UP            ElseIf ($sRead == "a-z, 0-9") Then                $sUseCharacters = $CHR_AZ_LOW & $CHR_NUMBERS            ElseIf ($sRead == "A-Z, 0-9") Then                $sUseCharacters = $CHR_AZ_UP & $CHR_NUMBERS            ElseIf ($sRead == "a-z, A-Z, 0-9") Then                $sUseCharacters = $CHR_AZ_LOW & $CHR_AZ_UP & $CHR_NUMBERS            ElseIf ($sRead == "< User defined ... >") Then                $sUseCharacters = InputBox("Password Generator.", "Enter a character sequence.", "abcABC123!@#", "", 200, 100)            EndIf            GUICtrlSetTip($hCurrentSequence, $sUseCharacters)        Case $hGenerate            $sPassword = _GeneratePassword(GUICtrlRead($hPasswordLength), $sUseCharacters)            GUICtrlSetData($hPassword, $sPassword)            GUICtrlSetData($hHistory, $sPassword & @CRLF, "|")        Case $hClearHistory            GUICtrlSetData($hHistory, "")    EndSwitchWEndFunc _GeneratePassword($iLength, $sSequence)    Local $sResult    Local $aSplit = StringSplit($sSequence, "", 2)    For $i = 1 To $iLength        $sResult &= $aSplit[Random(0, UBound($aSplit) - 1, 1)]    Next    Return $sResultEndFunc

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#Include <Array.au3>

Opt("GUIOnEventMode", 1)

Global $sUpper = "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 "

Global $sLower = "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 "

Global $sSymbols = "! £ $ % ^ & * ( ) _ - + = # ~ @ ; : / ? . > , < \ | ¬ ` [ ] { } "

Global $sNumbers = "0 1 2 3 4 5 6 7 8 9 "

Global $bResultSwitch = False

Global $sResult

$winMain = GUICreate("Pass Generator", 325, 175, -1, -1)

$cbxUpper = GUICtrlCreateCheckbox("Uppercase Letters", 8, 16, 113, 17)

GUICtrlSetState(-1, $GUI_CHECKED)

$cbxLower = GUICtrlCreateCheckbox("Lowercase Letters", 8, 40, 113, 17)

GUICtrlSetState(-1, $GUI_CHECKED)

$cbxNumbers = GUICtrlCreateCheckbox("Numbers", 8, 88, 65, 17)

GUICtrlSetState(-1, $GUI_CHECKED)

$cbxSymbols = GUICtrlCreateCheckbox("Symbols", 8, 64, 65, 17)

$txtCount = GUICtrlCreateInput("10", 56, 110, 41, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))

GUICtrlCreateLabel("Length:", 8, 112, 40, 17)

$btnGo = GUICtrlCreateButton("Generate", 24, 144, 75, 25, 0)

$txtResult = GUICtrlCreateEdit("", 128, 8, 185, 129, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))

$btnCopy = GUICtrlCreateButton("Copy to Clipboard", 168, 144, 99, 25, 0)

GUISetState(@SW_SHOW)

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit", $winMain)

GUICtrlSetOnEvent($btnGo, "_Generate")

GUICtrlSetOnEvent($btnCopy, "_Copy")

While 1

WEnd

Func _Generate()

Local $sLib

Local $iCount = GUICtrlRead($txtCount)

$sResult = ""

If $iCount < 0 Or Not StringIsInt($iCount) Then Return 0

If GUICtrlRead($cbxLower) = $GUI_CHECKED Then $sLib &= $sLower

If GUICtrlRead($cbxUpper) = $GUI_CHECKED Then $sLib &= $sUpper

If GUICtrlRead($cbxNumbers) = $GUI_CHECKED Then $sLib &= $sNumbers

If GUICtrlRead($cbxSymbols) = $GUI_CHECKED Then $sLib &= $sSymbols

If $sLib = "" Then Return 0

StringStripWS($sLib, 3)

Local $aLib = StringSplit($sLib, " ")

For $I = 1 To $iCount

$sResult &= $aLib[Random(1, $aLib[0])]

Next

GUICtrlSetData($txtResult, $sResult)

EndFunc

Func _Copy()

Local $sText = GUICtrlRead($txtResult)

If $sText <> "" Then

ClipPut($sText)

EndIf

EndFunc

Func _Exit()

Exit

EndFunc

[Phoenix_PL]

Global Const $CHR_AZ_LOW = StringLower("abcdefghijklmnopqrstuvwxyz")
Global Const $CHR_AZ_UP = StringUpper("ABCDEFGHIJKLMNOPQRSTUVWXYZ")

i have no idea wtf is that.

 

nie używa się stringlower/upper jak podajesz już litery małe i duże -,-

 

Masz tu moje dwie funkcje funkcję:

; #FUNKCJA# =====================================================================================================================
; Nazwa ............: _PhoGenZnak
; Opis .............: Funkcja generująca dowolną ilosć losowych znaków
; Składnia .........: _PhoGenZnak($s_tryb, $i_ilosc)
; Parametry ........: $i_ilosc - Ilosć znaków do wygenerowania (domyslnie 10)
; $s_tryb - Flaga generowania (domyslnie all).
; Info - Flagi .....: Flagi są wykrywanie poprzez StringInStr. Mozliwe flagi:
; all - Do generowania są uzyte wszystkie mozliwe znaki. Ignoruje inne flagi.
; mlit - Do generowania są uzyte male litery
; dlit - Do generowania są uzyte duze litery
; num - Do generowania są uzyte cyfry
; chars - Do generowania są uzyte znaki
; Flagi mozna laczyc (oprocz all), nie trzeba ich oddzielac. Po wiecej informacji, jak moga byc umieszczone flagi, zapraszam do Helpa funkcji StringInStr.
; Zwracana wartosć .: Wygenerowane znaki
; Kody @error ......: 1 - Podana ujemna/nieprawidlowa ilosc znaków do wygenerowania
; 2 - Podane nieprawidlowe flagi
; Autor ............: Phoenix_PL, podziękowania dla wefhy za poprawki 
; ===============================================================================================================================
Func _PhoGenZnak($i_ilosc = 10, $s_tryb = "all")
If $i_ilosc <= 0 Then
SetError (1)
Return @error
EndIf
If Not StringInStr ($s_tryb, "mlit") And Not StringInStr ($s_tryb, "dlit") And Not StringInStr ($s_tryb, "num") And Not StringInStr ($s_tryb, "chars") And Not StringInStr ($s_tryb, "all") Then
SetError (2)
Return @error
EndIf
Local $k = 0, $p = 0, $pn = 0

Local $gener = ""
Local $return = ""
$i = 0
If StringInStr ($s_tryb, "all") Then
$gener = $PhoZnaki[0]&$PhoZnaki[1]&$PhoZnaki[2]&$PhoZnaki[3]
While $i <= $i_ilosc
$return &= StringMid($gener, Random(1, StringLen($gener), 1), 1)
$i += 1
WEnd
SetError (1)
Return $return
EndIf
If StringInStr ($s_tryb, "mlit") Then $gener = $gener & $PhoZnaki[0]
If StringInStr ($s_tryb, "dlit") Then $gener = $gener & $PhoZnaki[1]
If StringInStr ($s_tryb, "num") Then $gener = $gener & $PhoZnaki[2]
If StringInStr ($s_tryb, "char") Then $gener = $gener & $PhoZnaki[3]
While $i <= $i_ilosc
$return &= StringMid($gener, Random(1, StringLen($gener), 1), 1)
$i += 1
WEnd
Return $return
EndFunc

; #FUNKCJA# ====================================================================================================================
; Nazwa .............: _PhoGenChars
; Opis ..............: Funkcja generuje losowe znaki z tablicy ASCII
; Składnia ..........: _PhoGenChars($i_ilosc)
; Parametry .........: $i_ilosc - ilosc generowanych znaków.
; $i_od - Od którego znaku losować (maksimum 254, minimum 0)
; $i_do - Do którego znaku losować (maksimum 255, minimum 1)
; Zwracane wartosci .: Wygenerowane znaki
; Kody @error .......: 1 - Nieprawidłowa ilosć znaków
; 2 - Nieprawidłowy parametr $i_od
; 3 - Nieprawidłowy parametr $i_do
; Autor .............: Phoenix_PL
; Uwagi .............: UWAGA! FUNKCJA MOZE POWODOWAĆ ANOMALIE W SYSTEMIE JEŚLI WYSYŁANE (SEND & CONTROLSEND) BĘDĄ KODY STERUJĄCE (ZNAKI 0-31 I 127)
; Po informacje na ten temat zapraszam na wikipedię: http://pl.wikipedia.org/wiki/ASCII
; ===============================================================================================================================
Func _PhoGenChars($i_ilosc, $i_od = 0, $i_do = 255)
If $i_ilosc <= 0 Then
SetError(1)
Return @error
EndIf
If $i_od < 0 Or $i_od > 255 Then
SetError(2)
Return @error
EndIf
If $i_do < 1 Or $i_do > 255 Then
SetError(3)
Return @error
EndIf
$i = 0
Local $chars = ""
While $i <= $i_ilosc
$chars &= Chr(Random($i_od,$i_do, 1))
$i += 1
WEnd
Return $chars
EndFunc

[xDeStRuCtx]

@2up

po co konwertujesz wielkie litery na wielkie, a małe na male?

poza tym, lepiej zamiast selectów w których wybierasz zestawy zrobić checkboxy.