Discussion :

[gbegreg]

Bonjour,

Cela fait quelques temps que je n'avais rien posté sur Developpez. A titre perso, je travaille sur un jeu vidéo (avec Delphi bien-sûr).

Je vous propose un petit exemple simple de chiffrage/déchiffrage d'une chaine de caractères. Ce n'est pas un chiffrage compliqué, mais vous pouvez complexifier comme vous le souhaitez.

La méthode de chiffrage va, pour chaque caractères de la chaine, récupérer son code ASCII, lui ajouter du sel (un entier positif) et calculer le carré. La valeur numérique obtenue est issue du code ASCII du caractère mais assez différente pour éviter de faire le rapprochement trop vite . Cette valeur est alors convertie en string suivie d'un espace (qui sert de caractère séparateur entre chaque caractère "chiffré"). Vous devez ajouter l'unité Math dans les uses pour utiliser l'exemple.

Code :

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

1
2
3
4
5
6
7
8
 
function chiffrerChaine(uneChaine : string; sel : word): string;
begin
  for var c in uneChaine do begin
    var rValeur := power(ord(c) + sel, 2);
    result := result + FloatToStr(rValeur) + ' ';
  end;
end;

La méthode pour déchiffrer fait simplement le traitement inverse. On parcourt la chaine de caractère chiffrée jusqu'à trouver le séparateur afin de récupérer un à un les codes de caractères. Une fois que l'on a un code, on fait le traitement mathématique inverse de celui appliqué lors du chiffrement (il faut évidemment que le "sel" soit le même que celui utilisé lors du chiffrement). Dans l'exemple, on calcule la racine carrée du code chiffré et on lui enlève le sel.

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
 
function dechiffrerChaine(uneChaine : string; sel : word): string;
begin
  var sDec := '';
  for var c in uneChaine do begin
    if c <> ' ' then sDec := sDec + c
    else begin
      if not(sDec.IsEmpty) then begin
        var rValeur := sqrt(StrToInt64(sDec));
        var sTemp := FloatToStr(rValeur);
        result := result + chr(StrToInt(sTemp) - sel);
        sDec := '';
      end;
    end;
  end;
end;

En l'état c'est très simple ça ne résistera pas longtemps à un hacker mais c'est un exemple qui fait le job. Vous pouvez évidemment faire un traitement mathématique plus compliqué pour générer un code à partir du code ASCII du caractère. Il faudra alors évidemment adapter la méthode de déchiffrement.

[anapurna]

salut


1°) je m'interoge sur l'utilité de passer par un float car tu n'utilise que des entier
2°) Le fait de passer par le carré et un sel ne changera rien a la distribution des caractere dans le texte
ce qui veux dire que la valeur E aura toujours la meme valeur ou qu'elle se trouve dans le texte et donc facilitera le decriptage

3°) pour palier a ceci tu pourrais utiliser un sel variable ce qui devrais modifier cette fameuse distribution de caractere

[Lung]

pour palier a ceci tu pourrais utiliser un sel variable ce qui devrais modifier cette fameuse distribution de caractere

Une phrase complète dont on utiliserait la valeur de chaque caractère les uns après les autres, par exemple ?

[Paul TOTH]

dans un projet je voulais mettre un mot de passe qui ne soit pas tout de suite repérable...j'ai simplement pris le caractère suivant dans la table ascii

ebot!vo!qspkfu!kf!wpvmbjt!nfuusf!vo!npu!ef!qbttf!rvj!of!tpju!qbt!upvu!ef!tvjuf!sfqêsbcmf///k(bj!tjnqmfnfou!qsjt!mf!dbsbduésf!tvjwbou!ebot!mb!ubcmf!btdjj!;*

on peut presque le faire à la main...sinon le codage est le décodage est ultra simple

Code :

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

1
2
3
4
5
6
 
begin
  var s : AnsiString := 'dans un projet je voulais mettre un mot de passe qui ne soit pas tout de suite repérable...j''ai simplement pris le caractère suivant dans la table ascii :)';
  for var i := 1 to Length(s) do
      Inc(s[i]);
end;

Code :

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

1
2
3
4
5
6
7
 
begin
  var s : AnsiString := 'ebot!vo!qspkfu!kf!wpvmbjt!nfuusf!vo!npu!ef!qbttf!rvj!of!tpju!qbt!upvu!ef!tvjuf!sfqêsbcmf///k(bj!tjnqmfnfou!qsjt!mf!dbsbduésf!tvjwbou!ebot!mb!ubcmf!btdjj!;*';
  for var i := 1 to Length(s) do
      Dec(s[i]);
  ShowMessage(s);
end;

[gbegreg]

Bonjour,

On peut évidemment faire plus compliqué. L'objectif est juste de montrer quelque chose de très simple, qui permet déjà une première approche. C'est la base d'une méthode plus complexe (algo plus complexe, changement d'ordre des caractères, autres sels...) que j'utilise dans certains de mes projets.

L'utilisation des float était liée à la fonction power de l'unité Math qui renvoie un float et que j'utilise fréquemment l'inférence de type pour déclarer mes variables.

Je ne prétends pas avoir une fonction inviolable mais c'est pour éviter que tout le monde puisse trop facilement lire certaines informations dans des fichiers.

[anapurna]

salut

dans ces cas la ... un simple xor suffit