USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página