Criptografia Monitor

[Walter Lopes]

Boa tarde, gostaria de atualizar as informações no .ini do monitor através do meu software, porem alguns campos como senha do e-mail são criptografadas, qual seria a criptografia para eu enviar os dados corretamente?

[Daniel Simoes]

A rotina é uma Criptigrafia Simples, usando um XOR nos Bytes da Chave e String a ser criptografada...

{-----------------------------------------------------------------------------
 Retorna a String <AString> encriptada por <StrChave>.
 Use a mesma chave para Encriptar e Desencriptar
 ---------------------------------------------------------------------------- }
function StrCrypt(const AString, StrChave: AnsiString): AnsiString;
var
  i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
  C : AnsiChar ;
begin
  Result        := AString;
  TamanhoString := Length(AString);
  TamanhoChave  := Length(StrChave);
  if (TamanhoChave = 0) or (TamanhoString = 0) then
    Exit;

  for i := 1 to TamanhoString do
  begin
     pos := (i mod TamanhoChave);
     if pos = 0 then
        pos := TamanhoChave;

     posLetra := ord(Result[i]) xor ord(StrChave[pos]);
     if posLetra = 0 then
        posLetra := ord(Result[i]);

     C := AnsiChr(posLetra);
     Result[i] := C ;
  end;
end ;  

 

a Chave de Criptografia usada.. é o CRC16 da Senha informada... com 8 caracteres e zeros a esquerda

fsHashSenha := IntToStrZero(StringCrc16(wSenha), 8)

 

[Walter Lopes]

Obrigado Daniel