Crypter un texte en chiffres [Résolu]

Signaler
Messages postés
39
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
17 juillet 2006
-
Messages postés
39
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
17 juillet 2006
-
Bonjour, je voudrais un code permetant de crypter un texte en chiffres uniquement. Tous les cryptages que j'ai trouvé jusqu'à présent sur le site, sont composés de caractères style (&é'(\|). Voilà je voudrais pouvoir effectuer des opérations sur ces valeurs cryptés. Merci

4 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
25
rien que des chiffres ça risque d'être assez limité

avec n'importe quel code de cryptage tu peux transformer les lettres en chiffres avec la valeur ASCII

mais ça triple la longueur de la chaîne cryptée



Dim i As Integer

Dim s1 As String

Dim s2 As String

s1 = "(&é'(\|)"

For i = 1 To Len(s1)

s2 = s2 & Format$(Asc(Mid$(s1, i, 1)), "000")

Next

MsgBox s2


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 150 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
25
tout ce que je peux faire c'est de récupérer la chaîne de départ qui est déjà cryptée.

ensuite faut utiliser le logiciel orginel de décryptage.





s1 = ""

For i = 1 To Len(s2) Step 3

s1 = s1 & Chr$(Mid$(s2, i, 3))

Next

MsgBox s1


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 150 internautes nous ont dit merci ce mois-ci

Messages postés
39
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
17 juillet 2006

Merci, super sympa. Maintenant est-ce que je pourais avoir le code pour décrypter stp. Merci beaucoup !!
Messages postés
39
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
17 juillet 2006

GENIAL MERCI BEAUCOUP !! @+