Passwords en el DBE

[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.