Code simple pour chiffrer une chaîne de fichier .INI à l'aide d'un mot de passe

Je suis à la recherche de quelque chose de plus sophistiqué que ROT13, mais qui ne nécessite pas de bibliothèque (preferablly même pas une unité, une goutte d'eau dans la fonction).

Je veux symetrically crypter/décrypter une chaîne de caractères avec un mot de passe fourni par l'utilisateur. Cependant, le résultat doit être une chaîne de caractères, dans le sens que je dois être capable de le stocker dans un .Fichier INI.

Quelqu'un aurait-il une fonction simple à faire (delphi XE2)? Google n'est pas mon ami, aujourd'hui.

Merci d'avance

[Mise à jour] /[Prime] Juste pour rendre les choses claires (aplogies s'il n'était pas à l'origine), je ne veux pas d'un hachage. J'ai une zone de liste où les utilisateurs peuvent ajouter/modiy/supprimer des entrées. Je veux stocker dans un .Fichier INI lorsque le programme se ferme et le recharger quand il commence à nouveau. Quiconque cherche à l' .Fichier INI (par exemple, de l'ouvrir dans le bloc-notes) ne devrait pas être capable de lire ces chaînes.

Je suppose que j'aurais seulement stream le compnent comme binaire, mais pour la paix de l'esprit je préfère chiffrer les chaînes à l'aide d'un utilisateur mot de passe fourni. Pour les besoins de cette application, il n'a pas d'importance si .Fichier INI noms de section ou keyte valeurs sont lisibles par l'homme, je veux juste pour crypter les données, de me donner quelque chose de cette liste lorsqu'ils sont stockés sur le disque:

[config]
numEntries=3

[listbox]
0=ywevdyuvewfcyuw
1=edw
2=hr4uifareiuf

source d'informationauteur Mawg

  1. 7

    - Je utiliser Delphi Cryptage Recueil qui a de merveilleux fonctions pour les deux hachage et symétrique de chiffrement/déchiffrement.
    Il est divisé en unités, mais ne nécessite pas de bibliothèques externes, et est assez rapide.

    Voici comment je l'utilise dans mon code:

    function Encrypt(const AStr: string): string;
begin
  Result := AStr;
  with TCipher_Gost.Create do
    try
      Init(THash_SHA1.KDFx('Encryption Key', '', Context.KeySize));
      Result := EncodeBinary(Result, TFormat_HEX);
    finally
      Free;
    end;
end;

function Decrypt(const AStr: string): string;
begin
  Result := AStr;
  with TCipher_Gost.Create do
    try
      Init(THash_SHA1.KDFx('Encryption Key', '', Context.KeySize));
      Result := DecodeBinary(Result, TFormat_HEX);
    finally
      Free;
    end;
end;

    Vous pouvez utiliser l'une des TCipher_* classes au lieu de GOST.