PUSH

POP

XCHG

XLAT

LAHF

SAHF

PUSHF

POPF

LEA

LDS

LES

ADD

ADC

INC

AAA

DAA

SUB

SBB

DEC

NEG

CMP

AAS

DAS

MUL

IMUL

AAM

DIV

IDIV

CBW

CWD

AAD

AND

OR

NOT

XOR

TEST

SHL

SHR

SAL

SAR

ROL

ROR

RCL

RCR

JMP

JC

JNC

JE

JZ

JNE

JNZ

JS

JNS

JO

JNO

JP

JPE

JNP

JPO

JA

JNBE

JAE

JNB

JB

JNAE

JBE

JNA

JG

JNLE

JGE

JNL

JL

JNGE

JLE

JNG

LOOP

LOOPZ

LOOPE

LOOPNZ

LOOPNE

CALL

RET

MOVS

MOVSB

MOVSW

CMPS

CMPSB

CMPSW

SCAS

SCASB

SCASW

LODS

STOS

REP

REPZ

REPE

REPNZ

REPNE

CLC

STC

CMC

CLD

STD

CLI

STI

HLT

WAIT

ESC

NOP

LOCK

IN

OUT

INTO

INT

IRET

/* 
 * 根据UDP数据包不可达的ICMP回应追踪网络路由
 * Auther: WenYunlong
 */
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 

/*两个timeval结构相减*/
double tvsub(register struct timeval *out, register struct timeval *in)
{
    double usec = out->tv_usec - in->tv_usec;
    double sec = out->tv_sec;
	if (usec < 0) {
        sec--;
		usec += 1000000;
	}
    sec -= in->tv_sec;

	return sec * 1000.0f + usec/1000.0f;
}

int main(int argc, char *args[]) {
    int icmp_fd, udp_fd;
    char *ipaddr, buf[1024]; /* 需要追踪的IP地址*/

    if(argc != 2) {
        printf("trace \n");
    }
    ipaddr = args[1];

    /* 创建用于接收ICMP封包的原始套节字，绑定到本地端口 */
	icmp_fd = socket(AF_INET, SOCK_RAW, IPPROTO_ICMP);
    if(icmp_fd < 0) {
        fprintf(stderr, "create icmp socket failure : %s\n", strerror(errno));
        return 0;
    }
    
    struct timeval tv;
    tv.tv_sec = 3;
    tv.tv_usec = 0;
    if(setsockopt(icmp_fd, SOL_SOCKET, SO_RCVTIMEO, (char *)&tv, sizeof(tv))) {
        fprintf(stderr, "set icmp socket timeout failure : %s\n", strerror(errno));
        close(icmp_fd);
        return 0;
    }

	struct sockaddr_in local;
	local.sin_family = AF_INET;
	local.sin_port = htons(0);
	local.sin_addr.s_addr = htons(INADDR_ANY);

    /* 帮定端口等待数据到来 */
	if(bind(icmp_fd, (struct sockaddr*)&local, sizeof(local)) != 0)
	{
		fprintf(stderr, "bind icmp socket failure : %s\n", strerror(errno));
		close(icmp_fd);
        return 0;
	}


    int ttl, ret;
	struct icmp *icmp_hdr;
	struct sockaddr_in recv_addr;
    struct ip *ip_hdr;
    struct udphdr *udp_hdr;
    float time; struct timeval send_tval, recv_tval;
    char *p, fip[20],tip[20];
    
    /* 创建用于发送UDP封包的套节字 */
	udp_fd = socket(AF_INET, SOCK_DGRAM, 0);
	struct sockaddr_in udp_addr;
	udp_addr.sin_family = AF_INET;
	udp_addr.sin_port = htons(10000);
	udp_addr.sin_addr.s_addr = htons(INADDR_ANY);
    /* 帮定端口等待数据到来 */
	if(bind(udp_fd, (struct sockaddr*)&udp_addr, sizeof(udp_addr)) != 0)
	{
		fprintf(stderr, "bind udp socket failure : %s\n", strerror(errno));
		close(icmp_fd);
        return 0;
	}

    int ok = 0;
    for(ttl=2;ttl<32;ttl++) {
        struct sockaddr_in dest;
	    dest.sin_family = AF_INET;
	    dest.sin_port = htons(33434+ttl);
	    dest.sin_addr.s_addr = inet_addr(ipaddr);

        if(setsockopt(udp_fd, IPPROTO_IP, IP_TTL, (char*)&ttl, sizeof(ttl)) != 0) {
            close(icmp_fd);
            close(udp_fd);
            fprintf(stderr, "set socket ttl failure : %s\n", strerror(errno));
            return 0;
        }

        gettimeofday(&send_tval, NULL);
        if(sendto(udp_fd, "AAAAAAAA", 8, 0, (struct sockaddr*)&dest, sizeof(dest)) <= 0) {
            close(icmp_fd);
            close(udp_fd);
            fprintf(stderr, "send pakcet failure : %s\n", strerror(errno));
        }
        
        /* 等待接收路由器返回的ICMP报文 */
		int len = sizeof(recv_addr);
		ret = recvfrom(icmp_fd, buf, 1024, 0, (struct sockaddr*)&recv_addr, &len);
        if(ret < 0) {
            fprintf(stderr, "recv pakcet failure : %s\n", strerror(errno));
            break;
        }
        gettimeofday(&recv_tval, NULL);

        /* 解析接收到的ICMP数据 */
        p = buf + sizeof(struct ip);
		icmp_hdr = (struct icmp*)p;

		if(icmp_hdr->icmp_type != 11 && icmp_hdr->icmp_type != 3)
		{
			fprintf(stderr, "unknow icmp type: %d , code: %d \n",
				icmp_hdr->icmp_type, icmp_hdr->icmp_code);
		} else {
			p = icmp_hdr->icmp_data;
            ip_hdr = (struct ip*)p;
            
            p +=  sizeof(struct ip);
            udp_hdr = (struct udphdr *)p;
            
            strcpy(fip, inet_ntoa(ip_hdr->ip_src));
            strcpy(tip, inet_ntoa(ip_hdr->ip_dst));

            ipaddr = inet_ntoa(recv_addr.sin_addr);
			printf("%d route addr : %s (%s:%d => %s:%d),use time %02f\n", ttl, ipaddr, 
                    fip, ntohs(udp_hdr->source), tip, ntohs(udp_hdr->dest), time);
		}
		if(dest.sin_addr.s_addr == recv_addr.sin_addr.s_addr) {
            ipaddr = inet_ntoa(recv_addr.sin_addr);
            ok = 1;
            break;
        }
    }
    if(ok) printf("%s success\n", ipaddr);
    else printf("%s timeout\n", ipaddr);
    close(icmp_fd);
    close(udp_fd);
    return 0;
}