13 Years of Service
44%
Code:
>
;////////////////////////////
;////
;//// Bing Dork
;////
;//// By: Mr.888
;////
;//// Level-23
;////
;///////////////////////////
#include
#include
#include
_Dork888("index.php?id=",100,@ScriptDir&"/Result.txt")
Func _Dork888($Dork,$Pages,$ResultFile)
If $Dork ="" Then
MsgBox (0,""," Put The Bing Dork")
Else
FileDelete(@ScriptDir&"/Reverse.txt")
For $ds= 0 to $Pages Step +10
InetGet ("http://www.bing.com/search?q="&$Dork&"&first="&$ds [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")
$F=FileRead [MENTION=7239]Temp[/MENTION]Dir&"/Source.txt")
$ff=StringSplit ($F,'"')
for $i=1 to $ff[0] Step +1
$db=StringRegExp ($ff[$i],"http://")
$db2=StringRegExp ($ff[$i],"microsofttranslator")
$db3=StringRegExp ($ff[$i],"go.microsoft.com")
$db4=StringRegExp ($ff[$i],"onlinehelp")
$db5=StringRegExp ($ff[$i],"www.w3.org")
$db6=StringRegExp ($ff[$i],"live")
$db7=StringRegExp ($ff[$i],"cc.bingj.com")
$db7=StringRegExp ($ff[$i],"cc.bingj.com")
$db8=StringRegExp ($ff[$i],"log.perf.msedge.net")
If $db = 1 And $db2 <> 1 And $db3 <> 1 and $db4 <> 1 and $db5 <> 1 and $db6 <> 1 And $db7 <> 1 And $db8 <> 1 Then
FileWrite [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$ff[$i]&@CRLF)
EndIf
Next
Next
If not FileExists [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt") Then
MsgBox (0,""," Cant't Find the Dork")
Else
Local $444
_FileReadToArray [MENTION=7239]Temp[/MENTION]Dir&"/Results1.txt",$444)
$ffs=_ArrayUnique ($444)
_ArrayDelete ($ffs,11)
Local $sq
For $sq=1 to $ffs[0]-1 Step +1
FileWrite [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$ffs[$sq]&@CRLF)
Next
local $999
_FileReadToArray [MENTION=7239]Temp[/MENTION]Dir&"/Rv.txt",$999)
_ArrayDelete($999,0)
Local $poi
$poi=_ArrayUnique($999)
If $poi <> 0 Then
EndIf
If $poi = 0 Then
MsgBox (0,""," Not valid Dork")
EndIf
_ArrayDelete($poi,0)
_FileWriteFromArray ($ResultFile,$poi)
EndIf
EndIf
EndFunc