|
| Autor |
Nachricht |
vbusor
Newbie
Anmeldedatum: 12.11.2009
Beiträge: 1
|
Account Checker, login Problem ?
Verfasst am: 12.11.2009, 18:17 |
|
|
Ich habe mich daran versucht auf der Seite https://customer.cc.at.paysafecard.com/psccustomer/GetPasswordPanelServlet einen Account, bzw einen Gutschein zu checken.
Ich konnte dies mitlesen und versuchte es umzusetzen, aber ich bekomme mich einfach nicht eingeloggt.
Content-Length: 208
randomNumber_1=0261&randomNumber_2=5265&randomNumber_3=6761&randomNumber_4=2950&password=885522&captchaID=Y2xVVVJXMTY2M2loNThwa05hcjZGOTlhcU9iK1RtMmw%3D&captchaResponse=forects&language=&locale=&Submit=Weiter
HTTP/1.x 200 OK
Hier noch mein Quelltext, ich habe einen Webbrowser eingebaut um das Captcha zu erkennen und ein Textfeld um mir nochmal den Quelltext anzeigen zu lassen...leider komme ich immer auf die Startseite, sieht jemand mein Problem ?
| Code: | Imports System.IO, System.Net, System.Text
Public Class Form1
Dim captcha1 As String
Dim captchaid As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
captchaid = TextBox3.text
captcha1 = TextBox1.Text
CheckRS("0000", "0000", "0000", "0000", "passwort", captchaid, captcha1, "", "", "Weiter")
WebBrowser1.Refresh()
End Sub
Private Function CheckRS(ByVal bis4, ByVal bis8, ByVal bis12, ByVal bis16, ByVal password, ByVal captchaid, ByVal captcha, ByVal language, ByVal locale, ByVal weiter) As String
Dim Request As HttpWebRequest = CType(WebRequest.Create("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet"), HttpWebRequest)
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Dim Post As String = "randomNumber_1=" & bis4 & "&randomNumber_2=" & bis8 & "&randomNumber_3=" & bis12 & "&randomNumber_4=" & bis16 & "&password=" & password & "&captchaID" & captchaid & "&captchaResponse=" & captcha & "&language=" & language & "&locale=" & locale & "&Submit=" & weiter
Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
Request.ContentLength = byteArray.Length
Dim DataStream As Stream = Request.GetRequestStream()
DataStream.Write(byteArray, 0, byteArray.Length)
DataStream.Close()
Dim Response As HttpWebResponse = Request.GetResponse()
DataStream = Response.GetResponseStream()
Dim reader As New StreamReader(DataStream)
Dim ServerResponse As String = reader.ReadToEnd()
reader.Close()
DataStream.Close()
Response.Close()
TextBox2.Text = ServerResponse
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet")
End Sub
End Class |
|
|
| |
|
 |
|
|
Registrieren
Login
