cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 2006
-
26 janv. 2005 à 20:34
cs_toutoufik
Messages postés1Date d'inscriptionmercredi 7 décembre 2011StatutMembreDernière intervention15 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.
cs_toutoufik
Messages postés1Date d'inscriptionmercredi 7 décembre 2011StatutMembreDernière intervention15 avril 2012 15 avril 2012 à 15:43
je le voir et apres je te repponds
cs_karino
Messages postés1Date d'inscriptionjeudi 5 juin 2008StatutMembreDernière intervention 4 novembre 2010 4 nov. 2010 à 19:36
Procedure cryptage(ch : chaine ; var ch2 : chaine)
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
Dans ce cas tu es au bon endroit ... et je souhaite la bienvenue parmi nous.
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 ... ;)
zorg66x
Messages postés2Date d'inscriptionlundi 7 avril 2008StatutMembreDernière intervention 7 avril 2008 7 avril 2008 à 21:52
je vous remerçi de votre reponse mais je ne veux pas devenir pirates mais je voudrez devenir et surtout savoir crée des programmes
Zorg66x >
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.
retaks666
Messages postés286Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention16 juillet 2007 7 avril 2008 à 19:40
Bonjour, il s'agit ici d'une chaîne de caractère, et non d'une chaîne de télévision. Vous faites fausse route ;)
zorg66x
Messages postés2Date d'inscriptionlundi 7 avril 2008StatutMembreDernière intervention 7 avril 2008 7 avril 2008 à 19:37
bjr a tous je suis nouveau et je n'y connait pas trop en informatique mais je voudrez savoir si c'est possible de décrypter les chaines crypter sur mon démodulateur tnt ,je vous remerçi d'avance pour l'info
seblulu59
Messages postés3Date d'inscriptiondimanche 8 août 2004StatutMembreDernière intervention30 juin 2005 30 juin 2005 à 20:23
seblulu59
Messages postés3Date d'inscriptiondimanche 8 août 2004StatutMembreDernière intervention30 juin 2005 30 juin 2005 à 20:21
Hello,
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 :
pat_nat
Messages postés5Date d'inscriptionvendredi 3 décembre 2004StatutMembreDernière intervention 5 avril 2006 28 juin 2005 à 22:16
J'ai un petit pb dans mes fonctions de cryptage et decryptage en language actionscript (macromedia flash mx). Certe ce n'est pas du delphi mais mes fonctions sont semblabmes aux votres.
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.
seblulu59
Messages postés3Date d'inscriptiondimanche 8 août 2004StatutMembreDernière intervention30 juin 2005 22 juin 2005 à 23:58
{chaine: à crypter/decrypter et key de la forme #1...#31}
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;
retaks666
Messages postés286Date d'inscriptionjeudi 2 janvier 2003StatutMembreDernière intervention16 juillet 2007 27 janv. 2005 à 21:07
ah bon je ne savais pas, en fait je me suis contenté de traduire ma source vb en delphi
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 26 janv. 2005 à 20:34
Juste une petite astuce:
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].
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.