易语言伪装IP发送UDP源码

资源介绍：

易语言伪装IP发送UDP源码，源码调用了WSASocket，closesocket等API实现了发送UDP。

资源作者：

@三叶资源网

资源界面：

.版本 2

.子程序 sendPesuoIpUDP
.局部变量 StartupData, WSADataType
.局部变量 remote, sockaddr_in
.局部变量 s
.局部变量 bOpt, 文本型
.局部变量 ret
.局部变量 BUFFER_SIZE
.局部变量 buffer, 字节集
.局部变量 strMessage, 文本型
.局部变量 ipHdr, ipHdr
.局部变量 udpHdr, udpHdr
.局部变量 iIPSize, 整数型
.局部变量 iIPVersion, 整数型
.局部变量 iTotalSize, 整数型
.局部变量 target_ip_address, 文本型
.局部变量 treat_ip_address, 文本型
.局部变量 uToPort
.局部变量 uFromPort
.局部变量 iUdpSize
.局部变量 par, 整数型

.如果真 (WSAStartup (257, StartupData) ≠ 0)
    返回 ()
.如果真结束
' WSASocket(AF_INET, SOCK_RAW, IPPROTO_UDP, NULL, 0,WSA_FLAG_OVERLAPPED)
s ＝ WSASocket (2, 3, 17, 0, 0, 1)  ' udp
.如果真 (s ＝ -1)
    返回 ()
.如果真结束
bOpt ＝ 取空白文本 (32 × 1024)
ret ＝ setsockopt (s, 0, 2, bOpt, 取文本长度 (bOpt))
.如果真 (ret ＝ -1)
    返回 ()
.如果真结束
BUFFER_SIZE ＝ 80
buffer ＝ 取空白字节集 (BUFFER_SIZE)
strMessage ＝ “11111111111”
' Set IP header
iIPSize ＝ LocalSize1 (ipHdr)
iIPVersion ＝ 4
ipHdr.ip_verlen ＝ 位或 (左移 (iIPVersion, 4), iIPSize)
ipHdr.ip_tos ＝ 0
iTotalSize ＝ LocalSize1 (ipHdr) ＋ LocalSize2 (udpHdr) ＋ 取文本长度 (strMessage)
ipHdr.ip_totallength ＝ htons (iTotalSize)
ipHdr.ip_id ＝ 0
ipHdr.ip_offset ＝ 0
ipHdr.ip_ttl ＝ 128
ipHdr.ip_protocol ＝ 17  ' udp
ipHdr.ip_checksum ＝ 0
target_ip_address ＝ “222.211.64.111”
treat_ip_address ＝ “222.208.6.172”
ipHdr.ip_destaddr ＝ inet_addr (target_ip_address)  ' 接收方IP地址
ipHdr.ip_srcaddr ＝ inet_addr (treat_ip_address)  ' 伪造的IP地址
' Set UDP header
uToPort ＝ 18555
udpHdr.dst_portno ＝ htons (uToPort)  ' 接收方端口
uFromPort ＝ 12311
udpHdr.src_portno ＝ htons (uFromPort)  ' 伪造的端口
iUdpSize ＝ LocalSize2 (udpHdr) ＋ 取文本长度 (strMessage)
udpHdr.udp_length ＝ htons (iUdpSize)
udpHdr.udp_checksum ＝ 0
' 组建待发送的UDP报文
par ＝ 1
CopyMemory1 (buffer [par], ipHdr, LocalSize1 (ipHdr))
par ＝ par ＋ LocalSize1 (ipHdr)
CopyMemory2 (buffer [par], udpHdr, LocalSize2 (udpHdr))
par ＝ par ＋ LocalSize2 (udpHdr)
CopyMemory3 (buffer [par], strMessage, 取文本长度 (strMessage))
remote.sin_family ＝ 2
remote.sin_port ＝ htons (18555)
remote.sin_addr ＝ inet_addr (“222.211.64.111”)

ret ＝ sendto (s, buffer, iTotalSize, 0, remote, LocalSize3 (remote))
closesocket (s)
WSACleanup ()

资源下载：