* * * *

Privacy Policy

Forum ufficiale

Se non siete riusciti a reperire l'informazione che cercavate nei nostri articoli o sul nostro forum vi consiglio di visitare il
Forum ufficiale di Lazarus in lingua inglese.

Lazarus 1.0

Trascinare un file nel programma
DB concetti fondamentali e ZeosLib
Recuperare codice HTML da pagina web
Mandare mail con Lazarus
Stabilire il sistema operativo
Esempio lista in pascal
File INI
Codice di attivazione
Realizzare programmi multilingua
Lavorare con le directory
Utilizzare Unità esterne
TTreeView
TTreeview e Menu
Generare controlli RUN-TIME
LazReport, PDF ed immagini
Intercettare tasti premuti
Ampliare Lazarus
Lazarus e la crittografia
System Tray con Lazarus
UIB: Unified Interbase
Il file: questo sconosciuto
Conferma di chiusura di un applicazione
Liste e puntatori
Overload di funzioni
Funzioni a parametri variabili
Proprietà
Conversione numerica
TImage su Form e Panel
Indy gestiore server FTP lato Client
PopUpMenu sotto Pulsante (TSpeedButton)
Direttiva $macro
Toolbar
Evidenziare voci TreeView
Visualizzare un file Html esterno
StatusBar - aggirare l'errore variabile duplicata
Da DataSource a Excel
Le permutazioni
Brute force
Indy 10 - Invio email con allegati
La gestione degli errori in Lazarus
Pascal Script
Linux + Zeos + Firebird
Dataset virtuale
Overload di operatori
Lavorare con file in formato JSON con Lazarus
Zeos ... dietro le quinte (prima parte)
Disporre le finestre in un blocco unico (come Delphi)
Aspetto retrò (Cmd Line)
Lazarus 1.0
Come interfacciare periferica twain
Ubuntu - aggiornare free pascal e lazarus
fpcup: installazioni parallele di lazarus e fpc
Free Pascal e Lazarus sul Raspberry Pi
Cifratura: breve guida all'uso dell'algoritmo BlowFish con lazarus e free pascal.
Creare un server multithread
guida all'installazione di fpc trunk da subversion in linux gentoo
Indice
DB concetti fondamentali e connessioni standard
Advanced Record Syntax
DB concetti fondamentali e DBGrid
DB concetti fondamentali e TDBEdit, TDBMemo e TDBText
Advanced Record Syntax: un esempio pratico
Superclasse form base per programmi gestionali (e non)
Superclasse form base per programmi gestionali (e non) #2 - log, exception call stack, application toolbox
Superclasse form base per programmi gestionali (e non) #3 - traduzione delle form
Superclasse form base per programmi gestionali (e non) #4 - wait animation
Un dialog per la connessione al database:TfmSimpleDbConnectionDialog
Installare lazarus su mac osx sierra
immagine docker per lavorare con lazarus e free pascal
TDD o Test-Driven Development
Benvenuto! Effettua l'accesso oppure registrati.
Luglio 12, 2020, 04:51:41 am

Inserisci il nome utente, la password e la durata della sessione.

15 Visitatori, 0 Utenti

Autore Topic: PKCS7 vuoto  (Letto 1776 volte)

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 2865
  • Karma: +9/-0
Re:PKCS7 vuoto
« Risposta #15 il: Marzo 12, 2019, 08:31:08 am »
Domanda stupida stupida, se pensi che il problema sia tra windows/linux. Hai provato a vedere su linux cosa leggi? Trovi anche li i caratteri strani? Che encoding ha il file su linux? Con che encoding apri il file su windows?
Ieri è passato, domani è futuro, oggi è un dono...

giuian

  • Newbie
  • *
  • Post: 14
  • Karma: +0/-0
Re:PKCS7 vuoto
« Risposta #16 il: Marzo 12, 2019, 06:32:49 pm »
Ho solo Linux.... Sono Windows free da parecchio.
Ma non mi riferivo alla soluzione ignorante....  Mi riferivo ad Openssl

giuian

  • Newbie
  • *
  • Post: 14
  • Karma: +0/-0
Re:PKCS7 vuoto
« Risposta #17 il: Marzo 13, 2019, 08:42:25 am »
La soluzione ignorante funziona ... almeno con i file che ho provato io.
Se qualcuno vuole provare o apportare migliorie...
Questa è versione per riga di comando.

Codice: [Seleziona]
program estraip7m;

{$mode objfpc}{$H+}
uses
   Classes, FileUtil, Strutils, SysUtils,DOM, XMLRead, base64;
var
  vstrm : TFilestream;
  S : Tstringstream;
  fPos,Lpos,count :integer;
  xmlfile,p7mfiltrato : Utf8string;
  j: integer;
  Str : string;
  XML : TXMLDocument;

begin

   vstrm := TFileStream.Create(ParamStr(1), fmOpenRead);

   // Apre p7m
   if ExtractfileExt(ParamStr(1)) = '.p7m' then
   begin
     vstrm.Position:= 0;
     S := TStringStream.Create('');
     S.Size := vstrm.Size;
     S.CopyFrom(vstrm, vstrm.Size);
     S.Position := 0;
     vstrm.Free;
     p7mfiltrato := '';
      // filtra caratteri speciali
     for j := 1 to Length(s.datastring) do
     if not ((s.datastring[j] in [#1..#12,#14..#30]) or (s.datastring[j] > char(127))) then
        p7mfiltrato := p7mfiltrato+s.datastring[j];


     // Ricerca tag xml per estrazione
     FPos := Pos('<?xml version', p7mfiltrato);
     LPos := Pos(':FatturaElettronica>', p7mfiltrato)+20;
     Count := Lpos - FPos;
     xmlfile:= MidStr(p7mfiltrato, FPos, Count);
     S.Free;
     // Salva xml
     S := Tstringstream.Create(xmlfile);
     vstrm := TFileStream.Create(StringReplace(ParamStr(1),'.xml.p7m','.xml',[rfReplaceAll]), fmCreate);
     vstrm.CopyFrom(S,S.Size);
     // Legge XML per attachment pdf
     S.Position:= 0;
     ReadXMLFile(XML, S);
     s.free;
     // Se esiste allegato e se PDF estrai e salva
     if  (XML.DocumentElement.GetElementsByTagName('Attachment').Count > 0) and (XML.DocumentElement.GetElementsByTagName('FormatoAttachment').item[0].LastChild.TextContent = 'PDF')  then
     begin
       writeln('Estrazione pdf');
       vstrm.Free;
       vstrm := TFileStream.Create(StringReplace(ParamStr(1),'.xml.p7m','.pdf',[rfReplaceAll]), fmOpenWrite or fmCreate);
       vstrm.Position := 0;
       Str := DecodeStringBase64(XML.DocumentElement.GetElementsByTagName('Attachment').Item[0].LastChild.TextContent);
       vstrm.Write(Pointer(Str)^, Length(Str) div SizeOf(Char));
     end;
   end
   else
    writeln('Tipo di File non supportato');

   vstrm.Free;
end.   
« Ultima modifica: Marzo 13, 2019, 08:45:01 am da giuian »

bonmario

  • Hero Member
  • *****
  • Post: 862
  • Karma: +1/-1
Re:PKCS7 vuoto
« Risposta #18 il: Marzo 13, 2019, 07:37:13 pm »
Purtroppo il tuo codice è "personalizzato" sui p7m della fattura elettronica.
L'ho comunque salvato, appena riesco, vedo se riesco ad adattarlo ai p7m che scarico dal sito del mio comune.

Ciao, Mario

Stilgar

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2118
  • Karma: +6/-0
Re:PKCS7 vuoto
« Risposta #19 il: Marzo 13, 2019, 07:54:20 pm »
Ciao Mario.Il sito del tuo comune, usa per caso Halley come fornitore?Se sì mi puoi dare il numero cliente?
Dovresti trovare qualche cosa del tipoc028049
(ed eventualmente sac???.halleysac.it se il comune ha pagato poco per masherare il server halley :) )Altrimenti se mi passi il link del comune, anche come messaggio privato, posso vedere di aiutarti a sbustare il documento :)
Stilgar

Al mondo ci sono 10 tipi di persone ... chi capisce il binario e chi no.

bonmario

  • Hero Member
  • *****
  • Post: 862
  • Karma: +1/-1
Re:PKCS7 vuoto
« Risposta #20 il: Marzo 13, 2019, 08:08:46 pm »
Non lo so ... tra l'altro ora sono su Linux e, non so perché, ma non mi fa fare ricerche all'interno di quel file ...
In ogni caso, è un atto pubblico, quindi c'è niente di male nel pubblicare il link ...

Eccolo:
http://casellelurani.trasparenza-valutazione-merito.it/web/trasparenza/papca-ap/-/papca/display/4605089?p_auth=42wyi8Yz&p_p_state=pop_up

Una volta aperto, sulla destra c'è un solo documento che ha 2 icone sotto la colonna "Scarica". Se clicchi sulla prima icona, ti scarica il file p7m, se clicchi sulla seconda, ti scarica il suo equivalente pdf non firmato.

Grazie, Mario

 

Recenti

How To

Utenti
  • Utenti in totale: 676
  • Latest: Twowal
Stats
  • Post in totale: 13762
  • Topic in totale: 1726
  • Online Today: 19
  • Online Ever: 900
  • (Gennaio 21, 2020, 08:17:49 pm)
Utenti Online
Users: 0
Guests: 15
Total: 15

Disclaimer:

Questo blog non rappresenta una testata giornalistica poiché viene aggiornato senza alcuna periodicità. Non può pertanto considerarsi un prodotto editoriale ai sensi della legge n. 62/2001.