Dificuldade para criptografar senha do certificado digital

[Márcio Barreto Santana]

Boa tarde!!!

Sou novato aqui no ACBr.

estou com dificuldades para encontrar alguma maneira para criptografar a senha do certificado no ACBrMonitor.ini

a senha que estou informando é (38154646 )

pelo o q notei, o ACBrMonitor criptografa essa senha e salva assim:

Eu uso o VB.Net 2010. Alguém sabe me informar algum algorítimo e quais os parâmetros que o ACBr.monitor usa para criptografar? 

 

 

Editado 18 Agosto, 2018 por Márcio Barreto Santana
Duplicação da imagem

[nebrio]

Amigo, procurei pelos meus posts no fórum sobre isso.

Você deverá ter o lazarus pelo menos para encontrar e visualizar como é o código de criptografia e reproduzir isso na linguagem que você usa.

[Daniel Simoes]

Veja esse tópico:

 

[Márcio Barreto Santana]

Bom dia Daniel.

Obrigado pelo seu retorno. este tipo de feedback.

Eu já uso alguns algorítimos para criptografar. Pretendo realizar alguns teste. No entanto eu gostaria de saber qual é a chave que o ACr Monitor usa pra realizar esta criptografia?

abaixo tenho um exemplo dos que uso:

Do qual em vermelho (No Código) é a chave de criptografia.

[Daniel Simoes]

Está descrito no tópico que indiquei...

[abrahaofv]

Em 20/08/2018 at 11:03, Márcio Barreto Santana disse:

Bom dia Daniel.

Obrigado pelo seu retorno. este tipo de feedback.

Eu já uso alguns algorítimos para criptografar. Pretendo realizar alguns teste. No entanto eu gostaria de saber qual é a chave que o ACr Monitor usa pra realizar esta criptografia?

abaixo tenho um exemplo dos que uso:

Do qual em vermelho (No Código) é a chave de criptografia.

Também trabalho com com outra linguagem, não consegui migrar a criptografia para VB.NET.

Minha solução foi criar um projeto em Delphi que faz essa alteração para mim. Eu copiei as unidades do acbr que fazem a criptografia e fiz o meu sistema criar um arquivo .INI com a senha para alterar, dai ele chama esse  "sisteminha" eu leio a senha, faço a criptografia, salvo no arquivo .INI de configuração do acbrmonitor e fecha sozinho. Veja como ficou abaixo:

 

Arquivo INI que o sistema abaixo lê:

[ACBR]
senha=12345678
caminho=C:\ACBrMonitorPlus\

 

Sistema:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ACBrUtil, Vcl.StdCtrls, IniFiles;

type
  TForm3 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure GravaINICrypt(INI : TIniFile; Section, Ident, AString, Pass : String );
  end;

var
  Form3: TForm3;

const
  _C = 'tYk*5W@';

implementation

{$R *.dfm}

Procedure TForm3.GravaINICrypt(INI : TIniFile; Section, Ident, AString, Pass : String );
 var SStream  : TStringStream ;
     CryptStr : String ;
begin
  CryptStr := StrCrypt( AString, Pass) ;
  SStream := TStringStream.Create(CryptStr) ;
  try
     INI.WriteBinaryStream(Section, Ident, SStream) ;
  finally
     SStream.Free ;
  end ;
end ;

procedure TForm3.FormCreate(Sender: TObject);
var
  senha: string;
  Ini: TIniFile;
  IniGSECF: TIniFile;
  ACBrMonitorINI: string;
  DirGSECF: string;
begin
  try
    //Carrega caminho do arquivo ini (que contem a senha e o caminho do acbr) gerado pelo meu sistema.
    DirGSECF := (ExtractFilePath(Application.ExeName) + 'ParAcbrGsecf.ini');
    //DirGSECF := ('D:\Documentos\SharpDevelop Projects\wingsecf modelo 55 implementado\bin\Debug\ParAcbrGsecf.ini');

    IniGSECF := TIniFile.Create(DirGSECF);

    //Ler arquivo ini criado ao salvar empresa no meu sistema (e senha for diferente do salvado no banco) no módulo GSECF
    senha          := IniGSECF.ReadString('ACBR', 'senha', '');
    ACBrMonitorINI := IniGSECF.ReadString('ACBR', 'caminho', '');

    ACBrMonitorINI := ACBrMonitorINI + 'ACBrMonitor.ini';

    Ini := TIniFile.Create(ACBrMonitorINI);

    GravaINICrypt(INI, 'Certificado', 'Senha', senha, _C);
  except

  end;

  self.Close;

  Application.Terminate;
end;

end.

 

Editado 22 Agosto, 2018 por abrahaofv