Criptografar Senha e Usuário do E-mail no Monitor

[nebrio]

Pessoal, antigamente eu tinha modificado o Monitor para me devolver o usuário do e-mail e senha criptografados por ele mesmo.

Fazia isso usando o código abaixo, no qual ele me grava em um arquivo .ini usuário e senha criptografados e eu armazenava já dessa forma, porém, hoje compilei novamente o monitor e não mais consigo usar, alguém poderia me informar como vocês fazem para salvar as senhas dos e-mails criptografadas?

 

//Criação da Função 
Function Criptografar(caminho, valor, senha : String ) : String;
 var SStream  : TStringStream ;
     CryptStr : String ;
     INISenha : TIniFile;
begin
  INISenha := TIniFile.Create(caminho+'\iniSenha.ini');
  CryptStr := StrCrypt( valor, senha) ;
  SStream := TStringStream.Create(CryptStr) ;
  try
     INISenha.WriteBinaryStream('SENHA', 'SENHA', SStream) ;
  finally
     SStream.Free ;
  end ;
  INISenha.Free;
  result := 'conttrotech';
end ;   

Para usar eu fazia isso
DoACBrNFeUnit
 no Uses colocar a Unit UtilUnit.

 na procedure procedure DoACBrNFe(Cmd: TACBrCmd); criar uma variável iniSenha : String;

else if Cmd.Metodo = 'criptografar' then
        begin
          iniSenha := Cmd.Params(1)+'\iniSenha.ini';
          Cmd.Resposta := UtilUnit.Criptografar(Cmd.Params(0),Cmd.Params(1),_C);
        end              

Eu faço isso, pois, tenho casos onde em um mesmo computador são emitido notas de 2 ou 3 empresas e cada uma com seu e-mail, dessa forma sempre conseguia fazer.

Pelo que notei a forma de criptografia da senha mudou

Como vocês fazem para configurar o e-mail para sistemas multi-empresa?

[JSantos]

Olá,

não seria melhor vc rodar uma instância do monitor para cada empresa?

[nebrio]

@JSantos então não sei se há necessidade disso!

Sempre funcionou do jeito que eu fazia, o único problema é que a forma de criptografar mudou e eu não consegui entender para atualizar o código acima.

[José M. S. Junior]

Boa tarde. Está sendo realizado um Refactory nas classes do ACBrMonitor. Veja na classe UtilUnit as funções  "LeINICrypt" e "GravaINICrypt". Pode ver o exemplo de utilização na classe ACBrMnonitorConfig

[JSantos]

Houve mudança sim...

a constante "_C" que vc usa está comentada no código original.

tem um trecho no código da unit ACBrMonitor1 que faz um tratamento para uso de uma variável fsHashSenha, veja se ajuda para entendimento

    { Lendo Senha }
    fsHashSenha := StrToIntDef(HashSenha, -1);

    if (fsHashSenha < 1) then  { INI antigo não tinha essa chave }
    begin
       wSenha := Senha;
       if (wSenha <> '') then
         fsHashSenha := StringCrc16(wSenha);
    end;

    if (fsHashSenha > 0) then
    begin
       cbSenha.Checked := True;
       edSenha.Text := 'NADAAQUI';
    end;

 

 

[nebrio]

@JSantos e @José M. S. Junior obrigado pela LUZ que vocês me deram, o problema era justamente a variável _C .

Obrigado mesmo e me perdoem meu Pascal ainda é bem horrível... e não estava encontrando as informações.