- 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
-
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