Transfer�ncia em (TXT) Criptrografado

Question

uso um sistema rodando no WINDOWS 2000 SERVER...as filiais se conectam a esse servidor e transferem os dados do movimento diario (em arquivo .TXT)... at� a� tudo esta funcionando perfeitamente...mas g...

Caninha51 · Answer

Cara, eu tive um id�ia aki, eh bem prec�ria, mas funciona!hehe..

Tu teria q rodar todas as linhas, e a cada uma chamar a fun��o...

Pra �criptografar�;

function Criptografa(Linha: String):String;
var
i:integer;
Let:Char;
begin
 For i := 1 to Length(Linha) do
  begin
   Let := Linha[i];
   Inc(Let, 10);
   Result := Result +  Let;
  end;
end;

Pra �descriptografar�;

function DesCriptografa(Linha: String):String;
var
i:integer;
Let:Char;
begin
 For i := 1 to Length(Linha) do
  begin
   Let := Linha[i];
   Dec(Let, 10);
   Result := Result +  Let;
  end;
end;

Tu pode gerar um n�mero randomico decremento e incremento do char, mas tem q ser um numero apenas para cada arquivo e tem q dar um jeito de mandar esse numero na 1� ou �ltima linha, sei l�...
Ou tu pode gerar um n�mero pra cada linha e inform�-lo no final dela...

Bom, dei uma id�ia, agora eh s� dar asas a criatividade! :)

Falow

Caninha51

Maxwell_monteiro · Answer

J� que seu maior medo � alguem pegar, adulterar e colocar de volta os arquivos, deve dar mais importancia a seguran�a da sua maquina! evitar pessoas nao altorizadas tenham acesso a ela. use firewalls, anti virus, etc... mas quanto a criptografica vc pode fazer deslocamentos de bits, operacoes xor, and, or com determinada mascaras caracter por caracter nao sega a ser um RSA ou um DEs mas e bem mais dificil de descriptografar do que so trocar as letras ou acrecentar codigos no inicio e fim de arquivo.

Bolus · Answer

Caro Colega,
Existe um componente na internet que implementa varios padr�es de Criptografia. Com ele podes Criptografar um Arquivo ou Strings....
Utilizo muito para Proteger Arquivos ou mesmo Senhas.....
N�o lembro o Site, mas procura no Google por
Delphi Encryption Compendium Part I-III

Outra coisa � Freeware......

Espero ter ajudado....

F�rum Transfer�ncia em (TXT) Criptrografado #213145