CODER-DÉCODER AFIN DE CODER ET DECODER DES MESSAGES

Signaler
Messages postés
40
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
12 juillet 2009
-
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12242-coder-decoder-afin-de-coder-et-decoder-des-messages

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
Pour coder les codes >= 128, il faut utiliser les nombre impaires.

Principe de codage :
If Code <128
Then NouveauCode:=Code+Code
Else NouveauCode:=Code+Code-255;

Principe de décodage :
If Odd(NouveauCode)
Then Code:=(NouveauCode+255)Div 2
Else Code:=NouveauCode Div 2;

Comme ça tu codes tout de 0 à 255 dans l'interval 0..255 !

Nono.
Messages postés
40
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
12 juillet 2009

j'vien de penser à un truc : si le chr est surperier à 127 sa marche plu psk par ex : 128 + 128 = 256
et #256 existe ps c comme #0
puiske c ke de 1 à 255

et sa ya ps moyen de le réparer si tu veu garder ton meme system d'encryption fautdai en trouvé un autre
Messages postés
83
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
8 octobre 2008

Voila tout marche bien merci encore PowerII
Messages postés
83
Date d'inscription
jeudi 18 juillet 2002
Statut
Membre
Dernière intervention
8 octobre 2008

je test en tout cas je te remercie de ton aide je v voir merci
Messages postés
40
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
12 juillet 2009

en fait t'a rien a chaque fois psk :
si t'a le chr 'a', sont ord est 97
donc kand tu ke code s'a fait 97+97=194
mais apres kand tu le décode t'a le #194
194-194=0
le #0 est égal à ''
voilà pk sa marche ps
tu dois diviser en 2

begin
tmp := '';
TextOriginal := Memo.Text;
for i := 1 to length(TextOriginal) do
begin
tmp := tmp+chr(ord(TextOriginal[i]) div 2);
end;
Memo.Text := tmp;
end;

et voila c réparé