PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → Cryptographie simple
Cryptographie simple
Started by paul.gera, Apr., 06 2006 4:16 PM - 5 replies
Posted on April, 06 2006 - 4:16 PM
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
Posted on April, 06 2006 - 5:16 PM
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.
Posted on April, 06 2006 - 5:43 PM
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.


Posted on April, 06 2006 - 5:56 PM
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.


Posted on April, 06 2006 - 5:57 PM
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.




Posted on April, 06 2006 - 5:57 PM
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)