[..] Generer un nom au hasard

[kakashi545]

bonjour, alors voila j'aurais besoin d'un script a intégrer dans un autre qui génère au hasard parmi l'alphabet un nom dans une zone de texte ^^"

merci d'avance

[Dididj]

Quelque petites précision ne serait pas de trop...

-Un nom de maximum combien de caractères
-Un nom de minimum combien de caractères
-Avec ou sans les nombres
-Avec ou sans les caractères spéciaux ( Ex : é # / & )
-Avec ou sans les minuscules / majuscules
-Avec ou sans les espaces

Dididj

[kakashi545]

-Un nom de maximum combien de caractères:8
-Un nom de minimum combien de caractères:3
-Avec ou sans les nombres:avec
-Avec ou sans les caractères spéciaux ( Ex : é # / & ):sans
-Avec ou sans les minuscules / majuscules:avec les 2
-Avec ou sans les espaces:sans

merci et aussi pour tout autre raison je dois faire un script a un amis qui est plutot nul en code et tout le tralala il ma donne le fichier.bat a exécuter depuis son script j'ai mis sa comme code:
ShellExecute("C:\Documents and Settings\(...)\ip.bat") mais il semble ne pas marcher je veut dire que le .bat ce lance mais ne me dectecte pas comme admin je pense et donc ne fait pas ce que je demande mais quand c'est moi qui clique 2 fois sur le .bat il marche! un solution pour mes 2 problèmes ^^

[Dididj]

Je vais un peu regarder pour ton code. Par contre pour ton problème avec le .bat je ne sais pas.

P.S : pense a mettre les [..] dans le titre

[timmalos]

Pour le .bat, essaye plutot avec Run()

Il existe un script sur ce forum qui fait deja ca, en charchant dans generateur de mot de passe.

Edit:http://www.autoitscript.fr/forum/viewto ... eur#p18873

[kakashi545]

merci du lien j'y vois un peut plus claire mais il n'y a pas de limitation dans le script du lien? et il y a les caractère spéciaux hors moi je ne les veut pas ^^ et le .bat avec run ne marche toujour pas

ps: oups un petit oublie quand le script auras generer le nom je voudrais qu'il le marque dans le champ d'ecrit^^

[Iste]

il y a les caractère spéciaux hors moi je ne les veut pas ^^

Bah suffit de pas les mettre

Code : Tout sélectionner

;                   $CharFlag    - Use special chars in password.
;                                  0 = No
;                                  1 = Yes

[Dididj]

Aussi non il y a aussi ceci :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <UpDownConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PassWord Generator v1.0", 279, 211, 192, 124)
GUICtrlCreateLabel("PassWord Generator", 42, 8, 205, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

GUICtrlCreateLabel("Password Len", 115, 60, 83, 17)
$PassWrdLen = GUICtrlCreateInput("10", 67, 56, 40, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY,$ES_NUMBER))
GUICtrlCreateUpdown (-1)
GUICtrlSetLimit(-1, 20, 6)

$SpecialChars = GUICtrlCreateCheckbox("    Special Chars", 80, 96, 145, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$PassWrd = GUICtrlCreateInput("", 52, 136, 170, 21, BitOR($ES_CENTER,$ES_READONLY))

$Generate = GUICtrlCreateButton("Generate", 106, 176, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

GUICtrlSetState($Generate, $GUI_FOCUS)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        Case $Generate
            GUICtrlSetData($PassWrd, _PassWordGenerate(GUICtrlRead($PassWrdLen), _IsChecked($SpecialChars)))
    EndSwitch
WEnd

;===============================================================================
; Description:      Returns a password string with or without special chars.
; Parameter(s):     $PassWordLen - The len of desired password
;                   $CharFlag    - Use special chars in password.
;                                  0 = No
;                                  1 = Yes
; Requirement(s):   None
; Return Value(s):  Return a string.
;
; Author(s):        JBnH
; Note(s):
; Examples:         MsgBox(64,"Password without special chars", _PassWordGenerate(10, 0))
;                   MsgBox(64,"Password with special chars", _PassWordGenerate(10, 1))
;===============================================================================
Func _PassWordGenerate($PassWordLen, $CharFlag)
Local $PassWrd, $Global
    If $CharFlag = 1 Then
        $SpecialChar = StringSplit("&'_:;,.!@#$%*()-=+[]\/?", "")
        For $X = 1 to $SpecialChar[0]    
            $Global &= $SpecialChar[$X]      
        Next
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" & $Global,"")
    Else
   
        $Array = StringSplit("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    Endif
   
   
    For $X = 1 to $PassWordLen
        $PassWrd &= $Array[Random (1, $Array[0], 1)]
    Next
 
    Return $PassWrd
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

[kakashi545]

j'y comprend plus rien lol

je dois mettre quel script pour qu'il genere un nom et l'ecrive sur une case a ecrire pour un site?

[timmalos]

Essayez d'utiliser tout ce qu'on a mit, vous avez toutes les pistes.

Et Corrigez le titre comme on vous l'a déjà dit en rajoutant le [..] s'il vous plait


merci

[kakashi545]

j'aime bien le script de dididj avec la gui mais moi le probleme c'est que je ne veut pas de gui je veut enfaite que la souris déjà placer sur la zone a écrire tape un nom au hasard dans la zone si c'est possible

[20100]

it's smell like bruteforce...

j'aime bien le script de dididj avec la gui mais moi le probleme c'est que je ne veut pas de gui je veut enfaite que la souris déjà placer sur la zone a écrire tape un nom au hasard dans la zone si c'est possible

Tu veux écrire une string générer aléatoirement dans quel zone?

• Formulaire web?
• Inputbox d'une application?
• Fichier texte, Excel?

Bon sinon voila de quoi faire avec _RandomString($stringlen), tu peux evidemment modifier ton dictionnaire si besoin. J'ai mis l'alphabet, les chiffres et quelques char spéciaux. Mais tu peux très bien t'en inspirer pour rajouter ce que tu veux dans ton dictionnaire, même des motifs si tu le souhaites (par exemple : $motif[1] = ["toto"])

Code : Tout sélectionner

#include <Array.au3>

;===========================================================================================================
; Description : Création d'une string aléatoire
; Syntaxe     : _RandomString($stringlen)
; Parametere  : $stringlen = Taille de la string à générer
; Return      : (String) $string
;===========================================================================================================
Func _RandomString($stringlen)
    
    Local $alphabet[26] = ["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"]
    Local $number[10]   = [0,1,2,3,4,5,6,7,8,9]
    Local $special[6]   = [",",";",":","!","@","$"]
    
    Local $sizeMax = UBound($alphabet) + UBound($number) + UBound($special) ; 26 + 10 + 6 = 42
    
    Local $string = ""
    For $i=0 To $stringlen-1 Step 1
        $index = Random(0, $sizeMax-1, 1)
        Select
            Case $index < UBound($alphabet)
                $string &= $alphabet[$index]
            Case $index < UBound($alphabet) + UBound($number)
                $string &= $number[$index-UBound($alphabet)]
            Case Else
                $string &= $special[$index-UBound($alphabet)-UBound($number)]
        EndSelect       
    Next
    
    Return $string
EndFunc

; Exemple de la fonction
Local $randomString = _RandomString(40)
MsgBox(0, "", "RandomString = "&$randomString&@CRLF&"Size = "&StringLen($randomString) )
 

[julienduhavre]

Bonjour, serait-t-il possible de créer un générateur qui prenne seulement un chiffre, une lettre ?

Je vous remercie d'avance

[Tlem]

A adapter à vos besoins : http://www.autoitscript.fr/forum/viewto ... 963#p29963