 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
caioocorrea
Novato
Registrado: Quarta-Feira, 15 de Junho de 2011
Mensagens: 28
|
 Enviada: Qua Jul 06, 2011 10:21 pm Assunto: TurboPower LockBox |
 |
|
Boa noite galera, estou realmente apanhando pra instalar esse componente. Na instalação, ele tenta encontrar o compilador delphi mas na lista não encontra nada. E quando eu pego o componente pra instalar como instalo normalmente os outros componentes , na hora de compilar ele diz que não consegue encontrar *.bpl. O óbvio é claro que ainda não tem o bpl porque estou querendo gerar e dá falha.
O que estou precisando é o mesmo do rapaz do tópico citado abaixo:
http://www.activedelphi.com.br/forum/viewtopic.php?p=332778&sid=f7c64e6312b70812b41686316247365b
Preciso gerar o mesmo que ele e não consegui, enviei MP e o mesmo não respondeu. No tópico dele, ele informou que usou esse componente mas até agora nada confirmado ;/
Alguém pode ajudar?
obrigado
Caio |
|
| Voltar ao Topo |
|
 |
caioocorrea
Novato
Registrado: Quarta-Feira, 15 de Junho de 2011
Mensagens: 28
|
| Enviada: Qui Jul 07, 2011 12:31 pm Assunto: |
|
|
Up para não cair no esquecimento e também para mostrar o que eu tentei:
| Código: |
var
base64Codifida, valorConcatenado, senha: ansiString;
xByte: TByteArr;
I: Integer;
Digest: Dig;
Sha1: TIdHashSHA1;
AEnc: TIdEncoderMIME;
sInput: String;
sEncOutput: String;
begin;
base64Codifida := Edit3.Text;
sInput := GetSha1('1234');
AEnc := TIdEncoderMIME.Create(Nil);
sEncOutput := AEnc.EncodeString(sInput);
AEnc.Free;
xByte := ArrOfByte('1234');
DCP_sha11.Init;
DCP_sha11.UpdateStr('1234');
DCP_sha11.Final(Digest);
for I := 0 to High(Digest) do
begin
senha := senha + (char(Digest[I]));
end;
Memo1.Lines.Add('Senha: ' + senha);
Memo1.Lines.Add('Indy: ' + sInput);
Memo1.Lines.Add('Primeira tentativa: ' + B64Encode(senha));
Memo1.Lines.Add('Segunda tentativa: ' + Encode64(senha));
Memo1.Lines.Add('Terceira tentativa: ' + IdEncoderMIME1.EncodeString(senha));
Memo1.Lines.Add('Quarta tentativa: ' + Base64Encode(senha));
Memo1.Lines.Add('Quinta tentativa: ' + Base64EncodeW(senha));
Memo1.Lines.Add('Sexta tentativa: ' + Encode_Base64(senha));
Memo1.Lines.Add('Sétima tentativa: ');
for I := 0 to Length(xByte) - 1 do
valorConcatenado := valorConcatenado + (IntToStr(xByte[I]));
Memo1.Lines.Add(valorConcatenado + ' total: ' + IntToStr(Length(xByte)));
Memo1.Lines.Add('Oitava tentativa:' + sEncOutput);
Memo1.Lines.Add('Nona tentativa: ' + Base64Encode1(senha));
|
Essas foram as tentativas frustradas da geração. Preciso gerar o SHA, retornar em bytes e depois jogar o Base64 Encode mas não consigo gerar igual. Aguardo com ansiedade a ajuda de vocês.
Resultado esperado : cRDtpNCeBiql5KOQsKVyrA0sAiA=
Resultados encontrados:
| Código: |
Indy: 7110EDA4D09E062AA5E4A390B0A572AC0D2C0220
Primeira tentativa: uQnhNg ¹qQ6ÚPwpØLQ?-5Qå`tQr=
Segunda tentativa: kU5TDjhFgN3OFty/BIMpvM1qjN8
Terceira tentativa: ueFdNtrPqXDYP38/LSWz5WB0tXI=
Quarta tentativa: ueFdNtrPqXDYP38/LSWz5WB0tXI=
Quinta tentativa: uQDhAF0ANgDaAM8AqQBwANgAPwB/AD8ALQAlALMA5QBgAHQAtQByAA==
Sexta tentativa: ueFdNtrPqXDYP38/LSWz5WB0tXI
Sétima tentativa:
1234 total: 4
Oitava tentativa:NzExMEVEQTREMDlFMDYyQUE1RTRBMzkwQjBBNTcyQUMwRDJDMDIyMA==
Nona tentativa: ueFdNtrPqXDYP38/LSWz5WB0tXI=
|
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
