Guten Tag zusammen,
ich bin kein Profi was Programmierung angeht und mache das ganze nur als Hobby nebenbei, allerdings bin ich auf eine Idee gekommen für ein kleines Tool was mir die Arbeit erleichtern soll (wird bei euch sicher nicht anders sein).
Ich hoffe ich habe das richtige Label verwendet und bin im richtigen Bereich.
Erstellt wird das ganze in Visual Basic.
Es geht mir erst einmal um einen Login zu einer MySQL Datenbank.
Egal welche Login Daten ich im Tool eingebe ich komm immer rein auch wenn die Daten falsch sind, irgendwas muß ich da wohl falsch machen.
Hier der Code vom Tool:
Und das von der PHP Datei:
Würde mich freuen wenn mir da jemand weiter helfen kann damit ich den Fehler beheben kann.
Vielen Lieben dank im voraus.
ich bin kein Profi was Programmierung angeht und mache das ganze nur als Hobby nebenbei, allerdings bin ich auf eine Idee gekommen für ein kleines Tool was mir die Arbeit erleichtern soll (wird bei euch sicher nicht anders sein).
Ich hoffe ich habe das richtige Label verwendet und bin im richtigen Bereich.
Erstellt wird das ganze in Visual Basic.
Es geht mir erst einmal um einen Login zu einer MySQL Datenbank.
Egal welche Login Daten ich im Tool eingebe ich komm immer rein auch wenn die Daten falsch sind, irgendwas muß ich da wohl falsch machen.
Hier der Code vom Tool:
VB.NET-Quellcode
- Imports System.Security.Cryptography
- Imports System.Text
- Public Class login
- Public Function MD5StringHash(ByVal strString As String) As String
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Data As Byte()
- Dim Result As Byte()
- Dim Res As String = ""
- Dim Tmp As String = ""
- Data = Encoding.ASCII.GetBytes(strString)
- Result = MD5.ComputeHash(Data)
- For i As Integer = 0 To Result.Length - 1
- Tmp = Hex(Result(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Res += Tmp
- Next
- Return Res
- End Function
- Private Sub Loginbtn_Click(sender As Object, e As EventArgs) Handles Loginbtn.Click
- Dim webbrowser1 As New WebBrowser
- If TextBox1.Text = Nothing Then
- MsgBox("Keinen Benutzername eingegeben!")
- Else
- If TextBox2.Text = Nothing Then
- MsgBox("Kein Passwort eingegeben!")
- Else
- Dim pwstring As String = MD5StringHash(TextBox2.Text)
- webbrowser1.Navigate("https://www.link.de/login.php?username=" & TextBox1.Text & "&password=" & TextBox2.Text)
- Do While webbrowser1.ReadyState <> WebBrowserReadyState.Complete
- Application.DoEvents()
- Loop
- If webbrowser1.DocumentText.Contains("Login True") Then
- Form1.Show()
- Me.Hide()
- MessageBox.Show("Login Erfolgreich.")
- Else
- MessageBox.Show("Die von dir eingegebenen Anmeldedaten sind ungültig.")
- End If
- End If
- End If
- End Sub
- End Class
Und das von der PHP Datei:
PHP-Quellcode
- <?
- $verbindung = mysql_connect("serverip", "dbuser" , "dbpass")
- or die("Verbindung zur Datenbank konnte nicht hergestellt werden");
- mysql_select_db("dbname") or die ("Datenbank konnte nicht ausgewählt werden");
- $username=$_GET["username"];
- $passwort=$_GET["password"];
- $abfrage = "SELECT * FROM users WHERE user LIKE '$username' LIMIT 1";
- $ergebnis = mysql_query($abfrage);
- $row = mysql_fetch_object($ergebnis);
- if($passwort == "" or $username == "" or $row->pwd !== $passwort)
- {
- echo "Login False;";
- }
- else
- {
- echo "Login True;";
- }
- ?>
Würde mich freuen wenn mir da jemand weiter helfen kann damit ich den Fehler beheben kann.
Vielen Lieben dank im voraus.