Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
Blue fish encryptor
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 16 Mar 2011, 10:51   Citer 

Et voilà ! V 2.4 Merci Linkakro ! 197 octets au lieu de 405 sans les lignes facultatives ! winkle.gif
Et çà fonctionne du tonnerre !

Facultatif

Code
:AxesNAff:Polaire
:"4ln(2téta->r1
:ZMinMax
:Texte(20,55,"BLUEFISH
:Texte(40,30,"ENCRIPTOR
:EffVar r1:Fonct:AxesAff:ZStandard



Code
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ?! ',.0123456789->Chaîne0  -----  (Un espace entre ! et ' ).
:Input Chaîne1
:Input "CLEF ",C
:Input "1CODE 2DECODE ",D
:D-3(D=2->D
:C->NbrAléat
:longueur(Chaîne1->L
:" ->Chaîne2                       --------- (Un espace entre " et -> ).
:EffEcr
:For(A,1,L
:DentAléat(1,42)+carChaîne(Chaîne0,sous-Chaîne(Chaîne1,A,1
:Chaîne2+sous-Chaîne(Chaîne0,Rép-42partEnt((Rép-1)/42),1->Chaîne2
:Output(8,1,L-A
:End
:Pause chaîne2



Str1 = Chaîne1
rand = NbrAléat
randInt = entAléat
length = longueur
inString = carChaîne
sub = sous-Chaîne
int = partEnt


----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
AlexRider38



Autorisation : Membre
Nb de messages : 139
Inscrit le : Ven 26 Mar 2010, 17:13
Posté le : Mer 16 Mar 2011, 15:36   Citer 

poste
+1

 Adresse email Haut de page Bas de page 
 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Jeu 17 Mar 2011, 19:12   Citer 

Ouais vas-y ! Ça a l'air d'être du lourd.

 Adresse email Haut de page Bas de page 
 
azerty1



Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Ven 18 Mar 2011, 15:42   Citer 

Postes! Cela pourrait évidemment être très utile! bigmouth.gif

----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu
 Adresse email Haut de page Bas de page 
 
Métalocif



Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24
Posté le : Ven 18 Mar 2011, 17:13   Citer 

Du cryptage sur TI? Un grand bigmouth.gif l.davin !

----------------------
"On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse." Clémenceau
 Adresse email Haut de page Bas de page 
 
harven
Avatar

Autorisation : Membre
Nb de messages : 99
Inscrit le : Mar 24 Aoû 2010, 10:10
Posté le : Ven 18 Mar 2011, 18:11   Citer 

Moi aussi je suis pour que tu le post mais je ne comprend pas le principe du programme :/

----------------------
Programmer en progression
Loading.....Bip.....Bip.....
Programme terminer

Harven
 Adresse email Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Ven 18 Mar 2011, 23:49   Citer 

poste!!
j'ai dja ait des programmes de cryptages qui ne font que remplacer des lettres a d'autres lettres, puis en mettant le tout a l'envers...

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 19 Mar 2011, 8:26   Citer 

d'habitude je code tout avec le système de césar, ça transforme le message en une suite de chiffres avec lesquels on peut faire tout plein d'opérations mathématiques pour brouiller...

bien sur je ne mets pas les lettres dans l'ordre dans la clé de décryptage, ce serait trop facile...

ps: je vois qu'il y a trois membres sur le fofo... venez sur le tchat!

 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 19 Mar 2011, 8:35   Citer 

bonne idée le mode polaire. on fait de très jolis fonds d'écran avec.

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 20 Mar 2011, 23:12   Citer 

Je suis très curieux de connaître cet algorithme bigmouth.gif Epates moi !

Tu me donnes envie de bricoler sur ma calcu la même chose que ma spé math sur ordi. Même cela ne sera sûrement pas aussi bien que ton algorithme.
Et j'ai aussi une idée originale que je n'ai pas appliqué comme voulu faute de connaissances en prog d'ordi. Reste à voir si ça sert à quelque chose sur calto.

----------------------
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 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 11 Juil 2012, 18:30   Citer 

EDIT 6/8/12 pour ceux qui débarquent : un message de ld (autrefois appelé l.davin) ci-dessus a été supprimmé (par son propriétaire semble-t-il). Il présentait la version initiale du programme.
--------
version 2

Code
  // j'ai supprimmé ce qui me semblait innutile
0->rand                          // réinitialise les aléatoires  // version 2.1
"ABCDEFGHIJKLMNOPQRSTUVWXYZ?! ',.0123456789->Str0
Input Str1
Input "CLEF ",C
1->D
Menu("","CODE",1,"DECODE",2
Lbl 2
2->D
Lbl 1
C->rand   // version 2.2
randInt(0,1,C  // innutile de faire varier l'intervalle
length(Str1->L
ClrList L1      // nécessaire
For(A,1,L
inString(Str0,sub(Str1,A,1->L1(A   // remplace la boucle de recherche
End
If D=1:L1+randInt(1,42,L->L1
If D=2:L1-randInt(1,42,L->L1  // il y avait un L2 au lieu de L1
" "->Str1
ClrHome
For(A,1,L
Str1+sub(Str0,L1(A)-42int((L1(A)-1)/42),1)->Str1  // pseudo modulo (excluant 0)
Output(8,1,L-A
End
Pause Str1

Tu comptes sur l'initialisation des aléatoires pour que la liste des constantes ajoûtées à celle du texte soit difficile à prévoir mais unique pour chaque valeur de clé.

Il suffit d'initialiser rand pour que le reste fonctionne. (rand=NbrAléat)

Par "modulo excluant 0" je désigne l'opération que nos deux versions effectuent, et plus particulièrement son expression par la division euclidienne.

Le modulo pouvait aussi être simplifié avec
L1(A)-42(42<L1(A))+42(1>L1(A))

Je propose d'initialiser les aléatoires avec la valeur de la clé.
Ainsi il suffit de supprimmer ma première ligne puis d'écrire C->rand après Input. (voir les commentaires "version 2.1" et "version 2.2")

----------------------
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 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 11 Juil 2012, 23:52   Citer 

EDIT 6/8/12 : un message ci-dessus a été supprimé o_O

========

L'algorithme des aléatoires des TI_Z80 demeure inconnu à ce jour mais nous avons effectués diverses recherches.

http://espace-ti.forumactif.com/t699-fonction-rand-comment-fonctionne-t-elle-vraiment?highlight=rand
http://tout82.free.fr/forum/sujet.php?sujet=1043
http:// **un sujet de ce forum que je ne retrouve pas**

========

Hélas "Input rand" ne fonctionne pas.

La fusion des boucle est une excellente idée. (comme quoi c'est une équipe qui permet d'avancer)

Je viens d'avoir l'idée d'associer 1 ou -1 à D pour utiliser D dans un unique calcul au lieu d'utiliser deux If.

version 2.3 (pour une fois pas testée)
Code
  // on pourra remettre les fioritures de présentation

"ABCDEFGHIJKLMNOPQRSTUVWXYZ?! ',.0123456789->Str0
Input Str1
Input "CLEF ",C
1->D
Menu("","CODE",1,"DECODE",2
Lbl 2
-1->D
Lbl 1
C->rand
randInt(0,1,C
length(Str1->L

" "->Str2
ClrHome
For(A,1,L
inString(Str0,sub(Str1,A,1->B
B+DrandInt(1,42->B
Str2+sub(Str0,B-42int((B-1)/42),1)->Str2
Output(8,1,L-A
End
Pause Str1



----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Jeu 12 Juil 2012, 12:41   Citer 

Et voilà ! V 2.4 Merci Linkakro ! 197 octets au lieu de 405 sans les lignes facultatives ! winkle.gif
Et çà fonctionne du tonnerre !

Facultatif

Code
:AxesNAff:Polaire
:"4ln(2téta->r1
:ZMinMax
:Texte(20,55,"BLUEFISH
:Texte(40,30,"ENCRIPTOR
:EffVar r1:Fonct:AxesAff:ZStandard



Code
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ?! ',.0123456789->Chaîne0  -----  (Un espace entre ! et ' ).
:Input Chaîne1
:Input "CLEF ",C
:Input "1CODE 2DECODE ",D
:D-3(D=2->D
:C->NbrAléat
:longueur(Chaîne1->L
:" ->Chaîne2                       --------- (Un espace entre " et -> ).
:EffEcr
:For(A,1,L
:DentAléat(1,42)+carChaîne(Chaîne0,sous-Chaîne(Chaîne1,A,1
:Chaîne2+sous-Chaîne(Chaîne0,Rép-42partEnt((Rép-1)/42),1->Chaîne2
:Output(8,1,L-A
:End
:Pause chaîne2



Str1 = Chaîne1
rand = NbrAléat
randInt = entAléat
length = longueur
inString = carChaîne
sub = sous-Chaîne
int = partEnt


----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 12 Juil 2012, 14:04   Citer 

Bien !

Cependant tu n'as pas besoin de la liste L1 : regarde ma v 2.3 comme exemple.
Tu peux utiliser une variable numérique, ou même Rép/Ans et ne pas préparer la liste.

Lorsque tu veux vider la liste, il est risqué d'utiliser EffVar : il faudra définir la variable avant de pouvoir de nouveau la manipuler.
Il vaut mieux utiliser EffList qui vide la liste.

Je préfère le Menu au Input pour contrôler le codage/décodage, mais fais comme tu veux, ça marche bien comme tu as fais.

V 2.4.2
Code
AxesNAff
Polaire
"4ln(2téta->r1
ZMinMax
Texte(20,55,"BLUEFISH
Texte(40,30,"ENCRIPTOR
EffVar r1:Fonct:AxesAff:ZStandard

"ABCDEFGHIJKLMNOPQRSTUVWXYZ?! ',.0123456789->Chaîne0
Input Chaîne1
Input "CLEF ",C
Input "1CODE 2DECODE ",D
D-3(D=2->D
C->NbrAléat
longueur(Chaîne1->L
" ->Chaîne2
EffEcr
For(A,1,L
DentAléat(1,42)+carChaîne(Chaîne0,sous-Chaîne(Chaîne1,A,1
Chaîne2+sous-Chaîne(Chaîne0,Rép-42partEnt((Rép-1)/42),1->Chaîne2
Output(8,1,L-A
End
Pause chaîne2



----------------------
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 
 
blg_flg



Autorisation : Membre
Nb de messages : 666
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Ven 13 Juil 2012, 16:02   Citer 

WOUAH ! bigmouth.gif Quel beau flood !

Ça m'arrive souvent en ce moment (d'être seul, pas de flooder, hein laugh.gif ), bien que je ne poste pas pour ça. winkle.gif

J'ai l'impression que tout le monde va sur Espace TI maintenant. angry.gif

Et il n'y a pas grand monde sur le chat (voir ma signature) non plus.

----------------------
 Adresse email Haut de page Bas de page 
 
tapenad



Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20
Posté le : Ven 13 Juil 2012, 16:44   Citer 

pareil pour moi: un signe qui ne trompe pas : je vais sur espace ti puis sur tout82 quand je me connecte cry.gif

----------------------
L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.

je suis premier!!!

je m'aime.
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 301
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Ven 13 Juil 2012, 17:45   Citer 

Je doit être le seul mais... je squatte presque que tout82!
(pour ça que je n'ai rien à faire de mes journées godgrace.gif )
Pour le programme je le trouve... Enorme bigmouth.gif
Associé à http://tout82.free.fr/forum/sujet.php?sujet=3328 de maxence on pourra crypter ses programme extraterre.gif
Il reste quand même une ligne de ton programme que je ne comprend qu'à moitié et j'aimerai une confirmation.

Code

sous-Chaîne(Chaîne0,Rép-42partEnt((Rép-1)/42)


cette ligne soustrait 42 si la valeur est supérieure à 42?

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 13 Juil 2012, 17:57   Citer 

Son équvalent conditionnel (dans le cas précis de ce programme) est :
Rép-42(42<Rép)+42(1>Rép)
Donc oui cela enlève 42 si c'est suppérieur à 42, et cela ajoute 42 si c'est inférieur à 1.

----------------------
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 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 13 Juil 2012, 22:48   Citer 

caractère inconnu :
La fonction inString/carChaîne renvoie 0 lorsqu'elle ne trouve pas la seconde chaîne dans la première.
Et le 0 se transforme en 42 lors du modulo d'affichage, d'où le caractère "9" après le décryptage.

Modification d'un programme via un autre :
Il faut de l'assembleur ou coller manuellement une chaine de caractères dans un programme.

----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 16 Juil 2012, 17:56   Citer 

Question:
Il y a 96 x 64 pixels sur l'écran, soit 6144.
Si on divise ce nombre par 8. Puisqu'il y a 8 bits dans un octet on trouve 768. La taille d'une image est de 764. Cela aurait'il un rapport ?
http://tout82.free.fr/caracteristiques3.php4

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa