PETIT ENCODAGE TRÈS SIMPLE

Private Sub cmddecode_Click()
    '//////////trouve le premier code
    a1 = Mid(txtencode.Text, 1, 1)
    b1 = Mid(txtencode.Text, 2, a1)
    c1 = Chr(b1)
    txttexte.Text = c1
    '/////////trouve les autres codes basé sur la longueur
    '/////////du premier et des suivants
    For i = (a1 + Len(b1)) To Len(txtencode.Text)
        a2 = Mid(txtencode.Text, i, 1)
        b2 = Mid(txtencode.Text, i + 1, a2)
        c2 = Chr(b2)
        i = i + Len(b2)
        'inscrit le code à la suite du reste
        txttexte.Text = txttexte.Text & c2
    Next

End Sub

Private Sub cmdencode_Click()

    Dim tabl(1 To 200, 1 To 200) As Integer
    val1 = Len(txttexte.Text)

    '////////////remplit le tableau
    For i = 1 To val1
        For j = 1 To val1
            tabl(i, j) = Int((99 - 1 + 1) * Rnd + 1)
        Next j
    Next i
    '////////////fin du remplissage

    txtencode.Text = ""
    
    '////////////début de l'encodage
    For i = 1 To Len(txttexte.Text)
        abc = Asc(Mid(txttexte.Text, i, 1))
        lon = Len(abc)
        txtencode.Text = txtencode.Text & lon & Asc(Mid(txttexte.Text, i, 1))
    Next
    '////////////fin de l'encodage
    
    cmddecode.Enabled = True
End Sub

Private Sub Form_Load()
    'empêche le décodage du texte "Code" au démarrage
    'pour empêcher un plantage accidentel
    cmddecode.Enabled = False
End Sub

Télécharger le zip