#PacketStorm Last20 Section grab
#Written by pilot
#date 04/05/2k
#date 01/27/2k  updated 2001 version
#http://search.iland.co.kr
#
#greets Packetstorm
#
#
#Usage:perl packet20.pl
#you can use with cron 
###################################################


#!/usr/bin/perl -w

use IO::Socket;


$server ="packetstorm.securify.com";

#PacketStorm Last 20 url
$URL = "/last20.shtml";

$remote = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$server,
PeerPort=>"80", Reuse=>1) or die "Can't connect to \"$server\"\n";


$remote->autoflush(1);


print "\n    < PacketStorm Last 20 Section >   \n\n";
print $remote "GET $URL HTTP/1.0\n\n";


while (<$remote>) { 

@result=<$remote>;


      #html delete code
      for($num=1;$num<@result;$num++) 
      {
           
    
    
    
       $result[$num] =~s/2001/\n\n/;
       $result[$num] =~s/By/\n-By/;
       $result[$num] =~s/&nbsp|;//g;   
       $result[$num] =~s/<([^>])*>//g;
       $result[$num] =~/Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec/&&
       print "\n-------File Name:";
      
      
       if($num>98){
       print $result[$num];
       } 
    

      }
}
close $remote; 
print "http://packetstorm.securify.com\n"