Avis aux amateurs de crack ! (Ou de maths !)

Bonjour, afin de voir si le système de mot de passe de TI-BASIC+ est certain ou pas, je demande aux hackeurs amateurs de bien vouloir... essayer de trouver le mot de passe que j'ai mis.

Je précise qu'il est stocké dans le 7ème emplacement de la liste LΘΘ et qu'il est égal à 1.787295386. (Je ne vous demande pas d'enlever le mot de passe mais de trouver la combinaison.)

Vous pouvez télécharger le programme ACCUEIL dans TI-BASIC+v0.6.

Merci d'avance. :P

PS: Vous pouvez balancer vos recherches ici.

je te hacke ça j'adore les défis ^^

mais justement: un vrai hacker ne s'embarrasserait pas et supprimmerait le mot de passe.

Moi aussi je vais essayer

EDIT: Voici un programmes qui "force" prgmACCUEIL
Le programme pour le reveler suivra dans les prochains jours

Code:

2→dim(lZHACK
If áZHACK(1):Then
lZHACK(2→l[THETA][THETA](7
0→lZHACK(1
Disp "MDP RESTAURE:OK","PAR THEPH"
Stop
Else
1→áZHACK(1
l[THETA][THETA](7)→lZHACK(2
0→l[THETA][THETA](7
prgmACCUEIL
End

Simple non?

Pas mal.

Je sais que enlever le mot de passe est chose simple pour un programmeur moyen, je veux juste savoir si c'est possible de voir la combinaison rentrée.

Pour la trouvez: c'est quasi-impossible, car il faudrait la liste 1 ou d'autre variables. Cela ressemble a un programmes ASM: une fois "compilé" le mot de passe de peut être vus, voire modifié.

Bravo a Alexis pour cette protection digne du TI-Basic+ :D

Tu n'as u'à faire un système de cryptage de mot de passe type RSA. :P

PS : enlever le mot de passe, ou le contourner = cracking.

J'ai changé le titre. Et qu'est-ce un système RSA ?

Regardez la façon dont est enregistré le code. (Avec la racine carré.)

C'est de la cryptographie à l'état pur : un tutoriel ici. En gros c'est un algorithme de cryptographie asymétrique, c'est le même principe qui est utilisé sur les carte bancaire ou même les calculatrices TI ! Pour information, les clefs RSA de toutes les calculatrices TI (sauf Nspire) on été factorisés il y a un peu plus d'un an, et ce après de nombreux mois pendant lesquelles des dizaines d'ordinateurs ont tournés jour et nuit. Plus d'information ici.

PS : bien sûr les clefs RSA de TI n'étaient que de 16 bits, ce qui était déjà très puissant pour l'époque.

Bon personne n'a l'air d'avoir trouvé comment récupérer le mot de passe à taper décrypté. Tant mieux.

Je vien de regarder, et il me semble que la valeur que tu donne est incohérent : rac(e+rac(d+rac(c+rac(b+rac(a avec a à e un code touche, ne peut pas être inférieur à 3,853948108 (si on n'a que des f(x) donc des 11.

Pourrais-tu donc s'il te plait la vérifier, et/ou en donner une novelle.

Merci d'avance
Sandro

Je n'ai pas très bien compris... Tu dis que le mot de passe crypté ne peut pas être inférieur à 3.85... ?

Je ne suis pas trop dans le vent mais le défi m'intéresse.
(encore un sujet marqué lu que je n'ai jamais vu)

Déjà, faut-il trouver l'opération de cryptage et de décryptage ou seulement celle de décryptage ?
Déjà je ne parviens pas à éditer le programme pour en connaître l'opération de cryptage alors c'est peut-être normal.

Il faudrait à partir du code crypté dans la liste de sauvegarde retrouver le code non crypté rentré par l'utilisateur.

Ouvre le code depuis cette page : ça marche.

Sinon, pourrais-tu s'il te plait vérifier ton nombre ou en créer un nouveau SVP :

si j'ai bien compris, l'encodage revient à calculer:
rac(e+rac(d+rac(c+rac(b+rac(a))))) avec a le premier code touche, b le second , [...] e le 5ème.
Si c'est bien ça, alors le résultat minimum est optenu en prennant 11 (touche f(x) ) pour chaque lettre, ce qui donne rac(11+rac(11+rac(11+rac(11+rac(11))))) = 3,853948108


Sandro

Oui mais en ne prenant pas 11 on ne trouve pas forcément le code ?

je sais pas, j'aimerais bien essayer, mais je pense que ta valeur indiquée est fausse (on peut pas optenir moins qu'avec uniquement des 11 ce qui donne 3.????)

Sinon, j'ai une idée, mais je ne sais pas si ça fonctionne

Donc S'il te plait, vérifie et reposte la valeur (ou une autre)

Sandro

A désolé, j'avais pas vu que tu faisais par rapport au premier message...

Je me rappel plus trop, je vais essayer de retrouver ça.

Edit: Tu as l'air d'avoir raison, j'ai peut être changé le système de mot de passe entre deux en tous cas je comprends pas...
Bon tu peux essayer avec celui-ci: 3.179189028

Edit 2: En faite ça peut descendre en dessous de 3 car en faisant une succession de racines ça marche, comme le système utilisé ici.

Edit 3: J'ai fais un programme qui permet de trouver le mot de passe décrypté, cependant il dur... un bon moment, en effet il y a 48^6 possibilités et il essai chacune d'elle en TI-Basic, j'essayerai de le programmer en C pour voir.

Tu est sur de bien utiliser le programme pour optenir tes résutats? rac(11+rac(11+rac(11+rac(11+rac(11=3.85 donc ton 3.179189028 est incohérent. Pourrais-tu donc : soit me poster un nombre entre 3.85 et 10.76 soit mettre un liens vers le preogramme qui le génère?

Sandro (j'ai même vérifié avec un émulateur que mon interprétation est bonne)

Dans tous les cas l'accueil est un programme TI-Basic, donc modifiable et contournable. Si tu ajoute l'option d'un mot de passe, c'est juste pour le fun, mais ici ce n'est pas fonctionnel vraiment.  :roll:

Code:

:If A=exp
:Then
:   ClrHome
:   DelVar A
:   Output(4,2,"ACCES INTERDIT
:   Output(1,1,"
:   Stop
:End
:8→dim(ᴸΘΘ
:{.7,16,10,11,ᴸΘΘ(5),0,ᴸΘΘ(7),ᴸΘΘ(8→L1
:StoreGDB 1
:If ᴸΘΘ(6
:Then
:   π→A
:   RecallGDB 0
:   RecallPic 0
:   Goto 0
:End
:ClrDraw
:AxesOff
:FnOff
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:Horizontal Ymin
:Horizontal 8
:Horizontal 54
:Horizontal Ymax
:Vertical Xmin
:Vertical Xmax
:If L1(1)>ᴸΘΘ(1
:Then
:   Horizontal 36
:   Horizontal 26
:   Text(28,5,"INSTALLATION EN COURS...
:   For(A,1,93
:      For(B,27,35
:         Pt-Change(A,B
:      End
:   End
:   L1→ᴸΘΘ
:   1→dim(ᴸAS
:   1→dim(ᴸBR
:   1→dim(ᴸCI
:   1→dim(ᴸES
:   1→dim(ᴸFA
:   1→dim(ᴸGA
:   1→dim(ᴸHA
:   1→dim(ᴸPR
:   1→dim(ᴸSN
:   1→dim(ᴸSP
:   "MAJ
:   For(A,36,26,‾1
:      Line(1,A,93,A,0
:   End
:End
:Text(28,2,"CHARGEMENT...
:For(A,1,9
:   For(B,0,1
:      Text(1,5A+B-3,sub("TI-BASIC+",A,1
:      If A=1
:         Line(3,59,3,56
:      If A=2
:         Line(8,59,8,57
:      If A=5
:         Pt-On(23,60
:      If A=6
:      Then
:         Pt-On(28,60
:         Pt-On(28,58
:         Pt-On(29,57
:      End
:      If A=7
:         Line(33,59,33,57
:      If A=8
:         Line(38,60,38,56
:      If A=9
:         Line(43,59,43,57
:   End
:End
:Text(1,79,"v ",int(ᴸΘΘ(1)),".",fPart(ᴸΘΘ(1))ᴱ1
:Text(55,66,"ACCUEIL
:Text(28,82,"T+
:Circle(85,31,6
:Circle(85,31,7
:For(A,33,29,‾1
:   Line(2,A,46,A,0
:End
:If getKey=21
:Then
:   For(A,1,93
:      For(B,7,1,‾1
:         Pxl-Change(B,A
:      End
:   End
:End
:StoreGDB 0
:StorePic 0
:π→A
:Lbl 0
:If A=π and ᴸΘΘ(7
:Then
:   DelVar ADelVar L1
:   5→dim(L1
:   Text(18,2,"MOT DE PASSE:
:   Repeat B=21 and A
:      getKey→B
:      If B and B≠21 and B≠23 and A<6
:      Then
:         A+1→A
:         B→L1(A
:         Text(27,6A-4,"*
:      End
:      If B=23 and A
:      Then
:         0→L1(A
:         A-1→A
:         Text(27,6A+2,"    
:      End
:   End
:   DelVar A
:   For(B,1,5
:      √(A+L1(B→A
:   End
:   If A≠ᴸΘΘ(7
:   Then
:      Text(36,2,"INCORRECT
:      69!
:      Goto 9
:   Else
:      Text(36,2,"CORRECT
:      69!
:      For(C,43,21,‾1
:         Line(2,C,44,C,0
:      End
:   End
:End
:Text(55,2,"MENU          
:1→A
:{16,20,24→L1
:For(B,1,3
:   Text(9B+9,2,sub("JEUX  MATHS AUTRES",6B-5,6
:End
:Repeat B=21 or B=22 or B=23 or B=32 or B=33 or B=1+30(ᴸΘΘ(8
:   getKey→B
:   If B
:      Line(2,46-9A,L1(A),46-9A,0
:   A-(B=25)+(B=34→A
:   If not(A
:      3→A
:   If A=4
:      1→A
:   Line(2,46-9A,L1(A),46-9A
:   If B=45
:      Goto 9
:End
:For(C,43,19,‾1
:   Line(2,C,24,C,0
:End
:If B=31
:Then
:   π→A
:   exp→B
:   prgmZPLUGIN
:   prgmACCUEIL
:End
:If B=22
:   Goto 5
:If B=23
:Then
:   2→A
:   Goto 6
:End
:If B=32
:   Goto 7
:If B=33
:   Goto 8
:If A=1
:   Goto 1
:If A=2
:   Goto 2
:If A=3
:   Goto 3
:Lbl 1
:Text(55,2,"JEUX
:1→A
:{24,20,20,20,16,64,64,60,60,60→L1
:For(B,1,5
:   Text(9B,2,sub("ASTEROBREAK CIBLE ESCAP?FALL  ",6B-5,6
:   Text(9B,42,sub("GALAXYHASARDPRESS SNAKE?SPEED ",6B-5,6
:End
:Repeat B=21
:   getKey→B
:   If B
:   Then
:      If A<6
:      Then
:         Line(2,55-9A,L1(A),55-9A,0
:      Else
:         Line(42,ᴱ2-9A,L1(A),ᴱ2-9A,0
:      End
:   End
:   A-(B=25)+(B=34→A
:   If not(A
:      10→A
:   If A=11
:      1→A
:   A-5(B=24 and A>5)+5(B=26 and A<6→A
:   If A<6
:   Then
:      Line(2,55-9A,L1(A),55-9A
:   Else
:      Line(42,ᴱ2-9A,L1(A),ᴱ2-9A
:   End
:   If B=45
:   Then
:      For(C,52,10,‾1
:         Line(2,C,64,C,0
:      End
:      Goto 0
:   End
:End
:Goto 4
:Lbl 2
:11→A
:Goto 4
:Lbl 3
:Text(55,2,"AUTRES
:12→A
:{24,20,24,24,24→L1
:For(B,1,5
:   Text(9B,2,sub("DIVERSMATHS?NOLIFENUMBERVEILLE",6B-5,6
:End
:Repeat B=21
:   getKey→B
:   If B
:      Line(2,154-9A,L1(A-11),154-9A,0
:   A-(B=25)+(B=34→A
:   If A=11
:      16→A
:   If A=17
:      12→A
:   Line(2,154-9A,L1(A-11),154-9A
:   If B=45
:   Then
:      For(C,52,10,‾1
:         Line(2,C,24,C,0
:      End
:      Goto 0
:   End
:End
:Lbl 4
:RecallGDB 1
:If 1≤A and A≤10
:   N+1→N
:If 11≤A and A≤16
:   I%+1→I%
:exp→B
:If A=1
:   prgmASTERO
:If A=2
:   prgmBREAK
:If A=3
:   prgmCIBLE
:If A=4
:   prgmESCAPE
:If A=5
:   prgmFALL
:If A=6
:   prgmGALAXY
:If A=7
:   prgmHASARD
:If A=8
:   prgmPRESS
:If A=9
:   prgmSNAKE
:If A=10
:   prgmSPEED
:If A=11
:   prgmΘMATHS
:If A=12
:   prgmΘDIVERS
:If A=13
:   prgmΘMATHS
:If A=14
:   prgmΘNOLIFE
:If A=15
:   prgmΘNUMBER
:If A=16
:   prgmΘVEILLE
:StoreGDB 1
:RecallGDB 0
:RecallPic 0
:Goto 0
:Lbl 5
:Text(55,2,"CREDITS
:For(A,52,46,‾6
:   Line(3,A,7,A
:   Line(A-44,51,A-44,47
:End
:For(A,50,48,‾2
:   Line(4,A,6,A
:End
:Pt-On(4,49
:Text(10,11,"- ESPACE TI - 2011
:Text(20,12,"ALEXIS
:Text(29,10,"LOUIS BECQUEY
:Text(38,20,"[EMPTY]
:Text(47,20,"[EMPTY]
:Repeat B=45
:   getKey→B
:End
:For(A,52,10,‾1
:   Line(2,A,69,A,0
:End
:Goto 0
:Lbl 6
:Text(55,2,"OPTIONS
:If ᴸΘΘ(6
:Then
:   4→B
:Else
:   1→B
:End
:Text(9,2,"AFFICHAGE RAPIDE: ",sub("NONOUI",B,3
:If ᴸΘΘ(7
:Then
:   4→B
:Else
:   1→B
:End
:Text(18,2,"MOT DE PASSE: ",sub("NONOUI",B,3
:If ᴸΘΘ(8
:Then
:   4→B
:Else
:   1→B
:End
:Text(27,2,"PLUGIN: ",sub("NONOUI",B,3
:Text(36,2,"NUMERO ID
:Text(45,2,"REINISIALISER
:{76,57,39,33,52→L1
:Repeat B=21
:   getKey→B
:   If B
:      Line(2,64-9A,L1(A-1),64-9A,0
:   A-(B=25)+(B=34→A
:   If A=1
:      6→A
:   If A=7
:      2→A
:   Line(2,64-9A,L1(A-1),64-9A
:   If B=45
:   Then
:      For(C,52,10,‾1
:         Line(2,C,76,C,0
:      End
:      Goto 0
:   End
:End
:If A=2
:Then
:   If ᴸΘΘ(6
:   Then
:      0→ᴸΘΘ(6
:   Else
:      1→ᴸΘΘ(6
:   End
:End
:If A=3
:Then
:   If ᴸΘΘ(7
:   Then
:      0→ᴸΘΘ(7
:   Else
:      ClrHome
:      Disp "CODE:
:      DelVar BDelVar L1
:      5→dim(L1
:      Repeat C=21 and B
:         getKey→C
:         If C and C≠21 and C≠23 and B<6
:         Then
:            B+1→B
:            C→L1(B
:            Output(1,6+B,"*
:         End
:         If C=23 and B
:         Then
:            0→L1(B
:            B-1→B
:            Output(1,7+B,"
:         End
:      End
:      DelVar B
:      For(C,1,5
:         √(B+L1(C→B
:      End
:      B→ᴸΘΘ(7
:   End
:End
:If A=4
:Then
:   If ᴸΘΘ(8
:   Then
:      0→ᴸΘΘ(8
:   Else
:      1→ᴸΘΘ(8
:   End
:End
:If A=5
:Then
:   If 9≠iPart(log(ᴸΘΘ(5)+1
:   Then
:      ClrHome
:      Input "ID: ",B
:      B-1→ᴸΘΘ(5
:   End
:End
:If A=6
:Then
:   For(B,52,10,‾1
:      Line(2,B,76,B,0
:   End
:   Text(9,2,"CONFIRMER ?
:   Text(18,2,"NON
:   Text(18,26,"OUI
:   DelVar A
:   Repeat B=21 or B=45
:      getKey→B
:      If B
:      Then
:         Line(2+24A,37,12+24A,37,0
:         A-(B=24)+(B=26→A
:         If A<0
:            1→A
:         If A>1
:            DelVar A
:      End
:      Line(2+24A,37,12+24A,37
:   End
:   If B=45 or not(A
:   Then
:      For(A,52,37,‾1
:         Line(2,A,41,A,0
:      End
:      If B=45
:         Goto 0
:      1→A
:      Goto 6
:   End
:   Text(47,2,"DONNEES EFFACEES
:   DelVar ᴸASDelVar ᴸBRDelVar ᴸCIDelVar ᴸESDelVar ᴸFADelVar ᴸGADelVar ᴸHADelVar ᴸPRDelVar ᴸSNDelVar ᴸSPDelVar ᴸΘΘ
:   0→N
:   0→I%
:   0→PV
:   0→PMT
:   0→FV
:   1→P/Y
:   Repeat getKey=21
:   End
:   prgmACCUEIL
:End
:Goto 6
:Lbl 7
:Text(55,2,"INFOS
:Text(18,2,"VERSION: ",int(ᴸΘΘ(1)),".",fPart(ᴸΘΘ(1))ᴱ1,"  FR
:Text(27,2,"DATE: 0?/0?/
:If 9<ᴸΘΘ(2
:Then
:   Text(27,21,ᴸΘΘ(2
:Else
:   Text(27,25,ᴸΘΘ(2
:End
:If 9<ᴸΘΘ(3
:Then
:   Text(27,33,ᴸΘΘ(3
:Else
:   Text(27,37,ᴸΘΘ(3
:End
:Text(27,45,ᴸΘΘ(4
:Text(36,2,"ID: ??????????
:If 9=iPart(log(ᴸΘΘ(5)+1
:   Text(36,13,int(ᴸΘΘ(5)ᴱ‾5),fPart(((1+ᴸΘΘ(5))ᴱ‾5))ᴱ5
:Repeat B=45
:   getKey→B
:End
:For(A,43,21,‾1
:   Line(2,A,51,A,0
:End
:Goto 0
:Lbl 8
:ᴸAS(1)+ᴸBR(1)+ᴸCI(1)+ᴸES(1)+ᴸFA(1)+ᴸGA(1)+ᴸHA(1)+ᴸPR(1)+ᴸSN(1)+ᴸSP(1→A
:Text(55,2,"DONNEES
:Text(9,2,"UTILISATION:
:Text(18,6,"JEUX: ",N
:Text(27,6,"AUTRES: ",I%
:Text(38,2,"NIVEAU: ",sub("***",1,(A≥ᴱ4)+(A≥2ᴱ4)+(A≥3ᴱ4)+not(A
:If A>PV
:Then
:   Text(47,3,"!
:   A→PV
:End
:Text(47,6,"SCORE: ",PV
:Repeat B=45
:   getKey→B
:End
:For(A,52,10,‾1
:   Line(2,A,50,A,0
:End
:Goto 0
:Lbl 9
:ClrHome
:Output(4,6,"ALEXIS
:RecallGDB 1
:DelVar ADelVar BDelVar CDelVar YDelVar L1DelVar GDB1
:If not(ᴸΘΘ(6
:   DelVar Pic0DelVar GDB0
:Output(1,1,"
:Stop

Il suffit d'enlever le stop de la 7ème ligne non ?

Oui il y a énormément de moyens de le contourner si on sais programmer un minimum en TI-BASIC.

@ sandro: Avec 4321 on a 1.78...

tu est sur? avec 4;3;2;1, j'optiens 3.179189028 (sur émulateur avec la version du haut de page)

Pourrais-tu s'il te plait m'envoyer le programme acceuil que tu utilise actuellement, ainsi que LTéthaTétha(7)


Merci d'avance
Sandro

Tiens:
http://www.mediafire.com/download.php?sy2ye3ru4l6mdwf

Tu auras peut être des problèmes à cause de l'affichage rapide mais bon.
(Mot de passe de l'archive par message personnel.)