Autor Tema: Re: Como Encriptar una DB (Access) (Leído 10874 veces)

Fernando H. · « **en:** Viernes 14 de Marzo de 2003, 18:25 »

Mi pregunta es alguine como se puede encriptar una Base de Datos de access con una funcion de Visual Basic o algun Modulo, Rutina, Procedimiento o en todo caso si es posible realizar lo que les explico si alguin tiene la solucion por favor y lo pudiera compartir conmigo gracias este es mi correo gracias

MiguelPG

Has probado a poner una contraseña a la BD (supongo que se trata de una BD de Access)?
Yo hace unos días preguntaba lo mismo que tú y al final opté por esta solución hasta que encuentre otra mejor.
Si dedides ponerla una contraseña, luego para abrir la BD sería:
OpenDataBase(C:mi_carpetamiBD.MDB",False,False,";pwd=contraseña")
Bueno, espero que te haya servido de algo.
Saludos.

J.M.Movilla

En cuanto te des una vuelta por los foros te vas a encontrar multitud de utilidades que te hacen lo que buscas.

Como ejemplo te adjunto esta que he encontrado en "La Web del Programador"

Suerte

Por favor: No bajéis este fichero. NO FUNCIONA...

MiguelPG

Hola otra vez.
He bajado el fichero que tan amablemente nos ha dejado J.M.Movilla y he encriptado y desencriptado una base de datos de Acces y he obtenido los siguientes resultados:
Tiempo: Tarda una eternidad en cualquiera de los dos procesos (encriptar y desencriptar)
Una vez encriptada: Acces informa de que la esturctura no es de una base de datos y no permite abrirla (Excelente. De este modo que bien protegida)
Desencriptada: Acces dá el mismo mensaje que en el anterior caso y tampoco permite abrirla. Esto ya es más grave pues, según parece, si encriptamos la BD una vez queda inutilizada para posteriores usos.
La idea es buena, pero habría que buscar otro método que nos permita su reutilizacón.
En fin, entre todos, tal vez logremos encontrar algo bueno.
J.M. no te tomes a mal mi comentario. Nada más lejos de mi intención que tratar de molestar u ofender a nadie.

J.M.Movilla

Amigo Miguel

Te ruego sepas disculparme por darte esa orientación sin haber probado previamente que el consejo era bueno. Supuse que el proyecto funcionaría, pero he hecho yo la prueba y efectivamente tiene el defecto de su lentitud (encripta el fichero bit a bit y con un algoritmo lentorro...) y sobre todo al desencriptar el fichero intermedio nos encontramos con que presenta una estructura diferente a la del original... INCOMPRENSIBLE!!! Habrá que reportárselo a su autor.

Ruego de nuevo disculpas y prometo continuar interesado en buscar nuevas soluciones EFECTIVAS.

Saludos

Fernando H.

Seguro que debe de haber una funcio o rutina que encripte en realidad hay programas que desifran la contraseña de la base de datos y seria mejor encriptarla como archivo gracias por sus respuestas nos vemos:good:

J.M.Movilla

Amigos Fernando y Miguel:

He encontrado estas dos aplicaciones que encriptan y desencriptan perfectamente:

La primera (CheshireCodifica.zip) está muy bien presentada y tiene la ventaja de que puedes al mismo tiempo comprimir y codificar el fichero; pero es bastante lenta, incluso sin comprimir.

La segunda (EncriptarDatostipoNuevo.zip) va a toda pastilla!!! Parece mentira que haciendo el proceso bit a bit (lógicamente el encriptado ha de hacerse así) pueda llevar esa marcha. Una base de datos de 30 Mb se la ha ventilado en 36 segundos!!! Y HE COMPROBADO QUE ES VALIDO EL FICHERO DESENCRIPTADO.

Me alegro de haberos dado la solución (espero...)

J.M.Movilla

Veo que sólo se ha adjuntado un fichero; he aquí el otro.

MiguelPG

Hola J.M.
He probado el fichero EncriptarDatostipoNuevo que has enviado y, efectivamente, va a toda pastilla y además no inutiuliza la BD.
Estupendo. Felicidades.

Mellileo · « **Respuesta #9 en:** Lunes 16 de Enero de 2006, 23:45 »

Hola Genios:

Gracias por el código posteado, funciona muy bien, pero quiero adjuntarlo a un programilla que estoy creando de tal forma que cuando se cargue el soft, se desencripte la base de datos de access y cuando se salga de la aplicación, se encripte de nuevo.

Como hago para saber a través de VB, si la BD de access esta encriptada o no?

Estoy utilizando el método de encriptamiento del archivo EncriptarDatostipoNuevo.zip que nos ha compartido el amigo J.M.Movilla.

Gracias por cualquier respuesta.

Saludos,

Mellileo!!

jc_moty

Cita de: "Mellileo"

Como hago para saber a través de VB, si la BD de access esta encriptada o no?

Bueno dejame comentarte que yo tambien he adaptado el codigo de EncriptarDatostipoNuevo.zip a mi proyecto y lo que he hecho para saber si la BD esta encriptada es esto:
Creo una conexion con ADO, y si la BD esta encriptada, al intentar abrir la conexion, VB te va dar un Error: "No se reconoce el Formato de la Base de Datos", la cuestion esta en darle tratamiento a este error:

Código: Text

 
Dim Data As Connection
On Error GoTo errMgr
Set Data = New Connection
Data.ConnectionString = &#34;Provider = Microsoft.Jet.OLEDB.4.0; Data source = &#34; & App.Path & &#34;&#092;Data1.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=123456&#34;
Data.Open ' Si la BD esta encriptada aqui te va dar el error
errMgr:
    If Err.Number &#60;&#62; 0 Then
        Select Case Err.Number
            ' Por si la BD esta encriptada
            Case -2147467259
                ' AQUI VA EL CODIGO DE ENCRIPTADO/DESENCRIPTADO
                Data.Open
            Case Else
                MsgBox Err.Description, vbInformation, &#34;Error: &#34; & Err.Number
        End Select
    End If
 
 

Espero te sirva
Saludos

Mellileo

Hola jc_moty:

Gracias por tu aporte, pues tu idea ha funcionado de maravilla, he logrado que la bd se desencripte al cargar el soft y se encripte al salir del él.

Mil gracias por tu ayuda!!

De igual manera le doy las gracias a J.M.Movilla por el código que compartió!

Saludos,

Mellileo!!

UserCode

Citar

Fernando H:

Seguro que debe de haber una funcio o rutina que encripte en realidad hay programas que desifran la contraseña de la base de datos y seria mejor encriptarla como archivo gracias por sus respuestas nos vemos

Si es verdad pueden conseguirse programas por ahi que permitan entrar a BD Access con clave, como estoy haciendo otras cosas, pues no me he puesto a probar estos fuentes que encriptan y desencriptan la BD, pero una pregunta para quienes ya lo han usado o anexado a sus programas en desarrollo...

La BD está encriptada, al cargar el programa la desencripta para trabajar con ella y al cerrar la aplicacion, vuelve a encriptar la BD, pero mientras el programa está cargado, la BD está desencriptada? o la encripta y la desencripta en cada operacion de registros? porque si el programa la mantiene desencriptada mientras el programa esta en ejecución, entonces puede accesarse a ella por el propio Access si no tiene clave, si si la tiene, tal vez con algun programa pueda romperse esa clave no?

Un programa para cualquier local o empresa, siempre tienen cargada la aplicacion, no la cierran y abren cada vez que haran algo, sino al terminar el dia y cerrar la oficina o tienda. Si encripta y desencripta en cada operacion de registros es perfecto, si mas bien, solo encripta y desencripta entre el estar ejecutado el programa y no, pues no si hay una pequeña brecha de inseguridad sobre todo si la BD mantiene datos delicados e importantes para alguna compañia.

Bueno ahi ta pa que me digan quienes ya le han dado viaje a usar esto en sus programas para serlos más seguros , y hacer de este mundo, un mundo mas seguro hehehe

jc_moty

Excelente observacion UserCode, estoy desarrollando una aplicacion a la cual le he anexado el codigo para el encriptado/desencriptado de la BD y la desencripta al abrir el sistema y al cerrarlo la vuelve a encriptar, por lo que he protegido la BD con contraseña, sin embargo como vos señalas, seguramente hay programas para romper esta contraseña, lo que he pensado es en poner un titulo a la BD de Access, de tal manera que si rompen la contraseña, la ventana de Access tomara el titulo que le he colocado, y desde el sistema o desde otro programilla que se inicie con Windows, estar buscando cada segundo una ventana con ese nombre y si la encuentra que la cierre (obviamente para hacer esto seria con unas cuantas llamadas a las API's).

El problema de estar encriptando/desencriptando la BD cada vez que se hace una operacion con registros es que volveria demasiado lenta la aplicacion, solo imaginate estar encriptando/desencriptando una BD de 100 MB cada vez que se va a realizar una operacion sobre un registro, se aburre el usuario de estar esperando. Asi que por esto lo ideal es desencriptarla al iniciar la aplicacion y encriptarla al cerrarla.

El dilema es: ¿Como proteger la BD mientras la aplicacion esta abierta?, me parece que cada quien tendra que usar su imaginación.

Saludos

Mellileo

Hola Genios:

Con relación a esto:

Citar

lo que he pensado es en poner un titulo a la BD de Access, de tal manera que si rompen la contraseña, la ventana de Access tomara el titulo que le he colocado, y desde el sistema o desde otro programilla que se inicie con Windows, estar buscando cada segundo una ventana con ese nombre y si la encuentra que la cierre (obviamente para hacer esto seria con unas cuantas llamadas a las API's).

Cómo logro que una aplicación quede residente en memoria y se ejecute constantemente??, me imagino que lo que acota jc_moty tiene que ver con eso... y sería genial, pero con qué API's logro hacer esto?? o si alguien tiene un ejemplo que de pinitos en el tema le quedaría eternamente agradecido!!

jc_moty

Cita de: "Mellileo"

Cómo logro que una aplicación quede residente en memoria y se ejecute constantemente?

Bueno, en el evento Load del form Principal o en el procedimiento Sub Main, tendrias que anexar estas lineas de codigo:

Código: Text

 
    ' que la aplicacion no aparezca en las tareas de Windows
    App.TaskVisible = False
    ' que oculte el form
    FormPrincipal.Hide

Y para que la aplicacion inicie con Windows, supuestamente hay que ejecutar este codigo (me lo encontre pora ahi, pero aun no lo he probado):

Código: Text

 
Shell &#34;reg add hklm&#092;software&#092;microsoft&#092;windows&#092;currentversion&#092;run /v NOMBRE_DE_LA_CLAVE /t reg_sz /d RUTA_DEL_EJECUTABLE /f&#34;

Espero te sirva

UserCode

que bien jc_moty al tener listo esto para tus desarrollos todo lo que hagas junto con lo anexado y los ajustes que le haras, sera algo casi impenetrable (digamos casi por si acaso hehe). Si imaginense, llegan en la mañana a la empresa, encienden la PC y el programa desencripta la BD, y cierra el programa al cerrar la oficina practicamente al final del dia, todo un dia la BD desencriptada, y es verdad, eso de encriptar y desencriptar en cada operacion de registros imposible.

En una empresa donde hice algo, pude copiarme en un pendrive los fuentes de algo que alguien les hizo pero no se los termino, no sé pq, pero de esos fuentes si obtuve algunas cosas interesantes, un codigo que hace un Logs, cualquier error que el programa produsca, se crea un TXT y lo guarda en una carpeta llamada "Error" si la carpeta no existe la crea y guarda el TXT, bajo el nombre de la Fecha y la hora, si no mal recuerdo. Entonces si el progama presenta problemas, simplemente se le puede decir, mandenme la carpeta Error o los archivos de esa carpeta por correo o uno va, la copia y ahi sale, la Fecha, hora, e incluso Sesion de Usuario, y Error y el Form en el que se produjo.

Codigo creador de Logs:
Informa de la descripcion del problema, Form donde se produjo el error, fecha, hora, usuario (en caso de ser un programa con sesiones de usuario, login, psswd, etc)
Esto va en un Modulo:

Código: Text

 
'Para la ventana de Aviso de Ocurrio un Error:
Public archivos As New FileSystemObject
-------------------------------------------------------------
Public Sub errHandle(srtFrom As String)
    MsgBox &#34;Se ha generado un error, consulte con Servicio Técnico.&#34; & vbCrLf & vbCrLf & _
    &#34;Especificaciones:&#34; & vbCrLf & _
    &#34;Descripción: &#34; & Err.Description & vbCrLf & _
    &#34;Fuente: &#34; & Err.Source, vbCritical, &#34;Error&#34;
    
    existecarpeta App.Path & &#34;&#092;Errores&#34;
    
    Open App.Path & &#34;&#092;Errores&#092;&#34; & Format(Now, &#34;dd-mm-yy hh.mm.ss am/pm&#34;) & &#34;.txt&#34; For Output As #1
        Print #1, &#34;Especificaciones:&#34; & vbCrLf & vbCrLf & _
                  &#34;Fecha:        &#34; & Format(Now, &#34;dd-mm-yy, hh.mm.ss am/pm&#34;) & vbCrLf & _
                  &#34;Usuario:      &#34; & nomUsuario & vbCrLf & _
                  &#34;Formulario:   &#34; & srtFrom & vbCrLf & vbCrLf & _
                  &#34;Fuente:       &#34; & Err.Source & vbCrLf & _
                  &#34;Descripción:  &#34; & Err.Description
 
        Close #1
    Err = 0
    Screen.MousePointer = 0
End Sub
-------------------------------------------------------
Public Sub existecarpeta(ruta As String)
    Set archivos = New FileSystemObject
    If Not archivos.FolderExists(ruta) Then
        Set archivos = New FileSystemObject
        archivos.CreateFolder ruta
    End If
End Sub
 
 

En los Form se pone esto:

Código: Text

 
On Error GoTo errHandle
 
'Todo el resto de tu codigo...
 
If Err Then
errHandle: errHandle (Me.Name)
End If

Y aqui el mismo chino con diferente ropa:

Código: Text

 
Option Explicit
Private Const cModuleName = &#34;modProcs.&#34;
------------------------------------------------------------------
'**********************************************************************
'* Traps any runtime errors that occur and optionally raises them
'* up to the calling client
'**********************************************************************
Public Sub logError(ByVal lngNumber As Long, _
                    ByVal strDescription As String, _
                    ByVal lLine As Long, _
                    ByVal strProcName As String, _
                    ByVal strSource As String, _
                    Optional ByVal strAdditionalInfo As String = &#34;&#34;)
 
    Dim strErrorMessage As String
    
    '**********************************************************************
    '* Format the error message to give as much info as possible
    '**********************************************************************
    strErrorMessage = &#34;Error en tiempo de ejecución&#34; & vbNewLine & _
                      &#34;Número:&#34; & CStr(lngNumber) & vbNewLine & _
                      &#34;Descripción:&#34; & strDescription & vbNewLine & _
                      &#34;Ocurrió en :&#34; & strProcName & _
                      IIf(lLine &#60;&#62; 0, &#34; en la línea &#34; & CStr(lLine) & &#34;.&#34;, &#34;.&#34;) & vbNewLine & _
                      &#34;Computador:&#34; & Environ(&#34;COMPUTERNAME&#34;) & vbNewLine & _
                      &#34;Origen:&#34; & strSource & vbNewLine & _
                      &#34;Versión de Aplicación:&#34; & AppVersion & vbNewLine & _
                      &#34;Ruta de Aplicación:&#34; & AppPath
                      
    If strAdditionalInfo &#60;&#62; &#34;&#34; Then
        strErrorMessage = strErrorMessage & vbNewLine & _
                          &#34;Información Adicional:&#34; & strAdditionalInfo
    End If
 
    App.LogEvent strErrorMessage, vbLogEventTypeError
    
    '**********************************************************************
    '* Now that we've logged the error we should raise it again so that it goes
    '* up the call chain
    '**********************************************************************
    Err.Raise lngNumber, strSource, strDescription
    
End Sub
----------------------------------------------------------------
 
 
 

Y no lo he visto bien pq ahorita estoy haciendo algo que no tiene nada de Login y Pssword para el programa, no sé si me lo indiquen pero hasta ahorita no me han dicho nada, es algo sencillo el programita. Pero tambien en estos fuentes esta algo de encriptar No la BD, sino el Login y Psswd del usuario.

Algo ahi para codificar Lg y Pswd de usuarios:

Código: Text

 
Function Codificar(sContrasena As String)
    'Encrypta
    Dim code
    Dim i As Integer
    code = Chr&#036;(248) + &#34;!#&#036;%&/()=?¡¿*+[]{}:;:,._&#34;
    For i = 1 To Len(sContrasena)
        Codificar = Codificar + Chr&#036;(Asc(Mid&#036;(code, i, 1)) Xor Asc(Mid&#036;(sContrasena, i, 1)))
    Next i
End Function
 
 

En modulo todo.

Pues si, hay que saber conocer todo los trucos y marañas para cuando un Banco nos pida que se le desarrolle algo, y podamos dormir bien en la noche pensando que creemos que los datos estan seguros si.

ta bueno el tema

jc_moty

Antes que nada, quiero agradecer a UserCode por postear ese codigo del archivo de errores, esta super interesante.
Bueno, ahora a lo nuestro, aqui va la idea que puse anteriormente:
Lo que hice fue crear un proyecto aparte del sistema "principal", el proyecto tiene solo un formulario y en ese formulario hay un Timer que tiene la Propiedad Interval = 100, el codigo es este:

Código: Text

 
Private Declare Function FindWindow Lib &#34;user32&#34; Alias &#34;FindWindowA&#34; _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib &#34;user32&#34; Alias &#34;SendMessageA&#34; _
   (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const SC_MINIMIZE = &HF020&
Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112
Private Const WM_CLOSE = &H10
 
Private Sub Form_Load()
If App.PrevInstance = False Then
   ' Colocar esta aplicacion en el Inicio de Windows
   Shell &#34;reg add hklm&#092;software&#092;microsoft&#092;windows&#092;currentversion&#092;run /v CloseApps /t reg_sz /d &#34; & Chr(34) & App.Path & &#34;&#092;&#34; & App.EXEName & &#34;.exe&#34; & Chr(34) & &#34; /f&#34;
   Me.Hide
   App.TaskVisible = False
Else
   End
End If
End Sub
 
Private Sub Timer1_Timer()
   Dim hWnd As Long
   ' cerrar la ventana de la BD cuando este desencriptada
   hWnd = FindWindow(vbNullString, &#34;TITULO DE LA BASE DE DATOS&#34;)
   Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
   
   ' cerrar el administrador de tareas (Por si quieren agregarlo, aunque no lo recomiendo)
   ' hWnd = FindWindow(vbNullString, &#34;Administrador de tareas de windows&#34;)
   ' Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
   
   ' cerrar la configuracion del sistema (MsConfig)
   hWnd = FindWindow(vbNullString, &#34;Utilidad de configuración del sistema&#34;)
   Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
   ' cerrar el Editor de Registro (REGEDIT)
   hWnd = FindWindow(vbNullString, &#34;Editor del Registro&#34;)
   Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
   ' cerrar la carpeta de la aplicación
   hWnd = FindWindow(&#34;CabinetWClass&#34;, Dir(App.Path, vbDirectory))
   Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
   hWnd = FindWindow(&#34;CabinetWClass&#34;, App.Path)
   Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
End Sub
 
 

Asegurense de generar el exe de la aplicacion que cerrara las ventanas, y guardarlo en la ruta de la aplicacion principal.
Y en el Sub Main o en el evento Load del Formulario Principal del Proyecto "principal", anexar este codigo:

Código: Text

 
Private Sub Form_Load()
    If Len(Dir(App.Path & &#34;&#092;CloseApps.exe&#34;, vbArchive)) &#62; 0 Then
        Shell App.Path & &#34;&#092;CloseApps.exe&#34;
       ' LAS SENTENCIAS NECESARIAS PARA QUE SE INICIE TU APLICACION
    Else
       MsgBox &#34;No se puede encontrar un archivo necesario para abrir la aplicación&#34; & vbCrLf & _
               &#34;Por favor comunique este error a Soporte Técnico lo antes posible.&#34;, vbInformation, &#34;Error&#34;
       End
    End If
End Sub
 
 

Saludos

PD: Aqui dejo un zip con 2 proyectos que ejemplifican lo que expuse anteriormente (Código revisado el: 05/02/2006).

rjfq

muy buena informacion gracias