Cryptage simple

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (DelphiCool)