Cryptage simple

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 840 fois - Téléchargée 30 fois

Contenu du snippet

crypter du texte

Source / Exemple :


procedure TForm1.button1click(Sender: TObject);
var
l: integer;
i: integer;
val: integer;
temp: string;
begin
l:= length(memo1.text);
for i:=1 to l do
        begin
        val:=ord(memo1.text[i]);
        temp:=temp+inttostr(val);
        end;
memo2.Text:=temp;
end;

A voir également

Ajouter un commentaire

Commentaires

mssma3il
Messages postés
1
Date d'inscription
samedi 25 mai 2019
Statut
Membre
Dernière intervention
25 mai 2019

merci
cs_ManChesTer
Messages postés
378
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013

jeremyg, se source n'est pas de Manchster...

Bon Coding...

ManChesTer.
cs_jeremyg
Messages postés
1
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
9 décembre 2003

Si tu veut pouvoir au moins "décrypter" ce que tu fais, il faut coder les
codes ascii sur 3 digits (eg : 065) mais bon comme il a été dit plus haut, ce n'est pas un cryptage.

Bon coding ...
cs_ManChesTer
Messages postés
378
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013

Delphiprog,

il ne faut pas confondre cryptage de donnèes et codage, c'est deux choses bien diffèrentes :

Le cryptage a pour but de transmettre un message en le rendant illisible pour le commun des mortels, permetant son dècryptage par le destinataire. Donc est utile pour le transport de donnèes confidentieles.

Le codage permet de transformer des donnèes ou de coder ses dernières ou meme de generer un code a partir de ses dernières et de verifier si les donnèes introduites correspondent bien a celles de dèpart. Donc est utile pour controler l'acces ou l'intègrité des donèes.

Il y a meme beaucoups plus efficace que le MD5 pour ce faire (algo en "Losing bytes"), MD5 etant dans beaucous de cas trops simple a "brute forcer" a cose de la possibilitè de trouver des clefs "compatibles".

Bon Coding...

ManChesTer.
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
26
MailFaker n'a pas menti dans son titre :"crypter du texte"
Qu'on ne puisse pas décrypter n'est pas un handicap en soi si l'on se réfère à des algorithmes célèbres comme MD5 (irréversible, du moins actuellement ;o)).
L'essentiel est qu'une même chaine en entrée produise toujours le même résultat en sortie.
Même si l'algorithme présenté ici est discutable quant à son inviolabilité, j'estime qu'on ne nous a pas menti sur la "marchandise".

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.