IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Inverse de ce code


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé Avatar de pierre987321
    Inscrit en
    Août 2005
    Messages
    139
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 139
    Par défaut Inverse de ce code
    bonjour je cherche a faire l'inverse du code suivant :


    texte => chiffre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    function CryptDeCryptbis(St:string):string;
    var
     i:byte;
    begin
     Result := '';
     for i := 1 to Length(St) do
        Result := Result + FormatFloat('000',ord(St[i]));
    end;
    je voudrai faire de chiffre => texte
    oui mais je debute juste en delphi


    car je cherche aussi a l'inclure dans :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    function CryptDeCrypt(St:string;Key:integer):string;
    var i:byte;
    StCrypt:string;
    begin
    StCrypt:=''; //Initialise la variable
    for i:=1 to Length(St) do //Pour tous les caractères de notre chaine...
    StCrypt:=StCrypt+Char(Byte(St[i]) xor Key shr 8); //...On effecute le cryptage
    result:=StCrypt; //Renvoie le résultat
    end;
    pour éviter de faire plusieur action, dans un sans et de l'autre.
    ya t'il quelqu'un pour m'aidé ?

  2. #2
    Membre Expert Avatar de philnext
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    1 553
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 1 553
    Par défaut
    pour
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    function CryptDeCryptbis(St:string):string;
    var
     i:byte;
    begin
     Result := '';
     for i := 1 to Length(St) do
        Result := Result + FormatFloat('000',ord(St[i]));
    end;
    tu peux décrypter avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    function DeCrypt(St:string):string;
    var
     i:byte;
    begin
     Result := '';
     for i := 1 to (Length(St) div 3)  do
        Result := Result + IntToStr(strToInt(copy(st,(i*3)-2,3)));
    end;
    Je n'ai pas testé mais c'est l'idée.
    Pour le reste cherches un peu !!
    Et si qq peut me dire comment marchent ces %%*!!**$$ de baslises code je suis preneur !

  3. #3
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 931
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 931
    Billets dans le blog
    6
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    for i:=0 to Pred(Length(S) div 3) 
    do Result:=Result+Chr(StrToInt(Copy(S,1+3*i,3)) xor Key shr 8);
    devrait décrypter (SGDG: pas sous Delphi...)
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  4. #4
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 489
    Par défaut
    salut

    pour les balise de code il suffit de selectionné les texte a mettre entre les balise et clique sur le "#" je voi pas bien ou est ton probleme


    @+ Phil

  5. #5
    Membre confirmé Avatar de pierre987321
    Inscrit en
    Août 2005
    Messages
    139
    Détails du profil
    Informations forums :
    Inscription : Août 2005
    Messages : 139
    Par défaut ..
    avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    function DeCrypt(St:string):string;
    var
     i:byte;
    begin
     Result := '';
     for i := 1 to (Length(St) div 3)  do
        Result := Result + IntToStr(strToInt(copy(st,(i*3)-2,3)));
    end;
    sa ne donne pas un bon résultat

    et avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    function DeCrypt(St:string;Key:integer):string;//
    var
    i:byte;
    begin
    Result := '';
    for i:=0 to Pred(Length(St) div 3) do
    Result:=Result+Chr(StrToInt(Copy(St,1+3*i,3)) xor Key shr 8);
    end;
     
    procedure TForm1.Button4Click(Sender: TObject);
    begin
    Edit5.Text:=DeCrypt(Edit2.Text);
    end;
    sa me dit "Pas assez de parametres originaux"

    esque vous avez une idée ?

  6. #6
    Membre émérite Avatar de Yurck
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Février 2005
    Messages
    682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 16
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Février 2005
    Messages : 682
    Par défaut
    Citation Envoyé par pierre987321

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    function DeCrypt(St:string;Key:integer):string;
    begin
      .....
     end;
    
    procedure TForm1.Button4Click(Sender: TObject);
    begin
    Edit5.Text:=DeCrypt(Edit2.Text, AJOUTE ICI TON PARAMETRE KEY);
    end;
    sa me dit "Pas assez de parametres originaux"

    esque vous avez une idée ?
    Bien sur il te manque le parmètre "Key"

    a+

  7. #7
    Membre Expert Avatar de philnext
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    1 553
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 1 553
    Par défaut
    Oui pour le décryptage il faut :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    function DeCrypt(St:string):string;
    var
     i:byte;
    begin
     Result := '';
     for i := 1 to (Length(St) div 3)  do
        Result := Result +char(strToInt(copy(st,(i*3)-2,3)));
    end;

Discussions similaires

  1. Code inverser une analyse croisée issu de la FAQ
    Par xycoco dans le forum VBA Access
    Réponses: 3
    Dernier message: 09/10/2008, 09h08
  2. Code pour fonction personalisée RECHERCHEV inverse
    Par victorzecat dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 18/12/2007, 23h07
  3. Code source de FFT et FFT inverse pour Delphi
    Par david_chardonnet dans le forum Delphi
    Réponses: 2
    Dernier message: 06/03/2007, 21h46
  4. Réponses: 2
    Dernier message: 04/09/2006, 08h36
  5. code c pour sockets (udp vers tcp et inversement)
    Par HiT dans le forum Développement
    Réponses: 11
    Dernier message: 19/11/2005, 18h03

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo