Programación General > Visual Basic 6.0 e inferiores
Problemas De Seguridad
(1/1)
neorent:
hola gente como estan espero que bien:
bueno les paso a comentar lo siguiente resulta que elabore hace un tiempo atraz una aplicacion que se conecta a una base de datos en un servidor y funciona super bien pero resulta que me pidieron que instalara esta aplicacion en otros pc y bueno funciono, aqui va el problema resulta que la carpeta compartida en el servidor debe tener la opcion de control total para poder modificar datos y agregarlo o modificarlos ceirto, bueno resulta que detecte que usuarios han entrado a la carpeta donde se encuentra la base y resulta que han eliminado y modificado cosas sin entrar al sistema lo cual me ha producido varios errores en la aplicacion ya que han eliminado usuario y jefes y cosas asi, pero bueno creo que la mejor forma es colocarle una clave a acces bueno solo colocare una clave nada mas ni siquiera un usuario y me prgunto cuando llame a la base de datos que es lo que tendria que cambiar, bueno les dejo mi codigo de como habro la base de datos y la leo bueno yo ocupo un archivo de texto para asi que lea solo el archivo y la ruta de donde se encuentra para no estar compilando cada cierto tiempo la aplicacion bueno amigos espero que me puedan ayudar con este problemilla ok, bueno la gracia de esto es que sea la aplicacion quien le entrege la pass a la base y asi nadie pueda entrar salvo desde afuera a la base ok muchas gracias.
Option Explicit
Dim a As Database
Dim b As Recordset
----------------------------------
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String
Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta
End If
Text2.Text = ""
Set a = OpenDatabase(ruta)
Set b = a.OpenRecordset("tabla_tecnicos")
If b.RecordCount = 0 Then
MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
Else
b.MoveFirst
Do While b.EOF = False
Combo1.AddItem b("nombre_tecnico")
b.MoveNext
Loop
End If
Angel38:
Hola Neorent, te recomiendo que mejor la encriptes, busca temas relacionados con encriptacion de Base de Datos Access. :smartass:
Access es muy insegura, de todos modos te dejo la respuesta.
Luego de darle la clave, en el codigo Opendatabase(ruta) solo le agregas a la ruta
Set a = OpenDatabase(ruta Password = colocas el password aqui) :comp:
y listo. :D
Espero te funcione. Suerte. :rolleyes:
neorent:
--- Cita de: "Angel38" --- Hola Neorent, te recomiendo que mejor la encriptes, busca temas relacionados con encriptacion de Base de Datos Access. :smartass:
Access es muy insegura, de todos modos te dejo la respuesta.
Luego de darle la clave, en el codigo Opendatabase(ruta) solo le agregas a la ruta
Set a = OpenDatabase(ruta Password = colocas el password aqui) :comp:
y listo. :D
Espero te funcione. Suerte. :rolleyes:
--- Fin de la cita ---
mmmm gracias angel pero soy un poco inexperto este codigo va separado por alguna coma o algo asi o solo va "ruta password="1234""
bueno si es eso espero que sea genial, no encripto la base pk al momento de abrir la aplicacion esta la desencripta y queda a merced de que cualquier usuario con los permisos en el servidor pueda modificar la base no?, bueno gracias por la ayuda si alguien tiene otra opcion mas seria genial nunca hay que quedarse con una sola respuesta y muchas gracias angel me sirve mucho tu opcion espero me piuedas aclarar esta duda gracias adiso.
Angel38:
Con ejemplo guia, sino con muñequitos :P Jajajajaj es broma.
--- Código: Text ---Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "Base de datos.mdb;Jet OLEDB:Engine Type = 4;Jet OLEDB:Database Password = 123456"
:comp:
Listo tal cual como lo ves ahi o cualquier modificacion que le tengas ademas de eso tambien sirve.
Espero te sirva :hola:
Navegación
Ir a la versión completa