[VB.NET] Lettura saldo PostePay e ritorno indesiderato al login

[StefanoV]

Salve, sto facendo x mia comodità un programmino che mi dica in un click il mio saldo postepay...

Ho alcuni problemi..

vi posto il codice e vi spiego:

Questa le funzioni che uso:

Public iCookie As New CookieCollection
    Public newContainer As New Net.CookieContainer

Function GetPageWithCookiePOST(ByVal PageUrl As String, ByVal postato As String) As String

        Dim sb As New System.Text.StringBuilder

        Try

            Dim request As HttpWebRequest = WebRequest.Create(PageUrl)

            request.Method = "POST"

            request.AllowAutoRedirect = True
            request.ContentType = "application/x-www-form-urlencoded"

            Dim encoding As New System.Text.ASCIIEncoding

            Dim arByte As Byte() = encoding.GetBytes(postato)

            request.ContentLength = arByte.Length

            Dim newStream As IO.Stream = request.GetRequestStream

            newStream.Write(arByte, 0, arByte.Length)

            newStream.Close()



            newContainer.Add(iCookie)
            request.CookieContainer = newContainer

            Dim response As HttpWebResponse = request.GetResponse()

            For Each rCookie As Cookie In CType(response, Net.HttpWebResponse).Cookies

                Dim Found As Boolean = False


                For Each pCookie As Cookie In iCookie

                    If pCookie.Name = rCookie.Name Then

                        pCookie.Value = rCookie.Value

                        Found = True

                        Exit For
                    End If

                Next

                If Not Found Then

                    iCookie.Add(rCookie)

                End If

            Next

            Using reader As StreamReader = New StreamReader(response.GetResponseStream())

                sb.Append(reader.ReadToEnd)

            End Using

            Return sb.ToString

        Catch ex As Exception

            Return ""

        Finally

            sb = Nothing

        End Try
    End Function


Function GetPageWithCookie(ByVal PageUrl As String) As String

        Dim sb As New System.Text.StringBuilder

        Try

            Dim request As HttpWebRequest = WebRequest.Create(PageUrl)

            request.AllowAutoRedirect = True

            newContainer.Add(iCookie)
            request.CookieContainer = newContainer

            Dim response As HttpWebResponse = request.GetResponse()

            For Each rCookie As Cookie In CType(response, Net.HttpWebResponse).Cookies

                Dim Found As Boolean = False


                For Each pCookie As Cookie In iCookie

                    If pCookie.Name = rCookie.Name Then

                        pCookie.Value = rCookie.Value

                        Found = True

                        Exit For
                    End If

                Next

                If Not Found Then

                    iCookie.Add(rCookie)

                End If

            Next

            Using reader As StreamReader = New StreamReader(response.GetResponseStream())

                sb.Append(reader.ReadToEnd)

            End Using

            Return sb.ToString

        Catch ex As Exception

            Return ""

        Finally

            sb = Nothing

        End Try
    End Function

Ora io eseguo queste richieste e riesco a loggarmi:

 
Dim p1 As String = GetPageWithCookiePOST("https://bancopostaonline.poste.it/bpol/CARTEPRE/Logon.fcc", "USER=" & Web.HttpUtility.UrlEncode("XXXXXXXX", System.Text.Encoding.Default) & "&Password=" & Web.HttpUtility.UrlEncode("XXXXXXX", System.Text.Encoding.Default) & "&btnSubmit=Invia&target=" & Web.HttpUtility.UrlEncode("/bpol/cartepre/RedirectionGateway.ashx?type=SMACCESS", System.Text.Encoding.Default) & "&device_id=" & Web.HttpUtility.UrlEncode("[[[INACCESSIBLE]]]", System.Text.Encoding.Default))


Dim p4 As String = GetPageWithCookie("https://bancopostaonline.poste.it/bpol/cartepre/servizi/cartapostepay/cartapostepay.aspx?pnlstart=listamovimenti")

Per inviare il codice della mia postepay uso questo codice:

Dim vs As Match = Regex.Match(p4, "<input type=" & virgolette & "hidden" & virgolette & " name=" & virgolette & "__VIEWSTATE" & virgolette & "[^>]+", RegexOptions.IgnoreCase)
        Dim valorevs As Match = Regex.Match(vs.Groups.Item(0).Value, "value=" & virgolette & "([^" & virgolette & "]+)", RegexOptions.IgnoreCase)
        Dim valVS As String = valorevs.Groups.Item(1).Value



        Dim p5 As String = GetPageWithCookiePOST("https://bancopostaonline.poste.it/bpol/cartepre/servizi/cartapostepay/cartapostepay.aspx?pnlstart=listamovimenti", Web.HttpUtility.UrlEncode("CartaPostePaySelezionaCarta1:btnEsegui", System.Text.Encoding.Default) & "=Esegui&" & Web.HttpUtility.UrlEncode("CartaPostePaySelezionaCarta1:txtNrCartaPre", System.Text.Encoding.Default) & "=XXXXXXXXXXXX&" & Web.HttpUtility.UrlEncode("CartaPostePaySelezionaCarta1:cmbLista", System.Text.Encoding.Default) & "=40&" & Web.HttpUtility.UrlEncode("__VIEWSTATE=", System.Text.Encoding.Default) & Web.HttpUtility.UrlEncode(valVS, System.Text.Encoding.Default))

Ovvero dalla richiesta p4 ottengo il __VIEWSTATE e lo invio insieme al resto, però quello che ottengo è il sorgente della pagina di login anziche quello della lista movimenti.

Soluzioni?

[alka]

Il linguaggio va indicato anche nel titolo. Qui l'ho aggiunto io.

[cassano]

Ma una curiosita il servizio postepay richiede le credenziali tramite querystring ???.

Ti dico questo perche io (almeno su postepay.it) le credenziali tramite query string non me le fa mettere (e meno male )

[StefanoV]

@Alka scusami mi è sfuggito.

@Cassano non è in querystring, è una richiesta post infatti...

Qualcuno può aiutarmi? Vi ho postato tutto il codice

[StefanoV]

Piccola precisazione, ho provato ora con postepay.it anziché poste.it...

Queste le richieste:

Dim p1 As String = GetPageWithCookiePOST("https://postepay.poste.it/servizi_online/app_login/login.fcc", "USER=" & Web.HttpUtility.UrlEncode("XXXXXXXXXXXX", System.Text.Encoding.Default) & "&PASSWORD=" & Web.HttpUtility.UrlEncode("XXXXXXXXXXXXX", System.Text.Encoding.Default) & "&bottone=accedi&target=" & Web.HttpUtility.UrlEncode("/portalppay/startBenvenutoAction.do", System.Text.Encoding.Default) & "&device_id=" & Web.HttpUtility.UrlEncode("[[[INACCESSIBLE]]]", System.Text.Encoding.Default) & "&smquerydata=&smauthreason=&smagentname=&postpreservationdata=")
        'Const virgolette = """"

        Dim p2 As String = GetPageWithCookiePOST("https://postepay.poste.it/portalppay/viewListaMovimentiAction.do", "numeroMovimenti=40&selPan=XXXXXXXXXXXX&prosegui=esegui&numeroCarta=&dataMM=&dataAA=&cvv2=", "https://postepay.poste.it/portalppay/startListaMovimentiAction.do")

Il risultato è che non mi effettua nemmeno il login o se lo fa la seconda richiesta me lo richiede...

[cassano]

Scusami ma io continuo a non capire, come fai a sapere che quello sia l'url giusto e sopratutto i parametri in querystring siano quelli ???.

[alka]

Originariamente inviato da cassano
Scusami ma io continuo a non capire, come fai a sapere che quello sia l'url giusto e sopratutto i parametri in querystring siano quelli ???.

Non è nemmeno da escludere che il sito attui delle verifiche proprio per assicurare che il servizio non venga utilizzato da applicativi o siti esterni.

E' stata fatta una verifica dei termini di utilizzo del sito in questo senso?

Altrimenti, stiamo affrontando un argomento non del tutto legale...

[StefanoV]

@Cassano: basta guardare gli url del form, le richieste POST effettuate (con firefox 3.6 usavo livehttpheaders e riuscivo tramite php a tirar fuori la mia bolletta della mia scheda wind nonostante i sistemi di protezione che sicuramente c'erano...) ora con firefox 4 non so più come vedere e mi baso sui campi input nel form che verranno inviati.

@alka: beh il conto è il mio, non sto facendo chissà quale sistema di hackeraggio, voglio un semplice applicativo che all'apertura mi dica: hai XXX euro nella carta, anziché andarmi a loggare, mettere il numero ecc... Chissà magari posso fissarmelo sul desktop a mò di widget...
E poi impostando user-agent, referer, ed altro non c'è sistema di sicurezza che tenga, testato con php... in vb.net il problema è che sembra lasciare i cookie indietro ognitanto boh, nn so se sbaglio le richieste o la gestione dei cookie nel codice..

[cassano]

GRande non sapevo si potesse fare anche cosi, quindi mi basta analizzare l'html della pagine cercare i bottone login e password ed inviarli tramite post !!??

Grazie !!!.

[alka]

Originariamente inviato da StefanoV
@alka: beh il conto è il mio, non sto facendo chissà quale sistema di hackeraggio, voglio un semplice applicativo che all'apertura mi dica: hai XXX euro nella carta, anziché andarmi a loggare, mettere il numero ecc... Chissà magari posso fissarmelo sul desktop a mò di widget...
E poi impostando user-agent, referer, ed altro non c'è sistema di sicurezza che tenga, testato con php... in vb.net il problema è che sembra lasciare i cookie indietro ognitanto boh, nn so se sbaglio le richieste o la gestione dei cookie nel codice..

Il problema non è il proprietario del conto in questione: il problema è il tipo di utilizzo e accesso che si fa al servizio.

Il fatto che tecnicamente sia possibile fare quanto hai realizzato non significa che il provider del servizio lo consenta nei termini d'uso, e in caso negativo potrebbe anche chiuderti il conto qualora individuasse una violazione dei termini d'uso.

Non si tratta di una questione tecnica, ma legale.

Ad ogni modo, il mio era un suggerimento a tua tutela personale, nulla di che.

Ciao!