Cryptage simple

Soyez le premier à donner votre avis sur cette source.

Vue 4 511 fois - Téléchargée 289 fois

Description

Voici comment remplacer les lettres:

A B C D E ... par 1 2 3 4 5 ...
et
a b c d e f ... par 27 28 29 30 31 ...

Source / Exemple :


exemple dans le zip

Function RemplaceCar(Texte :string):string;
  var L, i, val :integer;
     Temp :string;
  begin
   L := length(Texte);

   For i := 1 to L do
    begin
     val := Ord(Texte[i]);

      if (val in [65..90]) or (val in [97..122]) Then
       begin
        if val in [65..90] Then Temp := Temp + IntToStr(val - 64)
        else Temp := Temp + IntToStr(26 + (val - 96));
       end
      Else Temp := Temp + Texte[i];
    end;

    Result := Temp;
  end;

Conclusion :


ps: c'etait une réponse à une question sur un forum

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

AGAG = 1717
oui ce n'est pas un code qui est decryptable.

Comme je n'ai precisé, c'est une réponse à une question sur un forum
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
C'est pas évident alors de décrypter :
'aa' et 'AGAG' tous deux correspondent à '2727'...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.