darkc0de.com

./c0de/perl/fastemail.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.

#!/usr/bin/perl
 
# Faster @emails Rob v.1
# Code by JosS
# Contact: sys-project[at]hotmail.com
# Spanish Hackers Team
# www.spanish-hackers.com
 
use IO::Socket::INET;
use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
 
sub lw
{
 
my $SO = $^O;
my $linux = "";
if (index(lc($SO),"win")!=-1){
		   $linux="0";
	    }else{
		    $linux="1";
	    }
		if($linux){
system("clear");
}
else{
system("cls");
system ("title Faster \@emails Rob v.1 - By JosS");
system ("color 02");
}
}
 
menu:;
 
 
#*************************** Menu ******************************
 
&lw;
 
print "\t\t########################################################\n\n";
print "\t\t#    Faster @emails Rob v.1 - Spanish Hackers Team     #\n\n";
print "\t\t#                        by JosS                       #\n\n";
print "\t\t########################################################\n\n";
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
$year += 1900;
$mon++;
 
print "\t\t\t\t$mday/$mon/$year $hour:$min:$sec\n\n";
 
print "Menu:\n";
print "\n";
 
print "1. Sesion simple\n";
print "2. Multi sesion\n";
print "3. Creditos\n";
print "4. Salir\n";
 
 
print "Opcion:";
$opcion=<STDIN>;
 
if ($opcion!=1 && $opcion!=2 && $opcion!=3 && $opcion!=4){
print "Opci�n Incorrecta\n";
goto menu;
}
if ($opcion==1)
{
&primero
}
if ($opcion==2)
{
&segundo
}
if ($opcion==3)
{
&tercero
}
if ($opcion==4)
{
&cuarto
}
 
#*************************** Opci�n 1 ******************************
 
 
sub primero
 
{ #S1
 
&lw;
 
print "\t\t########################################################\n\n";
print "\t\t#    Faster @emails Rob v.1 - Spanish Hackers Team     #\n\n";
print "\t\t#                        by JosS                       #\n\n";
print "\t\t########################################################\n\n";
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
$year += 1900;
$mon++;
 
print "\t\t\t\t$mday/$mon/$year $hour:$min:$sec\n\n";
 
print "Introduce la url:";
$url=<STDIN>;
 
chop $url;
 
my $final = $url;
print "\n\n";
print "Buscando en: $final\n\n";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $final);
$doc = $ua->request($req)->as_string;
 
if ($doc =~ m{(\w+\@[\w.]+)})
 
{ #I1
 
(@email) = $doc =~ m{(\w+\@[\w.]+)}g; 
 
 
foreach $email (@email)
{
print "$email\n";
}
 
} # xI1
 
print "\n\n";
 
print "Guardar (Y/N):";
$guardar=<STDIN>;
 
chop $guardar;
 
if ($guardar eq "y")
 
{ #I2
 
print "Introduce nombre del archivo a crear:";
$archivo=<STDIN>;
 
open (archivo,">$archivo");
 
foreach $guardar (@email)
{
print archivo "$guardar\n";
}
 
print "Archivo guardado: $archivo\n\n";
 
} #xI2
 
 
goto menu;
 
 
} #xS1
 
 
#*************************** Opci�n 2 ******************************
 
sub segundo
 
{ #S2
 
&lw;
 
print "\t\t########################################################\n\n";
print "\t\t#    Faster @emails Rob v.1 - Spanish Hackers Team     #\n\n";
print "\t\t#                        by JosS                       #\n\n";
print "\t\t########################################################\n\n";
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
$year += 1900;
$mon++;
 
print "\t\t\t\t$mday/$mon/$year $hour:$min:$sec\n\n";
 
 
print "Introduce el archivo de las urls:";
$arch=<STDIN>;
 
open (arch,"$arch");
 
@webs=<arch>;
 
for ( $i = 0; $i < @webs; $i++ )
{ #F1
 
my $final = @webs[$i];
print "\n\n";
print "Buscando en: $final\n\n";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $final);
$doc = $ua->request($req)->as_string;
 
if ($doc =~ m{(\w+\@[\w.]+)})
 
{ #I1
 
(@email) = $doc =~ m{(\w+\@[\w.]+)}g; 
 
 
foreach $email (@email)
{
print "$email\n";
}
 
} # xI1
 
print "\n\n";
 
print "Guardar (Y/N):";
$guardar=<STDIN>;
 
chop $guardar;
 
if ($guardar eq "y")
 
{ #I2
 
print "Introduce nombre del archivo a crear:";
$archivo=<STDIN>;
 
open (archivo,">$archivo");
 
foreach $guardar (@email)
{
print archivo "$guardar\n";
}
 
print "Archivo guardado: $archivo\n\n";
 
} #xI2
 
} # xF1
 
print "Pulse la tecla Enter para volver al menu.";
$volver=<STDIN>;
goto menu;
 
} #xS2
 
#*************************** Opci�n 3 ******************************
 
 
sub tercero
 
{
 
&lw;
 
print "\t\t########################################################\n\n";
print "\t\t#    Faster @emails Rob v.1 - Spanish Hackers Team     #\n\n";
print "\t\t#                        by JosS                       #\n\n";
print "\t\t########################################################\n\n";
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
$year += 1900;
$mon++;
 
print "\t\t\t\t$mday/$mon/$year $hour:$min:$sec\n\n";
 
print " Programador: JosS & Jose Luis Gongora Fernandez\n\n";
print " Greetz To: All Hackers\n\n";
 
print "Pulse la tecla Enter para volver al menu.";
$volver=<STDIN>;
goto menu;
 
}
 
#*************************** Opci�n 4 ******************************
 
sub cuarto
 
{
 
&lw;
 
exit(1);
 
}

Back