下载月排行
- 蠕虫病毒全面解析 5977
- 移花接木 制作广告页 5936
- TS安全检测得webshell全过程 5933
- MYCCL表面特征码定位加修改特征码过杀软 5862
- 详谈病毒与制作(编程实现) 5855
- 简单BT挂马 5852
- 制作DOS命令集 5812
- 改变背景背景优化方法 5804
- 全自动傻瓜化抓高质量服务器(附工具) 5782
- 为什么选择VB 5776
- 幽灵教程之揭开60秒黑腾讯骗局 5735
- 新浪跨站漏洞 5717
立即下载编写惊世个性IP查询器
软件大小: | 12.8MB |
---|---|
软件语言: | 简体中文 |
软件类别: | 黑客教学 - 黑客动画 |
授权方式: | 共享版 |
应用平台: | Win9X/2000/XP/2003/ |
更新时间: | 2008/08/19 15:35:40 |
开 发 商: | 暂无信息 |
联 系 人: | 暂无联系方式 |
分享收藏 | 收藏 |
解压密码: | 本站默认解压密码:www.9876543210sf.com |
推荐等级: | |
会员中心: | 【账号登录】 【账号注册】 开通VIP下载流程 |
查毒情况: |
[复制下载页面地址给QQ/MSN上的好友]软件介绍
教程主题: 利用DELPHI 7.0 编写查寻IP 地址的程序 (习作)
教程制作: 惊世 QQ 826787527
操作环境:Microsoft Windows XP [版本 5.1.2600]
做个简单的查寻IP的小程序把 送给我的群里的朋友们
简单看下把
下载一个纯真数据库QQWry.Dat, 在www.cz88.net下载
纯真数据库和程序放在同一目录
自己下把
211.140.192.186
接下来我们打开Delphi做一个
基本上也就是这样了把 大家 DIY 下自己搞 把
我做了注释 大家自己看下把
untQQWry.pas单元,功能都在里面,有注释
引用untQQWry.pas这个单元 ComCtrls和DateUtils也要包含入去
public下放
QQWry: TQQWry;
var下放
IPFile: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
IPFile:= ExtractFilePath(Paramstr(0)) + 'QQWry.Dat';
//ExtractFilePath是打开文件的函数
QQWry:=TQQWry.Create(IPFile);
Memo1.Lines.Add('文件大小: ' + IntToStr(QQWry.GetQQWryFileSize));
Memo1.Lines.Add('记录总数: ' + IntToStr(QQWry.GetIPRecordNum));
Memo1.Lines.Add('更新日期: ' + format('%d年%d月%d日', [yearof(QQWry.GetQQWryDate), monthof(QQWry.GetQQWryDate), dayof(QQWry.GetQQWryDate)]));
Memo1.Lines.Add('数据库来源: ' + QQWry.GetQQWryDataFrom);
QQWry.Free;
end;
这样,就能一打开软件就自动打开QQWry.Dat这个数据库了,传给了全局变量IPFile
////////////////////////////////////////////////////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
begin
if (IPFile<>'') then begin
QQWry:=TQQWry.Create(IPFile);
Memo1.Lines.Add('记录ID: ' + IntToStr(QQWry.GetIPRecordID(edit1.text)) +
' IP范围: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[0] + ' - ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[1] +
' 国家: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[2] +
' 地区: ' + QQWry.GetIPMsg(QQWry.GetIPRecordID(edit1.text))[3]);
QQWry.Free;
end;
end;
看得出 GetIPRecordID函数在untQQWry.pas中间单来说就是 跟据用户给定一个IP地址找字符串
在数据库中读出相关数据在程序显示出来
主要代码在 untQQWry.pas 大家仔细钻研下
今天身体原因 累了 再见
本人有尝收 徒弟 5名
有时间上网 对技术感兴趣者 可以找我
主教编程 入侵拿站
出售各种游戏木马 生成器 小马 定做各种黑软程序
主页 http://hi.baidu.com/zhizunma521
QQ群 36025116