Procedimiento Pack en tablas paradox me quita el password

[Mauro®]

Hola a todos, como están? espero que bien!!
Escribo para ver si alguno de Uds. me puede dar una mano.
Estoy utilizando un procedimiento para realizar la compactación de unas tablas paradox las cuáles tengo protegidas con password, pero a relizar la compactación las tablas quedan sin contraseña.
El procedimiento es el siguiente:

Código Delphi [-]
procedure PackParadox(Const ADatabase, ATable : String);
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 := True;
      Check(DbiDoRestructure(ADB.Handle,1,
@PdxStruct,nil,nil,nil,False));
    finally
     ADB.KeepConnection := SaveKC;
    end; 
  finally
   Free;
  end; 
end;

Alguien tiene idea de como puedo solucionar este problema.
Desde ya les agradezco por leer este hilo.
Saludos,
Mauro.-

[[Lepe]]

Y ¿para qué quieres ponerle contraseña?

Lo digo porque paradox tiene la constraseña maestra "masterkey", y una simple búsqueda en google ya te lo muestra, así que no sirve de nada el trabajo que te estás tomando.

Lamento no responderte, es que... yo precisamente quité la contraseña de una tabla porque tenía más inconvenientes como programador que beneficios.

Saludos.

[Mauro®]

Lepe, Gracias por responder, he probado lo que me decis y no puedo abrir la tabla con la clave "masterkey".
La idea de mantener las tablas con clave es porque no quiero que otros utilicen los datos ya cargados sobre ellas.

Gracias.
Mauro.-

[juanelo]

El problema de Paradox que es tan facil de quitar su constraseña como esto
Saludos

[[Lepe]]

Pues parece que masterkey era entonces la de Interbase

En fin, que lo que haces es complicarte tú la vida, porque en cuanto falle una tabla, al tener contraseña se te hace todo más complicado al intentar entrar con programas externos al repararlo, pero vamos, si quieres tú allá .

Saludos

[Mauro®]

En fin veré de portar a otro soporte de datos, por ahora quedarán sin passwords.
Gracias por las repuestas!!

Saludos y felices fiestas para todos!!
Mauro

[marcoszorrilla]

Lepe tiene razón en cuanto a lo dicho, salvo que existen 2 claves maestras una para abrir las tablas desde el DatabaseDesktop y otra para hacerlo desde programación, con lo cual yo nunca he perdido el tiempo en proteger las tablas.

Un Saludo.