Htich Posted January 8, 2014 Report Share Posted January 8, 2014 L-am testat am adaugat la functia de shell , un /folder/folder/shell.php , si nu-l gaseste pe situl respectiv, chiar daca era up shell-ul , deci no fun programul asta . Link to comment Share on other sites More sharing options...
anti6610 Posted January 10, 2014 Report Share Posted January 10, 2014 You can not really save them Link to comment Share on other sites More sharing options...
nikenzza Posted January 20, 2014 Report Share Posted January 20, 2014 (edited) eu sunt mai nou pe aici din cate obs eu, bagi un site, el scaneaza sa vada daca are admin.php sau alte fisiere de genul. ok programul vede daca are, dar dupa?ce tool putem folosi ca sa-l putem "sparge" ? Edited January 20, 2014 by nikenzza Link to comment Share on other sites More sharing options...
sleed Posted January 21, 2014 Report Share Posted January 21, 2014 de ce tot la distrugere trebuie sa ajungem , in loc , se pot atata crea cu php, html , css sau c++,js, etc.. , unii dintre noi vrem doar sa facem bani cu scam, clonare carduri etc.. bagati va mintile in cap si lasati "copilariile". Link to comment Share on other sites More sharing options...
Maximus Posted January 25, 2014 Report Share Posted January 25, 2014 (edited) pentru a extrage pana la ultima pagina poti proceda asa : Delegate Sub SetTextDelegate(ByVal sText As String, ByVal c As Color) Private SetText As New SetTextDelegate(AddressOf SetTextBoxText) Private Sub SetTextBoxText(ByVal sText As String, ByVal color As Color) With Me.RichTextBox1 .SelectionStart = .TextLength .SelectionColor = color .AppendText(sText & Environment.NewLine) .SelectionColor = .ForeColor End With RichTextBox1.ScrollToCaret() End Sub1. functia Public Function GBA_GOOGLE(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, Optional ByRef startPos As Integer = 0) As List(Of String) Dim iPos As Integer, iEnd As Integer, strResult As String, lenStart As Integer = strStart.Length Dim L As New List(Of String) Do Until iPos = -1 strResult = String.Empty iPos = strSource.IndexOf(strStart, startPos) iEnd = strSource.IndexOf(strEnd, iPos + lenStart) If iPos <> -1 AndAlso iEnd <> -1 Then strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart)) L.Add(strResult) startPos = iPos + lenStart End If Loop Return L End Function2. functia Private Function GetBetween(ByVal sSearch As String, ByVal sStart As String, ByVal sStop As String, Optional ByVal lSearch As Integer = 1) As String Dim lTemp As Long lSearch = InStr(lSearch, sSearch, sStart) If lSearch > 0 Then lSearch = lSearch + Len(sStart) lTemp = InStr(lSearch, sSearch, sStop) If lTemp > lSearch Then Return Trim(Mid$(sSearch, lSearch, lTemp - lSearch)) End If Return vbNullString End Function3. asta il lasezi in thread nou , dar trebuie sa le controlezi daca faci un for each Public Sub Crwl() For Each Dork As String In Dorks If CheckBox1.Checked = True Then Dim X As New System.Threading.Thread(AddressOf Gcrawl) X.IsBackground = True X.Start(TextBox2.Text.Replace("%dork%", Dork)) Invoke(SetText, New Object() {"Thread started for : " & TextBox2.Text.Replace("%dork%", Dork), Color.Lime}) CurrentThreads += 1 Do While CurrentThreads >= MaxThreads System.Threading.Thread.Sleep(1000) Loop End If Next End SubPublic MaxThreads as integer = 5CurrentThreads : Public CurrentThreads as integer = 0cand lansezi un thread faci CurrentThreads +=1in thread , inainte de END SUB pui CurrentThreads -=14. crawl thread Public Sub Gcrawl(ByVal URL As Object) Dim x As New System.Threading.Thread(AddressOf GetGoogleResult) x.IsBackground = True x.Start(URL) System.Threading.Thread.Sleep(3000) CurrentThreads -= 1 End Sub5. crawl extract thread Public Sub GetGoogleResult(ByVal URL As String) Dim Http As New Chilkat.Http Dim success As Boolean success = Http.UnlockComponent("Anything for 30-day trial") If (success <> True) Then Invoke(SetText, New Object() {"Failed to activate Chilkat Component.", Color.Red}) Invoke(SetText, New Object() {"Thread exit.", Color.Red}) Exit Sub End If Dim html As String Http.UserAgent = "Mozilla/5.0 (Windows NT 5.1; WOW86; rv:26.0) Gecko/21100101 Firefox/25.0" Http.FollowRedirects = True html = Http.QuickGetStr(URL) If (html = vbNullString) Then Invoke(SetText, New Object() {"Google has detected our crawl.", Color.Red}) GooGL = True Exit Sub End If html = html.Replace(Chr(34), "'") Dim nextq As String = String.Empty Try nextq = GetBetween(html, "</a></td><td class='b navend'><a href='", "' class='pn' id='pnnext' style='text-decoration:none;text-align:left'>").Replace("&", "&") Catch ex As Exception nextq = String.Empty Invoke(SetText, New Object() {"Search ended !", Color.Lime}) End Try Invoke(SetText, New Object() {"Next URL : http://" & Http.GetDomain(URL) & nextq, Color.Lime}) For Each result As String In GBA_GOOGLE(html, "<h3 class='r'><a href='", "' onmousedown='return") If Not result.Contains("http") Then result = "http://" & result End If For Each ign As String In Ignore If Not result.Contains(ign.ToString) And Not found.Contains(result) Then Invoke(SetText, New Object() {"Found " & result, Color.Blue}) found.Add(result) o.WriteLine(result) o.Flush() End If Next Next If html.Contains("may be sending automated queries") Then Invoke(SetText, New Object() {"Google has detected our crawl.", Color.Red}) Exit Sub ElseIf String.IsNullOrEmpty(nextq) Then Invoke(SetText, New Object() {"Search ended !", Color.Lime}) CurrentThreads -= 1 Exit Sub Else Do While CurrentThreads >= MaxThreads System.Threading.Thread.Sleep(5000) Loop System.Threading.Thread.Sleep(3000) Dim X As New System.Threading.Thread(AddressOf Gcrawl) X.IsBackground = True X.Start("http://" & Http.GetDomain(URL) & nextq) CurrentThreads += 1 End If Http.Dispose() End Subasta intra pe google, ia linkurile , extrage url-ul de sub NEXT (adica url-ul cu pagina urmatoare) si lanseaza un thread now crwl pentru linkul NEXT (se face un loop ca sa zic asa, care se opreste cand NEXT url nu mai este gasit)bine eu ti-am dat un exemplu gen thread -> thread -> thread(crawl) , un thread este lasat cam degeaba dar isi face treaba (Tu il poti simplifica)eu am folosit chilkat pentru .NET Chilkat Zip Component, .NET Email Component, SMTP Component, Encryption, Compression, IMAP, POP3, SSH, SFTP Component, FTP, Zip, S/MIME, XML, ActiveX, Assembly, HTTP, C#, VB.NET, ASP.NET, C++, Delphi, Library, Upload , crack aici : https://rstforums.com/forum/73805-rst-chilkat-net-component-crack.rstrecomand chilkat pentru ca poti seta proxy cu usurinta.incearca sa folosesti tor onion la crawl ; dupa fiecare crawl faci un sleep , te conectezi la tor (am uitat portu pentru semnale tor) , trimiti "NEWNYM" (new identity) dupa care treci la urmatorul dork .. si tot asa. Spor Edited January 25, 2014 by Maximus Link to comment Share on other sites More sharing options...
KoDeXx Posted January 27, 2014 Report Share Posted January 27, 2014 Multumesc, merge foarte bine.Recomand. Link to comment Share on other sites More sharing options...
villas4 Posted February 2, 2014 Report Share Posted February 2, 2014 Sunt incepator, la ce se foloseste ? +rep Link to comment Share on other sites More sharing options...
l3tmeb3 Posted February 20, 2014 Report Share Posted February 20, 2014 un reupload se poate ? Link to comment Share on other sites More sharing options...
KaoS_StixX_ Posted July 28, 2014 Report Share Posted July 28, 2014 Salut, pot sa va intreb ceva? Vreau sa stiu cum se foloseste... si la ce foloseste.... Link to comment Share on other sites More sharing options...
abcd.3 Posted August 10, 2014 Report Share Posted August 10, 2014 Ce face acest program ? Sunt nou in treaba asta cu hacking-ul SI doresc sa invat cate ceva. Link to comment Share on other sites More sharing options...
Maximus Posted August 10, 2014 Report Share Posted August 10, 2014 Ore ce aveti ? Cititi regulamentul ! Link to comment Share on other sites More sharing options...