Codeur decodeur pour geocaching

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 233 fois - Téléchargée 25 fois

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

Ajouter un commentaire Commentaire
Messages postés
2
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
27 décembre 2006

ehr ... un peux trop simple!

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.