Cryptage/décryptage de texte par ascii

Commenter

Contenu du snippet

Voici une petite source sans prétention, certain on du le faire avant moi, mais j'avais besoin alors je l'ai faite, puis je le mets, ça peut être utile a certains ;)

Source / Exemple : 


Public Function crypter(ByVal chainetocrypt As String, ByVal cryptkey As String) As String
Dim crypte As String
crypter = vbNullString
Dim cpt As long
cpt = 1
For i = 1 To Len(chainetocrypt)
    If cpt > Len(cryptkey) Then cpt = 1
        If CInt(Asc(Mid(chainetocrypt, i, 1))) + CInt(Asc(Mid(cryptkey, cpt, 1))) > 255 Then 'on vérifie que la some du code ascii ne soit pas supérieur a 255 sinon erreur
        crypter = crypter & Chr$((CInt(Asc(Mid(chainetocrypt, i, 1))) + CInt(Asc(Mid(cryptkey, cpt, 1)))) - 255) 'si c'est le cas on enlève 255
    Else
        crypter = crypter & Chr$(CInt(Asc(Mid(chainetocrypt, i, 1))) + CInt(Asc(Mid(cryptkey, cpt, 1)))) 'on ajoute le caractère crypté a la fonction
    End If
    cpt = cpt + 1
Next i
End Function

Public Function decrypter(ByVal chainetodecrypt As String, ByVal cryptkey As String) As String
Dim crypte As String
decrypter = vbNullString
Dim cpt As long
cpt = 1
For i = 1 To Len(chainetodecrypt)
    If cpt > Len(cryptkey) Then cpt = 1
        If CInt(Asc(Mid(chainetodecrypt, i, 1))) - CInt(Asc(Mid(cryptkey, cpt, 1))) < 0 Then 'on vérifie que la some du code ascii ne soit pas inférieur a 0 sinon erreur
        decrypter = decrypter & Chr$((CInt(Asc(Mid(chainetodecrypt, i, 1))) - CInt(Asc(Mid(cryptkey, cpt, 1)))) + 255) 'si c'est le cas on ajoute 255
    Else
        decrypter = decrypter & Chr$(CInt(Asc(Mid(chainetodecrypt, i, 1))) - CInt(Asc(Mid(cryptkey, cpt, 1)))) 'on ajoute le caractère décrypté a la fonction
    End If
    cpt = cpt + 1
Next i
End Function

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 (retaks666)