Coder-décoder afin de coder et decoder des messages

Soyez le premier à donner votre avis sur cette source.

Vue 4 742 fois - Téléchargée 442 fois

Description

Je remerci PowerII pour le script de decodage et je passe le bonjours a Fabiin un grand programmateur.

Visitez notre Team : http://eosdev.fulinux.com/

Source / Exemple :


Voir ZIP

Conclusion :


---------------------------------
http://www.Ti83-Plus-Se.Fr.St
amokers@yahoo.fr
ICQ : 150576014
Amokers ... Parce que mon ame est dans mon coeur 's lol

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
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é

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.