CODER-DÉCODER AFIN DE CODER ET DECODER DES MESSAGES
PowerII
Messages postés
40
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
12 juillet 2009
-
15 déc. 2002 à 11:41
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 15 déc. 2002 à 19:41
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 15 déc. 2002 à 19:41
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
https://codes-sources.commentcamarche.net/source/12242-coder-decoder-afin-de-coder-et-decoder-des-messages
15 déc. 2002 à 19:41
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.
15 déc. 2002 à 12:45
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
15 déc. 2002 à 12:31
15 déc. 2002 à 12:05
15 déc. 2002 à 11:41
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é