GARANTIR DESCONTO

Fórum AES dll (como usar) #485742

16/07/2014

0

Delphi

Eu baixei o código fonte do AES dll nesse link http://www.torry.net/vcl/security/strong/aesdll-release-0.1.zip,este por sua vez, não contém o arquivo de extensão .dll, apenas o código, mas o aes.dll pode ser baixado nesse no link [url:descricao=http://www.nodevice.com/dll/aes_dll/item1544.html#.U8bxJ_ldUxY]http://www.nodevice.com/dll/aes_dll/item1544.html#.U8bxJ_ldUxY[/url] mas não consegui usá-lo, eu coloquei aesdll na seção uses e criei um Form Application e implementei o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
begin
EncodeFile(Edit4.Text,Edit1.Text,Edit2.Text+'\'+Edit3.Text+'.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DecodeFile(Edit4.Text,Edit1.Text,Edit2.Text+'\'+Edit3.Text+'.txt');
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:= OpenDialog1.FileName;
end;

procedure TForm1.Edit2Click(Sender: TObject);
var
  selDir : string;
begin
  SelectDirectory('Selecione uma pasta', 'C:\Users\\', selDir);
  edit2.Text:=seldir;
end;
end.


Edit1 e OpenDialog1 pra receber o nome com o local do arquivo a ser criptografado.
Edit2 pra receber o diretório onde o arquivo criptografado será salvo.
Edit3 pra digitar o nome do arquivo criptografado que será salvo.
Edit4 para digitar a senha.
Button1 pra chamar o método EncodeFile.
Button2 pra chamar o método DecodeFile.

O compilador não acusa erro algum, ele simplesmente não abre o form principal do meu programa.
Agradeço desde já.
Andrew Vargas

Andrew Vargas

Responder

Posts

17/07/2014

Andrew Vargas

Para maiores detalhes, o programa não abre, mas se eu procuro o arquivo executável que o compilador gera e o executo, ele apresenta a seguinte mensagem:

"Não foi possível localizar o ponto de entrada do procedimento
_aes_enc_blk@12 na biblioteca de vínculo dinâmico aes.dll"

Mas se eu apago o comando:
EncodeFile(Edit4.Text,Edit1.Text,Edit2.Text+'\'+Edit3.Text+'.txt');


o programa gera outro erro, e aparece a mensagem:

"Não foi possível localizar o ponto de entrada do procedimento
_aes_dec_blk@12 na biblioteca de vínculo dinâmico aes.dll"

E se eu apago o comando:

EncodeFile(Edit4.Text,Edit1.Text,Edit2.Text+'\'+Edit3.Text+'.txt');


O programa roda normalmente, mas obviamente não serve para nada, ou seja, as duas mensagem indicam que o programa não consegue achar o ponto de entrada dos métodos
EncodeFile e DecodFile.

Eu nuca usei um arquivo dll, tenho várias dúvidas, onde devo colocar o arquivo dll? O arquivo .dcu deve ir junto? Estou implementando corretamente no programa? Será que o problema não está no arquivo aes.dll?

Obrigado
Responder

Gostei + 0

19/07/2014

Ricardo

Boa tarde amigo.

Tem como enviar o fonte do aes e a dll para testar?
Responder

Gostei + 0

19/07/2014

Andrew Vargas

Claro Ricardo, me passe seu e-mail que eu lhe mando a fonte e o dll.

PS: Os links do código fonte e do aes.dll estão na minha pergunta, mas caso vc não consiga acessar eu mando por e-mail se desejar
Responder

Gostei + 0

20/07/2014

Ricardo

Claro Ricardo, me passe seu e-mail que eu lhe mando a fonte e o dll.

PS: Os links do código fonte e do aes.dll estão na minha pergunta, mas caso vc não consiga acessar eu mando por e-mail se desejar


Então, acontece que o link para o código fonte, esta off. No caso o código fonte seria mais interessante para poder saber como declarar a classe e chamar a função.
Se tiver como enviar ricardo.cardosoti@gmail.com.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar