DELPHI被病毒感染!!!!!!!!!!!

lyguo 2009-08-20 11:35:43
编译出的程序,都提示有病毒
解决办法:
从debug目录下COPY出
Sysconst.pas 替换 LIB目录下的 。

大小如果超出12K,则此文件已经被感染。



领先的信息安全解决方案提供商—卡巴斯基实验室宣布近期检测到一种名为Virus.Win32.Induc.a的病毒,该病毒会通过CodeGear Delphi的集成软件开发环境系统进行传播。目前,卡巴斯基实验室的所有产品已经具备查杀该病毒的能力。



Virus.Win32.Induc.a 病毒利用了 Delphi 开发环境创建可执行文件时所采用的二步过程机制。首先,源代码被编译成中间 .dcu文件(Delphi已编译单元文件),然后这些中间 .dcu文件会被关联用于创建最终的Windows 可执行文件。



新发现的这种病毒会在被感染程序运行时被激活。激活后,病毒会检查计算机上是否安装了Delphi开发环境系统,检查的版本包括4.0, 5.0, 6.0 以及 7.0 。一旦发现安装了Delphi,Virus.Win32.Induc.a 病毒会对Delphi源文件Sysconst.pas进行编译,生成一个修改过的名为Sysconst.dcu的编译文件。



几乎所有的 Delphi 项目都包含“use SysConst”这一行代码,这意味着即使病毒只感染一个系统模块,最终也将导致开发环境中所有的程序被感染。换句话说,被修改的 SysConst.dcu 文件会导致所有在已被感染的环境下开发的子程序中包含病毒代码,而被修改的 .pas文件则会被删除,因为它已经没有任何用途。



目前,Virus.Win32.Induc.a 病毒似乎还不构成威胁,尽管其具有传染性,但并未表现出其他恶意攻击行为(payload)。很可能,此病毒只是用来演示和测试这种新的病毒感染方式。虽然此病毒并不具备毁灭性的攻击行为(payload),但它已经感染个多个版本的常见即时通讯客户端QIP,再加上其通过软件开发程序所使用的 .dcu文件进行感染的非同寻常的感染方式,使得此病毒已在全球广泛传播。我们预测,网络罪犯很可能会在将来重拾此病毒,并将其改进,使其具有更强的破坏性。



卡巴斯基实验室的所有产品已经可以成功查杀Virus.Win32.Induc.a 病毒,其中包括已编译的Delphi文件以及Windows可执行文件。
...全文
489 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
swlilike 2009-08-24
  • 打赏
  • 举报
回复
感谢楼主我也中毒了
jzinfo 2009-08-24
  • 打赏
  • 举报
回复
我的也中了毒 郁闷。
sparklerl 2009-08-23
  • 打赏
  • 举报
回复
mark

今天编译的程序居然报毒,才发现我也中了
cuixd2020 2009-08-20
  • 打赏
  • 举报
回复
我中了,谢谢楼主
beifangke 2009-08-20
  • 打赏
  • 举报
回复
先记下
wxsan 2009-08-20
  • 打赏
  • 举报
回复
1831
winstonbonaparte 2009-08-20
  • 打赏
  • 举报
回复
我还没有遇到这个情况
kendychong 2009-08-20
  • 打赏
  • 举报
回复
当然,只有全部编译的时候才会重新编译该单元,这样做只是不容易被重新感染。
kendychong 2009-08-20
  • 打赏
  • 举报
回复
其实有个更简单的办法,你查找到"SysConst.pas"文件,随意创建一个目录,把SysConst.pas复制到这个目录下,然后,把这个目录的路径,加到环境选项的库路径(Library Path)下,这样SysConst每次都会被编译,同时也覆盖掉生成的Dcu,安全得很!
donil 2009-08-20
  • 打赏
  • 举报
回复
无论中毒与否,用dcc32重编译sysconst.pas可覆盖原dcu文件。
donil 2009-08-20
  • 打赏
  • 举报
回复
用ue打开sysconst.dcu,中毒的可以看到病毒代码。
iamduo 2009-08-20
  • 打赏
  • 举报
回复
我也碰到这种情况。
但是只有11.3 & 11.4
lz 我是否被感染?
感染了该病毒后:1.该病毒会在每个磁盘的根目录复制exe文件,图标为xp文件夹图标,大小为37k,你的根 目录下有多少文件夹它就会复制多少个病毒,而且文件名会和你每个磁盘根目录下的文件夹名一样,原有的 文件夹会被隐藏。2.更改注册表。3.复制uk.exe和autorun.inf。 Delphi下的实现方法 众所周知,使用Delphi编写出来的程序都很大,至少也有上百K的大小,这么大的文件如何做到有利于传播 呢?熟悉Delphi的朋友都应该知道,在uses里面加入forms、class、graphics这些单元会使生成的文件非常 大,所以我们尽可能不使用这些单元,这里只使用windows、sysutils两个单元。这样,编译完的文件只有 几十K,移除其它的单元如class、graphics等,只需要把uses后边的单元名去掉就可以了,可是直接去掉 forms是不行的,编译时会出现错误,那如何编译出无窗体的程序呢? 1.在Delphi的“file(文件)”菜单上选择“新建应用程序(New Application)”。 2.因为我们的程序要伪装成文件夹,所以先要设置程序图标为xp默认的文件夹图标。选择“project(工程) ”-“option(选项)”-“application(应用程序)”,点击“load icon”按钮,选择我们已经准备好的文 件夹图标。为什么要先设置图标呢,这是因为下一步去除窗体后就不能再进行设置了,application settings里面的项就是灰色的了,无法再进行设置和修改了,所以需要先进行设置。 3.在Delphi的“Project”菜单下选择“Remove From Project”,选择Form1,按“OK”按钮,成功移除窗 体。 4.在Project1.DPR中,把“Uses Forms”更改为“Uses Windows,sysutils”。 5.把“Application.Initialize;”和“Application.Run;”删除掉,运行一下,这样我们就成功建立了一 个无窗体的可执行文件,看看是不是才十几K大小。 6.程序的大小搞定了,开始编写代码吧,在“{$R *.res}”后面begin的前面编写代码,

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧