Crypteur de fichiers texte.

Télécharger le projet
Commenter

Description

Bon, depuis que j'ai sorti le crypteur de fichier (tous), cette source na plus de sens, mais bon, je vais quand même la laisser ... c plus facile à comprendre pour des débutants ...

Voici un petit crypteur de tout ce qui est texte, nombre etc... PAS pour les EXE ni les documents Office. Si vous le faites quand meme, je vous aurai prévenu ...

Source / Exemple : 


Voici donc la procédure de cryptage :

procedure CryptText(path:String;Cryptpath:String;Key:Longint;Crypt:Boolean);
//On définit les variables
var
 I, J, K : Longint;
 S : String;
begin
//Pour ne pas devoir tapez form1. toujours,
with Form1 do begin
//On charge le fichier d'origine
Memo1.Lines.LoadFromFile(path);
//Jusqu'à la fin du fichier
For i := 0 to Memo1.Lines.Count - 1 do begin
//La string S = ligne du fichier sélectionnée (compteur 1,2,...)
S := Memo1.Lines[i];
//Pour chaque caractère de cette ligne
For j := 1 to length(Memo1.Lines[i]) do begin
//K = code ascii du caractère
K := ord(S[J]);
//Si crypter, le code ascii = code ascii + clef
If Crypt = True then K := K + Key
//Sinon, le code ascii = code ascii - clef
else K := K - Key;
//optionnel : rend le fichier plus dure à décrypter :
Key := Key + 1;
//Le caractère = le caractère(code ascii (-,+) clef)
S[J] := chr(K);
end;
//La ligne sélectionnée devient la string S (modifiée)
Memo1.Lines[i] := S;
end;
//On sauve le fichier
Memo1.Lines.SaveToFile(cryptpath);
end;
//Et voilà, c'est pas compliqué !
end;

ensuite : pour crypter un fichier, tapez la commande
CryptText(Lenomdufichiersource,lenomdufichierdestination,laclef,true);
ensuite : pour décrypter un fichier, tapez la commande
CryptText(Lenomdufichiercrypté,lenomdufichierdestination,laclef,false);

Conclusion :


Glorkonline --- www.Glorkonline.be.tf --- Glorkonline@hotmail.com
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Glorkonline)