Protegendo DBF com DCPCRYPT

[ezlage]

Meus caros, tudo bom?

Estou desenvolvendo um aplicativo que funcionará a partir de pendrives. Tanto em Linux quanto em Windows. E não é um mecanismo malicioso, ok?!

Tal aplicativo codifica as bases DBF e decodifica quando as acessa.
Porém se o programa estiver aberto, qualquer um pode abrir os DBFs com um editor de texto e ver todos os dados sem controle de acesso algum.

Então estive pensando em decodificar o DBF em memória e carregá-lo a partir de lá, sem que o DBF decodificado fique disponível no disco.

Acontece que não tenho idéia de como fazer isso, sou iniciante no Lazarus e gostaria da ajuda de vocês.

Obrigado!

[ezlage]

Encode file to disk:

  chave:string;  //passphrase
  cam:string; //path of file

Code: [Select]

function CodTabela(i:integer):boolean;
var
  motor:TDCP_rc6;
begin
  result:=True;
          try
            mst[i].Position:=0; //memory stream
            fst[i]:=TFileStream.Create(cam,fmCreate); //file stream
            motor:=TDCP_rc6.Create(nil);
            motor.InitStr(chave,TDCP_sha512);
            motor.EncryptStream(mst[i],fst[i],mst[i].Size);
            motor.Burn;
            motor.Free;
            fst[i].Free;
            mst[i].Free;
          except
            result:=False;
          end;
end;
Decod file to memory:

Code: [Select]

function DecodTabela(i:integer):boolean;
var
  motor:TDCP_rc6;
begin
  result:=True;
          try
            mst[i]:=TMemoryStream.Create;
            fst[i]:=TFileStream.Create(cam,fmOpenRead);
            motor:=TDCP_rc6.Create(nil);
            motor.InitStr(chave,TDCP_sha512);
            motor.DecryptStream(fst[i],mst[i],fst[i].Size);
            motor.Burn;
            motor.Free;
            fst[i].Free;
          except
            result:=False;
          end;
end;

[rocka1]

Boas, estou tentando algo parecido, mas com o sqlite3 , visto querer utilizar no Windows Mobile e no Android.

Coloquei uma questão muito parecida aqui:
http://forum.lazarus.freepascal.org/index.php/topic,17479.0.html

Se por acaso alguém tiver solução, fico agradecido.

Lembro que, segundo apurei, o Sqlite3Dataset não deixa carregar através de stream, ao contrário do caso aqui apresentado .

O meu obrigado antecipado :-)

[ezlage]

Eu vi lá, mas já havia sido solucionado. =D
O ludob sempre ajuda a gente. haha
Abraço.

[rocka1]

ezlage , já agora quero-te também agradecer por este teu post, que também foi uma boa ajuda 

[ezlage]

rocka1, como você faz pra transportar os dados do MemoryStrem para o seu componente?
Ele usa o parâmetro ':memory:', ao que me parece você usa isso só pra armazenamento temporário?
Sabe de algum jeito de se ter os dados codificados no disco, decodificar em memória e usá-lo no SQLite?

Agradeço desde já.

[rocka1]

Para os utilizadores/leitores deste tema não "ficarem perdidos", só consegui na minha aplicação devolver o stream para ficheiro.

Mas tendo em atenção que na minha aplicação usei o sqlite3backup, que não me permitiu ler do memorystream mas apenas de ficheiro.

http://www.lazarus.freepascal.org/index.php/topic,17479.msg96592.html#msg96592