Algorithme ROT13
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 253 fois - Téléchargée 11 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 d'ordonnancement de processus en c - Guide
- Algorithme de coloration de graphe en c - Guide
- Algorithme de dijkstra java - Guide
- Algorithme de déterminisation d'un automate c++ - Guide
- Algorithme de welsh et powell en c - Guide
Commentaire
- Messages postés
-
14733
- Date d'inscription
- vendredi 14 mars 2003
- Statut
- Modérateur
- Dernière intervention
- 12 octobre 2020
145L'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.