Registro do Windows

Question

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 c...

Abagattini · Answer

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;

Objetivacreator · Answer

Caro amigoMe 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.comt++...

F�rum Registro do Windows #355888