FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Passwords en el DBE
Hola gente, los molesto otra ver para saber si puede setear un pasword a alguna tabla, pero no desde el database desktop sino desde el delphi, desde un aplicacion, digamos...
saludos pablo
__________________
Pablo Tello |
#2
|
||||
|
||||
Password por código
Hola, no se si te refieres a esto...
Código:
DataModule1.Database1.Params.Values['USER NAME']:='username'; DataModule1.Database1.Params.Values['PASSWORD']:='password'; Saludos.
__________________
"Es imposible hacer un programa 100% contra tontos, ya que éstos son muy ingeniosos"
|
#3
|
|||
|
|||
Parecido...
ok, eso esta bueno no lo sabia.. gracias... pero yo estaba buscando algo (no se si se puede) para q el usuario desde la aplicacion establezca una pasword y luego, si algun intruso ejecuta enldatabase desktoplas tablas queden automaticamente protegidas con la pasword q establecio el usuario desde la aplicacion... me entendes?, algo asi...
bueno gracias y saludos un abrazo pablo
__________________
Pablo Tello |
#4
|
||||
|
||||
Nada más añadir que la contraseña de Paradox, se la salta cualquiera sin mayor problema.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
Reafirmando lo que comenta Marcos: el primer o segundo enlance en los resultados de un conocido buscador nos llevan al password universal que abre cualquier tabla paradox.
Moraleja: olvidarse de basar la seguridad en las contraseñas de paradox. // Saludos |
#6
|
||||
|
||||
Tienen toda la razon, que es muy facil usar alguna de las contraseñas maestras y abrir las tablas de Paradox. Sin embargo, por si a alguien le interese aqui esta una rutina que permite establecer contraseñas a tablas paradox.
Código:
procedure PonClave(Const ADatabase, ATable:string; Clave:DbiName); var ADB :TDataBase; SaveKC : Boolean; PdxStruct : CRTblDesc; begin with TTable.Create(nil) do try DatabaseName := ADatabase; TableName := ATable; Exclusive := True; Open; ADB := DAtabase; SaveKC := ADB.KeepConnection; ADB.KeepConnection := True; try Close; FillChar(PdxStruct,SizeOF(PdxStruct),0); StrPCopy(PdxStruct.szTblName,ATable); PdxStruct.bPack := False; PdxStruct.bProtected:= TRUE; {Esta es la clave que se pondrá en la tabla} PdxStruct.szPassword:=Clave; Check(DbiDoRestructure(ADB.Handle,1, @PdxStruct,nil,nil,nil,False)); finally ADB.KeepConnection := SaveKC; end; finally Free; end; end; Salu2. |
|
|
|