94bb2822eb8ed2f8cf615b8697e6a8d4 Дело было вечером, делать было нечего...
А если сказать правду то, было утро, просто я ещё не спал…
Тем кто любит кричать что «Это велосипед!!!111″, читайте дальше, это велосипед !
А теперь по теме, слушал я интернет радио, и мне надоело, поискал я ещё немного радио, и случайно попал в некий хак чат.

Чат то сам по себе вроде нормальный, но так как там небыло некго, то это роли не играло icon smile Дело было вечером, делать было нечего...
Я увидел снизу плеер, включил, и залип в чате на долго, тупо слушая музыку.
Потом понял что постоянно запущеный браузер это не кошерно =\
Потому решил это дело какнить запилить по нормальному.
Нмного копанул весь этот чат FireBag’ом и достал линк на xml афл содержащий треки.
После чего решил что не плохо било бы его спарсить и запилил простейший парсер:

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w

###
use strict;
use LWP::Simple;
###

my @links = (get('http://www.hacker-chat.com/xspf.php')) =~ /(http:\/\/.*\.mp3)<\/location>/gi;
system('rm -f log.txt');
open(L,'> /home/shok/.tools/radio/log.txt');
print L join("\n",@links)."\n";
close(L);

Но вот я это дело спарсил, надо как то проиграть это всё дело, ну я решил использовать довно юзаемый мною плеер Aqualung.
Для того что бы открыть список урлов в нём достаточно передать их все в качестве параметров.
Что и делает следующий скрипт:

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w

###
use strict;
###

my $list = `cat /home/shok/.tools/radio/log.txt`;
$list =~ s/\n/ /g;
exec('aqualung '.$list);

Я забиндил эти 2 скрипта на пимпочьки на панеле гнома, и юзаю себе =)
Будем надеятся что это кому то пригодится ))

tt twitter big4 Дело было вечером, делать было нечего... tt digg big4 Дело было вечером, делать было нечего... tt facebook big4 Дело было вечером, делать было нечего... tt gmail big4 Дело было вечером, делать было нечего... tt myspace big4 Дело было вечером, делать было нечего... tt reddit big4 Дело было вечером, делать было нечего...

Оставить комментарий

CAPTCHA изображение
Обновить изображение
*

RSS-подписка NIG Twitter-подписка NIG

Метки
Друзья
Блог линуксоида Программы для диагностики компьютера
Супер Pixel
Убивалка флешаБэкконект шелл. Часть вторая.Бэкконект шелл. Начало.НАМ для деления чиселПростая арифметикаПередача файлов. Часть третья. Клиент.Dll injectionСканер портовКодировка текста в BMPРухнул на два дняПередача файлов. Часть вторая. Сервер.Поворот и BMPCRC32 суммаBMP форматфайловые вирусыассемблер, строкиАссемблер и матрицапримеры ассемблерМногопоточное программированиеАрхитектура клиент — серверРаздача ICQПишем шуткупишем паукаПривет от ДжеймсаОбход firewallЗагрузка картинок на Gyazo, прямо из ThunarКейлоггер 3Плюшки в контекстном меню Thunarc по сетиКейлоггер 2КейлоггерСкачать Ассемблер!VirusCheckerОтморозки мешают жить ?! Не проблемма !Cкрипты для взлома аккаунтов QIPWinAPI. Работа с файлами. Часть третья. ЧтениеDlink exploitБрут сайта etxt.ruКрасивая раскладка клавиатуры в GnomeМои безделушки на PerlКак запускать Perl скрипты под WindowsБрутфорс партнёрки ZipCoinПарсер upwap.ruИзменения в блогеЧудо ЗаливалкаСкрипт для загрузки файлов на Zalil.ruЯндекс «чоткий» поисковик!WinAPI. Работа с файлами. Часть вторая. ЗаписьWinAPI. Работа с файлами. Часть первая. ПоискПолучение MD5 хеша средствами C++Что нам стоить letitfile.com забрутить?WarCraft III запуск под LinuxЭнтропия файлаWinsock и C++. Мини прокси. Часть |\\/. Завершающая.Перепилил чекер для 4gameЧекер акаунтов YoupornCMailSend v 1.1. Отправка почы без проблемСлучайные числаWinsock и C++. Часть |||. smtp монстр.Брутфорс LetitFile.comИспользование X-Forwarded-For, для обмана веб-сервера, подмена IP подручными средствамиДело было вечером, делать было нечего…Мысли о аудио сервереПарсер ников из твиттераКонец школоло…Perl+Linux. Заметка первая (Удобный Paste bin).Бэкконект шелл.E-MAIL + winsocket + Cpp. Сложно?winsock и C++. Часть ||. Атака клоунов.C++ резолвинг адресаPerl, анализ HTML кода и определение CMSМатематика в C++winsock и C++