Bot na bazie pakietów TCP

[Loude]

Witam, jeżeli ktoś się na tym zna, to jeżeli ma czas, mógłby mi wytłumaczyć na czym mniej więcej to polega?

W googlach szukałem, ale znalazłem tylko 2 tuty, do tego po Niemiecku... A Niemieckiego nie znam.

[jackraymund]

też nie znam niemca bo jest chujowy

lecz wyslij te tutki, zawsze można się z kodu rozczytać

[Loude]

Łap na pw.

[jackraymund]

w 1 jest przedstawione jak spoffowac pakiety, w 2 jest sposób jak ręcznie wysyłać/ odbierac te pakiety, lecz dotyczą one przeglądarki, nie aplikacji, a wygląda to jak winhttp

czyli porównując winhttp au3 vs winhttp c++(tak sądzę że w tym języku) @edit jednak delphi, czyli o wiele lepiej

proste że lepiej chyba c++ wybrać

link do tutoriala o winhttp

http://www.mpcforum....zegladarkowych/

 

wrzucam kod z tamtego forum dla ciekawych

 

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 

 

[Loude]

Hmm, a jeżeli chciałbym zrobić bota do flashowej gry przeglądarkowej to zdałoby się to?

[jackraymund]

jak to gra typu shakes czy soccerstar to bez problemu, zależy co zwracają zapytania

@edit

zobacz do tutka, tam pytali o shakes

a tutaj o soccer

http://www.mpcforum....nie-soccerstar/

[Loude]

Hmm... gra typu Dark Orbit, tylko duuuużo słabiej rozbudowana i słabiej zabezpieczona.

www.black-galaxy.com/play.php