Algorithme pour le cryptage et decryptage [Résolu]
Signaler
korichitarek
korichitarek
- Messages postés
- 37
- Date d'inscription
- mercredi 17 mai 2006
- Statut
- Membre
- Dernière intervention
- 14 novembre 2016
korichitarek
- Messages postés
- 37
- Date d'inscription
- mercredi 17 mai 2006
- Statut
- Membre
- Dernière intervention
- 14 novembre 2016
A voir également:
- Cryptage et decryptage
- Cryptage/décryptage de fichiers stockés dans une base de données ✓ - Forum - PHP
- Cryptage/Décryptage ✓ - Forum - Delphi / Pascal
- Fonction de cryptage compatible PHP et javascript ✓ - Forum - PHP
- Visual Basic / VB.NET : Cryptage et décryptage simple de string - CodeS SourceS - Guide
- Cryptage et décryptage de messages - Codes sources - Visual Basic / VB.NET (Sécurité)
5 réponses
korichitarek
- Messages postés
- 37
- Date d'inscription
- mercredi 17 mai 2006
- Statut
- Membre
- Dernière intervention
- 14 novembre 2016
merci tout le monde
j'ai change la philosophie
j'ai opté pour une solution
j'ai change la philosophie
j'ai opté pour une solution
cs_cantador
- Messages postés
- 4715
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
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.
cantador
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.
cantador
aliilyas
- Messages postés
- 36
- Date d'inscription
- lundi 29 juin 2009
- Statut
- Membre
- Dernière intervention
- 5 février 2014
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;
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;