ROT13, AJOUT DE 13 À CHAQUES CARACTÈRES ALPHABÉTIQUES

'#### 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 ####'