WBB Login in eigenem Programm

    • VB.NET

    Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von kNNix.

      WBB Login in eigenem Programm

      Hallo

      habe hier ein Code für euch das es ermöglicht die DB von WBB Forum in eurem Programm zu nutzen.
      Damit können sich die User die im Forum angemeldet sind, auch gleich euer Programm nutzen.
      'Eine Form mit 2 Textboxen und einen Button
      Die Zeile mit dem Code

      VB.NET-Quellcode

      1. Dim data() As String = Split(dbcon("wcf", "wcf1_user", "ip", "username", "passwort"), " ")

      muss angepasst werden.

      wcf = Die Datenbank
      wcf1_user = Das Table
      ip = Die ip zu eurem Mysql Server
      username = Der Username für das Login bei Mysql
      passwort = Das Mysql Passwort

      VB.NET-Quellcode

      1. Imports System.Security.Cryptography
      2. Imports System.Text
      3. Imports MySql.Data.MySqlClient
      5. Public Class form1
      7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      8. Dim lname As String = TextBox1.Text
      9. Dim lpass As String = TextBox2.Text
      10. If Not TextBox1.Text = Nothing And Not TextBox2.Text = Nothing Then
      11. Dim data() As String = Split(dbcon("wcf", "wcf1_user", "ip", "username", "passwort"), " ")
      12. For i As Integer = 0 To UBound(data)
      13. If data(i) = lname Then
      14. i += 1
      15. Dim tmp As String = wbbpass(lpass, data(i))
      16. i += 1
      18. If tmp = data(i) Then
      19. MsgBox("Richtiges Passwort")
      20. Exit Sub
      22. Else
      23. MsgBox("Falsches Passwort")
      24. Exit Sub
      25. End If
      26. End If
      27. Next
      28. MsgBox("Username nicht Gefunden")
      29. Else
      30. MsgBox("Bitte Usernamen und Passwort angeben")
      31. End If
      33. End Sub
      34. Function dbcon(ByVal db As String, ByVal table As String, ByVal ip As String, ByVal username As String, ByVal passwort As String) As String
      35. Try
      36. Dim myAdapter As New MySqlDataAdapter
      37. Dim myData As New DataTable
      38. Dim vSQL As New String(Nothing)
      39. myData.Reset()
      40. vSQL = "SELECT * FROM " & table
      41. Dim myconnectionstring As String
      42. myconnectionstring = "Database=" & db & ";Data Source=" & ip & ";User Id=" & username & ";Password=" & passwort
      44. Dim myConnection As New MySqlConnection(myconnectionstring)
      45. Dim myCommand As New MySqlCommand
      46. myCommand.Connection = myConnection
      47. myCommand.CommandText = vSQL
      48. myConnection.Open()
      49. myAdapter.SelectCommand = myCommand
      50. myAdapter.Fill(myData)
      51. Dim sb As New StringBuilder
      52. For i As Integer = 0 To myData.Rows.Count - 1
      53. sb.Append(myData.Rows.Item(i).Item(1) & " ") ' username
      54. sb.Append(myData.Rows.Item(i).Item(4) & " ") ' salt key
      55. sb.Append(myData.Rows.Item(i).Item(3) & " ") ' sha1 passwort
      57. Next
      58. myCommand.ExecuteNonQuery()
      59. myCommand.Connection.Close()
      60. Return sb.ToString
      61. Catch ex As Exception
      62. Return ex.Message
      63. End Try
      64. End Function
      65. Function wbbpass(ByVal pass As String, ByVal saltkey As String) As String
      66. Dim pw As String = sha1(pass)
      67. Dim salt As String = saltkey
      68. Dim pwv1 As String = sha1(salt & pw)
      69. Dim fertig As String = sha1(salt & pwv1)
      70. Return fertig
      71. End Function
      72. Function sha1(ByVal encode As String) As String
      73. Dim UE As New ASCIIEncoding()
      74. Dim HashValue As Byte(), MessageBytes As Byte() = UE.GetBytes(encode)
      75. Dim SHhash As New SHA1Managed()
      76. Dim strHex As String = ""
      78. HashValue = SHhash.ComputeHash(MessageBytes)
      79. For Each b As Byte In HashValue
      80. strHex += [String].Format("{0:x2}", b)
      81. Next
      82. Return strHex
      83. End Function
      84. End Class


      greetz haufe
      ähh? wasn das :)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „haufe“ ()

      Vielen Dank, aber mir wird angezeigt:
      Warnung 1 Der in Imports "MySql.Data.MySqlClient" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.
      //
      Habs gelöst...

      Wo grad mal getestet man hat ja in 1min die kompletten Daten mit einem Decompiler....
      Das ist mir gerade iwie ziemlich unsicher :(
      Die Protecte .exe kann man dann zwar nichtmehr decompilen, aber iwie anders geht das bestimmt noch, verbindung sniffen?

    Facebook
    Telefonspende