[SQLi]

Google Shell Finder

Introduction
I wanted to automate the process of getting public shells from Pastebin.com, so I whipped this program together to do precisely that. It's nothing fancy. Didn't know there was a Google API for .NET until I did a few searches.

Source

Imports Google.API
Imports Google.API.Search
Imports System.Net

Public Class Google
'Specify your dork here, chr(34) is a quote character
Private Shared Dork As String = "intext:" & Chr(34) & "http://" & Chr(34) & " intext:" & Chr(34) & "udp.php" & Chr(34) & " intext:" & Chr(34) & "webdav" & Chr(34) & " -" & Chr(34) & "shells.red-pill.eu" & Chr(34) & " -" & Chr(34) & "Trojans" & Chr(34) & " site:pastebin.com"

Public Shared Function GetShells(ByVal Pages As Integer)
Try
Dim Shells As String = String.Empty
Dim cl As New GwebSearchClient("http://www.google.no/")
Dim rtnList As IList(Of IWebResult) = cl.Search(Dork, Pages)
For Each itm As IWebResult In rtnList
Shells &= ParseShells(itm.Url) & Environment.NewLine
Next
Return Shells
Catch ex As Exception
Return "Error, please try again later!"
End Try
End Function

Private Shared Function ParseShells(ByVal URL As String) As String
URL = URL.Substring(URL.LastIndexOf("/") + 1)
Dim Shells As String = (New WebClient).DownloadString("http://pastebin.com/raw.php?i=" & URL)
Return Shells
End Function
End Class

System.IO.File.WriteAllText(Application.StartupPath & "\Shells.txt", Google.GetShells(20))

Download example program
http://www.mediafire.com/

Credits (API and code)
Google API for .NET
API example usage

[ErroraBorealis]

Thanks for this. I was wanting to find some shells.

[SQLi]

Thanks for this. I was wanting to find some shells.

I forgot to explain how the example program works, when it asks for a file to put the shells in, just press enter and it will create shells.txt in the programs startuppath.

The dork isn't the best I admit, so you should compile your own program with the code I provided.

[Nefarious]

This will be extremely useful for a project I am working on, thanks for the share man.