FONCTION CRYPTAGE / DECRYPTAGE AVEC CODE

Function crypter(acrypt As String, code As String) As String
alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
crypt = acrypt
For i = 1 To Len(acrypt)
    For a = 1 To Len(alpha)
        If Mid$(alpha, a, 1) = Mid$(acrypt, i, 1) Then lenbrt = a
        dfg = i - ((i \ Len(code)) * Len(code))
        If dfg = 0 Then dfg = Len(code)
        If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
    Next a
    lenbr = (((lenbrt + lenbrc) - 1) - (((lenbrt + lenbrc) - 1) \ Len(alpha)) * Len(alpha))
    If lenbr = 0 Then lenbr = Len(alpha)
    Mid$(crypt, i, 1) = Mid$(alpha, lenbr, 1)
Next i
crypter = crypt
End Function

Function decrypter(adcrypt As String, code As String) As String
alpha = "azertyuiop^$qsdfghjklmùµwxcvbn,;:= -_AZERTYUIOP¨*QSDFGHJKLM%£WXCVBN?./+[]´`~\<>²³&é'()§è!çà0123456789" & Chr(34)
crypt = adcrypt
For i = 1 To Len(adcrypt)
    For a = 1 To Len(alpha)
        dfg = i - ((i \ Len(code)) * Len(code))
        If dfg = 0 Then dfg = Len(code)
        If Mid$(alpha, a, 1) = Mid$(code, dfg, 1) Then lenbrc = a
    Next a
    beta = Mid$(alpha, lenbrc, Len(alpha) - lenbrc + 1) & Mid$(alpha, 1, lenbrc - 1)
    For z = 1 To Len(beta)
        If Mid$(beta, z, 1) = Mid$(adcrypt, i, 1) Then lenbrt = z
    Next z
    Mid$(crypt, i, 1) = Mid$(alpha, lenbrt, 1)
Next i
decrypter = crypt
End Function
   

Télécharger le zip