Bongspiel Bot

[nidofu]

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

[Giovanni04]

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.

[schlurmann]

Ich hab die schönste Bong.

Wie viele Leute spielen das Spiel? Dann guck ich's mir vielleicht 'mal an.

[Giovanni04]

98.000 spieler.... in deutschland... dann noch 'n paar in holland.

[schlurmann]

Originally Posted by Giovanni04

98.000 spieler.... in deutschland... dann noch 'n paar in holland.

Geht ja. Ich mach mich 'mal 'ran.

[Giovanni04]

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

[Dreckvieh]

und von den 98k vllt 50k inaktive? ;P

[Giovanni04]

hä??

Edit: Achsoooo! (Wer lesen kann ist kla im vorteil ) Ich hab gelesen initiative

[Giovanni04]

aber, ja wahrscheinlich! das ist relativ blöd geregelt mit dem freunde werben... naja. macht trotzdem fun^^

[Reextion]

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

[Giovanni04]

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! naja, wäre zu mindest nsehr nett von euch

[Giovanni04]

#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

[Giovanni04]

Hmpf... Jetzt bin ich fertig, und habe das feeling, dass es nich funzt :| fuck... naja, hier nomma mein Quellcode:

#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

[Giovanni04]

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 )

[Shadow992]

Originally Posted by Giovanni04

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 :


So ich habe jetzt mal schnell eine Funktionierende Version gemacht (Datei im Anhang)