un petit programme pour troller son voisin.

Code:


:EffEcr
:Repeat Chaine1="[mot de passe chiffres ou lettres]
:Imput "MOT DE PASSE:",Chaine1
:Disp "MOT DE PASSE","TROUVÉ
:For(A,1,500        //vous pouvez augmenter la 3eme valeur pour augmenter le temps d'attente
:End
:Disp "NAN J'DECONNE
:End
:EffEcr
:Disp "MOT DE PASSE","TROUVÉ


rpgcreator a écrit:Amusant, mais faut refaire le même en ASM!!!
Vous savez pourquoi???
Ben je vais pas le dire!!

Code:

CD9547CD5D47CD7547217D93CD0D47AF32C880CDB250CD2A44219C93CD0D47CD3D47EB462311A9931AB8200D23131ABE200710F8FDCB00AEC90610C506FFC506FFC5C110FCC110F6C110F0218B93CD0D47CD3D4718B34D6F742064652070617373653A004E616E206A276496636F6E6E652E2E2E004D64702074726F757696202100053334383237
End
0000
End

Code:

053334383237

tokens lettres/chiffres a écrit:;letter tokens
;------------------------------------------
#define let 41h
;
#define ta  let ;41h
#define tb  let+1 ;42h
#define tc  let+2 ;43h
#define td  let+3 ;44h
#define te  let+4 ;45h
#define tf  let+5 ;46h
#define tg  let+6 ;47h
#define th  let+7 ;48h
#define ti  let+8 ;49h
#define tj  let+9 ;4ah
#define tk  let+10 ;4bh
#define tl  let+11 ;4ch
#define tm  let+12 ;4dh
#define tn  let+13 ;4eh
#define to  let+14 ;4fh
#define tp  let+15 ;50h
#define tq  let+16 ;51h
#define tr  let+17 ;52h
#define ts  let+18 ;53h
#define tt  let+19 ;54h
#define tu  let+20 ;55h
#define tv  let+21 ;56h
#define tw  let+22 ;57h
#define tx  let+23 ;58h
#define ty  let+24 ;59h
#define tz  let+25 ;5ah
#define ttheta  let+26 ;5bh

;number tokens
;--------------------------------------------
#define nums    30h
;
#define t0  nums ;30h
#define t1  nums+1 ;31h
#define t2  nums+2 ;32h
#define t3  nums+3 ;33h
#define t4  nums+4 ;34h
#define t5  nums+5 ;35h
#define t6  nums+6 ;36h
#define t7  nums+7 ;37h
#define t8  nums+8 ;38h
#define t9  nums+9 ;39h
#define tdecpt  nums+10 ;3ah
#define tee nums+11 ;3bh

Code:

.nolist
#include "ti83.inc"
.list

#ifdef TI83P
 .org progstart-2
 .db $bb,$6d
#else
 .org progstart
#endif

;Début du prgm
 call _indicatorOff
        call _clrscrnfull
        call _homeup

start:
        ;On demande le mdp
        ld hl,askMdp
        call _puts
        
        xor a
        ld (asm_ind_call),a
        call pgmio_exec
        call _chkfindsym
        
        ;On affiche trouvé
        ld hl,Trouve
        call _puts
        call _newline
        
        ;On charge la chaine
        EX de,hl
        ld b,(hl)
        inc hl
        
        ;On compare
        ld de,mdp
        ld a,(de)
        cp b
        jr nz,TROLL
        
cpMdp:
        inc hl
        inc de
        ld a,(de)
        cp (hl)
        jr nz,TROLL
        djnz cpMdp

 res doneprgm,(iy+doneflags)
        ret
        
TROLL:
        ld b,$10
RALENTIR:
        push bc
        ld b,$FF
RALENTIR2:
        push bc
        ld b,$FF
RALENTIR3:
        push bc
        pop bc
        djnz RALENTIR3
        pop bc
        djnz RALENTIR2
        pop bc
        djnz RALENTIR

        ld hl,Troller
        call _puts
        
        call _newline
        jr start


askMdp:
       .db "Mot de passe:",0

Troller:
       .db "Nan j'd", $96, "conne...",0

Trouve:
       .db "Mdp trouv", $96, " !",0

mdp:
       .db 5, $33, $34, $38, $32, $37

Code:

:EffEcr:Disp " "
:Output(1,1,ERR:ARReT")   ------  "e" 2nde + virgule (à J).
:Output(2,3,"Sci")        ------  touche "mode".
:Output(2,1,"Qu")         ------  "u" 2nde + 7.
:Output(2,6,"tter")       ------  "t" Var/Stat/Test. "e" 2nde + division. "r" Var/Stat/EQ.
:Output(3,3," ou ")       ------  2nde + math (test)/Logique.
:Output(3,5,"imag(")      ------  Catalogue (2nde + 0).
:Output(3,1,"2:V")        ------  ":" Alpha + 0.
:Output(3,6,"r   ")       ------  "r" Var/Stat/EQ. + 3 vides.
:FonctOff                 ------  Catalogue.
:GraphOff                 ------  Catalogue.
:AxesNaff                 ------  Catalogue ou 2nde Zoom (Format).
:EffDessin                ------  Bon, là faut pas charier hein !
:SauveImage 8             ------  2nde Dessin/SA.
:For(A,0,6)
:For(B,0,4)
:Pxl-On (A,B)
:End:End
:SauveImage 9
:Lbl 1
:0->A
:While A =/=8             ------  (Différent de). 2nde + maths(test).
:RappelImage 9            ------  2nde Dessin/SA.
:A+1->A
:End
:While A=/=18
:RappelImage 8
:A+1->A
:End
:Goto 1

Code:

:While 1
:Input "",B
:Disp B+entAléat(-2,2)
:End

Code:

ClrHome
Disp "TROLL !
While 1
GarbageCollect
End

Code:

AsmPrgm