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
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.