Discussion :

[seb68270]

Bonjour à tous,

Je teste actuellement l'écriture et la lecture de fichier avec cryptage/décryptage avec le XOR et la fonction que j'ai marche pour tout les caractères sauf le caractère '€' pour qui, suite au décryptage, je me retrouve avec un autre caractère qui diffère suivant la position du signe euro dans le texte (jusqu'à présent je me retrouve avec soit un chiffre soit un point virgule suite au décryptage): comment faire?

Merci d'avance

[anapurna]

salut

comment fait tu ton cryptage ?

voici une réponse faite sur ce forum il y a déjà quelque temps ^^
developpez delphi cryptage xor cle variable/

[seb68270]

Voici ma fonction ce sera plus simple:

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
function TForm1.XorStr(Str: String; Key: LongInt): String;
var
  i:integer;
  j:integer; // Sélection du Jième caractère de la clé
  StCrypt:string;
  StrKey:string;
begin
  StCrypt:=''; //Initialise la variable
  StrKey := IntToStr(Key);
  j := 1;
 
  for i:=1 to Length(Str) do // Pour tous les caractères de notre chaine
  begin
    if j=Length(StrKey) then
      j:=1;
 
    StCrypt:=StCrypt+Char(ord(Str[i]) xor StrToInt(StrKey[j])); // On effectue le cryptage
 
    j := j+1;
  end;
  result:=StCrypt; //Renvoie le résultat
end;

Pour l'instant la clé ne peut être qu'une suite de chiffre, préférant commencer par quelque chose de "simple" et complexifier par la suite.

[Gilbert Geyer]

Bonjour,

Sinon il y a ici une solution intéressante library CryptoV64 : http://www.developpez.net/forums/d14...-epilogue-2-a/

et qui constitue l'achèvement de cette discussion : http://www.developpez.net/forums/d14...ier-byte-byte/

A+.

[Ph. B.]

Bonjour,

Je teste actuellement l'écriture et la lecture de fichier avec cryptage/décryptage avec le XOR et la fonction que j'ai marche pour tout les caractères sauf le caractère '€' pour qui, suite au décryptage, je me retrouve avec un autre caractère qui diffère suivant la position du signe euro dans le texte (jusqu'à présent je me retrouve avec soit un chiffre soit un point virgule suite au décryptage): comment faire?

Le fichier utilise quel format d'encodage ? ANSI ? Unicode ?

[seb68270]

Bonjour,
Le fichier utilise quel format d'encodage ? ANSI ? Unicode ?

Bonjour,

Le moment boulet de la journée: je ne sais pas ... On vérifie ça comment?

[Ph. B.]

Le moment boulet de la journée: je ne sais pas ... On vérifie ça comment?

Un éditeur de texte comme Notepad++ indique le format d'encodage du fichier texte.

De plus quelle est la version de Delphi utilisé (jusqu'à 2007 les chaines sont ansi, à partir de 2009 les chaines sont unicode) ?

[seb68270]

Un éditeur de texte comme Notepad++ indique le format d'encodage du fichier texte.

De plus quelle est la version de Delphi utilisé (jusqu'à 2007 les chaines sont ansi, à partir de 2009 les chaines sont unicode) ?

J'ai ouvert le fichier txt avec Notepad++ et, quand je clique sur "Encodage", j'ai "Encoder en UTF-8 (Sans BOM)" de sélectionner.

Pour ce qui est de la version de Delphi, j'utilise Delphi 2010.

[seb68270]

Un éditeur de texte comme Notepad++ indique le format d'encodage du fichier texte.

De plus quelle est la version de Delphi utilisé (jusqu'à 2007 les chaines sont ansi, à partir de 2009 les chaines sont unicode) ?

N'ayant toujours pas de solution à ce problème, je me permets de venir relancer: ce serait quel format d'encodage qu'il faudrait utiliser pour que la méthode de cryptage que j'utilise fonctionne correctement ?

[tourlourou]

pê utiliser dans la routine des AnsiString (codage des caractères sur un octet) ou tableau d'octets pour XORiser, puis les afficher comme String (UTF-8 = stockage de certains caractères dans plus d'un octet).

[Gilbert Geyer]

Bonjour,

Seb68270 : N'ayant toujours pas de solution à ce problème,

As-tu au moins essayé la library CryptoV64 que j'ai citée dans mon message #4 du 23/01/2015, 11h32 ???
Car avant de la citer j'ai vérifié que le caractère '€' est correctement crypté/décrypté avec elle.
En plus on n'est pas obligé de l'utiliser telle qu'elle pour en créer la DLL puisqu'il suffit d'en extraire la routine et la coller dans son propre code.

A+.