Discussion :

[foetus]

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.

L'autre solution est de chiffrer le fichier ini (ou json parce que ini n'est pas normalisé) directement en AES 128/ 256 (la/ les clef(s) est/ sont en dur dans le code)

Après tu peux soit laisser le mot en passe en clair soit le hashé+ salé (MD5 ou blowfish)

[cincap]

Bonjour à toutes et à tous,

@ foetus, merci de ta suggestion mais n'ayant jamais du réaliser un mot de passe crypté, je serai perdu avec D6 si j'adoptais ton idée.

Il faut savoir que pour cette application personnelle, le vidéoparlophone doit avant tout être paramétré depuis son application (Doorphone) sur Gsm donc sur l'application Pc (qui n'existe pas), on doit connaître son Ip, l'user, le mot de passe et le port à l'avance.

Voila voilou.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

Concernant ce sujet, Paul Thoth avait une seule procédure (Crypt/Decrypt) que j'ai testé, en incluant cette procédure et en l'utilisant à partir du fichier Ini, je perd deux caractères lors du décryptage.

En utilisant cette procédure avec un bouton "Crypt" et un bouton "Décrypt" j'ai tous les 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
 
// Paul thoth
 
procedure Crypt(var Data; Size: Integer; Seed: Cardinal);
var
  p : PByte;
  i : Integer;
begin
  RandSeed := Seed; // initialiser le générateur de nombres aléatoires
  p := @Data;
  for i := 0 to Size - 1 do
  begin
    p^ := p^ xor Random(255);
    Inc(p);
  end;
end;

Utilisation Crypt :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  s := Edpass.text;
  Crypt(s[1], Length(s) * SizeOf(Char), 456);
end;

Utilisation Décrypt:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  s := Edpass.text;
  Crypt(s[1], Length(s) * SizeOf(Char), 456);
end;

@+,

cincap