1ere etape : s'occuper des fichiers.
On va se concentrer sur les '.txt'. Notre ami TazNormand a facilement trouvé ceci :
TazNormand a écrit :Code : Tout sélectionner
AVE CESAR :
cxcpv f'wvknkugt '1gt.dor', kn hcwv nwk crrnkswgt wpg tqvcvkqp 90° jqtcktg
avant d'utiliser '1er.bmp', il faut lui appliquer une rotation 90° horaire
Appliquons donc maintenant cet ordre : rotation pour '1er.bmp'
Ensuite, notre ami GallyHC a trouvé ce qu'etaient les 1/1, 1/2 et 1/3
GallyHC a écrit :Réponse de 1/1 :
Il faut arreter de jouer a cache cache !
Réponse de 1/2 :
Parfois, les fichiers ne disent pas ce qu'ils sont...
Code:
Code : Tout sélectionner
a$ = "Pwarrwfnoyijse,d cldersl dfrixczhuiuekrpsi snfes jdpifscebnvtq dppaksr vcrei bqvur'xitlasm fsoohnrtt.k.w.k"
For i=1 To Len(a$) Step 2
b$ + Mid(a$,i,1)
Next i
Debug b$
Réponse de 1/3 :
Tous les '.sph' sont a ignorer.
Code:
Code : Tout sélectionner
a$ = "Teoobeubqsei itlheemjsrv yk'hp.aesenpukhpu'vb qkszeovwnvxtzz kiars mxitsgwdnicoizrgreojrkb.su"
For i=1 To Len(a$) Step 3
b$ + Mid(a$,i,1)
Next i
Debug b$
Pour le 1/1, il y a en effet quelques fichiers qui ont ete caché. Changez leur attribut.
Pour le 1/2, on a des fichiers aux extentions inconnues. Un petit tour avec un logiciel d'analyse hexadecimal nous montrera les 2 premiers octets de ce qu'est vraiment un fichier.
Exemple avec l'image 'Hexa.bmp' :
L'hexa du fichier indique que '199.data' est en fait un '.bmp'
Pour le 1/3, tous les '.sph' sont a ignorer. Alors, effacons les tout de suite.
---------------------------
Rapidement, vous avez trouvé et reconstitué l'image suivante :
En se precipitant a l'url '
http://xmas.free.fr/jeu/x.zip', on tombe sur ca :
Hmmm, apparement, on s'est trompé quelque part. Vous avez remarqué que dans l'url '
http://xmas.free.fr/jeu/x.zip', le 'x' est d'une autre couleur ?
En se rappelant du fichier '45.txt', on pouvait y lire :
x = 2+2*2
y = 3+3*3
z = 4+4*4
2+2*2 font 6 (et pas 8, n'est ce pas shadow)
On remplace le 'x' de l'url par '6' et la, on tombe sur (un mp3 que j'adooore mais ca, on s'en fout) :
==============
==============
2eme etape : un peu de collage.
En eliminant au fur et a mesure les fichiers deja utilisés, on arrive a ne plus avoir que quelques fichiers. Notament :
'pinup.bmp'
'r.bmp'
'v.bmp'
'b.bmp'
et
1er.bmp
Et bien, en se servant le 'pinup.bmp' comme feuille de dessin, on va coller les sprites dessus (si je puis dire =) :
==============
==============
3eme etape : stéganographie.
Le premier "assemblage" complet est l'assemblage rouge. On a '1er.bmp' qui est parfaitement venu se coller a son emplacement. Les indications rouges vont nous permettre de le decoder. Tout d'abord, '1/1' indique que tous les pixels sont concernés. Le XOr indique qu'il faudra appliquer un xor (ici : 213) sur la teinte rouge de chaque pixel.
Enfin, le :
indique dans quel sens se fera la lecture des pixels : de gauche a droite; puis un saut de ligne vers le bas, puis on continue. C'est en fait le sens de lecture francais (123 va de gauche a droite, puis le 456 est en dessous,etc)
Voici un code de Zorro qui permet de le decrypter :
Code : Tout sélectionner
If LoadImage(1,"1er.bmp") ; n'oubliez pas d'avoir tourné l'image de 90° horaire !
Else
MessageRequester("erreur","pas pu charger l'image")
EndIf
larg=ImageWidth(1)
haut=ImageHeight(1)
taille_image=larg*haut
Dim image(taille_image)
;mise en tableau
StartDrawing(ImageOutput(1))
For y=0 To haut -1
For x=0 To larg-1
coul=Point(x,y)
image(t)=coul
t=t+1
Next x
Next y
StopDrawing()
; rouge
For i=0 To taille_image -1
r=Red(image(i)) !213
Sortie_r.s = Sortie_r.s +Chr(r)
Next i
Debug Sortie_r.s
Voila, vous savez comment ca marche.
Pour le codage bleu, je vais vous donner non pas le code qui le dechiffre mais le code qui m'a permis de le fabriquer :
Code : Tout sélectionner
x1=41
y1=18
OpenWindow(0, 0, 0, x1,y1, "Plot Exemple", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateImage(0, x1,y1) And StartDrawing(ImageOutput(0))
sph$="Encore bravo : pourvu que tu sois dans les temps car la pendule avance : tic tac tic tac tic tac... Les 10 euros s'eloignent petit a petit. "
sph$+"Si tu veux continuer, rends toi immediatement a cette adresse : 'http://memolink.free.fr/game2018.zip'. BONNE CHANCE..."
sph$+" "
nombre=1
x=0
y=y1-1
cle=144
un_sur_2= 1
;;;;;;;;;;;;;;;;;;;;;;
Repeat
If nombre<=Len(sph$)
z=Asc(Mid(sph$,nombre,1))!cle
If un_sur_2=1
nombre+1
Plot(x, y, RGB(Random(255),Random(255),z))
Else
Plot(x, y, RGB(Random(255),Random(255),Random(255)))
EndIf
If un_sur_2=1
If cle=12
cle=144
Else
If cle=144
cle=217
Else
If cle=217
cle=12
EndIf
EndIf
EndIf
EndIf
un_sur_2+1
un_sur_2%2
x+1
If x>=x1
x=0
y-1
EndIf
If y<0
Break
EndIf
Else
Break
EndIf
ForEver
StopDrawing()
ImageGadget(0, 0, 0, x1, y1, ImageID(0))
ok:
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
J'arrete ici pour que ceux qui ont envie de finir les enigmes puisse le faire...
ENJOY SPH'S WORLD 
