· 8 years ago · Jan 14, 2018, 09:44 AM
1@echo off
2Setlocal EnableDelayedExpansion
3color 0a
4mode 500
5:inicio
6@echo off
7echo .,,,,,,,.
8echo ;@@@@@@@@@@@@@@@'
9echo :@@@@@@@@@@@@@@@@@@@;
10echo ;@@@@@@@@@@@@@@@@@@@@@;
11echo @@@@@@@@@@@@@@@@@@@@@@@
12echo @@@@@ #HailSDLG @@@@@@
13echo @@@@@@@@@@@@@@@@@@@@@@@@@
14echo @@@@@@@@@@@@@@@@@@@@@@@@@@@
15echo @@@@@@@@@@@@@@@@@@@@@@@@@@@
16echo @@@@@@@@@@@@@@@@@@@@@@@@@@@
17echo @@@@@@@@@@@@@@@@@@@@@@@@@@@
18echo @@@@@@@@@@@@@@@@@@@@@@@@@@@
19echo @@@@@@'@@@@@@@@@@@@@'@@@@@@ @
20echo @ @@@@ @@@@@ .@@@@ @
21echo @ @@@ @@@ .@@@ @
22echo @@@ @@@ @@@ @@@ @@@
23echo @@@ @@@ @@@ @@@ @@@
24echo ;@+,@; @@@ @@@@@ @@@ :@:'@'
25echo @@ @@@@ ;; @@@ :@@@@@: @@@ ;; #@@@ @@
26echo @@ #@@@ '@@@@ @@@ .@@@@@@@. @@@ @@@@+ #@@@ @@
27echo @@ '@ #@@@@@ @@@ @@@@@@@@@ @@@ @@@@@@ #+ @@`
28echo @@. '@@@@@@` :@@@@@@@@@@@@@@@@@@@@@@@@@@: @@@@@@+ @@
29echo @@@ @@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@ @@@
30echo '@@@` #@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@ #@@@@@@@ #@@+
31echo @@@@@@@@@@@@@@+ @@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@
32echo @@@@@@@@@@@@@@@. @@@@@@@@@@@@ @@@@@@@@@@@@@@@.
33echo @@@@@@@@: @@#@@+ '@@#@@ :@@@@@@@@`
34echo .+@@+, +@#@@@. @@ @@ @@ @@ `@@@#@# .+@@+.
35echo :@@:@@# @@ @@ @@ @@ +@@;@@;
36echo `@@:#@@; @@ @@ @@ @@ ;@@#:@@.
37echo #@#.@@@. @@@ @@@ .@@@,+@@
38echo ;@@.:@@# @@@@ #@@;`@@'
39echo .@@+ +@@# +@@# '@@.
40echo #@@.`@@@+ +@@@.`@@@
41echo :@@+ .@@@+'@@@. +@@;
42echo @@@: ,@@@@: ,@@@`
43echo '@@@#` ,@@@@@@'
44echo `@@@@+ ,@@@@@.
45echo :@@@@'@@@' .@@@@:
46echo '@@@@. +@@@@' .#@@@+
47echo .#@@@+` +@@@@@@@@+ `'@@@#,
48echo '@@@@; ,#@@@@# #@@@@#, :@@@@+
49echo :#@@@@. ,+@@@@@@. `@@@@@@#: .#@@@#:
50echo .+@@@@@@##@@@@@@@@. .#@@@@@@@#+@@@@@@#,
51echo .+@@@@@@@@@@@@@@@@+` '@@@@@@@@@@@@@@@@+.
52echo +@@@@@@@@@@@@@@@+. .+@@@@@@@@@@@@@@@#
53echo .:+@@@@@@#', ,;+@@@@@@#;.
54color 3a
55color 0a
56color 3a
57color 0a
58color 3a
59color 0a
60color 3a
61color 0a
62color 3a
63color 0a
64echo ------------------------------------------------------------------------------
65echo %DATE% ^| %TIME%
66echo ------------------------------------------------------------------------------
67echo 1 separar correos (manual)
68echo 2 Separar correos (automatico)
69echo 3 Proximamente
70echo 4 Proximamente
71echo 5 Proximamente
72echo 6 Salir
73echo ------------------------------------------------------------------------------
74echo.
75
76Choice /c:123456 /N /M "[1-6]
77
78if "%errorlevel%"=="0" goto inicio
79if "%errorlevel%"=="1" goto op1
80if "%errorlevel%"=="2" goto op2
81if "%errorlevel%"=="3" goto op3
82if "%errorlevel%"=="4" goto op4
83if "%errorlevel%"=="5" goto op5
84if "%errorlevel%"=="6" exit
85
86:op1
87set /p Cor=Escriba el dominio para filtrar (ejemplo: @gmail.com):
88if "!cor!"=="" Echo Escriba una opcion valida &&pause&cls&goto op1
89set /p ar1=Especifique la ruta y nombre del archivo (c:\correos.txt):
90if "!ar1!"=="" Echo Escriba una opcion valida &&pause&cls&goto op1
91set /p ar2=Especifique con que el nombre del archivo donde desea guardar los correos encontrados:
92if "!cor!"=="" set ar2=correos.txt
93set busq=0
94For /F "tokens=*" %%A in ('findstr /I "%cor%" %ar1%') do set /A busq +=1
95
96if busq == 0 (
97Echo Ninguna coincidencia encontrada
98echo 1. Hacer otra busqueda busqueda
99echo 2. Regresar al inicio
100choice /c:12 /N /M "[1,2]"
101if "%errorlevel%"=="0" goto inicio
102if "%errorlevel%"=="1" goto inicio
103if "%errorlevel%"=="2" goto op1
104)
105For /F "tokens=*" %%A in ('findstr /i "%cor%" %ar1%) do echo %%A>>%ar2%
106echo 1. Hacer otra busqueda busqueda
107echo 2. Regresar al inicio
108choice /c:12 /N /M "[1,2]"
109if "%errorlevel%"=="0" goto inicio
110if "%errorlevel%"=="1" goto inicio
111if "%errorlevel%"=="2" goto op1
112
113:op2
114set /p arc=Especifique la ruta y nombre del archivo (c:\correos.txt):
115if "!arc!"=="" Echo Escriba una opcion valida &&pause&cls&goto op2
116
117copy "%arc%" "temp.txt%">nul
118mkdir "%cd%\output\">nul
119
120:getsubdomain
121set busq=0
122For /F "tokens=*" %%A in (temp.txt) do set /A busq +=1
123if !busq!==0 goto fin
124For /F "tokens=1* delims=@" %%C in (temp.txt) do (
125set subdomain=%%D
126goto next
127)
128
129:next
130For /F "tokens=1 delims=:" %%C in ('echo %subdomain%') do (
131set domain=%%C
132echo Buscando para: @!domain!
133if "!domain!"=="" goto fin
134)
135
136:imp
137For /F "tokens=*" %%A in ('findstr /i "%domain%" temp.txt') do echo %%A>>output\%domain%.txt
138For /F "tokens=*" %%A in ('findstr /v "%domain%" temp.txt') do echo %%A>>temp1.txt
139del /q temp.txt>nul 2>&1
140ren temp1.txt temp.txt>nul 2>&1
141goto :getsubdomain
142
143:fin
144del /q temp.txt>nul 2>&1
145echo Listo
146echo Presione cualquier tecla para regresar al inicio
147pause>nul
148cls
149goto inicio