"Encrytage / Décryptage" à casser !

brossden · Message par **brossden** » jeu. 05/oct./2006 10:52

Merci Dobro !!

Pour Kwai chang caine

Les 4 posts de suite viennent d'un bug et non de mon enervement !
J'aavis beau cliquer sur "Envoyer" rien ne se passait sur mon PC donc ....
Désolé de la place perdue.

Il faut savoir qu'en cherchant la petite bête à tout les Posts qui sont ici on ne fait pas vraiment avancer le SMILBLICK !

Mais s'il y en a qui préfère enc.ler les mouches ....

Kwai chang caine · Message par **Kwai chang caine** » jeu. 05/oct./2006 11:40

Pour BROSSDEN

brossden a écrit :Pour Kwai chang caine
Les 4 posts de suite viennent d'un bug et non de mon enervement !
J'aavis beau cliquer sur "Envoyer" rien ne se passait sur mon PC donc ....
Désolé de la place perdue.
Il faut savoir qu'en cherchant la petite bête à tout les Posts qui sont ici on ne fait pas vraiment avancer le SMILBLICK !
Mais s'il y en a qui préfère enc.ler les mouches ....

Je ne sais pas si tu parle de moi, mais si c'est le cas, je n'enc... jamais personne et encore moins les mouches.
Ce n'est peut etre pas le jour, mais je t'ai connu bien plus agréable.

Tes POSTS sont tres intéréssant, et nous apprennent beaucoup mais apres tout un exemple en ASM ce n'est pas la mort du petit cheval, cela peut aussi aider certains, ce n'est pas totalement hors sujet, enfin de mon avis cela peut etre interessant. Si FRED a incorporé L'ASM dans pure il y a peut etre une raison????

Mais je n'ai à juger personne tu as raison, surtout en temps que BB programmeur.
Je suis juste étonné d'autant d'agréssivité envers qui que ce soit, je croit qu'un forum est un lieu d'entraide entre passionnés du même monde, pas une arene.
Ce n'est pas que les 4 posts qui aurait pu prouver ton enervement, tes mots aussi :

brossden a écrit :SHP je vais te dire le font de ma pensée !
Tu me (nous) gonfles avec ton assembleur, tu n'es pas ici sur un site dédié à ce type de programmation et encore moins dans cette zone intitulée "Débutant".
Si tu veux absolument jeter de la poudre au yeux à tous le monde, va donc sur des sites qui ont un rapport avec ta manière de développer.
Ici on parle PureBasic je te le rappelle.
Il serait aussi assez interessant que tu ne répondes le plus souvent à coté de la plaque!
Alors je veux bien mettre les compteurs à zéro si tu oublies un peu ton cher ASM.
Restons ZEN !

Apres tout comme tu le dis, restons ZEN.....

Bonne journée

Frenchy Pilou · Message par **Frenchy Pilou** » jeu. 05/oct./2006 13:58

@dobro

Ce qui était en "quote" n'était pas ton code mais le code du premier post de la 2ème ligne!
Et comme en programmation la moindre différence de lettre, de syntaxe fout le boxon, je ne faisais que me renseigner

@ Brossden la meilleure façon de savoir si on peut décoder ton code, c'est que tu balances un truc crypté dans les 1000 caractères qu'on se fasse les dents !)

L'algorithme en lui même on n'en a absolument pas besoin!
C'est l'abc de la cryptographie ou plutôt du décryptage

Quant aux drosophiles elles vont bien merci

brossden · Message par **brossden** » jeu. 05/oct./2006 15:26

Re bonjour !

Pour ceux qui veulent tenter de décoder mon message je vous donne le lien pour le récupérer :
http://rapidshare.de/files/35587654/code.bin.html

Il s'agit d'un simple fichier texte et pour vous aider un peu plus sachez que c'est la répetition de 8 fois la même phrase.

Si vous préferez d'autre type de fichier annoncez la couleur !

Procedure de téléchargement pour ceux qui auraient un problème

- Cliquez sur le lien
- Tout en pas de la page cliquez sur le bouton "FREE"
- Dans le Champs "HERE :" saisissez le code graphique juste avant ce champs
- Cliquez sur "Download from Cogent-network" le texte de ce bouton n'est pas toujours exactement le même !

SPH · Message par **SPH** » ven. 06/oct./2006 7:05

brossden a écrit :Re bonjour !

Pour ceux qui veulent tenter de décoder mon message je vous donne le lien pour le récupérer :
http://rapidshare.de/files/35587654/code.bin.html

Volontier :
La premiere lettre est : S
et dans ton mot de passe, on trouve les lettres n; a; o; u et espace (entre autre)
Laisse moi 1 heure que je casse ca

SPH · Message par **SPH** » ven. 06/oct./2006 7:45

Le message est :
"Si vous etes parvenu a decrypter cette phrase vous etes tres performant"
Je continue ou ca prouve que j'ai cassé ton cryptage ?

En tout cas, je ne connaissais pas RandomSeed mais j'avoue que c'est super. Pour ceux qui ne savent pas ce que ca fait, voici un petit code :

Code : Tout sélectionner

    Cle.s="ok ok ceci est une clé !!"
    lc=Len(Cle)

    cle_numerique=17
    RandomSeed(cle_numerique) 
    
    For n=0 To 30
      oct=Random(lc) 
      Debug oct
    Next

Donc, grace a RandomSeed(X), vous aurez toujours la meme table de nombres aleatoires. Ici, vous debuguerez 30 nombre et ce seront toujours les memes; a moins de changer X. Ca permet de reprendre la meme clé pour décrypter...

Frenchy Pilou · Message par **Frenchy Pilou** » ven. 06/oct./2006 10:21

Donc, grace a RandomSeed(X), vous aurez toujours la meme table de nombres aleatoires

Heureusement, sinon comment tester un programme si on n'a jamais les mêmes données

Sinon bravo pour le "cassage" de code

Quelles ont été les méthodes employées?

Backup · Message par **Backup** » ven. 06/oct./2006 10:26

alors la clef utilisé etait (code ascii)

Code : Tout sélectionner

110 102 118 106 104 60 252 53 111 102 67 102 55 114 237 60 83 55 103 39 43 168 48 114 110 118 115 104 44 33 239 101 116 55 115 53 97 104 55 63 126 99 34 99 121 48 96 61 191 87 101 54 61 65 251 31 55 100 66 100 102 79 55 106 87 232 99 40 101 39 125

j'etait en train de me fait un petit decodeur , mais tu m'a pris de vitesse

SPH · Message par **SPH** » ven. 06/oct./2006 10:33

Frenchy Pilou a écrit :
Donc, grace a RandomSeed(X), vous aurez toujours la meme table de nombres aleatoires
Heureusement, sinon comment tester un programme si on n'a jamais les mêmes données
Sinon bravo pour le "cassage" de code
Quelles ont été les méthodes employées?

Bin, je ne connaissais pas

La methode employé est moyennement simple et je ne peux pas l'expliquer aujourd'hui car je suis fatigué (souvent insomniac).
Sinon, Dobro, la clé n'est pas du tout celle que tu proposes. Non, la clé est egalement composé de lettres de l'alphabet mais il m'est impossible de savoir quelle est cette clé car RandomSeed melange les lettres. Si je regardais le code ASM de cette instruction, j'en tirerais l'algo qui me permettrait de retrouver la clé (probablement une phrase et pas un paquet de lettres). Je n'ai plus mon code de cassage mais il y avait de memoire aussi des chiffres et de la ponctuation dans la clé

Backup · Message par **Backup** » ven. 06/oct./2006 10:54

SPH a écrit : Sinon, Dobro, la clé n'est pas du tout celle que tu proposes.

si !si! je le prouve

j'ai entrez la clef en dur dans le code, mon programme te propose de charger son fichier

il affiche la phrase au debut des donné affiché dans la fenetre qui s'ouvre a la fin

Declare.s XorCrypt(key.s,String.s)
;
NomFichier$ = OpenFileRequester ( "Charge" , "c:" , "*.*" ,1)
OpenFile (1, NomFichier$)
While Eof (1)=0
    coder$=coder$+ Chr ( ReadByte (1))
Wend
CloseFile (1)
Password$= "110 70 118 74 72 28 220 53 79 70 99 70 55 82 205 60 115 23 71 7 43 168 48 82 78 86 83 72 12 1 207 69 116 23 83 21 65 72 55 31 94 67 2 67 89 48 64 29 159 119 69 54 29 97 219 31 23 68 98 68 102 111 23 74 119 200 67 8 69 7 93 "

CallDebugger

For a=1 To Len (Password$)
    coder2$= Mid (coder$,a,1) ; pour chaque lettre de la phrase codé
    Resultat$ = StringField (Password$, a, " " )
    Password2$ = Chr ( Val (Resultat$) )
    decoder$= LCase (decoder$)+XorCrypt( coder2$,Password2$) ; on xor la letre de la phrase codé avec chaque code ascii
Next a

Resultat = MessageRequester ( " le message décodé " ,decoder$, #PB_MessageRequester_Ok )

; **************************************************************

Procedure.s XorCrypt(key.s,String.s)

     For n=1 To Len (String)
        ChrString= Asc ( Mid (String,n,1))
        ChrKey= Asc ( Mid (key,Ptr+1,1))
         If ChrString=ChrKey
            ChrCrypt=ChrString
         Else
            ChrCrypt=ChrString ! ChrKey
         EndIf

        Retour.s+ Chr (ChrCrypt)
        Ptr+1
         If Ptr >Len(key) : Ptr=0 : EndIf
     Next

     ProcedureReturn Retour.s
EndProcedure

SPH · Message par **SPH** » ven. 06/oct./2006 10:57

Ton code ne fonctionne pas chez moi. D'autre part, tu avais affiché une clé en char et ce n'etait pas celle la.
Ok, ca marche now : mais a un moment, il dit "merci" et tu ne l'as pas decodé

Tiens, en vrac, des lettres de la clé :

Code : Tout sélectionner

n auofpuirP BnuP s nVPmeasem ersaftéuBmeiBrVde

Backup · Message par **Backup** » ven. 06/oct./2006 11:14

SPH a écrit :Ton code ne fonctionne pas chez moi. D'autre part, tu avais affiché une clé en char et ce n'etait pas celle la.
Ok, ca marche now : mais a un moment, il dit "merci" et tu ne l'as pas decodé

yavait une erreur reesaye nouveau code

(Merci Droopy)

ps la clef en char c'etait la meme mais avec les char certains code ne peuvent s'afficher dans le forum , c'est pourquoi j'ai donné ensuite les equivalent en code ascii

ps : y va etre venere notre brossden

SPH · Message par **SPH** » ven. 06/oct./2006 11:27

Ce que tu fais est facile car tu "xorise" ma phrase. Essaye un peu de trouver la suite pour voir

ps : si tu avais bien décodé, tu aurais par exemple mis la toute premiere lettre en majuscule.

Backup · Message par **Backup** » ven. 06/oct./2006 11:47

..........

flaith · Message par **flaith** » ven. 06/oct./2006 12:45

Ne jamais oublier ce site, il y a toujours quelquechose à trouver :
http://fr.wikipedia.org/wiki/Portail:Cryptologie