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

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

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mardi 14 juin 2005
Statut
Membre
Dernière intervention
26 septembre 2007

Ben vas-y "vlad2i", montre nous comment tu ferais sur une dixaine de ligne, perso je trouve ca bien util et clairement expliqué ...
Messages postés
2
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2004

je ne pense pas quand utilisant iif sa va racoursir grand chose pour le reste rien a dire
Messages postés
399
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
6 septembre 2004

çà peut toujours servir, surtout pour une application "orientée web", PHP ayant aussi une fonction prédéfinie str_rot13
Messages postés
285
Date d'inscription
mercredi 20 août 2003
Statut
Membre
Dernière intervention
13 février 2005

Moi je suis là, pas pour critiquer, pour aider :P

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
Messages postés
60
Date d'inscription
samedi 10 novembre 2001
Statut
Membre
Dernière intervention
13 juin 2004

Pour une premiere source ca va. elle est bien organiser et facile a lire .
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.