Crypter un texte en chiffresRésolu

Question

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

Gobillot · Accepted Answer

rien que des chiffres &#231;a risque d'&#234;tre assez limit&#233;

avec n'importe quel code de cryptage tu peux transformer les lettres en chiffres avec la valeur ASCII

mais &#231;a triple la longueur de la cha&#238;ne crypt&#233;e



    Dim i  As Integer

    Dim s1 As String

    Dim s2 As String

    s1 = "(&&#233;'(\|)"

    For i = 1 To Len(s1)

        s2 = s2 & Format$(Asc(Mid$(s1, i, 1)), "000")

        Next

    MsgBox s2


Daniel

AlexPoulard · Answer

Merci, super sympa. Maintenant est-ce que je pourais avoir le code pour décrypter stp. Merci beaucoup !!

Gobillot · Answer

tout ce que je peux faire c'est de r&#233;cup&#233;rer la cha&#238;ne de d&#233;part qui est d&#233;j&#224; crypt&#233;e.

ensuite faut utiliser le logiciel orginel de d&#233;cryptage.





    s1 = ""

    For i = 1 To Len(s2) Step 3

        s1 = s1 & Chr$(Mid$(s2, i, 3))

        Next

    MsgBox s1


Daniel

AlexPoulard · Answer

GENIAL MERCI BEAUCOUP !! @+

Crypter un texte en chiffres

4 réponses

Discussions similaires