Attribute VB_Name = "Module" Public Function Crypt(ByRef str As String) As String Dim Cr As String Dim i As Integer Dim carac As String Cr = "" For i = 1 To Len(str) carac = Chr(Asc(Mid(str, i, 1)) Xor (Len(str) - i)) Cr = Cr + carac Next i Crypt = Cr End Function
Dis-moi, c'est bien beau ta fonction, mais où est la clé de cryptage ??? Dans l'état actuel, ça n'a aucun intérêt : n'importe qui peut décrypter le message s'il connaît la fonction... L'intérêt d'un algo de cryptage, c'est de permettre un cryptage facile, mais un décryptage impossible pour qui n'a pas la clé. Sinon, je pense que l'idée est à creuser...Sibo
parfait exemple de Xor sauf pour la clef qui est manquante puisque jai remarquer que les Caractere ne sont pa crypté 1 par 1 ce qui evite detre facilement decrypter
mais bon ci tu permet jarrenge caPublic Function Crypt(ByRef str As String, ByRef key As String) As StringDim Cr As StringDim i As IntegerDim carac As StringCr = ""For i = 1 To Len(str) carac = Chr(Asc(Mid(str, i, 1)) Xor (key - i)) Cr = Cr + caracNext iCrypt = CrEnd Function
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte