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

SPH · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

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 · **Inscription:** Sam 21/Mai/2005 17:50 **Messages:** 895

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 · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

Cool Dji a écrit:

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:

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:

[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]

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12959

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 · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

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

G-Rom · **Inscription:** Dim 10/Jan/2010 5:29 **Messages:** 2141

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

Code:

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 · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

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

Code:

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 · **Inscription:** Dim 09/Oct/2005 16:51 **Messages:** 5229

SPH a écrit:

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

SPH a écrit:

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

Faudrait savoir

SPH · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

Ar-S a écrit:

SPH a écrit:

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

SPH a écrit:

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

Faudrait savoir

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

Dobro · **Inscription:** Lun 26/Avr/2004 0:40 **Messages:** 12959

d'ou l'effet dent de scie

Citation:

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 · **Inscription:** Mer 09/Nov/2005 9:53 **Messages:** 2592

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

PureBasic

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

Qui est en ligne