F�rum Criptografar Arquivo INI #284591

14/06/2005

Ol� pessoal, tudo bem?

Estou com um problema para fazer a criptografia de arquivos INI.
Tenho um arquivo INI no meu projeto com algumas informa��es importantes e gostaria que n�o fosse vis�vel para os usu�rios fora do sistema.
Criei um objeto descendente do TINIFile com dois procedimentos writeCryptString e ReadCryptString. O problema acontece que dependendo do texto que eu criptografo, o programa se perde para recuper�-lo do INI.
Acredito que seja porque o texto criptografado possua algum caractere que seja reservado ao arquivo INI, como por exemplo o �=� que delimita o campo e o valor do campo. N�o consigo sair desse impasse.

Algu�m tem alguma dica de como posso fazer isso? Algu�m j� passou por este problema?

Obrigado.

Prgdelphi

Curtir t�pico

+ 0

Responder

Posts

14/06/2005

Delphi32

Bem, voc� j� testou a rotina por fora? Quer dizer, inicie um projeto, coloque um edit e mande criptografar com a rotina que voc� est� usando. Depois mande descriptografar e veja se funciona. Uma vez tive esse prolema com um algoritmo de criptografia ruim. O Algoritmo n�o conseguia descriptografar se eu misturasse letras mai�sculas com min�sculas. Que componente (rotina) voc� est� usando para criptografar/descriptografar?

At�!

Responder

Gostei + 0

14/06/2005

Prgdelphi

J� testei por fora sim e a rotina funcionou certinho... seguem os algoritmos... acho que o problema � com o INI mesmo que �se perde� quando o algoritmo criptografa os dados.

functionMemoryEncrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i: Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := Byte(pIn^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end
else
Result := False;
end;

function MemoryDecrypt(Src: Pointer; SrcSize: Cardinal; Target: Pointer;
TargetSize: Cardinal; Key: TWordTriple): boolean;
var
pIn, pOut: ^byte;
i: Cardinal;
begin
if SrcSize = TargetSize then
begin
pIn := Src;
pOut := Target;
for i := 1 to SrcSize do
begin
pOut^ := pIn^ xor (Key[2] shr 8);
Key[2] := byte(pOut^ + Key[2]) * Key[0] + Key[1];
inc(pIn);
inc(pOut);
end;
Result := True;
end
else
Result := False;
end;

function TextCrypt(const s: string; Key: TWordTriple; Encrypt: Boolean): string;
var
bOK: Boolean;
begin
SetLength(Result, Length(s));
if Encrypt then
bOK := MemoryEncrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key)
else
bOK := MemoryDecrypt(PChar(s), Length(s), PChar(Result), Length(Result), Key);
if not bOK then
Result := ��;
end;

function TextEncrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, True);
end;

function TextDecrypt(const s: string; Key: TWordTriple): string;
begin
Result := TextCrypt(s, Key, False);
end;

Responder

Gostei + 0

14/06/2005

Massuda

J� testei por fora sim e a rotina funcionou certinho... seguem os algoritmos... acho que o problema � com o INI mesmo que �se perde� quando o algoritmo criptografa os dados.

Seu algoritmo de criptografia est� sujeito a gerar um texto que contem caracteres �n�o imprim�veis� (por exemplo, CR, LF, etc).

Um jeito simples de contornar esse problema seria modificar TextEncrypt/TextDecrypt (n�o testei)...

function TextEncrypt(const s: string; Key: TWordTriple): string;
var
  T: string;
  I: Integer;
begin
  T := TextCrypt(s, Key, True);
  Result := ��;
  for I := 1 to Length(T) do begin
    Result := Result + IntToHex(Ord(T[I]), 2);
  end;
end;

function TextDecrypt(const s: string; Key: TWordTriple): string;
var
  T: string;
  I: Integer;
begin
  T := ��;
  for I := 1 to Length(S) div 2 do begin
    T := T + Chr(StrToInt(�$� + Copy(S, 2*I-1, 2)));
  end;
  Result := TextCrypt(T, Key, False);
end;

Claro, existem outras formas de fazer isso.

Responder

Gostei + 0

14/06/2005

Prgdelphi

Obrigado amigo, agora funcionou certinho.

Responder

Gostei + 0

24/08/2005

Helio Nascimento

function TextEncrypt(const s: string; Key: TWordTriple): string;
var
  T: string;
  I: Integer;
begin
  T := TextCrypt(s, Key, True);
  Result := ��;
  for I := 1 to Length(T) do begin
    Result := Result + IntToHex(Ord(T[I]), 2);
  end;
end;

[color=blue:72ea92fdaf]Matsuda[/color:72ea92fdaf]

Voce poderia me informar a unit, pois o D7 n�o recolhece o TWordTriple.

Obrigado.

Responder

Gostei + 0

24/08/2005

Massuda

[quote:6f1b7c90a6=�Helio Nascimento�]...o D7 n�o recolhece o TWordTriple.[/quote:6f1b7c90a6]Lamento n�o poder ajudar... Isso j� estava no post do colega prgdelphi e � algo que est� no c�digo feito por ele, n�o no Delphi.

Responder

Gostei + 0

05/09/2005

Prgdelphi

o TWordTriple � um array com de Word com 3 posi��es.

[b:94c3d3241d]type[/b:94c3d3241d] TWordTriple = [b:94c3d3241d]array[/b:94c3d3241d][0..2] [b:94c3d3241d]of[/b:94c3d3241d] Word;

Se quiser posso passar a unit completa que faz essa criptografia. Agora est� funcionando perfeitamente.

Responder

Gostei + 0

12/09/2010

Walter Junior

E ae pessoal tudo bem ... Criptografia de arquivo ini. Poxa cara estou a procura de programa assim como voc� fez ... esta beleza, parab�ns ! Poderia mandar para mim o font inteiro � que estou tendo problemas para como usar as fun��es como imlementar usando essas fun��es... podria me mandar ? pode ser um exemplo uma unit qualquer. Eis meu email: warhjr@gmail.com ou walterrhjr@gmail.com. Estarei aguardando o font, desde j� muito obrigado! Wjr Usu�rio DevMedia.

Responder

Gostei + 0