Rot-13 est un petit programme qui chiffre un Texte pour le rendre illisible, tout en restant simple à déchiffrer avec n’importe quelle programme utilisant le même algorithme.
ALGORITHME
- Il s’agit plus d’un codage que d’un chiffrement
- Le codage consistant simplement à remplacer une lettre par une autre pour rendre le texte illisible.
- Celui qui possède la “Règle du décodeur” possède le secret du message.
- L’alphabet Romain comporte 26 lettres de A à Z, il suffit de décaler la lettre de 13 positions dans l’alphabet pour obtenir un algorithme simple qui assure aussi bien le codage que le décodage:
- Par exemple :
- la 13° lettre après le “A” est le “N” (Lettre N°14)
- Et la 13° lettre après le “N” est le “A” (Lettre N°1)
- Donc :
- UN ARBRE
- devient HA NEOER
- Ce qui est difficile lire mais très facile à décoder…
- Par exemple :
MÉDECINE
- Il peut arriver dans un dossier médical qu’on inscrive une note très confidentielle de l’intimité du patient qu’on ne souhaite pas étaler à l’évidence de l’écran (Facilement accessible par la secrétaire, le conjoint ou la mère, qui reste au bureau, pendant qu’on examine la femme ou la fille dans la pièce à côté)
Mode d’emploi
- Il suffit de coller un texte puis de cliquer sur le cadenas pour le coder ou le décoder.
- CLIC CADENAS !
C’est quand même plus discret !
- Re-CLIC cadenas !
L’avantage de l’algorithme simple et universel, est que n’importe qui peut le décoder en tapant ROT13 sur internet.
(Donc pas de souci de maintenance)
CODE PASCAL
procedure TForm1.ROT13Execute(Sender: TObject);
const
rot13a: array [‘A’ .. ‘Z’] of Char = ‘NOPQRSTUVWXYZABCDEFGHIJKLM’;
rot13b: array [‘a’ .. ‘z’] of Char = ‘nopqrstuvwxyzabcdefghijklm’;
var
t: String;
i: Integer;
begin
t := Memo1.Text;
if (t = ”) and (dye(‘Rien à chiffrer !’)) then
exit;
for i := 1 to Length(t) do
if CharInSet(t[i], [‘A’ .. ‘Z’]) then
t[i] := rot13a[t[i]]
else if CharInSet(t[i], [‘a’ .. ‘z’]) then
t[i] := rot13b[t[i]];
Memo1.Text := t;
end;