|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: criptografia
|
 |
|
|
|
Postada em 22/12/2003 por PC
'------------------------------------------------------------
' Procedure : Cripto
' DateTime : 01/02/1998
' Author : Paulo Cezar Barbosa, www.sharmaq.com.br
' Purpose : Fazer criptografia de frases curtas
'------------------------------------------------------------
'
Function Cripto(texto As String, tipo As Boolean)
'tipo-> true - criptografa
' false - descriptografa
Dim Temp$
Dim Con$
Dim l As Long
Dim StrV As Long
Con$ = ""
For l = 1 To Len(texto)
Temp$ = ""
Temp$ = Mid$(texto, l, 1)
StrV = Asc(Temp$)
If tipo = True Then
If StrV = 255 Then
StrV = 1
Else
StrV = StrV + l
End If
Else
If StrV = 1 Then
StrV = 255
Else
StrV = StrV - l
End If
End If
Con$ = Con$ + Chr(StrV)
Next
Cripto = Con$
End Function
|
|
|
|
|
