[HELP] Farmerama TCP B�t

08/14/2011 18:05 uragan#1

Hallo

So jetzt mal hier an die Intelligenten :)
Komme nicht weiter, mit dem coden, eines TCP Bots
Ich benutze dazu WebTCP, wenn ihr dies nicht besitzt, dann hier link zum download:
[Only registered and activated users can see links. Click Here To Register...]

Ich habe nat�rlich ein test account erstellt, damit jede/r von euch dort einloggen kann und die packete �berpr�fen kann.
Bei

Code:

MsgBox(0,"1",...)

ist der Recv noch perfekt, doch bei

Code:

MsgBox(0,"2",...)

ist aufeinmal

Quote:

{"noAuthUser":1}

Was ich genau machen m�chte:

Auf dem feld sind 4 felder, ich m�chte alle 4 felder ernten.
(zuerst reicht nur ernten) :)
Am schnellsten wird SALAT fertig, dauer 5min, daher ist es an dem am besten zu testen.

Hier der Code

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WebTcp.au3>
#Include <Array.au3>
#Include <Date.au3>


$file = "1.txt"
FileDelete($file)


_WebTcp_Startup()

Global $site1 = _WebTcp_Create(False,True)
$site1.Navigate("http://farmerama.bigpoint.com/","loginForm_default_username=epvptest&loginForm_default_password=testacc&loginForm_default_login_submit=Login","application/x-www-form-urlencoded"  & @CRLF & "Accept-Encoding: gzip, deflate")
$site1.Navigate($site1.Header.GetLocation)
$site1.Navigate("http://farmerama.bigpoint.com/?action=internalGame")
$rid = StringRegExp($site1.body,'flashvars.token = "(.*)"',3)
$site1.Navigate("http://farmerama.bigpoint.com/crossdomain.xml")
$site1.Navigate("http://farmerama.bigpoint.com/GameAPI.php?action=core.bpid&bpid=4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB")
if IsArray($rid) Then
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId=31249791&tok=" & $rid[0],"json=%7B%22config%2EgC%22%3A%7B%22js%22%3A1%7D%7D")
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId=31249791&tok=" & $rid[0],"json=%7B%22config%2EgI%22%3A%7B%7D%7D")
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId=31249791&tok=" & $rid[0],"json=%7B%22config%2EgU%22%3A%7B%22js%22%3A1%7D%7D")
 $fielddata = $site1.body
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId=31249791&tok=" & $rid[0],"json=%7B%22push%2EgST%22%3A%7B%22js%22%3A1%2C%22nr%22%3A1%7D%7D")
MsgBox(0,"1",$site1.body)
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId=31249791&tok=" & $rid[0],"json=%7B%22field%2EfIA%22%3A%7B%22q%22%3A%7B%223%22%3A%7B%22fx%22%3A10%2C%22angle%22%3A0%2C%22fia%22%3A%22harvest%22%2C%22fy%22%3A10%2C%22uid%22%3A18052345%2C%22inventID%22%3A%22%22%7D%7D%7D%7D&")

MsgBox(0,"2",$site1.body)
 Else
	MsgBox(0,"","error")
 	FileWrite("error.txt", _Now())
EndIf

FileWrite($file, $site1.body)

_WebTcp_Shutdown()

Was genau mache ich falsch?

PS: Logins sind im code

Vielen Dank

08/14/2011 21:33 Ludder231#2

Bist du sicher das das nach json= immer gleich ist?

UNd $site1.Navigate("http://farmerama.bigpoint.com/GameAPI.php?action=core.bpid&bpid=4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB")

Das Fette ist bestimmt auch nciht immer die selbe...

€: vllt musst du noch _autoitobject_startup() TCPStartup() <- am anfang und _autoitobject_shutdown() TCPShutdown() <- am ende Packen

P.S: Hier mal wie ich die Game.API f�r DarkOrbit auslesen lasse vllt. hilfts dir ja:

PHP Code:


			
$erg=_StringBetween($oWebTcp.body,'http://'&$server&'.darkorbit.bigpoint.com/GameAPI.php?req=', ')">')
$blub=StringTrimRight($erg[0],1)
$oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/GameAPI.php?req="&$blub)

08/14/2011 22:05 Freddy#3

Quote:

Originally Posted by Ludder231

Bist du sicher das das nach json= immer gleich ist?

UNd $site1.Navigate("http://farmerama.bigpoint.com/GameAPI.php?action=core.bpid&bpid=4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB")

Das Fette ist bestimmt auch nciht immer die selbe...

�: vllt musst du noch _autoitobject_startup() TCPStartup() <- am anfang und _autoitobject_shutdown() TCPShutdown() <- am ende Packen

P.S: Hier mal wie ich die Game.API f�r DarkOrbit auslesen lasse vllt. hilfts dir ja:

PHP Code:

$erg=_StringBetween($oWebTcp.body,'http://'&$server&'.darkorbit.bigpoint.com/GameAPI.php?req=', ')">') $blub=StringTrimRight($erg[0],1) $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/GameAPI.php?req="&$blub)

_AutoItObject_Startup() und _AutoItObject_Shutdown()
Braucht er sicherlich nicht, da es in den Funktionen
_WebTcp_Startup() und _WebTcp_Shutdown()
mit drin ist

08/14/2011 22:34 uragan#4

Quote:

Originally Posted by Ludder231

Bist du sicher das das nach json= immer gleich ist?

UNd $site1.Navigate("http://farmerama.bigpoint.com/GameAPI.php?action=core.bpid&bpid=4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB")

Das Fette ist bestimmt auch nciht immer die selbe...

�: vllt musst du noch _autoitobject_startup() TCPStartup() <- am anfang und _autoitobject_shutdown() TCPShutdown() <- am ende Packen

P.S: Hier mal wie ich die Game.API f�r DarkOrbit auslesen lasse vllt. hilfts dir ja:

PHP Code:

$erg=_StringBetween($oWebTcp.body,'http://'&$server&'.darkorbit.bigpoint.com/GameAPI.php?req=', ')">') $blub=StringTrimRight($erg[0],1) $oWebTcp.Navigate("http://"&$server&".darkorbit.bigpoint.com/GameAPI.php?req="&$blub)

F�r DarkOrbit habe ich auch ein bot dort ist es ein wenig leichter,
Aber die GameApi habe ich ja sowieso, hier ist es �hnlich

TCPStartup()... ist in WebTCP drine

Das Fette 4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB, wie du es sagst :) . ist immer das selbe, auch bei anderen Accounts

Und json muss immer gleich sein. Darunter verbingt sich die ID von dem feld und die position. hier normale form der 4 json

Code:

{"config.gC":{"js":1}}
{"config.gI":{}}
{"config.gU":{"js":1}}
{"push.gST":{"js":1,"nr":1}}
{"field.fIA":{"q":{"0":{"fx":10,"fy":8,"angle":0,"fia":"harvest","uid":18052345,"inventID":""}}}}

dabei sind die felder zusammen:

"fx":8 | "fy":8
"fx":10 | "fy":8
"fx":10 | "fy":10
"fx":8 | "fy":10

ich denk so war das

08/14/2011 22:45 Ludder231#5

Na dann wei� ich jz auch gerade nicht was falsch sein k�nnte.... :)

08/15/2011 23:08 uragan#6

niemand sonst ne ahnung wieso das ganze nicht klappt?
bin hier schon am verzweifeln :(

08/15/2011 23:49 skater1985#7

Bei Farmerama gibt es eine kleine T�cke.
Einmal fehlt bei deinem Post-Argument die Variable "s". Wie die berechnet wird, wei� ich leider auch nicht. �ndert sich aber st�ndig.
Dann gibt es einen Counter der bei jeder Aktion (bew�ssern, ernten etc.) erh�ht wird.

Code:

{"field.fIA":{"q":{"[B][I][COLOR="Red"]0[/COLOR][/I][/B]":{"fx":10,"fy":8,"angle":0,"fia":"harvest","uid":18052345,"inventID":""}}}}

Kann aber auch nur an dem fehlendem "s" liegen.
Poste doch mal eben den Header der zur�ck kommt. M�chte dein Skript ungerne starten weil ich das Spiel im Moment an hab.
Edit:
Als Post-Argument

Code:

s = fbf0e1381826649a6fd8c4dd1352f86f

(md5hash)

08/16/2011 13:32 uragan#8

Quote:

fehlendem "s"

Das "s=..." habe ich �berall weggelassen, weil bei den

Quote:

{"config.gC":{"js":1}}
{"config.gI":{}}
{"config.gU":{"js":1}}

Super ohne Funzt.

Diese Z�hler hatte ich auch gesehen. Das Problem ist, dass es sofort bei ersten Packet den Fehler ausgibt, also bei "q : 0"
Da ist noch der Counter ein Schritt weiter.

Der Socket ist auch immer gleich, echt komisch

08/25/2011 09:03 mgierw#9

Hi all.
If you wish you can download SWF file from:
[Only registered and activated users can see links. Click Here To Register...]
and then decompile it. Try my decompiler from this site:
[Only registered and activated users can see links. Click Here To Register...]
You should find class named NetSend - it is a starting point to analyze how the "s" field is constructed.
I've already made such bot - visit [Only registered and activated users can see links. Click Here To Register...] - for now only in Polish and English.

08/25/2011 22:39 uragan#10

thx for the Extractor and the right swf file name.
All be try to get it

10/09/2011 05:15 uragan#11

so jetzt mal zur alten thema, ich br�uche bitte hilfe von den profis.

hier der code im spiel:

Spoiler

und hier mein autoit code

Spoiler

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Soccer_Ball.ico
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WebTcp.au3>
#Include <Array.au3>
#Include <Date.au3>

Global	$_MD5Opcode = '0xC85800005356576A006A006A008D45A850E8280000006A00FF750CFF75088D45A850E8440000006A006A008D45A850FF7510E8710700005F5E5BC9C210005589E58B4D0831C0894114894110C70101234567C7410489ABCDEFC74108FEDCBA98C7410C765432105DC21000C80C0000538B5D088B4310C1E80383E03F8945F88B4510C1E0030143103943107303FF43148B4510C1E81D0143146A40582B45F88945F4394510724550FF750C8B45F88D44031850E8A00700008D43185053E84E0000008B45F48945FC8B45FC83C03F39451076138B450C0345FC5053E8300000008345FC40EBE28365F800EB048365FC008B45102B45FC508B450C0345FC508B45F88D44031850E84D0700005BC9C21000C84000005356576A40FF750C8D45C050E8330700008B45088B088B50048B70088B780C89D021F089D3F7D321FB09D801C1034DC081C178A46AD7C1C10701D189C821D089CBF7D321F309D801C7037DC481C756B7C7E8C1C70C01CF89F821C889FBF7D321D309D801C60375C881C6DB702024C1C61101FE89F021F889F3F7D321CB09D801C20355CC81C2EECEBDC1C1C21601F289D021F089D3F7D321FB09D801C1034DD081C1AF0F7CF5C1C10701D189C821D089CBF7D321F309D801C7037DD481C72AC68747C1C70C01CF89F821C889FBF7D321D309D801C60375D881C6134630A8C1C61101FE89F021F889F3F7D321CB09D801C20355DC81C2019546FDC1C21601F289D021F089D3F7D321FB09D801C1034DE081C1D8988069C1C10701D189C821D089CBF7D321F309D801C7037DE481C7AFF7448BC1C70C01CF89F821C889FBF7D321D309D801C60375E881C6B15BFFFFC1C61101FE89F021F889F3F7D321CB09D801C20355EC81C2BED75C89C1C21601F289D021F089D3F7D321FB09D801C1034DF081C12211906BC1C10701D189C821D089CBF7D321F309D801C7037DF481C7937198FDC1C70C01CF89F821C889FBF7D321D309D801C60375F881C68E4379A6C1C61101FE89F021F889F3F7D321CB09D801C20355FC81C22108B449C1C21601F289D021F889FBF7D321F309D801C1034DC481C162251EF6C1C10501D189C821F089F3F7D321D309D801C7037DD881C740B340C0C1C70901CF89F821D089D3F7D321CB09D801C60375EC81C6515A5E26C1C60E01FE89F021C889CBF7D321FB09D801C20355C081C2AAC7B6E9C1C21401F289D021F889FBF7D321F309D801C1034DD481C15D102FD6C1C10501D189C821F089F3F7D321D309D801C7037DE881C753144402C1C70901CF89F821D089D3F7D321CB09D801C60375FC81C681E6A1D8C1C60E01FE89F021C889CBF7D321FB09D801C20355D081C2C8FBD3E7C1C21401F289D021F889FBF7D321F309D801C1034DE481C1E6CDE121C1C10501D189C821F089F3F7D321D309D801C7037D'
		$_MD5Opcode &= 'F881C7D60737C3C1C70901CF89F821D089D3F7D321CB09D801C60375CC81C6870DD5F4C1C60E01FE89F021C889CBF7D321FB09D801C20355E081C2ED145A45C1C21401F289D021F889FBF7D321F309D801C1034DF481C105E9E3A9C1C10501D189C821F089F3F7D321D309D801C7037DC881C7F8A3EFFCC1C70901CF89F821D089D3F7D321CB09D801C60375DC81C6D9026F67C1C60E01FE89F021C889CBF7D321FB09D801C20355F081C28A4C2A8DC1C21401F289D031F031F801C1034DD481C14239FAFFC1C10401D189C831D031F001C7037DE081C781F67187C1C70B01CF89F831C831D001C60375EC81C622619D6DC1C61001FE89F031F831C801C20355F881C20C38E5FDC1C21701F289D031F031F801C1034DC481C144EABEA4C1C10401D189C831D031F001C7037DD081C7A9CFDE4BC1C70B01CF89F831C831D001C60375DC81C6604BBBF6C1C61001FE89F031F831C801C20355E881C270BCBFBEC1C21701F289D031F031F801C1034DF481C1C67E9B28C1C10401D189C831D031F001C7037DC081C7FA27A1EAC1C70B01CF89F831C831D001C60375CC81C68530EFD4C1C61001FE89F031F831C801C20355D881C2051D8804C1C21701F289D031F031F801C1034DE481C139D0D4D9C1C10401D189C831D031F001C7037DF081C7E599DBE6C1C70B01CF89F831C831D001C60375FC81C6F87CA21FC1C61001FE89F031F831C801C20355C881C26556ACC4C1C21701F289F8F7D009D031F001C1034DC081C1442229F4C1C10601D189F0F7D009C831D001C7037DDC81C797FF2A43C1C70A01CF89D0F7D009F831C801C60375F881C6A72394ABC1C60F01FE89C8F7D009F031F801C20355D481C239A093FCC1C21501F289F8F7D009D031F001C1034DF081C1C3595B65C1C10601D189F0F7D009C831D001C7037DCC81C792CC0C8FC1C70A01CF89D0F7D009F831C801C60375E881C67DF4EFFFC1C60F01FE89C8F7D009F031F801C20355C481C2D15D8485C1C21501F289F8F7D009D031F001C1034DE081C14F7EA86FC1C10601D189F0F7D009C831D001C7037DFC81C7E0E62CFEC1C70A01CF89D0F7D009F831C801C60375D881C6144301A3C1C60F01FE89C8F7D009F031F801C20355F481C2A111084EC1C21501F289F8F7D009D031F001C1034DD081C1827E53F7C1C10601D189F0F7D009C831D001C7037DEC81C735F23ABDC1C70A01CF89D0F7D009F831C801C60375C881C6BBD2D72AC1C60F01FE89C8F7D009F031F801C20355E481C291D386EBC1C21501F28B4508010801500401700801780C5F5E5BC9C20800C814000053E840000000800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008F45EC8B5D0C6A088D4310508D'
		$_MD5Opcode &= '45F850E8510000008B4310C1E80383E03F8945F483F838730B6A38582B45F48945F0EB096A78582B45F48945F0FF75F0FF75ECFF750CE831F8FFFF6A088D45F850FF750CE823F8FFFF6A1053FF7508E8050000005BC9C210005589E55156578B7D088B750C8B4D10FCF3A45F5E595DC20C00'

_WebTcp_Startup()

Global $site1 = _WebTcp_Create(False,True)
$site1.Navigate("http://farmerama.bigpoint.com/","loginForm_default_username=epvptest&loginForm_default_password=testacc&loginForm_default_login_submit=Login","application/x-www-form-urlencoded"  & @CRLF & "Accept-Encoding: gzip, deflate")
$site1.Navigate($site1.Header.GetLocation)
$site1.Navigate("http://farmerama.bigpoint.com/?action=internalGame")
$uid = StringRegExp($site1.body,'flashvars.uId = "(.*)"',3)
$rid = StringRegExp($site1.body,'flashvars.token = "(.*)"',3)
$site1.Navigate("http://farmerama.bigpoint.com/crossdomain.xml")
$site1.Navigate("http://farmerama.bigpoint.com/GameAPI.php?action=core.bpid&bpid=4cdf4dc1BhUmtQXGXI4Q9k4hz4TkwwjB")
if IsArray($rid) and IsArray($uid) Then
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId="&$uid[0]&"&tok=" & $rid[0],"json=%7B%22config%2EgC%22%3A%7B%22js%22%3A1%7D%7D")
$cHsh = StringRegExp($site1.body,'"cHsh":"(.*)",',3)
if IsArray($cHsh) Then
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId="&$uid[0]&"&tok=" & $rid[0],"json=%7B%22config%2EgI%22%3A%7B%7D%7D")
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId="&$uid[0]&"&tok=" & $rid[0],"json=%7B%22config%2EgU%22%3A%7B%22js%22%3A1%7D%7D")

$json = '{"field.fIA":{"q":{"0":{"fia":"sow","fx":8,"fy":8,"uid":18052336,"angle":0,"inventID":"salad"}}}}'
$packet = getpacket($uid[0], $cHsh[0], $json)
MsgBox(0,"",$packet)
 $site1.Navigate("http://farmerama.bigpoint.com/FarmAPI.php?uId="&$uid[0]&"&tok=" & $rid[0],$packet)
FileDelete("111111111.txt")
FileWrite("111111111.txt", $site1.body)

 Else
	MsgBox(0,"","ERROR: no $cHsh")
EndIf

 Else
 	FileWrite("error.txt", _Now())
	MsgBox(0,"","ERROR: no uid or rid")
EndIf

_WebTcp_Shutdown()


Func getsig($userid, $confighash, $jsondata)
	$sigtmp = _MD5(($userid & $confighash) & _MD5($jsondata) & "d7458bee1ddad44c1bab613ff42619448bbb6f90cf5acb4836a5749577a19cf5")
	return $sigtmp
EndFunc

Func getpacket($userid, $confighash, $jsondata)
	$sig = getsig($userid, $confighash, $jsondata)
	return "json=" & _UnicodeURLEncode($jsondata) & "&s=" & StringLower($sig)
EndFunc

Func _UnicodeURLEncode($UnicodeURL)
    $UnicodeBinary = StringToBinary ($UnicodeURL, 4)
    $UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
    $UnicodeBinaryLength = StringLen($UnicodeBinary2)
    Local $EncodedString
    For $i = 1 To $UnicodeBinaryLength Step 2
        $UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
        If StringInStr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar, 4)) Then
            $EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
        Else
            $EncodedString &= '%' & $UnicodeBinaryChar
        EndIf
    Next
    Return $EncodedString
EndFunc   ;==>_UnicodeURLEncode

Func _MD5($Data)
	Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($_MD5Opcode) & "]")
	DllStructSetData($CodeBuffer, 1, $_MD5Opcode)

	Local $Input = DllStructCreate("byte[" & BinaryLen($Data) & "]")
	DllStructSetData($Input, 1, $Data)

	Local $Digest = DllStructCreate("byte[16]")

	DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
													"ptr", DllStructGetPtr($Input), _
													"int", BinaryLen($Data), _
													"ptr", DllStructGetPtr($Digest), _
													"int", 0)

	Local $Ret = DllStructGetData($Digest, 1)
	$Input = 0
	$Digest = 0
	$CodeBuffer = 0
	Return StringMid($Ret,3)
EndFunc

Ausgabe bis LINE 34 OK danach immer

Quote:

"{"noAuthUser":1}"

Was habe ich bei SIG zusammensetzung �bersehen?

fals webtcp ben�tigt wird, dann hier
[Only registered and activated users can see links. Click Here To Register...]

Danke

10/10/2011 15:53 uragan#12

nicht so viele antworten hinter einander :)