CODEUR DECODEUR POUR GEOCACHING

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim Buffer As String
        Buffer = TextBox1.Text
        TextBox1.Text = ""
        If Buffer <> "" Then
            For i = 0 To Len(Buffer) - 1
                Select Case UCase(Buffer(i))
                    Case "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M"
                        TextBox1.Text = TextBox1.Text & Chr(Asc(Buffer(i)) + 13)
                    Case "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
                        TextBox1.Text = TextBox1.Text & Chr(Asc(Buffer(i)) - 13)
                    Case Else
                        TextBox1.Text = TextBox1.Text & Buffer(i)
                End Select
            Next i
        End If
    End Sub
End Class