Rot13, ajout de 13 à chaques caractères alphabétiques

Commenter

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

S'inscrire maintenant

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.

Du même auteur (DDelec24)