./c0de/perl/excheck.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
#! /usr/bin/perl
#################
# Name: sploits_looker
# Beschreibung: Milw0rm New Exploits Checker
# Coder: Perforin
# Sites: dark-codez.org / perforins-software.dl.am
#################
use LWP::UserAgent;
 
print qq "
   ++++++++++++++++++
   | Sploits_looker |
   ++++++++++++++++++
   |   by Perforin  |
   ++++++++++++++++++
   |   Dark-Codez   |
   |                |
   |    The dark    |
   | side of coding |
   ++++++++++++++++++
";
@sploits = ();
$version = 1.0;
$getit = 'http://milw0rm.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;
 

Back