#!/usr/bin/perl

use Socket;

$bannerkoe=<<END
ambil header rootsecure...
:))

END
;
printlog($bannerkoe);

system("del rootsecure.log");
system("del rootsecure.txt");

$fsav="rootsecure.txt";
$log="rootsecure.log";
#Support Proxy Server, change ip and port as u wish 
#$port=8080;
#$host="210.120.128.117";
$port=80;
$host="172.9.1.11";
$target = inet_aton($host);

#Read last session
open(hf,$fsav);
$lastsav=<hf>;
close(hf);
$check=1;#Check if any save session
$nomer=1;

$googleurl="http://www.rootsecure.net/";
$httppost="GET $googleurl HTTP/1.0\r\n\r\n";
@results=sendraw($httppost);
$data = join("",@results);
printlog("Header berita utama di www.rootsecure.net :\n\n");
@tmpawal=split(/\<td width\=\"400\" valign\=\"top\"\>/,$data);
@tmp=split(/\"\>\#\<\/a\>\<\/span\>\<hr color\=\"\#C0C0C0\" size\=\"1\"\>/,$tmpawal[1]);
for ($a = 1; $a <= $#tmp; $a++)
{
  @u=split(/\</,$tmp[$a-1]);
  @t=split(/\"\>/,$u[1]);
  @v=split(/\<\/a/,$t[1]);
  @w=split(/\>?\“/,$v[1]);
  @x=split(/\”.\<br\>/,$w[1]);
  $url=$u[0];
  $url1=$v[0];
  $url2=$w[0];

  if (($lastsav ne "") && (!($lastsav =~ /$url/)) && $check)
  {
     next;
  } else
  {
     $check=0;
  }
  #Save Session
  open(hf,">$fsav");
  print hf $url;
  close(hf);
  
  printlog("$nomer. $url $url1 $url2");
  $nomer++;

printlog("\n");
}

#printlog("Header berita lain di detikinet.com :\n\n");
#@tmp=split(/\<span class\=\"nonhlJudul\"\>/,$data);
#for ($a = 1; $a <= $#tmp; $a++)
#{
#  @u=split(/\</,$tmp[$a]);
#  #@t=split(/\/mod/,$u[0]);
#  $url=$u[0];
#
# if (($lastsav ne "") && (!($lastsav =~ /$url/)) && $check)
#  {
#     next;
#  } else
#  {
#     $check=0;
#  }
#  #Save Session
#  open(hf,">$fsav");
#  print hf $url;
#  close(hf);
#  
#  printlog("$nomer. $url\t");
#  $nomer++;
#
#printlog("\n\n");
#}
exit;

# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw {   # this saves the whole transaction anyway
        my ($pstr)=@_;

        socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
                die("Socket problems\n");
                
        if(connect(S,pack "SnA4x8",2,$port,$target)){
                my @in;
                select(S);      $|=1;   print $pstr;
                while(<S>){ push @in, $_;}
                select(STDOUT); close(S); return @in;
        }
}

sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}