Windows自带的Tracert是向远程主机发送ICMP包进行_程序员之家(Socket API实现Trace Route )

开发技术指南» 文章正文

引言： Windows自带的Tracert是向远程主机发送ICMP包进行

摘要：今日看到一个帖子问：如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。于是自己动手做了一个。我的思路是不用菜单，用窗体来实现（我想不仅是delphi其他编程语言应该一样可以）。例子中我用到了一个第三方控件：trayicon用来显示动态托盘图标（下载地址：asp?articleid=1985">http://2ccc.com/article.asp?articleid=1985）。......

·delphi create http link on your form »显示摘要«

摘要：there are at least 3 ways to create an http link on your form, ill describe 2 of them here. terms of agreement: by using this article, you agree to the following terms... 1) you may use this article i......

Socket API实现Trace Route

unit yrecords; 【程序编程相关:防止全局hook入侵Delphi版，20】

windows自带的tracert是向远程主机发送icmp包进行追踪,但是目前很多主机关闭了icmp答复,这个工具不太好使了~~~~~原理咱知道,正规的trace不就是发送ttl依次递增的udp包吗?什么网关与路由敢随意丢弃我们的udp包而不通知我们?俺的icmp包你可以不理,但是udp包~~~~~不怕俺黑你??? 【推荐阅读:CodeColor相关（一）背景】

uses 【扩展信息:防止全局hook入侵Delphi版，20】

interface

windows;

const

packet_size = 32;

max_packet_size = 512;

trace_port = 34567;

local_port = 5555;

type

s32 = integer;

u32 = dword;

u8 = byte;

u16 = word; pu16 = ^u16;

//ip packet header

pipheader = ^yipheader;

yipheader = record

u8verlen : u8;//4bits ver, 4bits len, len*4=true length

u8tos : u8;//type of service, 3bits 优先权(现在已经被忽略), 4bits tos, 最多只能有1bit为1

u16totallen : u16;//整个ip数据报的长度,以字节为单位.

u16id : u16;//标识主机发送的每一份数据报.

u16offset : u16;//3bits 标志,13bits片偏移

u8ttl : u8;//生存时间字段设置了数据报可以经过的最多路由器数.

u8protol : u8;//协议类型,6表示传输层是tcp协议.

u16checksum : u16;//首部检验与.

... 下一页

·[原创]delphi中scriptcontrol的高级应用（二） »显示摘要«

摘要：delphi中scriptcontrol的高级应用（二）5、delphi中使用javascript的base64的加解密算法搜索google：javascript base64加密就会找到很多base64加密的代码，以下就是本人搜索到的一段代码（以下代码版权归其原作者）：var base64encodechars = "abcdefghijklmnopqrstuvwxyzabcdef......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：