Codeur decodeur pour geocaching

Commenter

Contenu du snippet

Permet de décoder et de coder les énigmes des initiés "Geocacheurs". Pour tout comprendre, visiter le site http://www.geocaching-france.com

Source / Exemple : 


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

Conclusion :


Faire un copier coller du texte encodé et appuyer sur le bouton "CodDecod"

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_razzor)