2 messaggi dal 20 novembre 2014
Scusate ma e' la prima volta che interrogo un webService
Dovrei invocare un Web Service del ministero della finanze (sanita)
Ho provato a scrivere questo codice ma riconsegna un errore
Impossibile stabilire relazioni di trust per il canale sicuro SSL/TLS con l'autorità 'demservicetest.sanita.finanze.it

Grazie per la collaborazione


Dim b As New BasicHttpBinding
b.Security.Mode = SecurityMode.TransportWithMessageCredential
b.Security.Transport.ClientCredentialType = HttpClientCredentialType.Basic

Dim EndPoint As New EndpointAddress("https://demservicetest.sanita.finanze.it/DemRicettaErogatoServicesWeb/services/demVisualizzaErogato")

Dim invio As New ServiceReference1.visualizzaErogatoPTClient(b, EndPoint)

Dim Certificato As New X509Certificate2
Certificato.Import("c:\newdem\Cetificato.cer")'--->Certificato SSL
invio.ClientCredentials.ClientCertificate.Certificate = Certificato
invio.ClientCredentials.UserName.UserName = "UWT3CBXX"
invio.ClientCredentials.UserName.Password = "PBUW9EBP"
Dim Richiesta As New ServiceReference1.visualizzaErogatoRequest
Dim Ricevuta As New ServiceReference1.visualizzaErogatoResponse
Dim Richi As New ServiceReference1.VisualizzaErogatoRichiesta
Dim Ricev As New ServiceReference1.VisualizzaErogatoRicevuta
Richi.cfAssistito = "T8L5DQ4L7vZWEQ3gGWUhMYYRoGZAIsZSCZ4AieAmIKZ85B6HarO5s/jhtnp5m4r44JiwBRPYyYxtzP4npmLyk8zFSSuVxDAU3oaUdO0lOnDWKZjf886o2nbmSsPEiXYlTaJnWRU420qrQ4Sa2HfEK/32wXsOSq7TCpoMFYhkXeA="
Richi.codiceAslErogatore = "190"
Richi.codiceRegioneErogatore = "201"
Richi.codiceSsaErogatore = "888888"
Richi.nre = "1900A4000004510"
Richi.pinCode = "0Gv1vsTpzlvRD9kBd8FVLo2/441rZ8rRZVf0Zi9eO6+L7kme0KC8Vx6ZjRj/4JjA4aHPTCi3D6YW9OtmYkIpW7sfchmhqHdVORBZHPitiPHdr5iIipAhIzBhFOQIPfpYasW5cQmU//uNB4GSWSNDIkaqdMrDjTPpIkbKKeoA4dQ="
Richi.pwd = "PBUW9EBP"
Richi.tipoOperazione = "1"
invio.Open()
Dim ab As String = invio.State.ToString

Ricevuta = invio.ServiceReference1_visualizzaErogatoPT_visualizzaErogato(Richiesta)
11.886 messaggi dal 09 febbraio 2002
Contributi
ciao Marcello, benvenuto nel forum!
Anche altri utenti si sono trovati nella tua stessa situazione; abbiamo già trattato il problema in questo thread.
http://forum.aspitalia.com/forum/post/404763/Problemi-Autenticazione-Web-Service-Dotnet-Utilizza-Protocollo-Https-Autenticazione.aspx?PageIndex=1

ciao,
Moreno

Enjoy learning and just keep making
2 messaggi dal 20 novembre 2014
Grazie Moreno per aver preso in considerazione la mia richiesta.

Perdona la mia ignoranza
ma dopo aver scritto il seguente codice non riesco a mandare la mia richiesta al WS secondo queste modalita':
'"POST /DemRicettaErogatoServicesWeb/services/demVisualizzaErogato HTTP/1.1[\r][\n]"
"Accept-Encoding: gzip,deflate[\r][\n]"
"Content-Type: text/xml;charset=UTF-8[\r][\n]"
"SOAPAction: "http://visualizzaerogato.wsdl.dem.sanita.finanze.it/VisualizzaErogato"[\r][\n]"
"Authorization: Basic VVYzODZRNUI6U0FMVkU=[\r][\n]"
"Content-Length: 1044[\r][\n]"
"Host: demservicetest.sanita.finanze.it[\r][\n]"
"Connection: Keep-Alive[\r][\n]"
"User-Agent: Apache-HttpClient/4.1.1 (java 1.5)[\r][\n]"



Grazie per la disponibilita'



-----------------------------------------------------------------------
Dim b As New WSHttpBinding()
b.Security.Mode = SecurityMode.TransportWithMessageCredential
b.Security.Transport.ClientCredentialType = HttpClientCredentialType.Basic
Dim EndPoint As New EndpointAddress("https://demservicetest.sanita.finanze.it/DemRicettaErogatoServicesWeb/services/demVisualizzaErogato")
Dim invio As New ServiceReference1.visualizzaErogatoPTClient(b, EndPoint)
Dim Certificato As New X509Certificate2
Certificato.Import("c:\newdem\demservicetest.cer")
invio.ClientCredentials.ClientCertificate.Certificate = Certificato
invio.ClientCredentials.UserName.UserName = "UWT3CBXX"
invio.ClientCredentials.UserName.Password = "PBUW9EBP"
Dim Richiesta As New ServiceReference1.visualizzaErogatoRequest
Dim Ricevuta As New ServiceReference1.visualizzaErogatoResponse
Dim Richi As New ServiceReference1.VisualizzaErogatoRichiesta
Dim Ricev As New ServiceReference1.VisualizzaErogatoRicevuta
Richi.cfAssistito = "T8L5DQ4L7vZWEQ3gGWUhMYYRoGZAIsZSCZ4AieAmIKZ85B6HarO5s/jhtnp5m4r44JiwBRPYyYxtzP4npmLyk8zFSSuVxDAU3oaUdO0lOnDWKZjf886o2nbmSsPEiXYlTaJnWRU420qrQ4Sa2HfEK/32wXsOSq7TCpoMFYhkXeA="
Richi.codiceAslErogatore = "190"
Richi.codiceRegioneErogatore = "201"
Richi.codiceSsaErogatore = "888888"
Richi.nre = "1900A4000004510"
Richi.pinCode = "0Gv1vsTpzlvRD9kBd8FVLo2/441rZ8rRZVf0Zi9eO6+L7kme0KC8Vx6ZjRj/4JjA4aHPTCi3D6YW9OtmYkIpW7sfchmhqHdVORBZHPitiPHdr5iIipAhIzBhFOQIPfpYasW5cQmU//uNB4GSWSNDIkaqdMrDjTPpIkbKKeoA4dQ="
Richi.pwd = "PBUW9EBP"
Richi.tipoOperazione = "1"
invio.Open()
Dim ab As String = invio.State.ToString
11.886 messaggi dal 09 febbraio 2002
Contributi
Ciao Marcello,
posta nell'altra discussione, ci sono utenti che hanno risolto il problema e ti sapranno aiutare sicuramente.
http://forum.aspitalia.com/forum/post/404763/Problemi-Autenticazione-Web-Service-Dotnet-Utilizza-Protocollo-Https-Autenticazione.aspx?PageIndex=1

Io non ho accesso a quel servizio e non posso fare le opportune verifiche.

Vedo però che stai usando un endpoint https e quindi dovresti usare un WSHttpsBinding.
Inoltre, per impostare l'intestazione Authorization, prova ad usare il message inspector come descritto nei primi post del thread.

ciao,
Moreno
Modificato da BrightSoul il 25 novembre 2014 07.48 -

Enjoy learning and just keep making

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.