xor cryptage: réglage de la clé à 904932 manger 'd'

Question

Je fais un programme pour implémenter x ou cryptage, tout en jouant avec mon programme j'ai entré diverses combinaisons de touches le programme fonctionnait parfaitement jusqu'à ce que j'ai entré la valeur de la clé: 904932 qui a causé l'ommition du caractère 'd' par exemple si j'entre 'salut mon nom est dexter et je déteste ma soeur stupide dede' dans edit1, cryptage et décryptage faire mon texte edit1: 'salut mon nom est exter an je hais ma stupi soeur ee ' que se passe-t-il?

procedure TForm2.Button1Click(Sender: TObject); 
    var 
    c:char; 
    i,key: integer; 
    begin 
     s := edit1.Text; 
     edit1.Text := #0; 
     key := strtoint(edit2.text); 
     key := key + 128;//i am adding 128 so that i dont get NULL char 
     for I := 1 to length(s) do {or 0 to lenght(s)? i dont know} 
     begin 
     c := s[i]; 
     c := char(ord(c) xor key); 
     edit1.Text := edit1.Text + c; 
     end; 
    end; 

Answer 1

L'ajout de 128 ne résoudra pas votre problème. Ça bouge juste. Votre "xor key" juste x ou le dernier octet de votre clé, soit $ E4 dans votre cas de 904932. $ E4 + 128 sera arrondi (ie -256) à la valeur de l'octet 100, qui est l'ASCII valeur de "d". C'est pourquoi votre "d" a disparu.

Donc, je suppose ne devrait pas utiliser un tel algorithme xor si vous voulez afficher le texte crypté. Je suggère que vous fassiez un algorithme de permutation simple.

Answer 2

Il n'y a pas de problème à utiliser XOR même si le charbon obtenu est # 0, parce que $00 xor $E4 = $E4 qui révèle le caractère original. Le problème est que vous utilisez le résultat crypté comme une chaîne qui gère # 0 spécialement. Si vous spécifiez la chaîne cryptée en tant que tableau d'octets, cela devrait fonctionner. Si vous voulez l'afficher, utilisez BinToHex ou une séquence de IntToHex.

Answer 3

Voici une révision pour vous.

procedure TForm2.Button1Click(Sender: TObject); 
var 
    i,key: integer; 
begin 
    s := edit1.Text; 
    edit1.Text := ''; 
    key := strtoint(edit2.text); 
    if Key = 0 then //replacement for the +128 
    Key := 128 
    for I := 1 to length(s) do //string are 1 indexed. Dynamic arrays 0 indexed. 
    begin 
    s[i] := char(s[i] xor key); 
    end; 
    edit1.Text := S; //Much faster to assign a full string than to assign character by character. 
        //Also, this might fix your vanishing "d" problem. 
        //I didn't test it, but I suspect that 
        //edit1.Text + c might result in no change if c=#0 
end; 

Answer 4

Je recommande en fait en utilisant la cryptographie moderne comme AES-CBC, mais si vous voulez jouer avec la cryptographie rétro laisse alors vous amuser ici. Puisque votre sortie de cryptage est du texte, je pourrais suggérer l'utilisation de l'addition modulo plutôt que XOR. Utilisez uniquement XOR lorsque vous travaillez avec des octets, pas pour les caractères. Vous devrez éviter certains caractères spéciaux dans la sortie. Dans ce cas, vous semblez avoir des problèmes avec le caractère NULL. Vous pouvez éviter la sortie de caractères en définissant un jeu de caractères.
Par exemple, vous pouvez utiliser uniquement des caractères compris entre 1 et 127 (tous les caractères ASCII sauf NULL). Cela signifierait que la base serait 1 et que le module serait 126 = (127 - 1)

Pour coder un caractère, soustrayez d'abord la base. Ajoutez la valeur de clé. Ensuite, obtenez le résultat du module. Enfin, ajoutez la base arrière dans

La valeur décimale de la lettre minuscule d est 100.
100 -. 1 = 99 // soustrayez la base
99 + 904932 = 905031 // ajouter la valeur de clé, occasion votre exemplaire ici
905031% 126 = 99 // résultat module lol 904932% de = 0 99 + 1 = 100 // ajouter la base arrière dans

Étant donné que votre valeur de clé est divisible par le module 126 la sortie est égal à l'entrée.

Annulation de l'addition modulo est une procédure légèrement différente.
100-1 = 99 // soustraire la base
99-904932 = -904833 // soustraire la valeur de clé
-904833% 126 = -27 // module résultent
126 + -27 = 99 // ajouter le module au résultat du module
99 + 1 = 100 // rajouter la base dans

vous pouvez définir le module aussi haut que vous voulez inclure autant de caractères que vous voulez dans votre jeu de caractères, et Certains maths de fantaisie vous pouvez mapper des caractères aux valeurs entières en aucune façon. Bien que je dise que vous pouvez mapper les caractères de quelque façon que vous voulez la vérité est que vous êtes limité par le média sur lequel le texte est écrit. Vous ne pouvez pas définir un module supérieur au nombre total de caractères que le média peut transporter, mais vous pouvez avoir des mappages de caractères séparés pour les valeurs codées et décodées.

Je commenterai également votre sélection de valeur de clé. L'application de la même valeur de clé à tous les caractères concerne la forme de chiffrement la plus faible possible. (Est-ce que ROT13 peut vraiment être considéré comme un chiffrement?) Réfléchissez à certaines façons de faire varier la valeur de la clé pour chaque caractère. Quelque chose qui a été fait lorsque ce type de crypto était utilisé était d'incrémenter la clé d'une certaine valeur pour chaque caractère, ou d'ajouter la valeur du caractère traité à la clé.