[Сеть, интернет] Пакеты из IE(взял/отдал)

mini · 6 Ноя 2011

Игрушка работает на IE и у него свой сокет(который при каждом новом запуске меняется и узнавал я его при помощи ВПЕ), а когда я запускаю

Код:

$socket= TCPConnect($ip, $port);
func _Add ();
MsgBox(64, "TCPClient", $socket);
TCPSend($socket, $sendtxt & @CRLF); 
EndFunc;

То мне выдаётся какойто другой сокет. Я так понимаю что скрипт и ИЕ ходят через разные сокеты по одному ИП и Порту. Как скрипт соединить с ИЕ, чтобы можно было в игрушку слать пакеты? :scratch:

Fever · 6 Ноя 2011

http://autoit-script.ru/index.php/topic,2475.0.html

mini · 6 Ноя 2011

подозреваю, что мне показали на

Код:

_TCPHttpOpen ($type,$link[,$protocol])

Но у меня линк состоит из ИП и порта.

Код:

_TCPHttpOpen ("POST", "1 . 2 .5 . 1 , 2000");
_TCPHttpOpen ("POST", "1 . 2 .5 . 1 : 2000");

выдаёт нуль. Как ещё попробовать их записать?
И где можно почитать про:

Тип запроса (GET, POST, HEAD, ...)

? тоесть, подробнее о запросах

Хотя... эта функция создаёт сокет, а мне надо считать тот, через который работает ИЕ и слать пакетыы в него.

winstan · 6 Ноя 2011

Код:

$socket= TCPConnect($ip, $port)

это команда открыть новый сокет т.е. ты сначала где-то там открываешь сокет (в игре), а потом создаёшь новый сокет (подключение)и удивляешься почему они разные...

Для подключеия к другому сокету(к уже существующиму), нужно делать снифер .

mini · 6 Ноя 2011

Я и не удивляюсь - я и говорю, что я хочу узнать номер сокета(всего лишь номер сокетa ;D). Пакеты мне подскажет ВПЕ, а вот сокет...

Кстати, это какойто замкнутый круг получается - функция для определения сокетов мне нужна для снифера, а снифер мне нужен, чтобы узнать сокет. :laugh:

mini · 8 Ноя 2011

Подозреваю, что если есть сниферы на AUTOIT'е, то должны быть функции для узнавания занятого сокета и считывания пакетов. Подскажите такие функции.

winstan · 8 Ноя 2011

mini [?]

функция для определения сокетов мне нужна для снифера, а снифер мне нужен, чтобы узнать сокет

А снифер не может показать все подключения?
Или использовать снифер другой для выяснения этого...

BIOS · 8 Ноя 2011

http://opensource.grisambre.net/pcapau3

mini · 9 Ноя 2011

Люди, чтож вы так любите ссылки слать без пояснений))) Хоть пару слов к чему была ссылка про пикап :smile:

. Он вроде бы не позволяет отправлять пакеты, да ещё и в открытый сокет.
нашел гетпакет и сендпакет. бьюсь с пикапом :whistle:
Добавлено:
Сообщение автоматически объединено: 19 Ноя 2011

изменил пкап_демо под свои нужды и вот что получилось:

Код:

; Winpcap autoit3 UDF demo - V1.2c
; Copyleft GPL3 Nicolas Ricquemaque 2009-2011
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
#include <StaticConstants.au3>
#include <ComboConstants.au3>

#include <Winpcap.au3>

$winpcap=_PcapSetup()
If ($winpcap=-1) Then
	MsgBox(16,"Pcap error !","WinPcap not found !")
	exit
EndIf

$pcap_devices=_PcapGetDeviceList()
If ($pcap_devices=-1) Then
	MsgBox(16,"Pcap error !",_PcapGetLastError())
	exit
EndIf

GUICreate("Packet capture", 500, 350)
$interface=GUICtrlCreateCombo("", 80, 15, 400,default,$CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "Pcap capture file")
For $i = 0 to Ubound($pcap_devices)-1
	GUICtrlSetData(-1, $pcap_devices[$i][1])
Next
$filter=GUICtrlCreateInPut ("", 80, 45, 300)
$promiscuous=GUICtrlCreateCheckbox ( "promiscuous", 400, 45)
$start=GUICtrlCreateButton ( "Start", 20, 310, 60)
$stop=GUICtrlCreateButton ( "Stop", 90, 310,60)
GUICtrlSetState (-1, $GUI_DISABLE )
$clear=GUICtrlCreateButton ( "Clear", 160, 310,60)
$stats=GUICtrlCreateButton ( "Stats", 230, 310,60)
GUICtrlSetState (-1, $GUI_DISABLE )
$iMemo2 = GUICtrlCreateEdit("", 300, 300, 80, 40,  $ES_AUTOVSCROLL + $WS_HSCROLL)
GUICtrlSetFont($iMemo2, 9, 400, 0, "Courier New")
$Button2 = GUICtrlCreateButton("Send", 385, 300, 40, 20)
$save=GUICtrlCreateCheckbox ( "Save packets", 395, 320,90,30)
GUICtrlSetStyle(GUICtrlCreateLabel ( "Interface :", 10, 20, 60),$SS_RIGHT)
GUICtrlSetStyle(GUICtrlCreateLabel ( "Filter :", 10, 50, 60),$SS_RIGHT)
$packetwindow = GUICtrlCreateListView("No|Time|Len|Packet", 10, 90, 480, 200)
_GUICtrlListView_SetColumn($packetwindow,0,"No",40,1)
_GUICtrlListView_SetColumnWidth($packetwindow, 1, 80)
_GUICtrlListView_SetColumn($packetwindow,2,"Len",40,1)
_GUICtrlListView_SetColumnWidth($packetwindow, 3, 300)

GUISetState()

$i=0
$pcap=0
$packet=0
$pcapfile=0

Do
	$msg = GUIGetMsg()


		If ($msg=$Button2) then
			$sendtxt2 = GUICtrlRead($iMemo2)
             _ADD ()
			 endif
	If ($msg=$start) Then
		If GUICtrlRead($promiscuous)=$GUI_CHECKED Then
			$prom=1
		Else
			$prom=0
		EndIf
		$int=""
		If (GUICtrlRead($interface)="Pcap capture file") Then
			$file=FileOpenDialog ( "Pcap file to open ?", ".", "Pcap (*.pcap)|All files (*.*)" ,1 )
			If $file="" Then ContinueLoop
			$int="file://"&$file
		Else
			For $n = 0 to Ubound($pcap_devices)-1
				If $pcap_devices[$n][1]=GUICtrlRead($interface) Then
					$int=$pcap_devices[$n][0]
					ExitLoop
				EndIf
			Next
		EndIf
		$pcap=_PcapStartCapture($int,GUICtrlRead($filter),$prom)
		If ($pcap=-1) Then
			MsgBox(16,"Pcap error !",_PcapGetLastError())
			ContinueLoop
		EndIf
		$linktype=_PcapGetLinkType($pcap)
		If ($linktype[1]<>"EN10MB") Then
			MsgBox(16,"Pcap error !","This example only works for Ethernet captures")
			ContinueLoop
		Endif
		If GUICtrlRead($save)=$GUI_CHECKED Then
			$file=FileSaveDialog ( "Pcap file to write to ?", ".", "Pcap (*.pcap)" ,16 )
			If ($file<>"") Then
				If StringLower(StringRight($file,5))<>".pcap" Then $file&=".pcap"
				$pcapfile=_PcapSaveToFile($pcap,$file)
				If ($pcapfile=0) Then MsgBox(16,"Pcap error !",_PcapGetLastError())
			EndIf
		EndIf
		GUICtrlSetState ($stop, $GUI_ENABLE)
		GUICtrlSetState ($stats, $GUI_ENABLE)
		GUICtrlSetState ($start, $GUI_DISABLE)
		GUICtrlSetState ($save, $GUI_DISABLE)
	EndIf

	If ($msg=$stop) Then
		If IsPtr($pcapfile) Then
			_PcapStopCaptureFile($pcapfile)
			$pcapfile=0
		EndIf
		if Not IsInt($pcap) Then _PcapStopCapture($pcap)
		$pcap=0
		GUICtrlSetState ($stop, $GUI_DISABLE)
		GUICtrlSetState ($stats, $GUI_DISABLE)
		GUICtrlSetState ($start, $GUI_ENABLE)
		GUICtrlSetState ($save, $GUI_ENABLE)
	EndIf

	If ($msg=$clear) Then
		_PcapGetStats($pcap)
		_GUICtrlListView_DeleteAllItems($packetwindow)
		$i=0
	EndIf

	If ($msg=$stats) Then
		$s=_PcapGetStats($pcap)
		_ArrayDisplay($s,"Capture statistics")
	EndIf

	If IsPtr($pcap) Then 	; If $pcap is a Ptr, then the capture is running
		$time0=TimerInit()
		While (TimerDiff($time0)<500) ; Retrieve packets from queue for maximum 500ms before returning to main loop, not to "hang" the window for user
			$packet=_PcapGetPacket($pcap)
			If IsInt($packet) Then ExitLoop
			MsgBox(16,"Pcap packet",$packet[3])
			GUICtrlCreateListViewItem($i&"|"&StringTrimRight($packet[0],4)&"|"&$packet[2]&"|"&MyDissector($packet[3]), $packetwindow)
			$data=$packet[3]
			_GUICtrlListView_EnsureVisible($packetwindow, $i)
			$i+=1
			If IsPtr($pcapfile) Then _PcapWriteLastPacket($pcapfile)
		Wend
	EndIf

Until $msg=$GUI_EVENT_CLOSE

If IsPtr($pcapfile) Then _PcapStopCaptureFile($pcapfile)	; A file is still open: close it
if IsPtr($pcap) Then _PcapStopCapture($pcap)	; A capture is still running: close it
_PcapFree()

Exit

func _Add ();

$mypacket="0x"& $sendtxt2
MsgBox(16,"Pcap error !",$mypacket)
_PcapSendPacket($pcap,$mypacket)
If (_PcapSendPacket($pcap,$mypacket)=-1) Then
	MsgBox(16,"Pcap error !",_PcapGetLastError())
	exit
EndIf

EndFunc;


Func MyDissector ($data) ; Quick example packet dissector....
	Local $macdst=StringMid ($data,3,2)&":"&StringMid ($data,5,2)&":"&StringMid ($data,7,2)&":"&StringMid ($data,9,2)&":"&StringMid ($data,11,2)&":"&StringMid ($data,13,2)
	Local $macsrc=StringMid ($data,15,2)&":"&StringMid ($data,17,2)&":"&StringMid ($data,19,2)&":"&StringMid ($data,21,2)&":"&StringMid ($data,23,2)&":"&StringMid ($data,25,2)
	Local $ethertype=BinaryMid ( $data, 13 ,2 )

	If $ethertype="0x0806" Then return "ARP "&$macsrc&" -> "&$macdst

	If $ethertype="0x0800" Then
		Local $src=Number(BinaryMid ($data, 27 ,1))&"."&Number(BinaryMid ($data, 28 ,1))&"."&Number(BinaryMid ($data, 29 ,1))&"."&Number(BinaryMid ($data, 30 ,1))
		Local $dst=Number(BinaryMid ($data, 31 ,1))&"."&Number(BinaryMid ($data, 32 ,1))&"."&Number(BinaryMid ($data, 33 ,1))&"."&Number(BinaryMid ($data, 34 ,1))
		Switch BinaryMid ($data, 24 ,1)
			Case "0x01"
			   return "ICMP "&$src&" -> "&$dst
			Case "0x02"
			   return "IGMP "&$src&" -> "&$dst
			Case "0x06"
				Local $srcport=Number(BinaryMid ($data, 35 ,1))*256+Number(BinaryMid ($data, 36 ,1))
				Local $dstport=Number(BinaryMid ($data, 37 ,1))*256+Number(BinaryMid ($data, 38 ,1))
				Local $flags=BinaryMid ($data, 48 ,1)
				Local $f=""
				If BitAND($flags,0x01) Then $f="Fin "
				If BitAND($flags,0x02) Then $f&="Syn "
				If BitAND($flags,0x04) Then $f&="Rst "
				If BitAND($flags,0x08) Then $f&="Psh "
				If BitAND($flags,0x10) Then $f&="Ack "
				If BitAND($flags,0x20) Then $f&="Urg "
				If BitAND($flags,0x40) Then $f&="Ecn "
				If BitAND($flags,0x80) Then $f&="Cwr "
				$f=StringTrimRight(StringReplace($f," ",","),1)
				return "TCP("&$f&") "&$src&":"&$srcport&" -> "&$dst&":"&$dstport
			Case "0x11"
				Local $srcport=Number(BinaryMid ($data, 35 ,1))*256+Number(BinaryMid ($data, 36 ,1))
				Local $dstport=Number(BinaryMid ($data, 37 ,1))*256+Number(BinaryMid ($data, 38 ,1))
				return "UDP "&$src&":"&$srcport&" -> "&$dst&":"&$dstport
			Case Else
				return "IP "&BinaryMid ($data, 24 ,1)&" "&$src&" -> "&$dst
		EndSwitch
		return BinaryMid ( $data, 13 ,2 )&" "&$src&" -> "&$dst
	EndIf

	If $ethertype="0x8137" OR $ethertype="0x8138" OR $ethertype="0x0022" OR $ethertype="0x0025" OR $ethertype="0x002A" OR $ethertype="0x00E0" OR $ethertype="0x00FF" Then
		return "IPX "&$macsrc&" -> "&$macdst
	EndIf

	return "["&$ethertype&"] "&$macsrc&" -> "&$macdst
EndFunc

вроде бы всё верно и отображает только то, что забито в фильтре. Но пакет, который я отсылаю, не отображается в табличке. И в игре(окне ИЕ) ничего не отображается.
в фильтр забиваю "port 2000" и у меня отображаются принятые и отосланые пакеты.

Код:

func _Add ();

$mypacket="0x"& $sendtxt2
MsgBox(16,"Pcap error !",$mypacket)
_PcapSendPacket($pcap,$mypacket)
If (_PcapSendPacket($pcap,$mypacket)=-1) Then
	MsgBox(16,"Pcap error !",_PcapGetLastError())
	exit
EndIf

EndFunc;

Может както подругому надо отсылать?
Добавлено:
Сообщение автоматически объединено: 30 Ноя 2011

Неужели никто не пользовался этой функцией?

Код:

_PcapSendPacket($pcap,$mypacket)

mini · 30 Ноя 2011

Вчера на одном из форумов посвящённых автоиту нашёл, что автоит не может отправлять пакеты через открытый сокет. Придётся заниматься паскалем.

Автор темы	Похожие темы	Форум	Ответы	Дата
H	[Сеть, интернет] Поиск html кода на сайте	Общие вопросы по AutoIt	0	8 Авг 2019
	[Сеть, интернет] InetRead, InetGet, ERROR 403. Доступ запрещен	Автоматизация IE и Web-интерфейса	2	12 Июл 2019
Y	[Сеть, интернет] Не копирует txt в сетевую папку в домене	Общие вопросы по AutoIt	1	23 Апр 2019
C	[Сеть, интернет] Отслеживать исходящие пакеты.	Общие вопросы по AutoIt	0	2 Янв 2014
O	[Сеть, интернет] Сервер не отправляет пакеты после принятия	Общие вопросы по AutoIt	0	30 Ноя 2011

Поиск

Поиск

[Сеть, интернет] Пакеты из IE(взял/отдал)

mini

нинзя-черепангел

Fever

Скриптер

mini

нинзя-черепангел

winstan

Эксплотатор)

mini

нинзя-черепангел

mini

нинзя-черепангел

winstan

Эксплотатор)

BIOS

Жизнь - игра. График - супер, но сюжет - хреновый.

mini

нинзя-черепангел

mini

нинзя-черепангел