|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Encriptando texto com chave numérica
|
 |
|
|
|
Postada em 26/10/2003 por ^HEAVY-METAL^
'Esta função criptografa um texto baseado em uma
'chave numérica escolhada por você, sendo a chave
'padrão o número 126...
Public Function Encrypt(EncryptString As String, Optional Key As Integer= 126, Optional Decrypt As Boolean = False)
Dim str1, Result As String
str1 = EncryptString
For i = 1 To Len(str1)
Select Case Decrypt
Case False
Result = Result & Chr(Asc(Mid(str1, i, 1)) + Key)
Case True
Result = Result & Chr(Asc(Mid(str1, i, 1)) - Key)
End Select
Next
Encrypt = Result
End Function
T+,
|
|
|
|
|
