Guten Tag zusammen,
ich bin gerade dabei für unseren Tribe (Ark) ein "Zuchtbuch" zu erstellen damit wir da unsere Dinos eintragen können um eine Ordentliche Übersicht für die Zucht zu haben.
Ich habe mir auch schon einiges zusammengesucht was auch funktioniert, hier mal der Code:
Das Login Script:
PHP Login Scipt:
Eintragen in die MySQL Datenbank:
Zum ersten möchte ich die Login Daten für die Datenbank nicht im Tool stehen haben (da es einfach unsicher ist) und das gerne über eine PHP Bridge lösen. Des Weiteren soll der Login Name in die zweite Form weitergegeben werden um diese dann anschließend mit in die Datenbank einzutragen. Später muß das ganze auch noch ausgelesen und ausgegeben werden, aber dazu habe ich glaube schon eine gute Anleitung gefunden. Da ich bei dem Thema nicht weiterkomme und das gefundene nicht verstehe hoffe ich das man mir hier dabei vllt. etwas unter die Arme greifen kann.
P.S. Ich habe kein großes Wissen was das Programmieren angeht alles was ich bisher habe ich durch Intensive googel suche erreicht.
Vielen Dank bereits im voraus für eure Hilfe
Grüße X0lfm4n
ich bin gerade dabei für unseren Tribe (Ark) ein "Zuchtbuch" zu erstellen damit wir da unsere Dinos eintragen können um eine Ordentliche Übersicht für die Zucht zu haben.
Ich habe mir auch schon einiges zusammengesucht was auch funktioniert, hier mal der Code:
Das Login Script:
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 btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click
- Application.Exit()
- End Sub
- Private Sub btn_login_Click(sender As Object, e As EventArgs) Handles btn_login.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("http://www.google.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
- Zuchtbuch.Show()
- Me.Close()
- MessageBox.Show("Anmeldung Erfolgreich.")
- Else
- MessageBox.Show("Fehler bei der Anmeldung!")
- End If
- End If
- End If
- End Sub
- End Class
PHP Login Scipt:
PHP-Quellcode
- <?
- $verbindung = mysql_connect("127.0.0.1", "username", "password")
- or die("Verbindung zur Datenbank konnte nicht hergestellt werden");
- mysql_select_db("dbname") or die ("Datenbank konnte nicht ausgewählt werden");
- $passwort=$_GET["password"];
- $username=$_GET["username"];
- if ($_GET["password"] == "") {
- die("Benutzername leer");
- }
- $abfrage = "SELECT * FROM login WHERE users = '$username' LIMIT 1";
- $ergebnis = mysql_query($abfrage);
- if(mysql_num_rows($ergebnis) == 1) {
- $row = mysql_fetch_object($ergebnis);
- if(password_verify($passwort,$row->pwd))
- {
- echo "Login True";
- }
- else
- {
- echo "Login False pwd";
- }
- } else {
- echo "Login False user";
- }
- ?>
Eintragen in die MySQL Datenbank:
VB.NET-Quellcode
- Imports MySql
- Imports MySql.Data
- Imports MySql.Data.MySqlClient
- Public Class Eintragen
- Dim MySqlConn As MySqlConnection
- Dim COMMAND As MySqlCommand
- Private Sub Eintragen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Me.Close()
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- MySqlConn = New MySqlConnection
- MySqlConn.ConnectionString =
- "server=127.0.0.1;uid=username;pwd=password;database=dbname;"
- Dim READER As MySqlDataReader
- Try
- MySqlConn.Open()
- Dim Query As String
- Query = "INSERT INTO dinos (LoginID, dino_waehlen, zucht_wildfang, geschlecht, level, dinoname, gesundheit, ausdauer, sauerstoff, nahrung, gewicht, nahkampf) VALUES ('1', '" & dino_waehlen.Text & "', '" & zucht_wildfang.Text & "', '" & geschlecht.Text & "', '" & level.Text & "', '" & dinoname.Text & "', '" & gesundheit.Text & "', '" & ausdauer.Text & "', '" & sauerstoff.Text & "', '" & nahrung.Text & "', '" & gewicht.Text & "', '" & nahkampf.Text & "')"
- COMMAND = New MySqlCommand(Query, MySqlConn)
- READER = COMMAND.ExecuteReader
- Dim count As Integer
- MySqlConn.Close()
- MessageBox.Show("Dino Eingetragen.")
- Catch ex As MySqlException
- MessageBox.Show(ex.Message)
- Finally
- MySqlConn.Dispose()
- End Try
- End Sub
- End Class
Zum ersten möchte ich die Login Daten für die Datenbank nicht im Tool stehen haben (da es einfach unsicher ist) und das gerne über eine PHP Bridge lösen. Des Weiteren soll der Login Name in die zweite Form weitergegeben werden um diese dann anschließend mit in die Datenbank einzutragen. Später muß das ganze auch noch ausgelesen und ausgegeben werden, aber dazu habe ich glaube schon eine gute Anleitung gefunden. Da ich bei dem Thema nicht weiterkomme und das gefundene nicht verstehe hoffe ich das man mir hier dabei vllt. etwas unter die Arme greifen kann.
P.S. Ich habe kein großes Wissen was das Programmieren angeht alles was ich bisher habe ich durch Intensive googel suche erreicht.
Vielen Dank bereits im voraus für eure Hilfe
Grüße X0lfm4n