ROT 13

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 :
      1. la 13° lettre après le “A” est le “N” (Lettre N°14)
      2. 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…

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)


Téléchargement



Remerciements


Un commentaire

  1. Bluegyn Bluegyn

    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;

Laisser un commentaire