PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2024 → Cryptographie simple
Cryptographie simple
Iniciado por paul.gera, 06,abr. 2006 16:16 - 5 respuestas
Publicado el 06,abril 2006 - 16:16
Bonjour,

Je suis en train de réaliser pour un exemple dans une classe, un petit
logiciel de cryptographie.

J'ai une table de correspondance :

A = 1
B = 2
C = 1
D = 2
E = 3

Quand je tape le prénom, par exemple ANNA, je souhaite qu'il me calcule la
valeur du prénom.

Comment faire cela ?
Suis-je clair ?

Merci
Publicado el 06,abril 2006 - 17:16
Boujour,

i est un entier
somme est un entier =0

Pour i=1 A Taille(TaChaine)

//si tes chiffres sont dans une table HF
HlitRecherchePremier(TaTable,CHamps1,Milieu(TaChaine,i,1))

somme=somme+TaTable.Champs2
FIN

info(somme)

Ca doit etre un truc comme ca.

Bonne continuation et bon dev.

Chris Letellier.
Publicado el 06,abril 2006 - 17:43
J'aimerai que la correspondance des lettres soit contenue dans une procédure
locale.

"krys pvn" <webmaster@electricite-pvn.com> a écrit dans le message de news:
443511d1$1@news.pcsoft.fr...

Boujour,

i est un entier
somme est un entier =0

Pour i=1 A Taille(TaChaine)

//si tes chiffres sont dans une table HF
HlitRecherchePremier(TaTable,CHamps1,Milieu(TaChaine,i,1))

somme=somme+TaTable.Champs2
FIN

info(somme)

Ca doit etre un truc comme ca.

Bonne continuation et bon dev.

Chris Letellier.


Publicado el 06,abril 2006 - 17:56
Au lieu de "Milieu(TaChaine,i,1)" utilise TaChaine[[i]] c'est plus rapide

"krys pvn" <webmaster@electricite-pvn.com> a écrit dans le message de news:
443511d1$1@news.pcsoft.fr...

Boujour,

i est un entier
somme est un entier =0

Pour i=1 A Taille(TaChaine)

//si tes chiffres sont dans une table HF
HlitRecherchePremier(TaTable,CHamps1,Milieu(TaChaine,i,1))

somme=somme+TaTable.Champs2
FIN

info(somme)

Ca doit etre un truc comme ca.

Bonne continuation et bon dev.

Chris Letellier.


Publicado el 06,abril 2006 - 17:57
Pourquoi n'utilises tu pas sCalculeCrc16(<Chaine>) qui te renvoie un entier
?

"Paul" <paul.gera@free.fr> a écrit dans le message de news:
443517ca$1@news.pcsoft.fr...

J'aimerai que la correspondance des lettres soit contenue dans une
procédure
locale.

"krys pvn" <webmaster@electricite-pvn.com> a écrit dans le message de
news:
443511d1$1@news.pcsoft.fr...

Boujour,

i est un entier
somme est un entier =0

Pour i=1 A Taille(TaChaine)

//si tes chiffres sont dans une table HF
HlitRecherchePremier(TaTable,CHamps1,Milieu(TaChaine,i,1))

somme=somme+TaTable.Champs2
FIN

info(somme)

Ca doit etre un truc comme ca.

Bonne continuation et bon dev.

Chris Letellier.




Publicado el 06,abril 2006 - 17:57
Bonjour,

Je suis en train de réaliser pour un exemple dans une classe, un petit
logiciel de cryptographie.

J'ai une table de correspondance :

A = 1
B = 2
C = 1
D = 2
E = 3

Quand je tape le prénom, par exemple ANNA, je souhaite qu'il me calcule la
valeur du prénom.

Comment faire cela ?
Suis-je clair ?


> Merci

I est un entier
nValeur est un entier
Pour I=1 à Taille(Prenom)
nvaleur+=fCalcul(Prenom[[i]])
Fin
info(nValeur)

Fonction fCalcul(pLettre)
tTab est un tableau de 26 entiers

Tu remplis ton tableau avec tes valeurs de correspondance

renvoyer tTab[Asc(Majuscule(pLettre)) - asc("A") +1 ]

Ca devrait le faire (de mémoire, j'ai pas testé le code)