中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 发个查杀金威(logo_1.exe)病毒的JS程序
English/Chinese Fix Translation
作者:
标题: 发个查杀金威(logo_1.exe)病毒的JS程序 上一主题 | 下一主题
chainliq
高级用户

学无尽止


积分 635
发帖 244
注册 2006-4-15
来自 广西贵港
状态 离线
『楼 主』:  发个查杀金威(logo_1.exe)病毒的JS程序 使用 LLM 解释/回答一下

前几天网吧中啦这个鬼病毒,用尽啦各种方法还是无法清除,后来到它处找到啦这样一个脚本文件,杀毒好利害,而且不会损坏原应用程序!

TaskKill("logo1_.exe");
TaskKill("rundl132.exe");
var window, lstKill, pnlScan, form1 = new Form;
form1.Run();
function Form()
{
var IE = WSH.GetObject("", "InternetExplorer.Application");
IE.ToolBar = 0;
IE.StatusBar = 0;
IE.Width = 350;
IE.Height = 360;
IE.Navigate("about:blank");
var document = IE.document;
document.body.scroll = "no";
document.body.style.font = "9pt 宋体";
window = document.frames;
document.body.charset = "gb2312";
document.bgColor = "menu";
document.body.style.border = 0;
document.title = "Logo1_.exe 病毒清除工具";
this.Run = function()
{
var btnKill = new Button("清除病毒");
var filebox = new FileBox;
var grpScan = new Group;
var grpKill = new Group("快速清除病毒");
var dirPath = new TextBox;
var btnScan = new Button("开始扫描");
pnlScan = new Panel;
lstKill = new ListBox;
dirPath.value = "D:\\";
grpScan.Text.data = "目录扫描";
pnlScan.Text.data = "准备就绪";
lstKill.style.width = "100%";
lstKill.style.height = "2in";
AddControl(grpKill);
grpKill.Add(filebox);
grpKill.Add(btnKill);
AddControl(grpScan);
grpScan.Add(dirPath);
grpScan.Add(btnScan);
grpScan.Add(pnlScan);
grpScan.Add(lstKill);
btnKill.onclick = btnKill_Clicked;
btnScan.onclick = btnScan_Clicked;
IE.Visible = true;
try
{
while(!window.closed)
{
if(btnScan.disabled)
{
try
{
var FSO = new ActiveXObject("Scripting.FileSystemObject");
var Folder = FSO.getFolder(dirPath.value);
FolderList(Folder);
}
catch(err)
{
window.alert(err.message);
}
btnScan.disabled = false;
window.alert("扫描完成。");
}
WSH.Sleep(1000);
}
}
catch(err)
{}
function btnKill_Clicked()
{
var FilePath = filebox.value;
if(FilePath && Check(FilePath))
{
if(window.confirm("发现病毒,是否清除?"))
{
try
{
Backup(FilePath);
}
catch(Err){}
while(Check(FilePath)) Clear(FilePath);
window.alert("清除了一个病毒。");
}
}
else
{
window.alert("未发现病毒。");
}
}
function btnScan_Clicked()
{
while(lstKill.options.length) lstKill.options.remove(0);
btnScan.disabled = true;
}
}
function AddControl(obj)
{
document.body.appendChild(obj);
}
function FileBox()
{
var obj = document.createElement("input");
obj.type = "file";
return obj;
}
function Button(text)
{
var obj = document.createElement("input");
obj.type = "button";
obj.value = text;
return obj;
}
function TextBox()
{
return document.createElement("input");
}
function Panel()
{
var Div = document.createElement("div");
Div.Add = function(Obj)
{
this.appendChild(Obj);
}
Div.Text = document.createTextNode();
Div.Add(Div.Text);
Div.style.overflow = "hidden";
return Div;
}
function Group(Title)
{
var fieldset = document.createElement("fieldset");
var legend = document.createElement("legend");
fieldset.Text = document.createTextNode();
fieldset.Text.data = Title;
legend.appendChild(fieldset.Text);
fieldset.Add = function(Obj)
{
this.appendChild(Obj);
}
fieldset.Add(legend);
fieldset.style.marginBottom = "2mm";
return fieldset;
}
function ListBox()
{
var select = document.createElement("select");
select.multiple = true;
select.Add = function(text)
{
var opt = window.Option(text);
select.options.add(opt);
}
return select;
}
}
function TaskKill(Process)
{
var WinMgmts = GetObject("WinMgmts://127.0.0.1");
var ProcList = WinMgmts.ExecQuery("select * from win32_process");
var ProcList = new Enumerator(ProcList);
while(!ProcList.atEnd())
{
if(ProcList.item().Name.toLowerCase() == Process.toLowerCase())
ProcList.item().terminate();
ProcList.moveNext();
}
}
function Check(SourcePath)
{
var Code = "MZKERNEL32.DLL\x00\x00LoadLibraryA\x00\x00\x00\x00GetProcAddress\x00\x00|\x00\x00BKwdwing@";
var Stream = new ActiveXObject("Adodb.Stream");
Stream.Open();
Stream.Charset = "gb2312";
Stream.LoadFromFile(SourcePath);
var Body = Stream.ReadText(60);
Stream.Close();
Body = Body.replace(/[\s\S]\x00\x00BK/, "|\x00\x00BK");
return Body == Code;
}
function Clear(SourcePath)
{
var Stream = new ActiveXObject("Adodb.Stream");
Stream.Open();
Stream.LoadFromFile(SourcePath);
var Body = Stream.ReadText(500 * 1024);
Stream.Close();
var Match = "";
while(Match.length < 21) Match += "\x00";
Match += "MZ";
var C = 0, Temp = "";
while(C< Body.length && Temp.indexOf(Match) <0)
{
var Uni = Body.substr(C, 1000);
C += 1000;
Temp += Decode(Uni);
}
var Position = Temp.indexOf(Match) + 21;
Stream.Type = 1;
Stream.Open();
Stream.LoadFromFile(SourcePath);
Stream.Position = Position;
Body = Stream.Read();
Stream.Position = 0;
Stream.SetEOS();
Stream.Write(Body);
Stream.SaveToFile(SourcePath, 2);
Stream.Close();
}
function Backup(SourcePath)
{
var FSO = new ActiveXObject("Scripting.FileSystemObject");
var File = FSO.GetFile(SourcePath);
File.Copy(SourcePath + ".logo1_vir", false);
}
function Decode(text)
{
return text.replace(/([\u0000-\uffff])/g, function($1)
{
var uni = $1.charCodeAt(0).toString(16);
while(uni.length < 4) uni = "0" + uni;
uni = uni.replace(/(\w{2})(\w{2})/g, "%$2%$1");
return unescape(uni);
});
}
function ScanFiles(Folder)
{
var Files = new Enumerator(Folder.Files);
while(!Files.atEnd())
{
if(Files.item().Name.slice(-4).toLowerCase() == ".exe")
{
var Path = Files.item().Path;
pnlScan.Text.data = Path;
if(Check(Path))
{
try
{
Backup(Path);
}
catch(err){}
while(Check(Path)) Clear(Path);
lstKill.Add(Path + " (OK)");
}
WSH.Sleep(50);
}
Files.moveNext();
}
}
function FolderList(Folder)
{
ScanFiles(Folder);
var Folders = new Enumerator(Folder.SubFolders);
WSH.Sleep(50);
while(!Folders.atEnd())
{
if(Folders.item().Path.match(/\\/g).length > 255) continue;
pnlScan.Text.data = Folders.item().Path + "\\";
FolderList(Folders.item());
Folders.moveNext();
}
}

要是网吧用户想清除客户机的
可改这一行,设为开机起动,即可隐藏杀毒:

IE.Visible = true;

把这一行改成:

btnScan.disabled = true;

以上要杀那个符的自己改吧!

保存为**.js即可


再调用以下批处理清除病毒垃圾
@echo off
del 盘付:\*.logo1_vir /f/s/q/a
del 盘付:\_desktop.ini /f/s/q/a
即可


附件 1: logo_1.exe彻底查杀-叼.rar (2006-10-22 11:07, 2.46 KiB, 下载附件所需积分 1 点 ,下载次数: 325)
2006-10-22 11:07
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (86682419)  编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下


  下载了,谢楼主~


2006-10-22 12:08
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
gxfc
新手上路





积分 17
发帖 11
注册 2006-10-22
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

下来试试,不会损坏原应用程序比较好。


2006-10-22 13:29
查看资料  发短消息  网志   编辑帖子  回复  引用回复
chainliq
高级用户

学无尽止


积分 635
发帖 244
注册 2006-4-15
来自 广西贵港
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

哈哈,发啦话题没多大反应噢,看来各位对付这个病毒的方法有很多种噢,不知道哪位再举例几种就再好不过啦!


2006-10-24 22:24
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (86682419)  编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

http://www.cn-dos.net/forum/viewthread.php?tid=23352&fpage=1&highlight=js%2Belectronixtar

51js.com 上转过来的吧,希望还是注明一下。

这段js代码在批处理室发了3次了,版主把合并了吧

Last edited by electronixtar on 2006-10-24 at 10:40 PM ]





C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-10-24 22:39
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
deadfat
新手上路





积分 2
发帖 1
注册 2007-3-23
状态 离线
『第 6 楼』:  试试看 使用 LLM 解释/回答一下

感谢分享


2007-3-24 03:55
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
icm
新手上路





积分 12
发帖 6
注册 2006-10-23
状态 离线
『第 7 楼』:   使用 LLM 解释/回答一下

3Q,谢谢分享!@@!


2007-3-24 04:46
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
qiukong983
新手上路





积分 2
发帖 1
注册 2007-4-4
来自 泸州
状态 离线
『第 8 楼』:   使用 LLM 解释/回答一下

好啊


2007-4-4 02:26
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
a201341717
贫困用户





积分 -2
发帖 20
注册 2007-1-30
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下



   此帖被 -7 点积分      点击查看详情   
评分人:【 NaturalJ0 分数: -3  时间:2007-4-4 03:05
评分人:【 baomaboy 分数: -4  时间:2007-4-4 03:13




[img=2,1]http://c.py99.net/pic/f?v=20074/31311547.jpg[/img]
2007-4-4 02:37
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
fhygogo
新手上路





积分 2
发帖 1
注册 2007-4-4
状态 离线
『第 10 楼』:   使用 LLM 解释/回答一下

感激ing……!!


2007-4-4 23:51
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
zy88889999
新手上路





积分 2
发帖 1
注册 2007-7-1
状态 离线
『第 11 楼』:   使用 LLM 解释/回答一下

好啊 顶一个


2007-7-1 21:03
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
83738396
新手上路





积分 2
发帖 1
注册 2007-9-10
状态 离线
『第 12 楼』:   使用 LLM 解释/回答一下

谢谢


2007-9-10 15:35
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
star85
初级用户




积分 31
发帖 11
注册 2007-9-10
状态 离线
『第 13 楼』:   使用 LLM 解释/回答一下

请问下,是用什么编的?


2007-9-10 17:12
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
67411666
初级用户





积分 45
发帖 25
注册 2007-10-14
状态 离线
『第 14 楼』:   使用 LLM 解释/回答一下

thanks


2007-10-14 16:32
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
stonemiss
新手上路





积分 1
发帖 1
注册 2010-1-28
状态 离线
『第 15 楼』:   使用 LLM 解释/回答一下

xiexie


2010-2-1 10:17
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: