一、文件信息

文件大小：163840字节

加壳类型：ASPack 2.12

编写语言：Borland Delphi 6.0

病毒类型：感染型

二、病毒描述

该样本为Delphi感染型病毒，通过感染Delphi库文件中的SysConst.dcu文件，使用户在使用被感染的库文件编程后，生成的文件均被感染。

三、 病毒行为

1. 病毒在第N次处理初始化表时（Call StartExe）进行操作，即完成在程序加载正常Delphi文件前执行病毒代码。（数字N根据被感染用户的Delphi版本不同有所不同）。

2. 循环检测注册表键值HKLM\\software\\Borland\\Delphi\\X.0 判断当前机器是否安装Delphi。检测版本（4.0　 5.0　 6.0　 7.0）。如本机未安装则直接跳出病毒代码进行正常的初始化工作，不进行感染。

3. 如安装了Delphi则通过访问注册表得到用户的Delphi安装路径。

4. 根据用户安装路径将源文件夹中的SysConst.pas和库文件夹中的SysConst.dcu备份

即%%\\Source\\Rtl\\Sys\\SysConst.pas　 与%%\\Lib\\SysConst.dcu。

5. 将Delphi源码代码写入源文件SysConst.pas中

6. 调用%%Bin\\dcc32.exe 将感染后的源码文件SysConst.pas 生成本地库文件放入\\Lib替换SysConst.dcu文件。

7. 将正常SysConst.pas备份恢复，删除源码中感染的文件。

8. 更改库文件中被替换后的SysConst.dcu文件时间，使其与其他文件一致。

四、 病毒危害程度

该病毒实际上并不具有危害性，只是其更改了库文件后使编译生成的所有程序均带有不正常代码，而其代码行为即为以上描述。

因为其将Delphi库文件修改使其使用Delphi语言编译后的文件均被感染，所以被感染文件大小不一，加壳情况也各异，本分析样本只是从中随机挑选，样本大小与加壳类型都不具有代表性。

五、解决方案

这个病毒具有二次感染能力，也就是说原来你编译出来的所有Delphi程序都可以再次感染你机器上的Delphi库文件，要彻底清除该病毒需做到以下几点：

1、不要运行任何Delphi编写的程序。

2、使用杀软扫描所有的Delphi编写的可执行文件并清除病毒。（或直接删除所有哦的Delphi编写的可执行文件，包括从网上下载的）

3、将文件 %DelphiInstallPath%\\Lib\\SysConst.dcu 删掉，然后执行步骤4 或 步骤5和6。

4、将文件 %DelphiInstallPath%\\Lib\\SysConst.bak 改名为 SysConst.dcu，结束。

5、调用 DCC32.exe 编译出新的 SysConst.dcu ，编译命令如下： %DelphiInstallPath%\\bin\\DCC32.exe "%DelphiInstallPath% \\\\Source\\Rtl\\Sys\\SysConst.pas"

6、将新编译的SysConst.dcu（在%DelphiInstallPath%\\Source\\Rtl\\Sys\\目录下）文件复制到 %DelphiInstallPath%\\Lib\\ 目录，结束。