Forum tama's team

cp: ne peut évaluer `brain': Aucun fichier ou dossier de ce type
AccueilPortailGalerieCalendrierFAQRechercherS'enregistrerMembresGroupesConnexion
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Derniers sujets
» Network, essai 1
par godbod Dim 09 Juil 2017, 02:18

» GODBOD
par godbod Sam 08 Juil 2017, 14:05

» Numbers
par godbod Sam 08 Juil 2017, 13:54

» Mort ?
par godbod Sam 08 Juil 2017, 13:47

» mon humeur
par Ver2guerre Sam 30 Juil 2016, 19:44

» [A voir] Programme de traduction original : WikiTranslate
par AdRiWeB Lun 01 Fév 2016, 04:50

» Reprise ?
par Emyl Jeu 14 Juin 2012, 21:17

» Euh, ah ?
par Ver2guerre Dim 27 Mai 2012, 12:11

» Problème TI 89 Titanium non visible après mise à jour
par abdoukid Mer 23 Mai 2012, 13:37

» Y'a quelqu'un ?
par Ver2guerre Sam 21 Avr 2012, 23:10

Quick message
Qui est en ligne ?
Il y a en tout 3 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 3 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 367 le Dim 18 Oct 2009, 00:16

Partagez | 
 

 MyProtect

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
ProgVal
modérateur
modérateur
avatar

Nombre de messages : 4107
Age : 166
Localisation : In da cloud
items : o
Personalized field :
Réputation : -4
Points : 4244
Date d'inscription : 09/08/2007

Profil
TI: V200 - NSpire
TO: 120 [2352 - 2%]
Spécialité: Programmation web

MessageSujet: MyProtect   Dim 27 Avr 2008, 17:01

myProtect est un logiciel de cryptage de données selon le chiffre de Vigenère.
myProtect nécessite en argument le message, crypté ou non, ensuite une boîte de dialogues apparait, permettant de sélectionner les options.
Le message de sortie est stocké dans la variable "out".






_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://progval.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Dim 27 Avr 2008, 17:58

enfin une présentation correcte ! tu vois bien que ce n'était pas si dur !

Concernant le programme, le truc qui serait bien ce serait de pouvoir utiliser ça dans un programme, c'est-à-dire ne pas mettre de boite de dialogue

tu peux faire ça avec plusieurs arguments par exemple :
my_prote(message,mode,clef)

mode = 1 pour cryptage, 2 pour décryptage
et clef, bah la clef

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Ver2guerre
chasseur en chef
chasseur en chef
avatar

Nombre de messages : 3139
Age : 106
Localisation : Partout en même temps (V2g quantique)
Loisirs : #pkill boulet
Humeur : Happy :)
items :
Personalized field : 12 jetons
Réputation : 8
Points : 5046
Date d'inscription : 15/09/2007

Profil
TI: (TI-89Tita)^2+TI83Plus
TO: 50 [2380 - 2%] {54}
Spécialité: Autres

MessageSujet: Re: MyProtect   Dim 27 Avr 2008, 18:15

Mais ? ... mais ?? C'était mon projet ??? Raaah !

_________________
Help, j'ai rien compris

C'est moche :
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Dim 27 Avr 2008, 18:48

v2g>ah ? tu ne l'as jamais dit

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Ver2guerre
chasseur en chef
chasseur en chef
avatar

Nombre de messages : 3139
Age : 106
Localisation : Partout en même temps (V2g quantique)
Loisirs : #pkill boulet
Humeur : Happy :)
items :
Personalized field : 12 jetons
Réputation : 8
Points : 5046
Date d'inscription : 15/09/2007

Profil
TI: (TI-89Tita)^2+TI83Plus
TO: 50 [2380 - 2%] {54}
Spécialité: Autres

MessageSujet: Re: MyProtect   Dim 27 Avr 2008, 19:27

espace perso.

Ou alors, j'ai mal compris.

_________________
Help, j'ai rien compris

C'est moche :
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Dim 27 Avr 2008, 19:31

bah c'est un truc de cryptage

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ProgVal
modérateur
modérateur
avatar

Nombre de messages : 4107
Age : 166
Localisation : In da cloud
items : o
Personalized field :
Réputation : -4
Points : 4244
Date d'inscription : 09/08/2007

Profil
TI: V200 - NSpire
TO: 120 [2352 - 2%]
Spécialité: Programmation web

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 14:07

Selon le chiffre de Vigenère.

De tous les codages, c'est celui qui a tenu le plus longtemps avant qu'on le casse.

Et pour l'utiliser dans un programme, c'est pas compliqué, une petite édition suffit (supprimer la Box, et voir quelles variables sont définies par a Box)
;

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://progval.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 14:19

bah fais-le :p

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ProgVal
modérateur
modérateur
avatar

Nombre de messages : 4107
Age : 166
Localisation : In da cloud
items : o
Personalized field :
Réputation : -4
Points : 4244
Date d'inscription : 09/08/2007

Profil
TI: V200 - NSpire
TO: 120 [2352 - 2%]
Spécialité: Programmation web

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 15:07

Code:
(msg,mode,key)
Prgm
©MyProtect par ValProg
Local i,accept,t,j,key,key2
255->key2
ClrIO
Output 0,0,"myProtect 1"
If mode=1:Output 10,0,"Encodage"
If mode=2:Output 10,0,"Décodage"
""->out
1->j
For i,1,dim(msg)
 Output 20,0,string(int(i/(dim(msg))*100))&"%"
 j+1->j
 If j>dim(key):2->j
 If mode=1
  out&char(mod(ord(mid(msg,i,1))+ord(mid(key,j,1)),key2))->out
 If mode=2
  out&char(mod(ord(mid(msg,i,1))-ord(mid(key,j,1)),key2))->out
EndFor
EndPrgm

EDIT by tama : remplacement des caractères non reconnus

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://progval.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 15:20

ch'tite optimisation
Code:

(msg,mode,key)
Prgm
©MyProtect par ValProg
Local i,accept,t,j,key,key2
255->key2
ClrIO
Output 0,0,"myProtect 1"
Output 10,0,mid("EnDé",2*mode-1,2)&"codage"
""->out
1->j
For i,1,dim(msg)
 Output 20,0,string(int(i/(dim(msg))*100))&"%"
 j+1->j
 If j>dim(key):2->j
 If mode=1 Then
  out&char(mod(ord(mid(msg,i,1))+ord(mid(key,j,1)),key2))->out
 Else
  out&char(mod(ord(mid(msg,i,1))-ord(mid(key,j,1)),key2))->out
 EndIf
EndFor
EndPrgm

sinon c'est quoi key ? une liste ?

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ProgVal
modérateur
modérateur
avatar

Nombre de messages : 4107
Age : 166
Localisation : In da cloud
items : o
Personalized field :
Réputation : -4
Points : 4244
Date d'inscription : 09/08/2007

Profil
TI: V200 - NSpire
TO: 120 [2352 - 2%]
Spécialité: Programmation web

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 15:23

Plus key est basse, plus c'est dur à déchiffrer. Mais la qualité du message restituée est moins bonne. la valeur 255 constitue la valeur maxi.
En fait, il s'agit des restes de la première bétà.

_________________
Revenir en haut Aller en bas
Voir le profil de l'utilisateur https://progval.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 25
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6962
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: MyProtect   Jeu 01 Mai 2008, 17:57

nan, pas key2, key

parce que dim(entier) n'a pas de sens...

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: MyProtect   

Revenir en haut Aller en bas
 

MyProtect

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum tama's team :: TI :: TI 68k :: Bric-à-brac-
Créer un forum | © phpBB | Forum gratuit d'entraide | Contact | Signaler un abus | Forum gratuit