国产探花免费观看_亚洲丰满少妇自慰呻吟_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
'-----------------------------代碼結束--------------------------------------------------->->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 平果县| 图木舒克市| 双辽市| 天津市| 怀柔区| 清丰县| 兴城市| 西乌珠穆沁旗| 清镇市| 赤壁市| 尼勒克县| 鄂州市| 昌吉市| 延庆县| 山丹县| 江孜县| 永丰县| 浑源县| 县级市| 墨脱县| 岱山县| 呼图壁县| 江西省| 盐源县| 藁城市| 靖江市| 邓州市| 花垣县| 梨树县| 凤城市| 镇雄县| 夏邑县| 北安市| 崇仁县| 开原市| 城固县| 洮南市| 开鲁县| 永修县| 利辛县| 乌兰浩特市|