Mot de passe avec étoile dans fichier "ini".

Version imprimable

Voir 40 message(s) de cette discussion en une page

02/01/2018, 12h53
cincap

Mot de passe avec étoile dans fichier "ini".

Bonjour à toutes et à tous,

Mes meilleurs vœux 2018.

J'ai un champ de type password avec étoile lorsque l'on tape le mot de passe, est t'il possible de retrouver dans le fichier "ini", le mot de passe avec étoile au lieu du texte ?

Peut être un cryptage mais comme je pense toujours compliqué !

Merci d'avance au cas ou....

@+,

cincap
02/01/2018, 13h27
Papy214

un fichier ini étant un format texte, je vois mal comment y inclure des étoiles qui pourraient être utilisées comme mot de passe.
il suffit coder le texte concerné, ça fera bien l'affaire non ??
02/01/2018, 13h50
cincap

@ Papy214, merci pour ta réponse.

J'utilise la propriété Passwordchar du Tmaskedit et je pensais que lorsque le fichier ini se créait, les étoiles seraient créées aussi car si j'écris moi même les étoiles dans le fichier ini, c'est possible.

Je continue mon test.

@+,

cincap
02/01/2018, 14h08
Papy214

TMaskEdit gère ça à la saisie et stocke un caractère pour chaque étoile affichée.
Il ne fait rien de plus.
02/01/2018, 14h09
tourlourou

Bonjour,
Il est d'usage de ne pas stocker de mot de passe auquel comparer celui saisi, mais un hash de celui-ci et de lui comparer le même hash du mot de passe saisi.
On peut utiliser différentes méthodes de hash, pour peu qu'elles soient suffisamment complexes : md5, sha-1, AES, etc., en y ajoutant éventuellement un sel.
02/01/2018, 14h20
cincap

@ tourlourou, merci de ton conseil je vais trouver une autre solution pour que le mot de passe ne soit pas créé dans le fichier ini comme c'est pour l'utilisation d'une caméra.

Merci à tous,

Je ferme ce topic comme la seule solution serait le hash.

@+,

cincap

Bonjour à toutes et à tous,

Je reviens vers vous car a force de chipoter, avec ces deux fonctions j'arrive à coder et a décoder le mot de pass mais pas à l'intégrer dans mon fichier Ini.

Pour la sauvegarde dans le fichier Ini c'est Ok, le mot de passe est bien crypté mais au démarrage je retrouve le mot de passe crypté dans le champ password.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
function CryptString(const S, Pwd: string): string;
var 
I, J: Integer; 
sPassword: string; 
begin 
Result := ''; 
sPassword := Pwd; 
 
J := 1; 
for I := 1 to Length(S) do 
begin 
Result := Result + IntToHex(Ord(S[I]) xor Ord(sPassword[J]), 2); 
Inc(J); 
if J > Length(sPassword) then J := 1; 
end; 
end; 
 
function DecryptString( const S, Pwd: string): string; 
var 
I, J: Integer; 
sPassword: string; 
begin 
Result := ''; 
sPassword := Pwd; 
 
J := 1; 
I := 1; 
repeat 
Result := Result + Chr(StrToInt('$' + Copy(S, I, 2)) xor 
Ord(sPassword[J])); 
Inc(I, 2); 
Inc(J); 
if J > Length(sPassword) then J := 1; 
until I > Length(S);
end;

Utilisation :

Code:

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
sCrypt := CryptString(Edpass.text, 'PWD');
 
showmessage('Pwd ' + sCrypt);
 
label1.Caption := DecryptString(sCrypt, 'PWD');

Mon fichier Ini :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
sCrypt := CryptString(Edpass.text, 'PWD');
 
FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 
//Fichierini.WriteString('PWD', 'Videoparlophone',edpass.text); //Sans cryptage
 
Fichierini.Writestring('Pwd', 'Videoparlophone', sCrypt); //Avec cryptage
 
FichierIni.Free;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 
EDpass.Text:= FichierIni.ReadString('PWD', 'Videoparlophone', ''); //Sans cryptage
 
//EDpass.Text:= FichierIni.ReadString(sCrypt, 'PWD', 'Videoparlophone');
 
fichierini.Free;
 
end;

Merci pour une solution éventuelle !

@+,

cincap

04/01/2018, 11h30
Linkin

A première vue, tu ne décryptes pas ton mot de passe:

Code:

EDpass.Text:= DecryptString(FichierIni.ReadString('PWD', 'Videoparlophone', ''));
04/01/2018, 12h04
Charly910

Bonjour,
est ce que ce n'est pas normal ? après lecture dans le fichier ini, il faut le décrypter avant de l'afficher dans EdPass.

A+
Charly
04/01/2018, 12h30
cincap

@ Linkin, merci pour ta suggestion, l'erreur indique "pas assez de paramètres" alors qu'ils sont tous présent.

@ Charly910, merci pour ta suggestion et je suis logiquement de ton avis, faut t'il alors décrypter dans un Tedit non visible et ensuite de copier le résultat dans le champ du password ?

Je vais voir.

@+,

cincap

@ tous,

Avec ceci cela fonctionne mais il y a un hic !

J'utilise un 2ième Tedit ou se charge le mot de passe codé et ensuite je le décode dans le 1er Teditmask.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm1.FormCreate(Sender: TObject); begin FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); EDpass2.Text:= FichierIni.ReadString('PWD', 'Videoparlophone', ''); fichierini.Free; Edpass.Text := DecryptString(edpass2.text, 'PWD'); end;
Mais cela fonctionne dès que un premier mot de passe est sauvé dans le fichier Ini car sans l'existance d'un fichier Ini l'application plante au 1er démarrage ce qui me parait logique.

@+,

cincap

@ tous,

Avec ceci je n'ai plus d'exception :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
If FileExists(ChangeFileExt(Application.ExeName, '.ini')) then begin
 
FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
 
EDpass2.Text:= FichierIni.ReadString('PWD', 'Videoparlophone', ''); //Avec cryptage
 
fichierini.Free;
 
Edpass.Text := DecryptString(edpass2.text, 'PWD') //Mot de passe avec les *
 
end
 
else beep; //Ou un showmessage !
 
end;

Merci pour votre aide, il y a peut être encore plus simple mais comme c'est pour un usage personnel..

@+,

cincap

04/01/2018, 16h54
Charly910

Bonjour,
tu peux aussi lire le mot de passe crypté dans une variable String auxiliaire, puis la décrypter en l'affectant à EdPass.text dans ta boite de dialogue du Password

Mais cela doit revenir au même du moment que EdPass n'est pas visible au mont de la lecture du fichier ini.

ce que je ne comprends pas c'est pourquoi tu l'affiches dans EdPass ? normalement l'utilisateur entre son password dans EdPass et tu dois le comparer à celui du fichier ini décrypté ?

A+
Charly
04/01/2018, 17h50
cincap

@ Charly910,

Citation:

ce que je ne comprends pas c'est pourquoi tu l'affiches dans EdPass ? normalement l'utilisateur entre son password dans EdPass et tu dois le comparer à celui du fichier ini décrypté ?

En fait l'application affiche la vue que filme mon videoparlophone et pour ce faire il faut un username, l'Ip, le port et le mot de passe (définit dans les réglages du videoparlophone).

Donc il faut que Edpass.text affiche entres autres le bon mot de passe au démarrage de l'application sinon pas de vue.

Dans ce cas, dans le fichier Ini, ce mot de passe n'est visible que codé et au démarrage il s'affiche avec le bon mot de passe sous forme du caractère "*".

@+,

cincap

Bonjour à toutes et à tous,

J'ai simplifié la solution en éliminant le 2ième Tedit qui servait de décodage.

Je ne garde donc que le TEditMask (Edpass.text) !

Cela donne ceci et fonctionne aussi bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.FormCreate(Sender: TObject); begin If not FileExists(ChangeFileExt(Application.ExeName, '.ini')) then beep else begin FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); EDpass.Text:= FichierIni.ReadString('PWD', 'Videoparlophone', ''); fichierini.Free; Edpass.Text := DecryptString(edpass.text, 'PWD'); end; end;
Le mot de passe s'affiche avec le caractère * sur l'application et dans le fichier Ini il est codé.

@+,

cincap

Bonjour,

je ne comprend pas le besoin de tester l'existence du fichier .ini :koi:

je simplifierai en
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TForm1.FormCreate(Sender: TObject); var RCPwd : String; // pour vérifier l'existence d'un mot de passe begin FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); try RCPwd:=FichierIni.ReadString('PWD', 'Videoparlophone', ''); if RCPwd:='' then Beep else EDpass.Text:= DecryptSttring(RCPwd,'PWD'); finally fichierini.Free; end; end;
Mais surtout, j'éviterai de mettre le fichier ini dans le répertoire de l'application. Avec les windows "modernes" il vaut mieux le mettre dans %appdata% ou dans un repertoire de ce dernier

05/01/2018, 11h55
Papy214

Perso, ce qui m'étonne c'est le concept de logiciel personnel avec la volonté de crypter le mot de passe dans un ini pour le mettre directement dans la zone de saisie au lancement du programme.

ça me parait un peu contradictoire. 8O
05/01/2018, 17h46
Charly910

bonjour,

j'avoue que je n'ai toujours pas compris non plus. Mais peut être que l'on veut que celui qui n'a pas le fichier ini ne puisse pas se servir du logiciel ?

Normalement, à l'ouverture du logiciel on entre le mot de passe et le logiciel teste s'il est correct ? (après cryptage, il doit être identique à celui crypté dans le fichier ini si on veut pouvoir le modifier, ou crypté en dur s'il ne change jamais)

A+
Charly
05/01/2018, 20h11
cincap

1 pièce(s) jointe(s)

@ tous,

On s'écarte de la question de mon topic il me semble.

Pour utiliser mon videoparlophone, je dois avoir une application pour Gsm soit systeme Android ou Apple.

J'ai donc réalisé une petite application qui me permet de voir le devant de mes barrières depuis mon PC.

Pour ce faire, je dois rentrer des données (le port, l'Ip, l'user, le mot de passe) et les sauvegardées dans un fichier Ini pour ne pas a devoir les rentrer chaque fois.

Ce qui me gênait c'était l'accès au fichier Ini ou le mot de passe était relaté en clair, d'ou chercher la façon de le crypter et de le décrypter.

Cette façon me convient et pourra servir à tous pour d'autres applications il me semble.

@+,

cincap

Bonjour à toutes et à tous,

@ SergioMaster, j'ai quand même testé ta suggestion avec deux petites corrections sur la retranscription sur le site et cela fonctionne aussi correctement.

Tester si le fichier Ini existe valait pour tous les champs de données et je ne pense pas que le code était alourdi.

Maintenant, plusieurs utilisateurs utilisent mon Pc et pourraient copier les données du VidéoParlophone pour se connecter de l'extérieur d'où le désir de coder le mot de passe le plus simple possible.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure TForm1.FormCreate(Sender: TObject); var RCPwd : String; // pour vérifier l'existence d'un mot de passe begin FichierIni := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')); try RCPwd :=FichierIni.ReadString('PWD', 'Videoparlophone', ''); if RCPwd ='' then Beep //Enlever les deux points devant RCPwd else EDpass.Text:= DecryptString(RCPwd,'PWD');//Enlever le 2ième t de string finally fichierini.Free; end; end;
L'autre suggestion était aussi de sauvegarder le fichier Ini dans un autre dossier ou dans le registre en créant une clé spécifique mais pour cette application pas très utile.

@+,

cincap

Voir 40 message(s) de cette discussion en une page