[HELP] Farmerama TCP Böt

uragan · 08/14/2011, 18:05

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:

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

Ludder231 · 08/14/2011, 21:33

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)

~~Freddy~~ · 08/14/2011, 22:05

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

uragan · 08/14/2011, 22:34

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

Ludder231 · 08/14/2011, 22:45

Na dann weiß ich jz auch gerade nicht was falsch sein könnte....

uragan · 08/15/2011, 23:08

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

skater1985 · 08/15/2011, 23:49

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)

uragan · 08/16/2011, 13:32

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

mgierw · 08/25/2011, 09:03

Hi all.
If you wish you can download SWF file from:

and then decompile it. Try my decompiler from this site:

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

- for now only in Polish and English.

uragan · 08/25/2011, 22:39

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

uragan · 10/09/2011, 05:15

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

Danke

uragan · 10/10/2011, 15:53

nicht so viele antworten hinter einander