Aiutino socket

[Flavio Bosio]

Salve a tutti,

Stavo mettendo a punto un client ocsp per vedere se sia possibile
realizzare un server ocsp in perl, comunque..

apro la connessione con il server e sparo l'header
print $remote "POST / HTTP/1.0\n";
print $remote "Content-Type: application/ocsp-request\n";
print $remote "Content-Length: 105\n";
print $remote "\n";

poi apro i file req.der e resp.der in binmode

quindi faccio un
while (read(REQ, $buff, 8 * 2**10)) {
print $remote $buff;
}

while ( <$remote> )
{
print RESP $_;
}

problema è che in realtà non sto scrivendo *solo* il resp.der ma tutto
ciò che proviene dal server per cui ovviamente il file resp.der risulta
illeggibile

openssl ocsp -respin resp.der -text

Error reading OCSP response
15451:error:0D0680A8:asn1 encoding routines:ASN1_CHECK_TLEN:wrong
tag:tasn_dec.c:1306:
15451:error:0D07803A:asn1 encoding routines:ASN1_ITEM_EX_D2I:nested asn1
error:tasn_dec.c:380:Type=OCSP_RESPONSE


ovviamente perché se faccio un cat resp.der vedo pure
HTTP/1.0 200 OK
Content-type: application/ocsp-response
Content-Length: 1231

ora come elimino le suddette tre linee da un file binario?
O c'è modo di intercettarle ed eliminarle prima di scrivere il file?

[Flavio Bosio]

Il 02/12/11 17.03, Flavio Bosio ha scritto:

> ovviamente perché se faccio un cat resp.der vedo pure
> HTTP/1.0 200 OK
> Content-type: application/ocsp-response
> Content-Length: 1231

Aggiungo, in effetti se apro il file con vi vedo

HTTP/1.0 200 OK^M
Content-type: application/ocsp-response^M
Content-Length: 1231^M
^M

ed eliminado le prime 4 linee a mano con dd il file risultante funziona.