Brouiller une chaine texte

**Clorish** · 16/08/2007, 15h39

J'ai beau chercher ... il m'est impossible de retrouver la methode de cacul de clefs circulaires a base XOR avec un maximum de valeur avant de boucler ?

Le but etant de brouiller une chaine texte de maniere un peu plus sofistiquee qu'un simple XOR a clef unique. Si je peux changer la permutation de la clefs a chaques caracteres ca serait cool.

Tout autre algo (leger) dans le genre sera le bienvenu

**WolffN** · 16/08/2007, 15h52

bonjour

euh j'ai pas tout compris a ta question pour moi un xor c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function CryptageXor(Cle,StrIn:string):string;//wn030825
var
  i,loCle:integer;
  strOut:string;
begin
  strOut:='';
  for i:=1 to Length(StrIn) do begin
    strOut:=strOut+chr(ord(strin[i]) xor ord(cle[(i mod length(cle))+1]));
  end;
  Result:=strOut;
end;

**Clorish** · 16/08/2007, 16h22

Oui, effectivement.
La tu utilise une succession circulaire de clefs de 1 octets definie par la veritable clef.

si tu transmet une cle composée de 10 caracteres, tu bouclera donc sur 10 clefs successives.

C'est ce que je cherche a faire, mais j'ai entendu parler d'une formule qui genere automatiquement les clefs successifes.

Exemple :
out[1] = in[1] XOR key; key = next(key);
out[2] = in[2] XOR key; key = next(key);
out[3] = in[3] XOR key; key = next(key);
...

Next(key) permet de calculer la clef suivante selon une formule que je recherche : decalage de bits + reintroduction d'un XOR sur certains bits.
Mais je ne la retrouve plus

Cette formule serait (a ce qu'il parrait) capable de genere une grande quantité (256 ?) de valeur avant de boucler.

**Gilbert Geyer** · 17/08/2007, 12h04

Bonjour,

Le but etant de brouiller une chaine texte de maniere un peu plus sofistiquee qu'un simple XOR a clef unique...Tout autre algo (leger) dans le genre sera le bienvenu.

... si c'est juste pour crypter une chaîne voiçi un code provenant de Paul THOT et qui dans son état actuel remplace les caractères accentués d'une chaîne par des caractères non accentués mais on peut y modifier la constante SansAccents : array[Char] of Char de sorte que la conversion obtenue brouille le texte d'origine (en y remplaçant par exemple le 'A' par ':', le 'Z' par 'ù' et ainsi de suite, à l'exception peut-être du #0 et du #8). Ensuite il suffit de créer les routines homologues pour décrypter dans le sens inverse.

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
 
const SansAccents : array[Char] of Char
             =  #0#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#28#29#30#31 +
                ' !"#$%&''()*+,-./0123456789:;<=>?' +
                '@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_'+
                '`abcdefghijklmnopqrstuvwxyz{|}~'#127 +
                '€'#129'‚ƒ„…†‡ˆ‰S‹Œ'#141'Ž'#143#144'‘’“”•–—˜™s›œ'#157'zY' +
                #160'¡¢£¤¥¦§¨©ª«¬*®¯°±²³´µ¶·¸¹º»¼½¾¿' +
                'AAAAAAÆCEEEEIIIIDNOOOOO×ØUUUUYÞß' +
                'aaaaaaæceeeeiiiidnooooo÷øuuuuyþy';
 
function EnleveAccentsPThot2(const AText : String) : string;
var
 i:integer;
 p:pchar;
begin
 Result:=AText;
 if Result='' then EXIT;  //<<<
 p:=@Result[1];
 for i:=1 to Length(Result) do begin
  p^:=SansAccents[p^];
  inc(p);
 end;
end;

A+

**Clorish** · 17/08/2007, 13h25

Bonne suggestion, mais peu differente d'un simple tableau de bytes definissant "a la main" une succession de XOR.
C'est d'ailleur peut etre ce que je devrais faire .... en changeant l'id d'entree dans le tableau ....