#! /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 = ; close(RES); unlink ("mille.txt"); foreach $shit (@inhalt) { $shit =~ tr// /; $shit =~ tr/\// /; $shit =~ s/milw0rm.com//ig; if ($shit =~ m/title/i) { $shit =~ s/title/ /ig; push(@sploits,"$shit"); } } print @sploits;