[VB.NET] PSC-Checker Problem

[DK007]

Hey @ all,

Hab da ein Problem mit meinem PSC-Checker.
Egal was ich eingebe zeigt es mir an, dass meine PSC nicht valid ist, obwohl sie es ist.
Hier mein SourceCode bis jetzt:
Findet ihr den Fehler?

Imports System.IO, System.Net, System.Text
Public Class Form1
Dim CookieCon As New CookieContainer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser2.Navigate("https://customer.cc.at.paysafecard.com/seam/resource/captcha")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Req As HttpWebRequest = CType(WebRequest.Create("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet?&language=de"), HttpWebRequest)
Req.Method = "Post"
Req.ContentType = "application/x-www-form-urlencoded"
Req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
Req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
Req.CookieContainer = CookieCon
Req.AllowAutoRedirect = True
Dim Num1 As String = TextBox1.Text
Dim Num2 As String = TextBox2.Text
Dim Num3 As String = TextBox3.Text
Dim Num4 As String = TextBox4.Text
Dim PW As String = TextBox5.Text
Dim CA As String = TextBox6.Text
Dim Post As String = "mainPagePart=mainPagePart&mainPagePart%3Arn1= " & Num1 & "&mainPagePart%3Arn2=" & Num2 & "&mainPagePart%3Arn3=" & Num3 & "&mainPagePart%3Arn4=" & Num4 & "&mainPagePart%3ApassField=" & PW & "&mainPagePart%3AverifyCaptcha=" & CA & "&mainPagePart%3Anext=Absenden&javax.faces.ViewSta te=j_id2"
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
Req.ContentLength = byteArray.Length
Dim DataStream As Stream = Req.GetRequestStream()
DataStream.Write(byteArray, 0, byteArray.Length)
DataStream.Close()
Dim Response As HttpWebResponse = Req.GetResponse()
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
If InStr(ServerResponse, "Seriennummer") Then
Label1.Text("Valid")
Else
Label1.Text("Not Valid")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser2.Refresh()
End Sub

[inout]

Schau dir am besten mal in einem Sniffer an, ob die Daten korrekt übermittelt werden und lass dir ServerResponse mal ausgeben.

Achja, einen UserAgent und einen Referer würde ich auch noch mitsenden.

[DK007]

Also die Daten sind korrekt, habs bei Post nachgeguckt, also wurden richtig eingesetzt.
und bei
Dim ServerResponse As String = reader.ReadToEnd()

wenn ich mir das in HTML angucke, ist dann halt nichts eingesetzt worden.

Hier nochmal als Bild:



Habs jetzt editiert mit Useragent und Referer etc.

[BlackHook]

Bist du sicher daß du es selbst geschrieben hast? Ich sehe da zB ein Fehler den man nur machen kann wenn man das Projekt selbst nicht getippt hat. VB meckert nämlich sofort. Dein Fehler: Label1.Text("Valid") Richtig: Label1.Text = "Valid" Wenn du noch eine Testnummer posten würdest dann könnte man es auch testen, sonst geht es schlecht.

[DK007]

Ahh stimmt aber trotzdem funktionierts nicht.
Ja es ist mein Projekt.

[inout]

Es könnte auch daran liegen, dass du das Captcha mit dem Webbrowser anzeigst und dir bei dem Request dann die übermittelten Cookies fehlen.

Also lass mal den WebBrowser komplett weg (sowas braucht man eh nicht) und mach alles mit EINER Instanz des WebRequests und natürlich Cookies akzeptieren, so wie du es jetzt auch hast.

Achja, eine Test PSC-Nummer mit ein paar Cents drauf oder so wäre nicht schlecht zum Testen.

[BlackHook]

Leere PSC Nummer zum testen wäre hilfsreich Ich würde es mir anschauen, nun ohne nummer bekomme ich immer not valid Ich habe einen checker fertig geschrieben, ich gehe aber davon aus dass du Ihn selbst schreiben möchtest

[DK007]

Hab gerade keine PSC mit paar Cents drauf
Hmm ich habs auch schon mal so gemacht, dass ich das Capture in einer PictureBox anzeigen lasse, aber dann funktionierts auch nicht.

[BlackHook]

Ach ja, mein Vorredner hat es angesprochen. Cookies Ohne Container geht nichts. Cookies musst du benutzen, ansonsten stimmt dein Captcha nimmer. EDIT Du kriegst ne PN. Schau im Postfach nach

[DK007]

Hmm wie funktioniertn das mit Cookies?
Kenne das nur halt mit dem Dim Bla as New CookieContainer und dann halt Request.CookieContainer = Bla

Achja momentan sind mein Code so aus

Imports System.IO, System.Net, System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dcaptcha As Image = cCapture("https://customer.cc.at.paysafecard.com/seam/resource/captcha")
PictureBox1.Image = dcaptcha
End Sub
Dim CookieCon As New CookieContainer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Req As HttpWebRequest = CType(WebRequest.Create("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet?&language=de"), HttpWebRequest)
Req.Method = "Post"
Req.ContentType = "application/x-www-form-urlencoded"
Req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
Req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
Req.CookieContainer = CookieCon
Req.AllowAutoRedirect = True
Dim Num1 As String = TextBox1.Text
Dim Num2 As String = TextBox2.Text
Dim Num3 As String = TextBox3.Text
Dim Num4 As String = TextBox4.Text
Dim PW As String = TextBox5.Text
Dim CA As String = TextBox6.Text
Dim Post As String = "mainPagePart=mainPagePart&mainPagePart%3Arn1= " & Num1 & "&mainPagePart%3Arn2=" & Num2 & "&mainPagePart%3Arn3=" & Num3 & "&mainPagePart%3Arn4=" & Num4 & "&mainPagePart%3ApassField=" & PW & "&mainPagePart%3AverifyCaptcha=" & CA & "&mainPagePart%3Anext=Absenden&javax.faces.ViewSta te=j_id2"
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
Req.ContentLength = byteArray.Length
Dim DataStream As Stream = Req.GetRequestStream()
DataStream.Write(byteArray, 0, byteArray.Length)
DataStream.Close()
Dim Response As HttpWebResponse = Req.GetResponse()
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
If InStr(ServerResponse, "<td class=" & "cell1" & ">Seriennummer</td>") Then
Label1.Text = "Login OK"
Else
Label1.Text = "Login nicht OK"
End If
End Sub
Private Function cCapture(ByVal URL As String) As Image
Dim req As HttpWebRequest = WebRequest.Create(URL)
req.Method = "GET"
req.CookieContainer = CookieCon
req.Referer = "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"
Dim Res As WebResponse = req.GetResponse()
Application.DoEvents()
Dim str As New StreamReader(Res.GetResponseStream())
Dim bild As Image = Image.FromStream(str.BaseStream)
str.Close()
Res.Close()
Return bild
End Function
End Class