Database_Email_extractor _v1.0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Database_Email_extractor _v1.0 Coded by B47CH GURU..!!                                  #
;Coded for Kishan patel on 29-06-2011                                                    #
;                                                                                        #
;STEPS:-                                                                                 #
;                                                                                        #
;first open yor sql dump in a text editor and edit the useless part such as the details  #
;part and save it in ascii format.                                                       #
;then change the respective lines in the source to that filename of the sql and log      #
;then run the script..!!                                                                 #
;you can contact me at http://www.facebook.com/daryl.varghese                            #
;or you can mail me at [email protected]                                          #
;----------------------------------------------------------------------------------------#
;To all script kiddies..... changing the "made by" headers wont make you the coder...!!  #
;Respect the coderz..!!!                                                                 #
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





#include <String.au3>
#include <Array.au3>
#include <file.au3>
$file = InputBox("dump text file","the path to the edited sql dump")
$file = FileOpen($file, 0)
$file2 = InputBox("log file","the path to the log file")
$file2 = FileOpen($file2, 1)
$asd=' '
$i=1
$ip="sd"
$r=1
$as = "s"

While $as = "s"

$ip=FileReadLine ( $file , $r )
If Not $ip Then ExitLoop
If StringInStr($ip, ".com") Then
    $asd=1
Else
    $asd=0
EndIf
While $asd=1

Do
    $ip = StringTrimLeft($ip, StringInStr($ip, "'"))
    $i=$i+1
    Until $i=16

$i=1
$array1 = _StringExplode($ip, ".com", 0)

FileWriteLine($file2,$array1[0] & ".com")
ExitLoop
WEnd
$r=$r+1
WEnd