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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Criptografar dados
Aquatico
SÃO PAULO
SP - BRASIL
Postada em 03/05/2006 10:21 hs            
Como criptografar dados de um campo numa tabela do SQL Server 2000 ?
De modo que esses dados sejam possiveis de ver se alguem abrir esta tabela no banco de dados.

Obrigado
Paulo Ricardo
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 03/05/2006 13:11 hs         
você precisa de uma função para criptografar os dados  no banco de dados ...
'trata encriptação dos dados nas tabelas de segurança
Public Function EncriptaPW(vgSt As String) As String
  Dim x As String
  x$ = Trim$(Cript$(RPad$(vgSt$, 25, "+"), "ADVANCED"))
  While Right$(x$, 1) = "+"
    x$ = Left$(x$, Len(x$) - 1)
  Wend
  EncriptaPW$ = x$
End Function

'criptografa/descriptografa
Public Function Cript(St As String, Pw As String) As String
  Dim x As String, i As Integer, n As Integer, _
      p As Integer, j As Integer, n0 As Integer     'dimensiona
  p = 0
  For i = 1 To Len(St$)                             'para cada caracter
    p = p + 1                                       'incrementa ponteiro
    If p > Len(Pw$) Then p = 1                      'testa e reseta, se for o caso
    j = Asc(Mid$(Pw$, p, 1)) Or 128                 'pega char da senha evitando acima de 128
    n = Asc(Mid$(St$, i))                           'pega char da string a encriptar
DeNovo:
    n = n Xor j                                     'encripta...
    If n < 31 Then                                  'se char de controle
      n = (128 + n)                                 'somar 128 e
      GoTo DeNovo                                   'ecripta novamente
    ElseIf n > 127 And n < 159 Then                 'se nesta faixa pode ser char de controle
      n = n - 128                                   'tira 128 e
      GoTo DeNovo                                   'encripta novamente
    End If
    x$ = x$ + Chr$(n)                               'concatena string encriptada
  Next                                              'próximo caracter a encriptar
  Cript$ = x$                                       'retorna a nova string
End Function
'RPad - Enche caracteres à direita de uma string
Public Function RPad(vgSt As Variant, vgTm As Integer, vgCh As String) As String
  Dim x As String                                            'dimensiona
  If VarType(vgSt) = vbString Then                           'se veio uma string
    x$ = vgSt                                                'pega ela...
  Else                                            'senão,
    x$ = CStr(vgSt)                               'transforma em string
  End If
  RPad$ = Left$(LTrim$(x$) + String$(vgTm, vgCh$), vgTm) 'completa com brancos à direita
End Function
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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