- Option Explicit
- Dim ZZ As Integer, caractère As String
- Dim texte As String, nbcar As Integer
-
- Private Sub CmdDécoder_Click()
- CmdEncoder.Enabled = True
- CmdDécoder.Enabled = False
- texte = TxtRésultat.Text
- texte = Décoder(texte)
- TxtRésultat.Text = texte
- End Sub
-
- Private Sub CmdEncoder_Click()
- CmdEncoder.Enabled = False
- CmdDécoder.Enabled = True
- texte = TxtEntré.Text
- texte = Encoder(texte)
- TxtRésultat.Text = texte
- TxtRésultat.Locked = False
- End Sub
-
- Public Function Encoder(Original As String) As String
- nbcar = Len(Original)
- For ZZ = 1 To nbcar
- caractère = Mid(Original, ZZ, 1)
- Mid(Original, ZZ, 1) = Chr(Asc(caractère) + 13)
- Next ZZ
- Encoder = Original
- End Function
-
- Public Function Décoder(Codé As String) As String
- nbcar = Len(Codé)
- For ZZ = 1 To nbcar
- caractère = Mid(Codé, ZZ, 1)
- Mid(Codé, ZZ, 1) = Chr(Asc(caractère) - 13)
- Next ZZ
- Décoder = Codé
- End Function
Option Explicit
Dim ZZ As Integer, caractère As String
Dim texte As String, nbcar As Integer
Private Sub CmdDécoder_Click()
CmdEncoder.Enabled = True
CmdDécoder.Enabled = False
texte = TxtRésultat.Text
texte = Décoder(texte)
TxtRésultat.Text = texte
End Sub
Private Sub CmdEncoder_Click()
CmdEncoder.Enabled = False
CmdDécoder.Enabled = True
texte = TxtEntré.Text
texte = Encoder(texte)
TxtRésultat.Text = texte
TxtRésultat.Locked = False
End Sub
Public Function Encoder(Original As String) As String
nbcar = Len(Original)
For ZZ = 1 To nbcar
caractère = Mid(Original, ZZ, 1)
Mid(Original, ZZ, 1) = Chr(Asc(caractère) + 13)
Next ZZ
Encoder = Original
End Function
Public Function Décoder(Codé As String) As String
nbcar = Len(Codé)
For ZZ = 1 To nbcar
caractère = Mid(Codé, ZZ, 1)
Mid(Codé, ZZ, 1) = Chr(Asc(caractère) - 13)
Next ZZ
Décoder = Codé
End Function