Une classe pour encodage/décodage simplifié de string

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 177 fois - Téléchargée 35 fois

Contenu du snippet

Une simple classe pour encoder et décoder des strings !

J'ai essayé de créer une classe héritée de la classe String, mais celle-ci est une classe protégée du framework, donc pas possible ;(

Voici donc une petite classe à ajouter dans vos projets.
l'algorithme est connu, mais efficace tout de même.

c'est très loin d'être inviolable, mais c'est un minimum de protection pour les cookies au moins

Source / Exemple :


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

Conclusion :


Bon code !

A voir également

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.