Bongspiel Bot

Page 1 of 2 1 2
01/25/2009 07:05 nidofu#1
Hey Leute,
ich wollte mal fragen ob mir jemand helfen könnte einen bot für das Bongspiel zu machen.
Da ich mich nicht so besonders mit autoit oder ähnlich auskenne wäre es nett wenn mir vieleicht jemand einen machen könnte
es muss kein ultra mega super teil sein...
man sollte nur seine acc daten eingeben dann auf "arbeiten als Türsteher" drücken und das soll er dann halt die ganze zeit machen

Hier noch mal die Seite vom Bongspiel

[Only registered and activated users can see links. Click Here To Register...]
04/03/2010 12:44 Giovanni04#2
hmmm, das ist garnit so leicht.... ich sitze gerade dran, aber ich schnall die veränderung von "xajaxr" bei jedem login nicht, dementsprechend kann ich auch keine Variable dafür einsetzen... :( weiß vielleicht einer hilfe? ich habe mir schon 4 accs erstellt, habe mit live http headers die cookies verglichen, und habe als einzige (relevante) veränderung "xajaxr=irgendeine zahl" festgestelle... aus dem quellcode der seite werd ich auch nicht schlau... Wäre sehr freundlich, wenn eine abhilfe finden würde...
Greetz Giovanni04
P.S.: meiner ist/soll ein Paketbot (werden).

Edit: Natürlich schreibe ich in AutoIt. Nach tut von shadow992.
04/04/2010 15:54 schlurmann#3
Ich hab die schönste Bong.

Wie viele Leute spielen das Spiel? Dann guck ich's mir vielleicht 'mal an.
04/04/2010 20:07 Giovanni04#4
98.000 spieler.... in deutschland... dann noch 'n paar in holland.
04/04/2010 20:33 schlurmann#5
Quote:
Originally Posted by Giovanni04 View Post
98.000 spieler.... in deutschland... dann noch 'n paar in holland.
Geht ja. Ich mach mich 'mal 'ran.
04/04/2010 20:40 Giovanni04#6
yo... also, ich bin schon fast fertig, muss nur noch gucken, wie man einen cookie ausliest und den in eine Variable speichert... mal sehen, wer eher fertig ist ;) :D
04/04/2010 20:49 Dreckvieh#7
und von den 98k vllt 50k inaktive? ;P
04/04/2010 20:53 Giovanni04#8
hä?? :D

Edit: Achsoooo! (Wer lesen kann ist kla im vorteil ;)) Ich hab gelesen initiative :D
04/04/2010 20:55 Giovanni04#9
aber, ja wahrscheinlich! das ist relativ blöd geregelt mit dem freunde werben... naja. macht trotzdem fun^^
04/04/2010 21:00 Reextion#10
Huhu . Sollte der eine Anfänger und dieser andre das nicht hingekriegt haben bis morgen, werd ichs dir machen. Ist ja nen 1minuten bot ;) bin nur grad im zug und mitm iphone on...  :P
04/04/2010 21:15 Giovanni04#11
hmmm, naja, wenn ich ehrlich bin, bin ich auch noch anfänger... ich programmier in autoit seit... ha, praxiszeit: ca. 24std. hab ich bisher an scripts geschrieben^^ und als ich dann das mit den bots gesehen hab, war ich fasziniert... hab mich dierekt mal dran gesetzt... soll ich mall mein quelltext posten? ihr müsst mir dann auf jeden fall sagen was ich falsch gemacht habe! ;) :D naja, wäre zu mindest nsehr nett von euch ;)
04/04/2010 21:40 Giovanni04#12
Code:
#include<String.au3>
$login=InputBox("Benutzername", "Gib deinen Benutzernamen an.")
$pass=InputBox("Passwort", "Gib dein Passwort an.")


TCPStartup()
$socket=TCPConnect(TCPNameToIP("bongspiel.de"),80)
$post= "xajax=login&xajaxr=1270411322687&xajaxargs[]=%3Cxjxquery%3E%3Cq%3Eusername%3D"&$login&"%26password%3D"&$pass&"%3C%2Fq%3E%3C%2Fxjxquery%3E"
$ip=TCPNameToIP("bongspiel.de")
$source=TCPRequest($ip, "www.bongspiel.de", "/function_ajax.php", $post, '', 'www.bongspiel.de/?show=start')
$cookies=GetCookies($source)
$arbeit=TCPRequest($ip, "www.bongspiel.de", "/?show=points", '', '', 'www.bongspiel.de/?show=start')
$arbeitcookies=GetCookies($arbeit)
TCPShutdown()
FileWrite("Test.txt", $arbeit)


Func GetCookies($sQuellcode)
    Local $sCookies, $i, $aCookies
    $sCookies = ''
    $aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', ';', 1)
    For $i = 0 To UBound($aCookies) - 1
        $sCookies &= $aCookies[$i] & ';'
    Next
    Return $sCookies
EndFunc   ;==>GetCookies

Func TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000)
    Local $sPacket, $iSocket, $iTimer

    If $sPost = '' Then
        $sPacket =    'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
    Else
        $sPacket =    'POST /' & $sSeite & ' HTTP/1.1' & @CRLF
    EndIf
    $sPacket &=    'Host: ' & $sHost & @CRLF & _
                'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5 (.NET CLR 3.5.30729)' & @CRLF & _
                'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
                'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _
                'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
                'Keep-Alive: 300' & @CRLF & _
                'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
                'Connection: keep-alive' & @CRLF
    If $sReferer <> '' Then
        $sPacket &= 'Referer: '&$sReferer & @CRLF
    EndIf
    If $sCookies <> '' Then
        $sPacket &= 'Cookie: ' & $sCookies & @CRLF
    EndIf
    If $sPost <> '' Then
        $sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
    EndIf
    $sPacket &= @CRLF
    If $sPost <> '' Then
        $sPacket &= $sPost
    EndIf

    TCPStartup()
    If @error Then Return SetError(1,0,"")
    $iSocket = TCPConnect($sIp, 80)
    If @error Then Return SetError(2,0,"")
    TCPSend($iSocket, $sPacket)
    If @error Then Return SetError(3,0,"")
    $iTimer = TimerInit()
    Do
        $sRecv = TCPRecv($iSocket, 1024)
        If TimerDiff($iTimer) > $iMaxTime Then Return SetError(4,0,"")
    Until $sRecv <> ""
    Do
        $sRecv &= TCPRecv($iSocket, 1024)
    Until @error OR StringInStr($sRecv, '</html>')
    TCPCloseSocket($iSocket)
    TCPShutdown()
    Return $sRecv
EndFunc
04/05/2010 09:24 Giovanni04#13
Hmpf... Jetzt bin ich fertig, und habe das feeling, dass es nich funzt :| fuck... naja, hier nomma mein Quellcode:

Code:
#include<String.au3>
$login=InputBox("Benutzername", "Gib deinen Benutzernamen an.")
$pass=InputBox("Passwort", "Gib dein Passwort an.")


TCPStartup()
$socket=TCPConnect(TCPNameToIP("bongspiel.de"),80)
$post= "xajax=login&xajaxr="&TimerInit()&"&xajaxargs[]=%3Cxjxquery%3E%3Cq%3Eusername%3D"&$login&"%26password%3D"&$pass&"%3C%2Fq%3E%3C%2Fxjxquery%3E"
$ip=TCPNameToIP("bongspiel.de")
$source=TCPRequest($ip, "www.bongspiel.de", "/function_ajax.php", $post, '', 'http://www.bongspiel.de/?show=start')
$cookies=GetCookies($source)
$arbeit=TCPRequest($ip, "www.bongspiel.de", "/?show=points", '', '', 'http://www.bongspiel.de/?show=start')
$arbeitcookies=GetCookies($arbeit)
$arbeit2=TCPRequest($ip, "www.bongspiel.de", "/?show=jobs", '', '', 'http://www.bongspiel.de/?show=points')
$cookiesarbeit2=GetCookies($arbeit2)
$beruf=InputBox("Beruf","Für den Beruf Gärtner, drücke die 1."&@CRLF&"Für den Beruf Ingenieur drücke die 2."&@CRLF&"Für den Beruf Türsteher, drücke die 3."&@CRLF&"Und wenn du als Promoter arbeiten möchtest, die 4."&@CRLF&@CRLF)
$posta="xajax=start_job&xajaxr="&TimerInit()&"&xajaxargs[]="&$beruf&""
$arbeit2cookies=GetCookies($arbeit2)
$beruf1=TCPRequest($ip, "www.bongspiel.de", "/function_ajax.php", $posta, '', 'http://www.bongspiel.de/?show=jobs')
$cookiesberuf=GetCookies($beruf1)
TCPShutdown()
FileWrite("Test.txt", $arbeit)


Func GetCookies($sQuellcode)
    Local $sCookies, $i, $aCookies
    $sCookies = ''
    $aCookies = _StringBetween($sQuellcode, 'Set-Cookie: ', ';', 1)
    For $i = 0 To UBound($aCookies) - 1
        $sCookies &= $aCookies[$i] & ';'
    Next
    Return $sCookies
EndFunc   ;==>GetCookies

Func TCPRequest($sIp, $sHost, $sSeite = "", $sPost = '', $sCookies = '', $sReferer = '', $iMaxTime = 10000)
    Local $sPacket, $iSocket, $iTimer

    If $sPost = '' Then
        $sPacket =    'GET /' & $sSeite & ' HTTP/1.1' & @CRLF
    Else
        $sPacket =    'POST /' & $sSeite & ' HTTP/1.1' & @CRLF
    EndIf
    $sPacket &=    'Host: ' & $sHost & @CRLF & _
                'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5 (.NET CLR 3.5.30729)' & @CRLF & _
                'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
                'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _
                'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
                'Keep-Alive: 300' & @CRLF & _
                'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
                'Connection: keep-alive' & @CRLF
    If $sReferer <> '' Then
        $sPacket &= 'Referer: '&$sReferer & @CRLF
    EndIf
    If $sCookies <> '' Then
        $sPacket &= 'Cookie: ' & $sCookies & @CRLF
    EndIf
    If $sPost <> '' Then
        $sPacket &= 'Content-Length: ' & StringLen($sPost) & @CRLF
    EndIf
    $sPacket &= @CRLF
    If $sPost <> '' Then
        $sPacket &= $sPost
    EndIf

    TCPStartup()
    If @error Then Return SetError(1,0,"")
    $iSocket = TCPConnect($sIp, 80)
    If @error Then Return SetError(2,0,"")
    TCPSend($iSocket, $sPacket)
    If @error Then Return SetError(3,0,"")
    $iTimer = TimerInit()
    Do
        $sRecv = TCPRecv($iSocket, 1024)
        If TimerDiff($iTimer) > $iMaxTime Then Return SetError(4,0,"")
    Until $sRecv <> ""
    Do
        $sRecv &= TCPRecv($iSocket, 1024)
    Until @error OR StringInStr($sRecv, '</html>')
    TCPCloseSocket($iSocket)
    TCPShutdown()
    Return $sRecv
EndFunc
04/05/2010 11:24 Giovanni04#14
Jetzt weiß ich wirklich nicht mehr, was ich falsch mache... :( das ist deprimierend... ich vermute, dass ich den cookie "session" noch definieren muss... (ist wahrscheinlich n' md5 hash) aber weder im quelltext, noch in den paketen ist die geringste spur von einem hinweis.... zu verzweifeln (für einen anfänger ;))
04/05/2010 12:14 Shadow992#15
Quote:
Originally Posted by Giovanni04 View Post
Jetzt weiß ich wirklich nicht mehr, was ich falsch mache... :( das ist deprimierend... ich vermute, dass ich den cookie "session" noch definieren muss... (ist wahrscheinlich n' md5 hash) aber weder im quelltext, noch in den paketen ist die geringste spur von einem hinweis.... zu verzweifeln (für einen anfänger ;))
Dass das nicht geht ist kein Wunder , du solltest dir mal das anschauen :
[Only registered and activated users can see links. Click Here To Register...]

So ich habe jetzt mal schnell eine Funktionierende Version gemacht (Datei im Anhang)
Page 1 of 2 1 2