Frage zum Forum/LogIn

  • VB.NET

    Frage zum Forum/LogIn

    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:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    3. Imports System.Text
    4. Imports System.Security.Cryptography
    6. Module Module1
    8. Dim data As String
    9. Public Function Login(ByVal Username As String, ByVal Password As String)
    10. data = "login" & Username & "index.php?login/login" & Password & "password" & MD5(Password)
    11. Try
    12. Dim request As HttpWebRequest = WebRequest.Create("http://k-underground.bplaced.net/index.php?login/")
    13. request.Method = WebRequestMethods.Http.Post
    14. request.ContentType = "application/x-www-form-urlencoded"
    15. request.ContentLength = data.Length
    16. Dim rStream As New StreamWriter(request.GetRequestStream)
    17. rStream.Write(data)
    18. rStream.Flush()
    19. rStream.Close()
    20. Dim response As HttpWebResponse = request.GetResponse
    21. Dim resReader As New StreamReader(response.GetResponseStream)
    22. Dim str As String = resReader.ReadToEnd
    23. If str.Contains("Bem-vindo(a),") Then
    24. Return True
    25. Else
    26. Return False
    27. End If
    28. response.Close()
    29. Catch ex As Exception
    30. Return False
    31. End Try
    32. End Function
    34. Friend Function MD5(ByVal number As String) As String
    35. Dim ASCIIenc As New ASCIIEncoding
    36. Dim strReturn As String = String.Empty
    37. Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(number)
    38. Dim Md5Hash As New MD5CryptoServiceProvider
    39. Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
    40. For Each b As Byte In ByteHash
    41. strReturn &= b.ToString("x2")
    42. Next
    43. Return strReturn
    44. End Function
    45. End Module


    *Topic verschoben*
    Public 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“ ()

Facebook
Telefonspende