Invicible (10.03.2012)
Thema: Expect-us.eu Onlinebot
-
10.03.2012, 18:16 #1
Expect-us.eu Onlinebot
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
Code: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!
-
The Following User Says Thank You to Snees For This Useful Post:
-
10.03.2012, 18:20 #2
AW: Expect-us.eu Onlinebot
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„Es sind nicht unsere Fähigkeiten, die zeigen, wer wir wirklich sind, es sind unsere Entscheidungen.“
- Albus Dumbledore, Harry Potter 2
/guestchat registerGuest
-
-
10.03.2012, 18:24 #3
AW: Expect-us.eu Onlinebot
Danke an Mentos:
Code:Private Sub DoWork() Dim Work As Boolean = True While Work = True Login(Username, Password) Thread.Sleep(300000) End While End Sub
-
18.03.2012, 16:28 #4
- Registriert seit
- 19.11.2011
- Beiträge
- 2.128
Thanked 1.936 Times in 1.180 PostsAW: Expect-us.eu Onlinebot
Was bringt das denn wenn man Online bleibt?
-
18.03.2012, 16:29 #5
AW: Expect-us.eu Onlinebot
Man bekommt in einem gewissen Zeitraum Punkte, wenn man 1000 Punkte hat kann man sich 10€ auszahlen lassen.
LG
-
18.03.2012, 16:31 #6
Ähnliche Themen
-
Teufelswerk Onlinebot V1.6
Von Dbzfreak1337 im Forum Sonstige Knuddels Bots/SoftwareAntworten: 18Letzter Beitrag: 02.01.2014, 17:58 -
[Bot] Expect-US Onlinebot
Von Gelöschter Benutzer im Forum PHPAntworten: 20Letzter Beitrag: 10.03.2012, 22:28 -
VB.Net Onlinebot PopUps sehen
Von getsha im Forum .NetAntworten: 1Letzter Beitrag: 07.02.2012, 16:48 -
[Release] Onlinebot V2.1 by Escobar
Von Escobar im Forum Knuddels StayOnline BotsAntworten: 3Letzter Beitrag: 02.02.2012, 22:18 -
[s] Teufeklswerk OnlineBot
Von mehandaria im Forum Knuddels BotsAntworten: 1Letzter Beitrag: 11.12.2011, 15:47
Diese Seite nutzt Cookies, um das Nutzererlebnis zu verbessern. Klicken Sie hier, um das Cookie-Tracking zu deaktivieren.