PKCS7 vuoto

[giuian]

Buongiorno,
sto cercando di estrarre il contenuto di un file p7m, non avendo trovato niente ho provato ad adattare una procedura delphi..
Ubuntu 64bit, lazarus 1.8.4 Openssl ver 1.0.1F.
Gli handler delle funzioni vengono caricati correttamente dalle librerie libcrypto.so e libssl.so

Funziona tutto, ma arrivati al punto dell'estrazione, nonostante il buffer sia riempito correttamente , il BIO  viene creato .... forse vuoto?

  // Read from stream
  if Stream.Read(Buffer[0], iDataLength) = iDataLength then begin
    // Create BIO from this memory
    fBIO := mFunctions.BIO_new_mem_buf(@Buffer), iDataLength);

    if fBIO <> nil then begin
      // Tries to read this as a .P7M file.
      fPKCS7 := mFunctions.d2i_PKCS7_bio(fBIO, nil);

Il puntatore punta ad un record PKCS7 vuoto ....

Qualcuno può aiutarmi??
Maledetta fattura elettronica....

[bonmario]

Ciao,
non ti so aiutare, ma ti posso dire una cosa: da tempo ho uno script Linux che mi permette di sproteggere i files p7m.
Questo script, a volte funziona, a volte no.
Non ho mai indagato a fondo, perché di solito quelli che non riesco a sproteggere con lo script li sproteggo direttamente online, ma mi sono fatto l'idea che ci siano diversi tipi di files .p7m, nonostante l'estensione sia la stessa.
Non vorrei che il file su cui stai testando il tuo programma sia uno di quelli da gestire in un altro modo.

Ciao, Mario

[giuian]

Si, esistono diverse codifiche, ma la procedura dovrebbe gestirle tutte.... Non l'ho provata su Windows con  Delphi ma immagino che funzioni.
Sono veramente in un vicolo cieco anche perché il mio livello è abbastanza basso. Ci vuole l'intervento di un guru!

[nomorelogic]

ho visto che nei sorgenti fpc c'è una implemetazione openssl

https://svn.freepascal.org/cgi-bin/viewvc.cgi/trunk/packages/openssl/

dai un'occhiata se ti può essere utile in sostituzione della libreria Delphi

[giuian]

Grazie, quella libreria è la stessa di Synapse. In realtà le funzioni vengono chiamate direttamente dalle librerie

 var
 HC: HMODULE;
 .............

 HC := LoadLibrary('libcrypto.so');
 BIO_new_mem_buf := GetProcAddress(HC, 'BIO_new_mem_buf');

 le funzioni vengono caricate e inizializzate correttamente.....

 Non so ... possibile che non ci abbia mai provato nessuno??

[Mimmo]

Ciao,
premesso che non ne so niente e ti scrivo solo perchè una soluzione non è ancora apparsa all'orizzonte, a questo indirizzo c'è un esempio per Delphi:
http://www.csita.unige.it/software/free/delphiopenssl-spostato-al-DISI/example5.html
Lì utilizza in cascata 3 funzioni diverse: prima d2i_PKCS7_bio, poi se fallisce usa PEM_read_bio_PKCS7 e se fallisce anche questa usa SMIME_read_PKCS7. Forse il file è in qualche formato diverso da quello previsto?

[nomorelogic]

Non so ... possibile che non ci abbia mai provato nessuno??

se non hai urgenza (= qualche giorno di pazienza) dovrei provare anche io, magari mettendo insieme le prove riusciamo a fare dei progressi
in alternativa puoi chiedere sul forum ufficiale, li sicuramente qualcuno dovrebbe rispondere

[Stilgar]

La documentazione di riferimento dovrebbe essere questa.https://www.ietf.org/rfc/rfc2633.txt

[giuian]

Ciao,
premesso che non ne so niente e ti scrivo solo perchè una soluzione non è ancora apparsa all'orizzonte, a questo indirizzo c'è un esempio per Delphi:
http://www.csita.unige.it/software/free/delphiopenssl-spostato-al-DISI/example5.html
Lì utilizza in cascata 3 funzioni diverse: prima d2i_PKCS7_bio, poi se fallisce usa PEM_read_bio_PKCS7 e se fallisce anche questa usa SMIME_read_PKCS7. Forse il file è in qualche formato diverso da quello previsto?

Si l'avevo visto ... ma se il test di codifica fallisce il puntatore è nil .... invece nel mio caso il puntatore punta ad un record PKCS7 vuoto. In generale i PKCS7 delle fatture dovrebbero essere DER, quindi buona la prima (d2i_PKCS7_bio). Deve essere una sciocchezza ne sono sicuro....

[giuian]

Non so ... possibile che non ci abbia mai provato nessuno??

se non hai urgenza (= qualche giorno di pazienza) dovrei provare anche io, magari mettendo insieme le prove riusciamo a fare dei progressi
in alternativa puoi chiedere sul forum ufficiale, li sicuramente qualcuno dovrebbe rispondere

Oramai ci sto sbattendo da un pò e mi sono quasi rassegnato .... quindi non ho molte alternative all'aspettare!! 

La documentazione di riferimento dovrebbe essere questa.https://www.ietf.org/rfc/rfc2633.txt

Grazie, la documentazione è sempre utile, ma in questo caso sono delle funzioni inserite in una procedura funzionante su altri sistemi (Delphi + Windows). Le funzioni Openssl dovrebbero essere uguali..... Mah


In realtà credo che più che un problema Delphi/Lazarus sia un problema Windows/Linux ....
Per Openssl su windows c'è libeay32.dll ... su Linux i compiti sono divisi fra libssl.so e libcrypto.so

A prescindere da questo, nel momento in cui le funzioni vengono caricate correttamente dalle librerie visto che openssl è uno standard le funzioni dovrebbero funzionare ugualmente.

[Stilgar]

Hai provato... Molto stupidamente ad aprire col notepad il file p7m?
Se non devi controllare i certificati... 😜

[giuian]

Hai provato... Molto stupidamente ad aprire col notepad il file p7m?
Se non devi controllare i certificati... 😜

Ti diro di più ... ho tagliato il file cercando gli header <xml .... ma il file risultante è sporcato da caratteri strani... credo siano ascii sotto a 10....

[Stilgar]

Allora il trucco ignorante lo conosci 😂😂😂
Cmq. Se puoi processare i singoli caratteri poi per bonificare il testo prima di leggerlo come xml dovresti poter avere un'approssimazione del giro corretto.

😉

[Stilgar]

Dubbio. Togli la coda del file o dai tutto in pasto al parser?

[giuian]

Allora il trucco ignorante lo conosci 😂😂😂

Ad ignoranza me la cavo bene .... 

Dubbio. Togli la coda del file o dai tutto in pasto al parser?

     FPos := Pos('<?xml version', S.DataString);
     LPos := Pos(':FatturaElettronica>', S.DataString)+20;
     Count := Lpos - FPos;
     xmlstringa := MidStr(s.DataString, FPos, Count);     

  ogni tanto trovo         Co‚èdiceArticolo><Descrizione>     

    no riesco a filtrarli tutti ....