Passwords en el DBE

[pablo]

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

[Kreyser]

Hola, no se si te refieres a esto...

 
  DataModule1.Database1.Params.Values['USER NAME']:='username';
  DataModule1.Database1.Params.Values['PASSWORD']:='password';

Espero te sirva de orientación.

Saludos.

[pablo]

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

[marcoszorrilla]

Nada más añadir que la contraseña de Paradox, se la salta cualquiera sin mayor problema.


Un Saludo.

[roman]

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

[nefy]

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.

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;

Sinceramente no recuerdo de donde tome esta rutina, pero si alguien es el autor digalo. Yo en lo personal las uso, no tanto porq sean incrackeables (como ustedes saben) las tablas, sino para dar un poquitin de seguridad, asi como para hacer sentir aunq sea un poquitin de seguridad a los futuros usuarios.

Salu2.