Discussion :

[gudul]

Je voudrais chiffrer un fichier texte ligne à ligne, c'est à dire que je puisse aller à une ligne avec des readln et chiffrer ou déchiffrer cette ligne. Il ne faut pas que l'encodage contienne de CR (#13) car sinon je n'aurais pas le même nombre de ligne dans mon fichier en clair et mon fichier codé.

Mon but étant de créer une dll contenant des fonctions de chiffrement (Cesar, Vigenere, xor, Blowfish ou autres...),
Que je puisse chiffrer un fichier entier sans se soucier des lignes ou un fichier texte ligne à ligne.
Le fichier peut contenir les 256 caractères de la table sauf le #0 car les paramètres sont des PWideChar et donc à #0 terminal.
Dans un cas, je me fiche des CRLF car tout le fichier est codé et dans l'autre cas je traite ligne à ligne.

Quelle serait la marche à suivre pour faire cette DLL. Quelles sont vos suggestions ?

Quelle chiffrement utilisez vous en Delphi ? Avez vous des composants, sources de chiffrement ?

[solilog]

Salut,
Moi je ferais un prog qui chiffrerais ligne à ligne (donc avec un readln), et je récrirai une ligne chiffrée mais en hera ou decimal, tu garderais le nombre de lignes mais elle seraient doublées (hexa) ou triplées (decimal).
Ca permettrait de lire le fichier crypté également avec des readln.
C est tout facile.
solilog

[Gilbert Geyer]

Bonjour,

Gudul : Quelle chiffrement utilisez vous en Delphi ? Avez vous des composants, sources de chiffrement ?

Il y a ici une solution intéressante library CryptoV64 : http://www.developpez.net/forums/d14...-epilogue-2-a/
et ce code permet de crypter/décrypter aussi bien du texte que des fichiers-image.

Et cette discussion constitue l'achèvement de celle-ci : http://www.developpez.net/forums/d14...ier-byte-byte/
où l'on trouve un chiffrement Vigenere et d'autres.

A+.

[ALWEBER]

Bonjour,
Voici CESAR

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
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
var
  st1, st2, st3, st4: string;
  i1, i2, i3, i4 : integer;
begin
  st1 := 'JESUISLEMESSAGEENCLAIR';
  st2 := 'CESARCESARCESARCESARCE';
  st3 := '';
  for i1 := 1 to length(st1) do
  begin
    i2 := ord(st1[i1]) - 65;
    i3 := ord(st2[i1]) - 65;
    st3 := st3 + chr(((i2 + i3 + 1) mod 26) + 65);
  end;
  st4 := '';
  for i1 := 1 to length(st1) do
  begin
    i2 := ord(st3[i1]) - 65;
    i3 := ord(st2[i1]) - 65;
    st4 := st4 + chr(((26 + i2 - i3 -1 ) mod 26) + 65);
  end;
  ListBox1.clear;
  ListBox1.Items.add(st1);
  ListBox1.Items.add(st2);
  ListBox1.Items.add(st3);
  ListBox1.Items.add(st4);
end;

[gudul]

Merci pour vos réponses.

Pour le Cesar, j'ai déjà fait ma version sans la restriction des 26 caractères mais sur les 255 caractères ascii. Il faut pouvoir codé un texte avec des ponctuations, des retour chariot, des caractères non imprimable...
Idem pour le Vigenère, Je traite sur un tableau de 256 x 256 caractères et non sur les 26 alpha.

C'est surtout que le chiffrement trouvé sur internet proposent toujours le chiffrement/déchiffrement d'un fichier complet mais jamais de lignes dans un fichier.
Le problème de ces algo est qu'ils peuvent renvoyer des #0 ou #13 dans le texte codé, ce qui pose problème pour traiter en chaîne à zéro terminal ou de traiter ligne à ligne sans créer de retour chariot.

[ALWEBER]

pourquoi ne passe tu pas par un cesar sur 254 caractères en remplaçant les #13 par #255 avant codage et l'inverse au retour

[gudul]

Le caractère #255 pourrait être utilisé
Ma solution, pour l'instant est de remplacer les #0 et les #13 (si je veux à la ligne) après chiffrement par #27#1 et #27#2 et le #27 par #27#27. En déchiffrement, je regarde si j'ai un #27 et je converti le caractère suivant à l'inverse.

Je voulais surtout savoir si d'autres personnes avait traité le cas et quelle était leur solution.

Le Cesar est vite craqué, le vigenère un un stade au dessus et je cherche un algo plus complexe pour le 3 eme niveau.

[Ph. B.]

Bonjour,

Quelle chiffrement utilisez vous en Delphi ? Avez vous des composants, sources de chiffrement ?

Quelques éléments sont référencés sur ce site même :
http://delphi.developpez.com/freewar...phieProtection