Foros Club Delphi - Passwords en el DBE

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Passwords en el DBE (https://www.clubdelphi.com/foros/showthread.php?t=13517)

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

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';

Espero te sirva de orientación.

Saludos.

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

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

Un Saludo.

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

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;

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.