Registro do Windows

Delphi

25/03/2008

Amigos,
Bom dia.

Estou trabalhando normalmente com o registro do windows, porém em algumas chaves guardo a senha do banco de dados, senha de acesso ao smtp e pop, etc..etc... existe alguma forma de criptografar estas senhas? De modo a esconder? por que qualquer usuário mais esperto acessa as chaves do registro e tem acesso as senhas.

abraços!


Framosip

Framosip

Curtidas 0

Respostas

Abagattini

Abagattini

25/03/2008

Antes de salvar no registro do Windows criptografa a senha
function Cripto(Texto: String): String;
var Cont, Cod: Integer; Retorna: String;
begin
  for Cont := 1 to Length(Texto) do begin
    Cod := ValorAsc(Copy(Texto, Cont, 1));
    Retorna := Retorna + Chr(Cod + 57);
  end;
  Result := Retorna;
end;

function DesCripto(Texto: String): String;
var Cont, Cod: Integer; Retorna: String;
begin
  for Cont := 1 to Length(Texto) do begin
    Cod := ValorAsc(Copy(Texto, Cont, 1));
    Retorna := Retorna + Chr(Cod - 57);
  end;
  Result := Retorna;
end;

function ValorAsc(Letra: String): Byte;
begin
  if Length(letra) > 0 then ValorAsc := Ord(Letra[1]) else ValorAsc := 0;
end;



GOSTEI 0
Objetivacreator

Objetivacreator

25/03/2008

Caro amigo

Me mande um e-mail que lhe envio 2 dll´s com criptografia avançada. Eu utilizo em meus projetos, tanto na forma de senha de BD quanto de acesso ao sistema, Garanto que é show, pois são vários tipos de chaves.

A ajuda do colega sobe, é muito útil, mas gostaria de complementar com estas 2 dll´s que tenho.

Meu e-mail objetivacreator@hotmail.com

t++


GOSTEI 0
POSTAR