Averiguar clave bbdd firebird

[Casimiro Noteví]

¿Pero cómo piensas hacer una importación si no puedes conectar a la BD?

[[Chris]]

Yo te recomendaría que hicieran un "Brute Force". Igual, las contraseñas de Firebird no son más largas que 8 caracteres. Puedes empezar utilizando unos 4 y de ahí seguir. Seguro no tardarás mucho en encontrar la contraseña.

Saludos,
Chris.

[[duilioisola]]

Esto te puede ayudar con el sistema "Brute Force"

Código Delphi [-]
type
   TCaracteresValidos = array of char;

var
   parar : boolean;

procedure TFMMain.ButtonBuscarClick(Sender: TObject);
var
   i1, i2, i3, i4, i5, i6, i7, i8: Integer;
   IncrementarSiguiete: Boolean;
   MyCaracteresValidos: TCaracteresValidos;
begin
   MyCaracteresValidos := TCaracteresValidos.Create('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f',
     'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', 'A', 'B', 'C', 'D', 'E',
     'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
   Parar := False;
   i1 := 0;
   i2 := 0;
   i3 := 0;
   i4 := 0;
   i5 := 0;
   i6 := 0;
   i7 := 0;
   i8 := 0;
   while ((EClave.Text <> 'ZZZZZZZZ') and (not Parar)) do
   begin
      EClave.Text := MyCaracteresValidos[i1] + MyCaracteresValidos[i2] + MyCaracteresValidos[i3] + MyCaracteresValidos[i4] +
        MyCaracteresValidos[i5] + MyCaracteresValidos[i6] + MyCaracteresValidos[i7] + MyCaracteresValidos[i8];
      Application.ProcessMessages;

      // Probar conexion con la clave
      // Depende de tus componentes:
      Database.NombreDeUsuario := 'SYSDBA';
      Database.Password := EClave.Text;
      Database.Connect;
      if (Database.Connected) then
      begin
         Parar := True;
         ShowMessage('La clave es: '+ EClave.Text);
      end;

      // Buscar siguiente Clave
      if (i8 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
      begin
         i8 := 0;
         if (i7 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
         begin
            i7 := 0;
            if (i6 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
            begin
               i6 := 0;
               if (i5 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
               begin
                  i5 := 0;
                  if (i4 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
                  begin
                     i4 := 0;
                     if (i3 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
                     begin
                        i3 := 0;
                        if (i2 = High(MyCaracteresValidos)-Low(MyCaracteresValidos)) then
                           i2 := 0
                        else
                           inc(i2);
                     end
                     else
                        inc(i3);
                  end
                  else
                     inc(i4);
               end
               else
                  inc(i5);
            end
            else
               inc(i6);
         end
         else
            inc(i7);
      end
      else
         inc(i8);
   end;
end;

procedure TFMMain.ButtonPararClick(Sender: TObject);
begin
   Parar := True;
end;

Ten en cuenta que en los caracteres válidos no he puesto signos (+-_/, etc)
De todos modos esto puede ser algo laaaaargo....

[[newtron]]

Empezado por Casimiro Notevi

¿Pero cómo piensas hacer una importación si no puedes conectar a la BD?

Lo que si puede hacer mi cliente es una exportación a excel desde su programa de un listado y ese listado importarlo yo al mío pero es algo engorroso.

Chris, duilioisola, gracias por vuestros comentarios. Lo hablaré con el cliente y ya veré qué hago.

Gracias a todos.

[Casimiro Noteví]

Yo haría una copia del programa y BD, lo probaba en otro ordenador instalando un nuevo firebird.
Buscaría en el ejecutable que tienen, con un editor hexadecimal, las cadenas 'sysdba' y 'masterkey' para ver qué clave usan.
Si las encuentras entonces no hay problema, te conectas con ellas.
Es lo de siempre, prueba y error, y perder tanto tiempo como sea necesario/pruedente/aconsejable, sin pasarse. Ya que si se pierde mucho tiempo entonces es mejor hacer esa importación/exportación y no complicarse la vida.

[[rretamar]]

Otra posibilidad (si la clave se envía desencriptada) es usar un "sniffer" de paquetes TCP/IP para capturar el nombre de usuario y la clave que se envían a través de la red.

Aquí hay un analizador de paquetes para Linux y Windows: http://www.wireshark.org

[[Chris]]

Empezado por rretamar

Otra posibilidad (si la clave se envía desencriptada) es usar un "sniffer" de paquetes TCP/IP para capturar el nombre de usuario y la clave que se envían a través de la red.

Sería lo mejor. Pero Firebird envía la contraseña con encriptación, encriptación básica, pero la encripta.

Lo más práctico es lo que comenta Casimiro. Aunque puede llevar un buen tiempo hacerlo y no es seguro que la encuentres. Si tienes suerte, el programador que escribió el otro programa seguro escribió algo así:

Código Delphi [-]
fb_usuario = 'SYSDBA';
fb_contrasena = 'masterkey';

En el caso que no corras con suerte, el código debió ser escrito así:

Código Delphi [-]
fb_usuario = 'SYSDBA';
fb_contrasena = #125#156#142#169#210...;

Saludos,
Chris

[ContraVeneno]

¿y si borras el archivo "security.fdb"?

[[newtron]]

Empezado por ContraVeneno

¿y si borras el archivo "security.fdb"?

No sé, ¿qué pasa si borro el archivo security.fdb?