Poster un nouveau sujet Poster une réponse
un petit programme pour "troller" son voisin de classe
Auteur Message
grmycaire



Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
Posté le : Jeu 28 Nov 2013, 18:45   Citer 

un petit programme pas long pour embêter son camarade de classe. attention, si il sait bien utiliser sa calto, il saura que l'on peut quitter un prog avec la touche on. À utiliser donc sur des noob de la calto happy.gif


Code

:EffEcr
:Repeat X=[un mot de passe de plusieurs chiffres]
:Imput "MOT DE PASSE",X
: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É



n'esitez pas à laisser vos commentaires.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 29 Nov 2013, 0:17   Citer 

J'adore le "nan j'deconne". lol mdr ptdr rofl xD

Mais une saisie incorrecte peut arrêter le programme.
Tu peux remplacer X et le code par des chaînes de caractères.
Chaîne1 ou Str1 : saisi avec var+7+1
Le code entre guillemets.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
grmycaire



Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
Posté le : Ven 29 Nov 2013, 19:51   Citer 

j'ai remplacé X par une chaine de caracteres

Code

:EffEcr
:Repeat Chaine1=[un mot de passe de plusieurs 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É



voila je ais pas essayé mais normalement sa fonctionne.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 29 Nov 2013, 22:12   Citer 

Presque. mentionne les guillemets.
:Repeat Chaine1="AZER123" //un mot de passe de plusieurs chiffres ou lettres

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
grmycaire



Autorisation : Membre
Nb de messages : 37
Inscrit le : Lun 21 Oct 2013, 22:12
Posté le : Sam 30 Nov 2013, 11:38   Citer 

voila version definitive

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É



j'ai juste ajouté les guillemets.

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes