!i!i!i!i!i!i!i!

[SPH]

Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15

[Cool Dji]

Je cherche mais la virgule après le dernier 15 m'embête : sa présence est un oubli ou c'est fait exprès ?

[graph100]

K&?2L0ãJ1@)ãA(÷0þ(E5?8D(ã!(÷0þ$G3</C(÷'÷(KãA(÷1<ãJ$@6÷386÷4L2@ã:2;(Iññ

mes hypothèses sont :
- tu parles aux extraterrestres
- je me suis complétement trompé xD

[Cool Dji]

bon, ce ne sont pas des coordonnées x,y

J'imagine que c'est de l'ascii modifié, je dirais que la valeur -29 correspond à "espace", non ?

[SPH]

Je cherche mais la virgule après le dernier 15 m'embête : sa présence est un oubli ou c'est fait exprès ?

Il etait en trop

[Le Soldat Inconnu]

C'est pas une clé XOR déjà

Code : Tout sélectionner

DataSection
	Debut:
	Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
	Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15
	Fin:
EndDataSection

Taille = ?fin - ?debut
Dim Caractere(Taille)

Restore Debut
For i = 1 To Taille
	Read.b Caractere.b
	PokeB(@Caractere(i), Caractere)
Next


For Cle = 1 To 255
	
	Texte.s = ""
	For i = 1 To Taille
		Texte + Chr(Caractere(i) ! Cle)
	Next
	Debug Texte
	
Next

[Le Soldat Inconnu]

J'ai fait une procedure pour tester si le retour ressemble à un texte.

Mais je ne vois toujours pas de solution pour décoder

Code : Tout sélectionner

[code]DataSection
	Debut:
	Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
	Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15
	Fin:
EndDataSection

Procedure TestTexte(Texte.s)
	Dimension = Len(Texte)
	For Index = @Texte To @Texte + Dimension - 1
		Caractere = PeekB(Index) & $FF
		If (Caractere >= 'a' And Caractere <= 'z') Or (Caractere >= 'A' And Caractere <= 'Z') Or (Caractere >= '0' And Caractere <= '9')
			Compteur + 1
		EndIf
		If Caractere = ' '
			CompteurEspace + 1
		EndIf
	Next
	If Compteur >= Dimension * 0.70 And CompteurEspace * 20 >= Dimension ; Plus de 70% de caractères "standard" et un espace tous les 20 caractères minimum
		ProcedureReturn 1
	Else
		ProcedureReturn 0
	EndIf
EndProcedure


Taille = ?fin - ?debut
Dim Caractere(Taille)

Restore Debut
For i = 1 To Taille
	Read.b Caractere(i)
Next


For Cle = 1 To 255
	CleSuivante = Cle
	
	Texte.s = ""
	For i = 1 To Taille
		Temp = Caractere(i) + Cle
		Texte + Chr(Temp)
	Next
	If TestTexte(Texte)
		Debug Texte
	EndIf
	
Next

[/code]

[Backup]

on peut remarquer que :
les sequences :
-9,48,
-9,48
-9,22
-9,40
-9,49
-9,51
-9,52

ainsi que :
-29,74
-29,65
-29,33
-29 65
-29,74
-29,58

ont un air de famille dans leur coté repétitif
ont peut en déduire que ça sert pour le décodage ..
le code 64 de par son "isolation" pourrai correspondre a la lettre "a" ou "A"
mais c'est pas sur .. (les statistiques de la présence des lettres dans la langue française)
(le "e" etant la plus présente... )

pour ma part je pense a l'utilisation d'une table Sin() ou COS()
car la sequence des chiffres va en montant puis en descendant ...(en dents de scie)
jamais deux chiffre ne montent d'affilée !!
c'est toujours V+, V-,V+,V- etc... en tout cas apres un chiffre negatif !
exemple :
4,75,38,63,50,76,48,3
-29,74,49,64,41,3,
-29,65,40,-9,48,
-2,40,69,53,63,56,68,40,5,
-29,33,40,
-9,48,
-2,36,71,51,60,47,67,40,
-9,22,39,11,
-9,40,75,
-29 65,40,
-9,49,60,
-29,74,36,64,54,
-9,51,56,54,
-9,52,76,50,64,
-29,58,50,59,40,73,
-15,5,-15

bref si on suit les chiffres ç'est les montagnes russe ....
avec des altérations, ce qui me fait dire que Sinuzoide doit etre impliqué
mais pas seulement ... je pense que le code de la lettre interviens aussi

[SPH]

Tiens, je n'arrive pas moi meme a decrypter ca. La clé etait "=)" et c'etait du xor

[G-Rom]

normal , ton code d'encodage est foireux...

Code : Tout sélectionner

Bug.b       = Asc("ÿ")
PasDeBug.a  = Asc("ÿ")

Debug Bug 
Debug PasDeBug

Un caractère est codé de 0 a 255 , pas de -127 a 128.
un .a est plus adapté pour stocker un caractère.

[SPH]

Ce n'etait pas du Xor, c'etait un decallage de lettre :

Code : Tout sélectionner

cle$="=)"

pointeur=1

For i=1 To 77;Len(txt$)
  ;b.b=Asc(Mid(txt$,i,1))
  Read.b b.b
  b+Asc(Mid(cle$,pointeur,1))
  
  a$+Chr(b)
  
  pointeur+1
  If pointeur>Len(cle$)
    pointeur=1
  EndIf
Next

Debug a$

DataSection
Data.b 4,75,38,63,50,76,48,3,-29,74,49,64,41,3,-29,65,40,-9,48,-2,40,69,53,63,56,68,40,5,-29,33,40,-9,48,-2,36,71,51,60,47,67,40,-9,22,39,11,-9,40,75,-29
Data.b 65,40,-9,49,60,-29,74,36,64,54,-9,51,56,54,-9,52,76,50,64,-29,58,50,59,40,73,-15,5,-15  
EndDataSection

[Ar-S]

La clé etait "=)" et c'etait du xor

Ce n'etait pas du Xor, c'etait un decallage de lettre

Faudrait savoir

[SPH]

La clé etait "=)" et c'etait du xor

Ce n'etait pas du Xor, c'etait un decallage de lettre

Faudrait savoir

J'ai cru faire du xor et je m'é trompi

[Backup]

d'ou l'effet dent de scie

c'est toujours V+, V-,V+,V- etc... en tout cas apres un chiffre negatif !

puisque tu ajoute 61 , puis 41 , puis 61, puis 41 etc ...
j'etais allez chercher trop compliqué ....

mais si tu avais donné le début de ta phrase, je pense qu'on aurai fini par trouver

il ne faut pas oublier que le décodage est facilité par le fait qu'on sait ce qu'on recherche ..

je me souviens de certains magazines d'informatique , qui distribuaient un dossier remplit d'images X
celle_ci etait codées (xor) , il fallait appeler un numéro de tel surtaxé pour avoir le code de déverrouillage (:lol: .. les nigeauds)

là le code etait simple a retrouver (car il ne faisait que quelques octets)
on connaissait l’entête d'un fichier jpg , il suffisait d'XOR iser avec les données de l'image codé pour retrouver le code
de déverrouillage .

bref , si on sait ce qu'on cherche , ça aide beaucoup

pour l'algo du Soldat , il avait donné le mot "Bonjour" , ça m'a bien aidé

il 'en reste pas moins que n'importe quel codage peut etre efficace , pour peu que l'effort a faire pour décoder
soit plus important que la chose a décoder

[SPH]

Data.b 104,93,70,96,64,84,82,24,80,18,90,90,84,67,80,77,67,-37,19,80,-36,84,66,76,17,86,-38,87,80,91,85,74,84,18,70,90,80,22,67,87,68,70,86,20,91,89,66
Data.b 78,84,94,95,81,21,91,86,73,68,87,71,64,80,26,23,85,80,91,64,20,95,67,68,73,68,21,-45,20,69,68,-34,75,84,92,71,20,80,88,23,92,84,90,92,70,70,22,83
Data.b 93,17,94,82,20,69,87,80,93,17,86,20,85,86,85,66,93,88,94,19,81,65,22,83,93,17,94,82,20,69,87,80,93,17,86,86,20,89,83,84,76,68,64,86,20,81,83,23,78
Data.b 88,86,-38,91,25,22,91,93,66,18,94,91,81,95,81,81,82,83,71,93,90,88,68,24,-40,70,82,93,80,88,67,24,67,87,64,64,-36,83,68,24,65,71,65,81,88,83,89,76
Data.b 17,81,92,71,88,-33,67,81,64,71,86,71,27