Rot13, ajout de 13 à chaques caractères alphabétiques
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 335 fois - Téléchargée 30 fois
Contenu du snippet
Voila mon premier code :)
Je l'ai fais parceque je ne l'ai pas trouvé.
Sur un challenge, il faut ajouter la valeur 13 à chaque caractères alphabétiques ( de "A" à "Z" et de "a" à "z") , les autres doivent être inchangés, pour trouver un mot de passe.
J'ajoute donc cette source parce qu'elle permet une initiation à la manipulation de texte, bien pour commencer :) et aussi pour éviter qu'un programmeur VB le fasse lui-même, je parle si il sait le faire bien sûr :D
Je pense n'avoir pas grand chose à dire dessus, les fonctions sont simples,
juste des petites conditions et une boucle incrémentielle :o
J'ai fais une capture de ma form, histoire de donner une idée :)
CIaOo
Je l'ai fais parceque je ne l'ai pas trouvé.
Sur un challenge, il faut ajouter la valeur 13 à chaque caractères alphabétiques ( de "A" à "Z" et de "a" à "z") , les autres doivent être inchangés, pour trouver un mot de passe.
J'ajoute donc cette source parce qu'elle permet une initiation à la manipulation de texte, bien pour commencer :) et aussi pour éviter qu'un programmeur VB le fasse lui-même, je parle si il sait le faire bien sûr :D
Source / Exemple :
'#### By DDelec24 ==>12/06/2004 ####'
'###################################'
' Il faut ajouter dans la form:
' Un textbox nommé TxtOrigin, c'est le texte crypter
' Un textbox nommé TxtResult, c'est le texte décrypter
' Un bouton nommé CmdCrypt, qui exécute l'action :)
' Après tu fais un peu de design :) si tu veux
'##################################'
'#### Déclaration des Variables ####'
Dim V As Long
Dim LettreCrypt As Long
Dim Temp As String
Dim ValTemp As Long
'#### Bouton de Décryptage ####'
Private Sub CmdCrypt_Click()
TxtResult = ""
V = 1
MiseEnRotation
End Sub
'####Fonction de Cryptage ####'
Public Function MiseEnRotation()
For V = 1 To Len(TxtOrigin)
'A = 65
'Z = 90
'a = 97
'z = 122
Temp = Mid$(TxtOrigin, V, 1)
ValTemp = Asc(Temp)
LettreCrypt = ValTemp + 13
If ValTemp < 65 Or ValTemp > 122 Then
LettreCrypt = ValTemp
ElseIf ValTemp > 64 And ValTemp < 91 Then
If LettreCrypt > 90 Then
LettreCrypt = 65 + (LettreCrypt - 89)
End If
ElseIf ValTemp > 96 And ValTemp < 123 Then
If LettreCrypt > 122 Then
LettreCrypt = 97 + (LettreCrypt - 121)
End If
End If
TxtResult = TxtResult + Chr(LettreCrypt)
Next
End Function
'#### EOF ####'
Conclusion :
Je pense n'avoir pas grand chose à dire dessus, les fonctions sont simples,
juste des petites conditions et une boucle incrémentielle :o
J'ai fais une capture de ma form, histoire de donner une idée :)
CIaOo
A voir également
- Caractères alphabétiques
- Valtemp - Meilleures réponses
- Retrouver un caractere alphabetique dans une chaine de caractere ✓ - Forum - VB.NET
- Tirer aleatoirement un caractere dans l'alphabet ✓ - Forum - Java
- Fonction tri alphabétique d'un tableau de chaîne de caractères - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Tri alphabétique ultra rapide de chaines de caractères de longueur variable ✓ - Forum - C
- Parcourir une chaîne de caractère java - Forum - Java
Ta source est simple, on s'en doute.
Tu pourrais aussi la perfectionner :
- en apparences (Commentaires, utiliser Asc("A") au lieu de 65)
- en code (utilisation des Modulos par exemple)
Avec les modulos et IIF tu remplaces une bonne partie de code...
Je penses qu'on peut faire tenir ca dans 10 lignes...
Continue, il n'y a qu'avec la pratique que l'on pratique :P
Fixe toi maintenant des projet un peu plus ambitieux . Moi j ai commence avec un serpent ,des morpions et maintenant je suis passe a la 3d. Bonne chance
Vbguy
PS :7/10
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.