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