Geheimschrift: code

• Om één letter te coderen
  Function CodeerLetter(letter As String) As String
  CodeerLetter = Chr(Asc(letter) + 1)
  End Function
• Om één letter te decoderen
  Function Decodeerletter(letter As String) As String
  Decodeerletter = Chr(Asc(letter) - 1)
  End Function
• Om een tekst te coderen
  Function Codeer(tekst As String) As String
  Dim buffer As String
  Dim positie As Integer
  For positie = 1 To Len(tekst)
  buffer = buffer & CodeerLetter(Mid(tekst, positie))
  Next positie
  Codeer = buffer
  End Function
• Om een tekst te decoderen
  Function Decodeer(gecodeerdetekst As String) As String
  Dim buffer As String
  Dim positie As Integer
  For positie = 1 To Len(tekst)
  buffer = buffer & Decodeerletter(Mid(tekst, positie))
  Next positie
  Decodeer = buffer
  End Function
• En in het formulier:
  Private Sub mnuCodeer_Click()
  txtText.Text = Codeer(txtText.Text)
  End Sub
  
  Private Sub mnuDecodeer_Click()
  txtText.Text = Decodeer(txtText.Text)
  End Sub
  
  Private Sub mnuStop_Click()
  Unload Me
  End Sub
  
  

[VB Web] - [hlrnet] - [copyright]