Algorithme ROT13
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 059 fois - Téléchargée 10 fois
Contenu du snippet
Public Class Form1
Dim Letter() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
Dim Letter2() As String = {"N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m"}
Dim str As String
Private Sub EncryptButton_Click(sender As Object, e As EventArgs) Handles EncryptButton.Click
str = TextToEncryptTextBox.Text
TextToEncryptTextBox.Clear()
For i As Integer = 0 To str.Length - 1
For j As Integer = 0 To 51
If str(i) = Letter(j) Then
TextToEncryptTextBox.Text = TextToEncryptTextBox.Text + Letter2(j)
GoTo Line1
End If
Next
TextToEncryptTextBox.Text = TextToEncryptTextBox.Text + str(i)
Line1:
Next
End Sub
End ClassA voir également
- Rot13
- Rot 13 - Meilleures réponses
- Algorithme de tri d'un tableau par ordre décroissant - Guide
- Algorithme de coloration de graphe en c - Guide
- Algorithme de dijkstra java - Guide
- Algorithme de cryptage en langage c - Guide
- Algorithme a* python - Guide
Commentaire
- Messages postés
- 14655
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 23 février 2020
139L'idéal serait d'avoir une fonction à appeler avec la chaine source en entrée et ça retourne la chaine traitée.
Merci de mettre aussi une description.
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.