UNE CLASSE POUR ENCODAGE/DÉCODAGE SIMPLIFIÉ DE STRING

Public Class StringCrypt

    ' Fonction d'encodage
    Public Function Encode(ByVal sChaine As String) As String
        Dim sEncoded As String, iC As Integer
        For iC = 1 To Len(sChaine)
            sEncoded = sEncoded & CStr(Asc(Mid(sChaine, iC, 1)) + 500)
        Next iC
        Encode = sEncoded
    End Function

    ' Fonction de décodage
    Public Function Decode(ByVal sChaine As String) As String
        Dim sDecoded As String, iC As Integer
        For iC = 1 To Len(sChaine) Step 3
            sDecoded = sDecoded & CStr(Chr(Mid(sChaine, iC, 3) - 500))
        Next iC
        Decode = sDecoded
    End Function
End Class