#! /usr/bin/perl
#################
# Name: IISECURITY.C
# Beschreibung: RSS Checker
# Sites: http://forum.iranled.com
#################
use LWP::UserAgent;

print qq "
   ++++++++++++++++++
   | IISECURITY.C |
   ++++++++++++++++++
   |   ONLY Z |
   ++++++++++++++++++
   |   http://forum.iranled.com  |
   ++++++++++++++++++
";
@sploits = ();
$version = 1.0;
$getit = 'http://forum.iranled.com/rss.php'; # Master Server
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$getit);
$result = $agent->request($request);
$getit =~ s/.*\///;
@result = $result->content();
open(RES,">","mille.txt");
print RES @result;
close(RES);
open(RES,"<","mille.txt");
@inhalt = <RES>;
close(RES);
unlink ("mille.txt");
foreach $shit (@inhalt) {
$shit =~ tr/</ /;
$shit =~ tr/>/ /;
$shit =~ tr/\// /;
$shit =~ s/milw0rm.com//ig;
if ($shit =~ m/title/i) {
$shit =~ s/title/ /ig;
push(@sploits,"$shit");
}
}
print @sploits;