Discussion :

[Klemsy78]

Bonsoir messieurs,

J'ai mis en place une application Delphi7 et une base de données SQL Serveur . Pour se connecter tout utilisateur doit s'authentifier à l'aide d'un Login et Mot de passe.
Je veux donc pouvoir comparer deux chaines de caractères en mode case sensitive.

Par exemple comparer les chaines "motDepass" et "MotdePass" et avoir un boolean false.
Quelle fonction me permetrait cela de faire une telle comparaison?
Merci pour votre comprehension.

[mick605]

Salut

Tu peux simplement utiliser le signe "="

Code :

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

if Chaine1=Chaine2 then

[Klemsy78]

Merci pour ta réponse mais cela ne marche pas comme je le souhaite.

Quand je fais :

VarP1:="Motdepass ";
VarP2:="motDepass ";
if VarP1=VarP2 then

Il retourne True alors que je ne veux pas cela.

Je veux une comparaison qui me différencie VarP1 de VarP2 à cause du case sensitive en me retournant False

Merci, j'ai besoins de votre aide.

[Paul TOTH]

avec des doubles quotes je doute que ça compile

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.FormCreate(Sender: TObject);
var
  VarP1 : string;
  VarP2 : string;
begin
  VarP1:='Motdepass ';
  VarP2:='motDepass ';
  if VarP1=VarP2 then
    ShowMessage('True')
  else
    ShowMessage('False');
end;

False !

[ShaiLeTroll]

On peut même écrire

Code :

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

ShowMessage(BoolToStr(VarP1 = VarP2, True));

Est-ce une comparaison dans Delphi ou directement via un SQL que tu voulais faire ? Ton erreur sur " et ' est tout de même étrange !

Sinon, mieux vaut chiffrer le mot de passe dans la DB !
Ne jamais déchiffrer la DB mais chiffrer le mot de passe saisie et comparer le résultat chiffré au contenu de la DB !

Klemsy78, tu utilises bien des string ? Quelle version de Delphi ?

[Klemsy78]

Oui j'utilise Delphi7 et mes chaines sont des string.
Mon problème n'est pas les string, je savoir comment gérer les mot de passe dans mon application de sorte que quelqu'un qui a défini 'MotDepasse' comme son mot de passe, ne puisse pas se connecter en saisissant comme son mot de passe 'motdepasse'. Je souhaite que mon authentification fonctionne comme une ouverture de session windows.


Vous parlez de chiffrer le mots de passe, de quoi s'agit-il?
Que je convertisse la chaine en chiffres en stockant dans ma base?

Je veux mieux comprendre. Merci

[ShaiLeTroll]

La comparaison de string par = est sensible à la casse !
Je ne vois pas comment cela peut ne pas fonctionner chez toi ! Tu as forcément fait une erreur !

Il existe aussi
SameStr - sensible à la casse
SameText - insensible à la casse

Pour le chiffrement, c'est du cryptage, c'est pour la sécurité !
Oubli pour le moment cela !

Dans un SELECT, il est possible que par défaut le moteur DB soit insensible à la casse, réfère toi à la documentation de ta DB pour forcer une comparaison strict : MSDN SQL Server 2008 R2 - Comparing String Data - Setting Comparison Options

[Mat.M]

Salut une méthode à deux sous

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
  chaine1: string;
  chaine2 : string;
 b:Integer;
bEgales:boolean;
begin
bEgales:=true;
  chaine1:='Motdepass ';
  chaine1:='motDepass ';
for b:=0 To Lenght(chaine1) do
if chaine1[b]<>chaine2[b] Then
begin
bEgales:=false;exit;
end;
 
end;
  end;
end;

[Klemsy78]

Merci pour ton explication. En fait tu as raison pour la compaison string en Delphi7.
Je comprend que mon problème vient de ma base SQL Server.
Car je fais ma comparaison dans une requête sql:

Select * from TUser where PassWord=+VarPass;

avec VarPass comme paramètre qui reçoit le mot de passe saisie.

Donc en clair comment faire une comparaison strict(case sensitive) dans une requête SQL Serveur 2005?

Merci!

[ShaiLeTroll]

Il était évident pour moi que cela venait de la DB, le case insensitive ne pouvait pas se faire tout seul en Delphi !

Sinon tu pourrais un peu chercher, il y a un article complet à ce sujet sur Developpez !!!
A quoi servent les collations !!!

Code :

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

1
2
 
Select * from TUser where PassWord COLLATE SQL_Latin1_General_Cp1_CS_AS =+VarPass;