korichitarek
Messages postés37Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention14 novembre 2016
-
23 août 2011 à 15:02
korichitarek
Messages postés37Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention14 novembre 2016
-
1 sept. 2011 à 11:23
SALUT TOUT LE MONDE
J'ai besoin de deux (02) algorithme defferent chaqu'un crypte et decrypte une chaine de caractere
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202114 24 août 2011 à 10:30
Bonjour,
Il faut d'abord apprendre à chercher de l'information..
Ce problème a été posé et résolu à de nombreuses reprises.
Tu trouveras sur ce site même, des exemples de cryptage et de décryptage
(vigenere etc..) d'une information.
aliilyas
Messages postés32Date d'inscriptionlundi 29 juin 2009StatutMembreDernière intervention 5 février 2014 25 août 2011 à 15:04
bonjour.
function Encrypt(const s: String; CryptInt: Integer): String;
var
i: integer;
s2: string;
begin
if not (Length(s) = 0) then
for i := 1 to Length(s) do
s2 := s2 + Chr(Ord(s[i]) + CrypTint);
Result := s2;
end;
function Decrypt(const s: String; CryptInt: Integer): String;
var
i: integer;
s2: string;
begin
if not (Length(s) = 0) then
for i := 1 to Length(s) do
s2 := s2 + Chr(Ord(s[i]) - cryptint);
Result := s2;
end;