The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Ever want to just look up random words in a search engine to see whether any page on the net has them all? I was bored, so I wrote a little routine to use a dictionary database & auto-search Google.
It uses the dictionary database from Atomic's spell-checker mod.
Basically, put the dictionary & the asp file in the same directory, run the file, done. I have it creating 20 different searches - if you want to change it, feel free.
<
Basically, put the dictionary & the asp file in the same directory, run the file, done. I have it creating 20 different searches - if you want to change it, feel free.
Code:
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dictionary2000.mdb"
For y = 1 to 20 'Number of searches to create
strLst="%2B"
for x = 1 to 5 'Number of words per search
Randomize
q=int(Rnd*113808)
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strSql="SELECT WORD FROM DICTIONARY WHERE id=" & q
set rsDict = my_conn.Execute(strSql)
strLst=strLst&rsDict("Word") & " %2B"
next
for x = 1 to 5 'Add in a 5-letter word with random characters
Randomize
q=(Rnd*26)
strAlp="abcdefghijklmnopqrstuvwxyz"
strLst=strLst&mid(strAlp,q,1)
Next
strLst=strLst&" -dictionary -wordlist"
url="http://www.google.com/search?hl=en&q="""&strLst&"""&btnG=Search"
Response.Write("<script>" & vbCrLf)
Response.Write("window.open('" & url & "');" & vbCrLf)
Response.Write("</script>")
next
%>
Posted
http://www.googlewhack.com/ 
<
<
