Expect-us.eu Onlinebot

[Snees]

Hallo, damit hier keine Spamposts entstehen wie zum Beispiel: "Stealer!" etc gibt's von mir einfach den Sourcecode.

Aufwand: 5 Minuten (Login ist nicht von mir, nur die Daten angepasst, MD5StringHash ist auch nicht von mir.)

Quellen:
[VB.NET] HttpWebRequest Tutorial (Für anfänger) - Internet/LAN - Visual-Basic-Forum VB-Paradise.de
VB.NET - Den MD5 Hash eines Strings ermitteln

LG

Imports System.Threading
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Security.Cryptography

Module Module1

    Private Username As String = String.Empty
    Private Password As String = String.Empty

    Sub Main()
        Console.Title = "Expext-us.eu Onlinebot 0.0.1"
        GetData()
        Start()
    End Sub

    Private Sub GetData()
        WriteLog("Benutzername:", ConsoleColor.Magenta)
        Username = Console.ReadLine
        WriteLog("Passwort:", ConsoleColor.Magenta)
        Password = Console.ReadLine
    End Sub

    Private Sub Start()
        WriteLog("Starte Bot...", ConsoleColor.Yellow)
        DoWork()
    End Sub


    Private Sub Login(ByVal Username As String, ByVal Password As String)
        Try
            Dim md5password As String = MD5StringHash(Password).ToLower
            Dim Request As HttpWebRequest = CType(WebRequest.Create("http://expect-us.eu/login.php?do=login"), HttpWebRequest)
            Request.Method = "POST"
            Request.ContentType = "application/x-www-form-urlencoded"
            Dim Post As String = "vb_login_username=" & Username & "&vb_login_password=&vb_login_password_hint=Kennwort&s=&securitytoken=guest&do=login&vb_login_md5password=" & md5password & "&vb_login_md5password_utf=" & md5password
            Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
            Request.ContentLength = byteArray.Length
            Dim DataStream As Stream = Request.GetRequestStream()
            DataStream.Write(byteArray, 0, byteArray.Length)
            DataStream.Close()

            Dim Response As HttpWebResponse = Request.GetResponse()
            DataStream = Response.GetResponseStream()
            Dim reader As New StreamReader(DataStream)
            Dim ServerResponse As String = reader.ReadToEnd()
            reader.Close()
            DataStream.Close()
            Response.Close()
            If ServerResponse.Contains("Danke") Then
                WriteLog("Login erfolgreich.", ConsoleColor.Green)
            Else
                WriteLog("Login fehlgeschlagen.", ConsoleColor.Red)
            End If
        Catch ex As Exception
            WriteLog("Es ist ein Fehler aufgetreten.", ConsoleColor.Red)
        End Try
    End Sub

    Private Sub DoWork()
        Dim i As Integer = 1
        Do While i > 0
            Login(Username, Password)
            Thread.Sleep(300000)
        Loop
    End Sub

    Private Sub WriteLog(ByVal text As String, ByVal color As ConsoleColor)
        Console.ForegroundColor = color
        Console.WriteLine(text)
        Console.ForegroundColor = ConsoleColor.White
    End Sub

    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
End Module

Bei Fragen bitte hier posten!

[Mentos]

Do While i > 0
Login(Username, Password)
Thread.Sleep(300000)
Loop

Mach doch eine While-True Schleife Hierbei ist der Integer i ja etwas zweckentfremded, weil er ja eh immer 1 ist

[Snees]

Danke an Mentos:

Private Sub DoWork()
        Dim Work As Boolean = True
        While Work = True
            Login(Username, Password)
            Thread.Sleep(300000)
        End While
    End Sub

[!lkay]

Was bringt das denn wenn man Online bleibt?

[Snees]

Man bekommt in einem gewissen Zeitraum Punkte, wenn man 1000 Punkte hat kann man sich 10€ auszahlen lassen.

LG

[xTracZ]

Man bekommt in einem gewissen Zeitraum Punkte, wenn man 1000 Punkte hat kann man sich 10€ auszahlen lassen.

LG

Wenn man nur noch online ist, bekommt man keine Coins mehr vergütet, meine ich gelesen zu haben

MfG