Discussion :

[laadhar]

Bonjour,

je cherche à controler la validité d'un mot de passe dans mon appli.
Je dois pour ça tester qu'il existe au moins un caractère alphabétique, un mix de majiscules et de miniscules, un numérique, et un spécial..

j'aurais voulu savoir s'il ya un moyen rapide pour faire ça, sans passer par des boucles If sans fin..

J'ai entendu dire qu'il y avait les expressions régullières pour ça..
qqn peut -il m'éclairer sur ça?
Merci bp

[denokan]

je ne suis pas vraiment sûr que les expressions régulières soient la solution à ton problème (et de plus elles ne sont pas gérées nativement par Delphi), mais tu peux faire très facilement une machine à caractères :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
function IsPassWordOK(password : String) : Boolean;
var
  TrouveMajus, TrouveMinus, TrouveNumeric, TrouveSpecial : Boolean;
  i : Integer;
begin
  // initialise
  TrouveMajus := False;
  TrouveMinus := False;
  TrouveNumeric := False;
  TrouveSpecial := Boolean;
 
  // examine le mot de passe
  for i := 0 to Length(password) - 1 do begin
    // est-ce une majuscule ?
    TrouveMajus := TrouveMajus or (password[i] in ['A'..'Z']);
    TrouveMinus := TrouveMinus or (password[i] in ['a'..'z']);
    TrouveNumeric := TrouveNumeric or (password[i] in ['0'..'9']);
    TrouveSpecial := TrouveSpecial or (password[i] in ['$', '%']);
  end;
 
  result := TrouveMajus and TrouveMinus and TrouveNumeric and TrouveSpecial;
end;

[laadhar]

Merci pour la solution..

j'ai voulu utiliser des expressions régulières parce que j voulais que la méthode soit plus orientée vers du Dot Net com on compte migrer l'appli en Dot Net...

en fait, je viens de me renseigner..
Les expressions régulières ne sont effectivement pas gérées nativement en delphi.. elles utilisent un composant qui ne figure pas dans un Delphi de base..

donc je suis bien preneur de ta méthode.. merci bien

[laadhar]

par contre, comment on peut faire ça par les codes Ascii..???

en fait, pour les caractères spéciaux, j'en ai un ptit paquet et je vé pas à m'amuser à tous les écrire!

comment dire que TrouveSpecial := Ascii(Password) de (0*01 à 0*0f) et de (0*1a à 0*20) ??

Merci

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Ord(S[i]) in [12..78]

Ord retourne le code ASCII d'un caractère

[laadhar]

juste une question..
comment tu sais que c'est [12..78]??
ça m'aiderait mieux à comprendre.. Merci

[laadhar]

d'ailleurs g vérifié..
il ya des caractères qui manquent .. comme le "?", les '{', '}' ...

en fait ceci est l'ensemble de mes caractères dits spéciaux:

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



Merci

[denokan]

tu peux ajouter des plages de valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TrouveSpecial := TrouveSpecial or (password[i] in ['!'..'/']);

ou alors comme le suggère tourlourou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TrouveSpecial := TrouveSpecial or (ord(password[i]) in [33..47]);

dans les deux cas tu dois connaître l'ordre des caractères et leur code ANSII correspondant. pour cela il existe des dizaines de solutions, tu peux par exemple te construire un petit utilitaire : crée un noveau projet, déposes sur la form un ValueListEditor, et place ce code dans le OnActivate de la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.FormActivate(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to 255 do
    ValueListEditor1.InsertRow(IntToStr(i), Chr(i), True);
end;

[aityahia]

Bonjour,

je cherche à controler la validité d'un mot de passe dans mon appli.
Je dois pour ça tester qu'il existe au moins un caractère alphabétique, un mix de majiscules et de miniscules, un numérique, et un spécial..
Merci bp

un appel un tel mot de passe "un mot de passe fort"

[thewho]

Bonjour,

Pour tester la présence de tes "caractères spéciaux" !@#$%^&*()_+|~-=\`{}[]:";'<>?,./ , tu crées un ensemble de caractères les contenant, et une petite fonction qui teste si un caractère en fait partie (pas obligatoire la fonction, tu peux faire le test directement dans to code, mais ça organise le code).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
const
 
  MesSpeciaux : set of char = ['!','@','#','$','%','^','&','*','(',')','_',
                              '+','|','~','-','=','\','`','{','}',
                              '[',']',':','"',';','''','<','>','?',','.','/']; 
 
  boolean isInMesSpeciaux (char c)
  begin
    result := c in MesSpeciaux;
  end;

Et voilà tout.

Les ensembles sont une des bonnes choses du Pascal, autant les utiliser, d'autant que Delphi optimise relativement bien le code correspondant.

[manu80000]

moi j'ai utilisé les expressions régulières pour tester la validité d'une adresse email et ca marche tres bien...
le composant est facile a trouvé et a installer et les aides sont simples et puis il u a des exemples

[laadhar]

et bien montre nous comment faire STP..

Merci

[manu80000]

voila j'ai mis en pieces jointes le TRegExp a installer ds ton projet tu aura une unité TRegExpr ensuite par exemple pour gérér l'email j'ai fait

procedure Tfrm_utilisateur.lbe_EmailExit(Sender: TObject);
begin
if trim(lbe_Email.text) <> '' then begin
if not (ExecRegExpr('^[a-zA-Z0-9._-]+@[a-zA-Z0-9.-]{2,}[.][a-zA-Z]{2,4}$', lbe_Email.Text)) then begin
showmessage('E mail incorrect!');
lbe_Email.SetFocus;
end;
end;
end;


ca c'est pour verifier si c'est correct mais il a aussi des fonctions pour remplacer extraire et tt regarde dans les demos

je retrouve les sites et je l'ai met tt de suite...

[manu80000]

http://www.expreg.com/

http://www.shellunix.com/regexp.html

http://www.aidejavascript.com/rubrique23.html

voila si ya des questions