CRYPTAGE ET DÉCRYPTAGE DE CHAINE
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
26 janv. 2005 à 20:34
cs_toutoufik Messages postés 1 Date d'inscription mercredi 7 décembre 2011 Statut Membre Dernière intervention 15 avril 2012 - 15 avril 2012 à 15:43
cs_toutoufik Messages postés 1 Date d'inscription mercredi 7 décembre 2011 Statut Membre Dernière intervention 15 avril 2012 - 15 avril 2012 à 15:43
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/29106-cryptage-et-decryptage-de-chaine
https://codes-sources.commentcamarche.net/source/29106-cryptage-et-decryptage-de-chaine
15 avril 2012 à 15:43
4 nov. 2010 à 19:36
Résultat = ch2
ch2 = [ch2 <-- "" ; c <-- ch[1] ; cpt <-- 1]
Pour i de 2 à Long(Ch) Faire
Si ch[i] = c Alors
cpt <-- cpt + 1
Sinon
ConvCh(cpt, ch3)
ch2 <-- ch2 + ch2 + c
cpt <-- 1
c <-- ch[i]
Fin Si
Fin Pour
ConvCh(cpt, ch3)
ch2 <-- ch2 + ch2 + c
8 avril 2008 à 00:16
Mais je te conseil de bien lire le règlement afin d'éviter à l'avenir ce genre de question qui sont, normalement, totalement interdites et sanctionnées immédiatement.
Pour le forum c'est pareil et avant de poser une question il faut faire une recherche avec le moteur du site et/ou Google ... en effet, plus 90% des questions de débutant on déjà trouvées réponses, il n'est donc plus utile de les reposer.
Voilà bonne chance pour la suite ... ;)
7 avril 2008 à 21:52
7 avril 2008 à 20:55
Oui c'est possible en payant l'abonnement mensuel !!!!!!!
Que les choses soient bien claire ... ce que tu demandes c'est du piratage et c'est illégal. Tu n'auras jamais satisfaction sur ce genre de question ici.
Et surtout toute récidive sera sanctionnée par une suppression pure et simple du compte.
7 avril 2008 à 19:40
7 avril 2008 à 19:37
30 juin 2005 à 20:23
30 juin 2005 à 20:21
Le pb est que tu veux des codes ascii en sortie >= 32.
Il faut donc que tu fasses en sorte que la fonction de cryptage renvoie une valeur >=32 ... et <127
Si tu utilises une fonction type XOR, alors la valeur de la "clef" doit être comprise entre 1 et 31, démo :
1 0 0 0 0 0 (32)
xor 0 1 1 1 1 1 (31)
= 1 1 1 1 1 1 (63)
1 0 0 0 0 0 (32)
xor 0 0 0 0 0 1 (1)
= 1 0 0 0 0 1 (33)
1 0 0 1 0 1 (37)
xor 0 1 1 1 1 1 (31)
= 1 1 1 0 1 0 (58)
1 0 0 1 0 1 (37)
xor 0 0 0 0 0 1 (1)
= 1 0 0 1 0 0 (36)
1 0 0 1 0 1 (36)
xor 0 1 1 1 1 1 (31)
= 1 1 1 0 1 0 (58)
etc ...
28 juin 2005 à 22:16
Mon pb est que char(0) me renvoi rien du tout (chaine vide "")
Donc si par malheur ma fonction de cryptage me renvoie le char(0) pour un caractere, je me retrouve avec une chaine cryptée dont la taille est plus petite que l'origine (1 caratere en moins voir plus ...) et donc ma fonction de decryptage ne me renvoie pas la chaine d'origine.
Quelqu'un m a t il compris ? peut on m'aider ? Merci d'avance.
22 juin 2005 à 23:58
function crypt_decrypt_xor(chaine:string;key:string):string;
var i,j:integer;
s:string;
begin
s:='';j:=1;
for i:=1 to length(chaine) do
begin
if j>length(key) then j:=1;
s:=s+char(integer(ord(chaine[i])) xor integer(ord(key[j])));
j:=j+1;
end;
Result:=s;
end;
27 janv. 2005 à 21:07
26 janv. 2005 à 20:34
si ton nombre est supérieur à 255, fait lui une sorte de modulo avec la "fonction" byte. Byte n'est pas une fonction mais une sorte de transcription.
byte(255)=255
byte(256)=0
byte(257)=1
...
C'est juste pour montrer que ça fait une boucle en enlevant 256 autant de fois que cela est nécessaire pour retomber dans l'intervalle [0..255].
Ca marche aussi avec integer.