Crypteur de fichiers texte.

0/5 (4 avis)

Vue 6 082 fois - Téléchargée 398 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Bacterius
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Ca marche c'est bon :) une erreur s'etait glissée dans mon code :p ca va m'apprendre a regarder profondément un code :)
Bacterius
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Re, non c'est bon j'ai compris mon erreur mais j'en ai une autre. Quand je teste ma version, en m'inspirant de la tienne, ca ne décrypte pas le meme texte -_- ca décrypte ca : " **;+Form1; "
Il y a un problème lol
A bientot
Bacterius
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Bonjour, elle est bien ta source mais quand tu dis :

//Le caractère = le caractère(code ascii (-,+) clef)
S[J] := chr(K);

Ca me dit 'La partie gauche ne peut être affectée à'

...

Tu sais comment éviter ca ? :s
moffer
Messages postés
49
Date d'inscription
lundi 23 juin 2003
Statut
Membre
Dernière intervention
2 juin 2004
-
LOL

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.