ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Générateur aléatoire de mots de passe   


L'auteur

Anatole
France France
Membre Simple
# 0000000002
enregistré le 12/10/2004

Fiche personnelle

Note des membres
pas de note

Contributions > 01 - PRG : Programmation

Générateur aléatoire de mots de passe
# 0000000005
ajouté le 12/10/2004 19:42:22 et modifié le 26/10/2004
consulté 9746 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
Description
Cette procédure permet de générer aléatoirement des mots de passe.
Ce mot de passe est composé d'une succession de voyelles et de consonnes, ce qui permet de le rendre plus facilement mémorisable.
Les 3 derniers caractères sont des numériques.

Très pratique pour tous les systèmes où il y a des utilisateurs.
Code source :
?GenerePassword(8)

*--------------------------------------------------------------------------*
*---> Génère un mot de passe d'une longueur p_longueur
*---> Ce password ne contient que des alpha-numériques
*---> Il est composé d'une succession de voyelles et consonnes
*---> (plus facilement mémorisable)
*---> Les 3 derniers caractères sont des numériques
procedure GenerePassword(p_longueur as Integer) as String
local v_pass, v_voyelles, v_consonnes, v_i
  v_pass = ""
  v_voyelles = "aeiouy"
  v_consonnes = "bcdfghjklmnpqrstvwxyz"
  =rand(-1)
  for v_i=1 to p_longueur
    do case
      *---> On doit générer un digit
      case v_i >= p_longueur - 2
        v_pass = v_pass + str(int(rand()*10), 1)
      *---> On doit générer une console
      case v_i%2 = 0
        v_pass = v_pass + substr(v_consonnes, int(rand()*20) + 1, 1)
      *---> On doit générer une voyelle
      otherwise
        v_pass = v_pass + substr(v_voyelles, int(rand()*6) + 1, 1)
    endcase
  next
  return v_pass
endproc && GenerePassword
Commentaires
le 13/10/2004, Francis Faure a écrit :
C'est exactement le code que j'utilise.... ;)
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2023.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3