@Echo OFF & TITLE Bing Searcher & Setlocal EnableDelayedExpansion

:: Con la configuración de FIREFOX siguiente: 
:: 1) -setDefaultBrowser 
:: 2) about:config browser.link.open_newwindow.override.external=1 
:: 3) addons.mozilla.org Click&Clean 

SET "search=http://www.mieliestronk.com/corncob_lowercase.txt"
POWERSHELL -command "Invoke-WebRequest %search% -OutFile %TMP%\wordlist.txt"
SET "textfile=%TMP%\wordlist.txt" :: archivo de palabras de busqueda

SET "explore=%ProgramFiles%\Mozilla Firefox\Firefox.exe "
IF DEFINED ProgramFiles(x86) SET "explore=%ProgramFiles(x86)%\Mozilla Firefox\Firefox.exe "

SET "bing1=http://www.bing.com/search?q="
SET "bing2=http://www.bing.com/images/search?q="
SET "bing3=http://www.bing.com/videos/search?q="
SET "bing4=http://www.bing.com/news/search?q="
SET "bing5=http://www.bing.com/maps/default.aspx?q="
SET "bing6=http://www.bing.com/translator/?from=en&to=es&text="
SET "bing7=http://www.bing.com/travel/hotels/search?q="
SET "bing8=http://www.bing.com/events/search?q="
SET "bing9=http://www.bing.com/social/search?q="
SET "bing10=http://www.bing.com/explore?q="

SET /A "maxbing=9"  :: numero de webs de busqueda bing1, bing2, etc 
SET /A "maxwords=5" :: numero maximo de palabras en cada busqueda

SET /A "count=0" :: numero de busquedas realizadas
SET /A "maxcount=%random% %% 10 + 31" :: numero maximo de busquedas

SET /A "maxwait=10" :: segundos maximos de espera entre cada busqueda
SET /A "minwait=5" :: segundos minimos de espera entre cada busqueda
SET /A "wait=0" :: iniciar segundos de espera entre cada búsqueda

SET /A "words=-1" :: iniciar numero de lineas en el archivo de palabras de busqueda
FOR /F "usebackq tokens=* delims=" %%@ IN ("%textfile%") DO (SET /A "words+=1")

REM cear aqui la parte de login en email

:LOOP
SET "search=&FORM=" :: termino de busqueda

SET /A "chain=%random% %% %maxbing% + 1"  :: seleccion azar web de busqueda
FOR %%$ IN (%chain%) DO (SET "bing=!bing%%$!")

SET /A "chain=%random% %% %maxwords% + 1" :: seleccion azar numero de palabras de busqueda
FOR /L %%$ IN (1,1,%chain%) DO (
SET /A "hazard=!random! %% !words! + 1" :: seleccion azar linea de busqueda
SET /A "choose=0"
FOR /F "usebackq tokens=* delims=" %%@ IN ("%textfile%") DO (
SET /A "choose+=1"
IF !choose! EQU !hazard! (IF %%$ EQU 1 (SET "search=%%@!search!") ELSE (SET "search=%%@+!search!"))
)
)

START /B "Iteration" "%explore%" "%bing%%search%"
SET /A "wait=%random% * (%maxwait% - %minwait% + 1) / 32768 + %minwait% + 1"
ping.exe localhost -n %wait% >NUL

SET /A "count+=1"
TITLE Bing Searcher : %count%
If %count% EQU %maxcount% (goto :END)

goto :LOOP

:END
start /b "Iteration" "%explore%" "http://www.bing.com"
POWERSHELL -command [Console]::Beep(1000,1000)
DEL %TMP%\wordlist.txt