Eu utilizei da seginte forma.
LbRSA1.PrimeTestIterations := StrToIntDef(MD5Print(MD5String(strL.Text)),
0);
LbRSA1.KeySize := TLbAsymKeySize(4);
LbRSA1.GenerateKeyPair;
strL.Add('EAD' + LbRSA1.PublicKey.ModulusAsString);
Peguei esse codigo dentro dos exemplos do componente, o keysize peguei no
help se você verificar você verá os numeros de cada tamanho de chave.
Sem mais,
Ricardo Lino Gonzalez
Em 29/01/08, Alcistemas Informática <[EMAIL PROTECTED]> escreveu:
>
> então, quanto ao MD5 ok, realmente obtenho ele apartir dos registros
> E00..E21
> só nao sei criar a criptografia RSA 1024... do meu MD5
> '
> se puder me ajudar ficarei muito grato...
>
> ----- Original Message -----
> From: Ricardo LG
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Sent: Monday, January 28, 2008 5:45 PM
> Subject: Re: [delphi-br] Registro EAD
>
> Boa tarde,
>
> Para você gerar o registro EAD
> você deve passar o MD5 em todo o arquivo E00, E01, E02, E12, E13, E14,
> E15,
> E16, E21 sem o EAD( porque você está gerando agora )
>
> apos gerar o MD5 você deve utilizar a criptografia RSA 1024 bytes no
> resultado do MD5
>
> E pelo que entendi do manual não é necessario você ter uma chave privada
> para cada cliente seu, no meu sistema estou gerando ela aleatoriamente.
>
> Cordialmente,
>
> Ricardo Lino Gonzalez
>
> Em 28/01/08, Alcistemas Informática <[EMAIL
> PROTECTED]<alcistemas%40yahoo.com.br>>
> escreveu:
> >
> > nao consigo gerar o registro EAD da nota fiscal paulista, é a única
> > coisa que falta...
> > poderia me ajudar ?
> >
> > os componentes que vc citou ja consegui instalar no meu delphi 7 porém
> nao
> > tenho idéia como usar, poderia me ajudar?
> >
> > var
> > ChavePrivada:String;
> > MD5:String;
> > begin
> >
> >
> >
> ChavePrivada:='FD77CA3D135392E19277410F76861948F18193EECB5C44F91E0C02A278B5F6DC484FAC181';
> >
> >
> ChavePrivada:=ChavePrivada+'D614BF7D6FA53B96138901394182D63863B6B554342113DDFD8BC6A60E1CB38BD5E242E745659015754F7430254458C154038D98CF01882EF0730E3DDEA64207C68DCFE5F7756BE79DC3A91A50B6573C04298FA685ED6077DEDE962';
> >
> > lbRSA1.PrivateKey.Passphrase := ChavePrivada;
> >
> > MD5:='6DF2496749AEA030CE995DEA17BF34ED';
> >
> > EAD := lbRSA1.EncryptString(MD5);
> >
> > estou fazendo assim porém demora muito e não me cripografa.
> >
> > cada cliente terá que ter uma chave privada fixa, ou seja, sempre vou
> > utilizar essa chave para meu cliente Y ????
> >
> > Alcione Guimarães
> > e-mail: [EMAIL PROTECTED]
> > <alcistemas%40yahoo.com.br><alcistemas%40yahoo.com.br>
> > Cel: 11-...
> > SIP VOIP: 3301040
> > SKYPE: alcistemas
> > msn: [EMAIL PROTECTED] <alcistemas%40hotmail.com><alcistemas%40hotmail.com>
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
