Encrypt et descrypt de cette Fuction

Delphiturbo
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
- 14 mai 2008 à 14:46
Delphiturbo
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
- 14 mai 2008 à 16:37
Salut
voila ma Function de Encrypt :
function stringEncrypt(const S: String; Key: Word): String


  var 


    I: Integer; 


    dummyKey: Byte;


  const

    C1 55555; C2 22222; 

begin  


  result : = '';


  for I := 1 to Length(S) do

    begin 


      dummyKey : =Ord(S[I]) xor (Key shr 8)


      Result := result + IntToHex(dummyKey,2); 


      Key := (dummyKey + Key) * C1 + C2; 


    end ; 

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit2.Text: =stringEncrypt(Edit1.text, 1258); // ok
    Edit3.Text:= // ici je voudrais prendre le text original de Edit1
end;

merci
--------------
Value: = StrToInt('$'+<hexString>);

2 réponses

Rematrix
Messages postés
115
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
16 juillet 2008

14 mai 2008 à 16:14
il est en Edit1.text , wow trés facile

Matrix
0
Delphiturbo
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008

14 mai 2008 à 16:37
je sais , mais je voudrais etuliser la Function de prendre autre foi le Text originale
0