Nabend liebe Community,
Ich zweifel schon den ganzen Tag daran, wodrin mein Fehler liegt.. Das Programm bzw. der Code sagt die ganze Zeit - "Kein Benutzer/Password in der Datenbank gefunden!"
Obwohl ich meine richtigen Daten angebe. Filtert er das nicht vernünftig raus? Hab ich was falsches vom Quelltext der Seite k-underground.bplaced.net/index.php entnommen? und eingefügt.
Ich bedanke mich im vorraus!
HIER DER CODE:
*Topic verschoben*
Ich zweifel schon den ganzen Tag daran, wodrin mein Fehler liegt.. Das Programm bzw. der Code sagt die ganze Zeit - "Kein Benutzer/Password in der Datenbank gefunden!"
Obwohl ich meine richtigen Daten angebe. Filtert er das nicht vernünftig raus? Hab ich was falsches vom Quelltext der Seite k-underground.bplaced.net/index.php entnommen? und eingefügt.
Ich bedanke mich im vorraus!
HIER DER CODE:
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Imports System.Text
- Imports System.Security.Cryptography
- Module Module1
- Dim data As String
- Public Function Login(ByVal Username As String, ByVal Password As String)
- data = "login" & Username & "index.php?login/login" & Password & "password" & MD5(Password)
- Try
- Dim request As HttpWebRequest = WebRequest.Create("http://k-underground.bplaced.net/index.php?login/")
- request.Method = WebRequestMethods.Http.Post
- request.ContentType = "application/x-www-form-urlencoded"
- request.ContentLength = data.Length
- Dim rStream As New StreamWriter(request.GetRequestStream)
- rStream.Write(data)
- rStream.Flush()
- rStream.Close()
- Dim response As HttpWebResponse = request.GetResponse
- Dim resReader As New StreamReader(response.GetResponseStream)
- Dim str As String = resReader.ReadToEnd
- If str.Contains("Bem-vindo(a),") Then
- Return True
- Else
- Return False
- End If
- response.Close()
- Catch ex As Exception
- Return False
- End Try
- End Function
- Friend Function MD5(ByVal number As String) As String
- Dim ASCIIenc As New ASCIIEncoding
- Dim strReturn As String = String.Empty
- Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(number)
- Dim Md5Hash As New MD5CryptoServiceProvider
- Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
- For Each b As Byte In ByteHash
- strReturn &= b.ToString("x2")
- Next
- Return strReturn
- End Function
- End Module
*Topic verschoben*
Public Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()