Mensaje enviado por Ismael Alberto Ibarra Bueno <iibarrab@gfnorte.com.mx>


Saludos cordiales,

Ismael A. Ibarra Grupo Financiero BANORTE.
*3197200 Ext. 24405
% Fax 3197200 Ext 34403.
* Hyperlink iibarrab@gfnorte.com.mx

 encrypt1.zip  

Mensaje enviado por Martin Villafañe <Martin_Villafane@Entools.com>

Encriptando el contenido, esta tecnica se llama Hash, consiste en dejar la informacion abierta en la base de datos pero encriptada.

Aca te mando una rutina para hacer esto... este algoritmo es muy bueno se llama ChrTran, y con claves de mas de 8 caracteres, se combierte en un algorito intratable, en tiempos de ataque por fuerza bruta, pero tiene algunas debilidades, con otro metodos de ataque por bloques, pero para proteger datos en una base, es mucho mas que suficiente.


Public Function EncriptarChrTran(Password As String, Texto As String, Accion
As Integer) As String
'Action = 1 Encriptar
'Action = 2 Desencriptar

    Dim UserKeyX As String
    Dim Temp As Integer
    Dim Times As Integer
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim rtn As String

    'Obtiene los caracteres de las clave
    n = Len(Password)
    ReDim UserKeyASCIIS(1 To n)
    For i = 1 To n
        UserKeyASCIIS(i) = Asc(Mid$(Password, i, 1))
    Next

    'obtiene los caracteres del texto
    ReDim TextASCIIS(Len(Texto)) As Integer
    For i = 1 To Len(Texto)
        TextASCIIS(i) = Asc(Mid$(Texto, i, 1))
    Next

    'Encripta/Desencripta
    If Accion = 1 Then
       For i = 1 To Len(Texto)
           j = IIf(j + 1 >= n, 1, j + 1)
           Temp = TextASCIIS(i) + UserKeyASCIIS(j)
           If Temp > 255 Then
              Temp = Temp - 255
           End If
           rtn = rtn + Chr$(Temp)
       Next
    ElseIf Accion = 2 Then
       For i = 1 To Len(Texto)
           j = IIf(j + 1 >= n, 1, j + 1)
           Temp = TextASCIIS(i) - UserKeyASCIIS(j)
           If Temp < 0 Then
              Temp = Temp + 255
           End If
           rtn = rtn + Chr$(Temp)
       Next
    End If

    EncriptarChrTran = rtn

End Function




----- Original Message -----
From: "Roberto" <racastillo@viabcp.com>
To: <visualbasic-esp@yahoogroups.com>
Sent: Wednesday, October 10, 2001 11:49 AM
Subject: (VB-ESP) Como Puedo Proteger una MDB pero sin Password


Hola a todos:
Espero puedan ayudarme con esto porfavor:
Como Puedo Proteger una base de datos en access(*.MDB) pero sin utilizar
password ya que de esta forma es muy facil desproteger la base de datos.


Saludos y gracias por su colaboracion