Petit encodage très simple

Soyez le premier à donner votre avis sur cette source.

Vue 4 298 fois - Téléchargée 190 fois

Description

C'est un début de code pour faire un petit encodage simple basé sur le code ascii auquel je ferai additionner un nombre aléatoire contenu dans un tableau multi-dimension. Pour le moment j'ai enlevé le code permettant d'additionner le nombre du tableau pour simplifier le début de ma fonction de décodage.

BUGS À CORRIGER:
Si il y as un espace dans le texte à encoder ça plante royalement et je ne sais pas pourquoi. Si qqun a la solution merci de me laisser un petit commentaire.

Source / Exemple :


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

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.