国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

VB設計Win2000下截獲IP數據包程序

2019-11-18 17:41:41
字體：大 中 小
來源：轉載
供稿：網友
以下是在VB中截獲WIN2000下TCP/
PublicConstWSADESCRIPTION_LEN=256
PublicConstWSASYS_STATUS_LEN=128

TypeWSA_DATA
　wVersionAsInteger
　wHighVersionAsInteger
　strDescription(WSADESCRIPTION_LEN 1)AsByte
　strSystemStatus(WSASYS_STATUS_LEN 1)AsByte
　iMaxSocketsAsInteger
　iMaxUdpDgAsInteger
　lpVendorInfoAsLong
EndType

TypeIN_ADDR
　S_addrAsLong
EndType

TypeSOCK_ADDR
　sin_familyAsInteger
　sin_portAsInteger
　sin_addrAsIN_ADDR
　sin_zero(0To7)AsByte
EndType

TypeIPHeader
　lenverAsByte
　tosAsByte
　lenAsInteger
　identAsInteger
　flagsAsInteger
　ttlAsByte
　protoAsByte
　checksumAsInteger
　sourceIPAsLong
　destIPAsLong
EndType

ConstAF_INET=2
ConstSOCK_RAW=3
ConstIPPROTO_IP=0
ConstIPPROTO_TCP=6
ConstIPPROTO_UDP=17
ConstMAX_PACK_LEN=65535
ConstSOCKET_ERROR=-1&

PrivatemwsaDataAsWSA_DATA
Privatem_hSocketAsLong

PrivatemsaLocalAddrAsSOCK_ADDR
PrivatemsaRemoteAddrAsSOCK_ADDR

SubMain()
　DimnResultAsLong

　nResult=WSAStartup(&H202,mwsaData)
　IfnResult<>WSANOERRORThen
　　MsgBox"ErrorenWSAStartup"
　　ExitSub
　EndIf

　m_hSocket=socket(AF_INET,SOCK_RAW,IPPROTO_IP)
　If(m_hSocket=INVALID_SOCKET)Then
　　MsgBox"Errorinsocket"
　　ExitSub
　EndIf

　msaLocalAddr.sin_family=AF_INET
　msaLocalAddr.sin_port=0
　msaLocalAddr.sin_addr.S_addr=inet_addr("192.168.1.125")'這里需要你自己的網卡的IP地址

　nResult=bind(m_hSocket,msaLocalAddr,Len(msaLocalAddr))
　If(nResult=SOCKET_ERROR)Then
　　MsgBox"Errorinbind"
　　ExitSub
　EndIf

　DimInParamBufferAsLong
　DimBytesRetAsLong
　BytesRet=0
　InParamBuffer=1

　nResult=ioctlsocket(m_hSocket,&H98000001,1)

　IfnResult<>0Then
　　MsgBox"ioctlsocket"
　　ExitSub
　EndIf

　DimstrDataAsString
　DimnReceivedAsLong

　'截獲來的數據放在BUFF里面
　DimBuff(0ToMAX_PACK_LEN)AsByte
　DimIPHAsIPHeader

　DoUntilFalse'這個例子里，一直獲取
　DoEvents
　nResult=recv(m_hSocket,Buff(0),MAX_PACK_LEN,0)
　IfnResult=SOCKET_ERRORThen
　　MsgBox"ErrorinRecvData::recv"
　　ExitDo
　EndIf
　CopyMemoryIPH,Buff(0),Len(IPH)'為了訪問方便
　SelectCaseIPH.proto
　　CaseIPPROTO_TCP
　　　'frmHookTcpip.Text1.SelText=HexIp2DotIp(IPH.sourceIP)
　　　'frmHookTcpip.Text1.SelText="----->"
　　　'frmHookTcpip.Text1.SelText=HexIp2DotIp(IPH.destIP)
　　　'frmHookTcpip.Text1.SelText=vbCrLf
　　　Debug.PrintHexIp2DotIp(IPH.sourceIP)&"----->"&HexIp2DotIp(IPH.destIP)
　　　EndSelect
　　Loop

　nResult=shutdown(m_hSocket,2)
　nResult=closesocket(m_hSocket)
　nResult=WSACancelBlockingCall
　nResult=WSACleanup
EndSub

FunctionHexIp2DotIp(ByValipAsLong)AsString
　DimsAsString,p1AsString,p2AsString,p3AsString,p4AsString
　s=Right("00000000"&Hex(ip),8)
　p1=Val("&h"&Mid(s,1,2))
　p2=Val("&h"&Mid(s,3,2))
　p3=Val("&h"&Mid(s,5,2))
　p4=Val("&h"&Mid(s,7,2))
　HexIp2DotIp=p4&"."&p3&"."&p2&"."&p1
　EndFunction
'-----------------------------代碼結束--------------------------------------------------->->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 合江县| 荣昌县| 东乡| 台北县| 龙山县| 苍梧县| 巴东县| 进贤县| 洮南市| 金阳县| 张家川| 赤城县| 江源县| 林口县| 黑水县| 三江| 丹巴县| 银川市| 旬阳县| 论坛| 苍溪县| 深圳市| 定远县| 铜鼓县| 壶关县| 梧州市| 湖北省| 和政县| 太谷县| 西乌珠穆沁旗| 仙游县| 邵武市| 北碚区| 常德市| 枣阳市| 昌都县| 吉木萨尔县| 丘北县| 原平市| 原平市| 北京市|