• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Optimizilla: la herramienta gratuita para optimizar tus imágenes

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Radio X 0.4
    • Imprimir
    Páginas: [1]   Ir Abajo

    Autor Tema: [Perl] Radio X 0.4  (Leído 2929 veces)

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    [Perl] Radio X 0.4
    « en: Marzo 28, 2014, 04:29:13 pm »
    Actualice mi programa en perl llamado "Radio X" debido a que las emisoras no me gustaban , asi que actualice el hash con 31 estaciones , todas de diferentes generos , aunque la unica que siempre escucho siempre es la de musica clasica.

    Aclaracion de dependencia :

    Aclaro que necesitan bajar el mplayer , esta el link de descarga en el script , una vez que lo tengan descargado y descomprimido creen una carpeta llamada
    "mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recien creada , todo esto tiene que ser en el mismo directorio donde este el script.

    El codigo :

    Código: Perl
    1. #!usr/bin/perl
    2. #Radio X
    3. #Version 0.4
    4. #(C) Doddy Hackman 2014
    5. #
    6. #Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
    7. #
    8.  
    9. use Cwd;
    10.  
    11. my @emisoras = (
    12.  
    13.     {},
    14.  
    15.     {
    16.  
    17.         "nombre" => "idobi Radio",
    18.         "genero" => "Alternative",
    19.         "link"   => "http://69.46.88.21:80"
    20.  
    21.     },
    22.  
    23.     {
    24.  
    25.         "nombre" => "BLUES RADIO (1.FM TM)",
    26.         "genero" => "Blues",
    27.         "link"   => "http://205.164.35.58:80"
    28.  
    29.     },
    30.  
    31.     {
    32.  
    33.         "nombre" => "Venice Classic Radio Italia",
    34.         "genero" => "Classical",
    35.         "link"   => "http://174.36.206.197:8000"
    36.  
    37.     },
    38.  
    39.     {
    40.  
    41.         "nombre" => "100hitz - New Country",
    42.         "genero" => "Country",
    43.         "link"   => "http://69.4.234.186:9210"
    44.  
    45.     },
    46.  
    47.     {
    48.  
    49.         "nombre" => "RADIO 7 - POLNOCNE",
    50.         "genero" => "Decades",
    51.         "link"   => "http://94.23.36.107:443"
    52.  
    53.     },
    54.  
    55.     {
    56.  
    57.         "nombre" => "COOLfahrenheit 93",
    58.         "genero" => "Easy Listening",
    59.         "link"   => "http://203.150.225.77:8400"
    60.  
    61.     },
    62.  
    63.     {
    64.  
    65.         "nombre" => "Ibiza Global Radio",
    66.         "genero" => "Electronic",
    67.         "link"   => "http://198.50.197.161:8024"
    68.  
    69.     },
    70.  
    71.     {
    72.  
    73.         "nombre" => "HBR1.com - I.D.M. Tranceponder",
    74.         "genero" => "Trance",
    75.         "link"   => "http://ubuntu.hbr1.com:19800/trance.ogg"
    76.  
    77.     },
    78.  
    79.     {
    80.  
    81.         "nombre" => "COOL radio - Beograd",
    82.         "genero" => "Folk",
    83.         "link"   => "http://176.9.30.66:80"
    84.  
    85.     },
    86.  
    87.     {
    88.  
    89.         "nombre" => "COOL radio - Beograd",
    90.         "genero" => "Folk",
    91.         "link"   => "http://176.9.30.66:80"
    92.  
    93.     },
    94.  
    95.     {
    96.  
    97.         "nombre" => "HPR4",
    98.         "genero" => "Inspirational",
    99.         "link"   => "http://50.7.77.179:8024"
    100.  
    101.     },
    102.  
    103.     {
    104.  
    105.         "nombre" => "Radio Carsija - Melli",
    106.         "genero" => "International",
    107.         "link"   => "http://80.237.153.95:19406"
    108.  
    109.     },
    110.  
    111.     {
    112.  
    113.         "nombre" => "TheJazzGroove.com",
    114.         "genero" => "Jazz",
    115.         "link"   => "http://199.180.72.2:8015"
    116.  
    117.     },
    118.  
    119.     {
    120.  
    121.         "nombre" => "Paisa Estereo",
    122.         "genero" => "Latin",
    123.         "link"   => "http://199.217.118.10:7094"
    124.  
    125.     },
    126.  
    127.     {
    128.  
    129.         "nombre" => "RockRadio1.Com",
    130.         "genero" => "Metal",
    131.         "link"   => "http://77.74.192.50:8000"
    132.  
    133.     },
    134.  
    135.     {
    136.  
    137.         "nombre" => "Adom 106.3FM",
    138.         "genero" => "Misc",
    139.         "link"   => "http://67.159.60.45:8100"
    140.  
    141.     },
    142.  
    143.     {
    144.  
    145.         "nombre" => "Healing",
    146.         "genero" => "New Age",
    147.         "link"   => "http://222.122.178.183:11070"
    148.  
    149.     },
    150.  
    151.     {
    152.  
    153.         "nombre" => "RADIO SOUND POP",
    154.         "genero" => "Pop",
    155.         "link"   => "http://99.198.118.250:8076"
    156.  
    157.     },
    158.  
    159.     {
    160.  
    161.         "nombre" => "Latido 90.1 FM",
    162.         "genero" => "Public Radio",
    163.         "link"   => "http://64.251.21.48:42000"
    164.  
    165.     },
    166.  
    167.     {
    168.  
    169.         "nombre" => "Radio Mandela",
    170.         "genero" => "Funk",
    171.         "link"   => "http://184.154.150.93:9010"
    172.  
    173.     },
    174.  
    175.     {
    176.  
    177.         "nombre" => "Boneyaad Radio",
    178.         "genero" => "Rap",
    179.         "link"   => "http://69.175.103.226:8180"
    180.  
    181.     },
    182.  
    183.     {
    184.  
    185.         "nombre" => "Reggae141.com",
    186.         "genero" => "Reggae",
    187.         "link"   => "http://184.107.197.154:8002"
    188.  
    189.     },
    190.  
    191.     {
    192.  
    193.         "nombre" => "Classic Rock 915",
    194.         "genero" => "Rock",
    195.         "link"   => "http://117.53.175.113:15018"
    196.  
    197.     },
    198.  
    199.     {
    200.  
    201.         "nombre" => "181.fm - Rock 181 (Active Rock)",
    202.         "genero" => "Rock",
    203.         "link"   => "http://108.61.73.118:14008"
    204.  
    205.     },
    206.  
    207.     {
    208.  
    209.         "nombre" => "181.FM - The Buzz",
    210.         "genero" => "Rock",
    211.         "link"   => "http://108.61.73.119:14126"
    212.  
    213.     },
    214.  
    215.     {
    216.  
    217.         "nombre" => "181.FM - Good Time Oldies",
    218.         "genero" => "Rock",
    219.         "link"   => "http://108.61.73.118:14046"
    220.  
    221.     },
    222.  
    223.     {
    224.  
    225.         "nombre" => "Top40",
    226.         "genero" => "Pop Dance R&B Rock",
    227.         "link"   => "http://95.141.24.79:80"
    228.  
    229.     },
    230.  
    231.     {
    232.  
    233.         "nombre" => "MUSIK.ORIENTAL",
    234.         "genero" => "Seasonal and Holiday",
    235.         "link"   => "http://193.34.51.40:80"
    236.  
    237.     },
    238.  
    239.     {
    240.  
    241.         "nombre" => "NOVA 100.3",
    242.         "genero" => "Soundtracks",
    243.         "link"   => "http://117.53.175.113:15010"
    244.  
    245.     },
    246.  
    247.     {
    248.  
    249.         "nombre" => "Alex Jones - Infowars.com",
    250.         "genero" => "Talk",
    251.         "link"   => "http://50.7.130.109:80"
    252.  
    253.     },
    254.  
    255.     {
    256.  
    257.         "nombre" => "illusive Radio Punta",
    258.         "genero" => "Themes",
    259.         "link"   => "http://38.96.148.141:9996"
    260.  
    261.     }
    262.  
    263. );
    264.  
    265. $SIG{INT} = \&retorno;
    266.  
    267. chdir( getcwd() . "/mplayer/" );
    268.  
    269. menu();
    270.  
    271. sub retorno {
    272.     print "\n\n[+] Press any key for return to the menu\n\n";
    273.     <stdin>;
    274.     clean();
    275.     menu();
    276. }
    277.  
    278. sub menu {
    279.  
    280.     head();
    281.  
    282.     print "\n\n[+] Listing ["
    283.       . int( @emisoras - 1 ) . "] "
    284.       . "stations found ...\n";
    285.  
    286.     for my $em ( 1 .. @emisoras - 1 ) {
    287.  
    288.         print "\n[+] ID : " . $em . "\n";
    289.         print "[+] Name : " . $emisoras[$em]->{nombre} . "\n";
    290.         print "[+] Type : " . $emisoras[$em]->{genero} . "\n";
    291.  
    292.         #print "[$em] - ".$emisoras[$em]->{genero}."\n";
    293.  
    294.     }
    295.  
    296.     print "\n[+] Write exit to go out\n";
    297.  
    298.     print "\n[+] Option : ";
    299.     chomp( my $op = <stdin> );
    300.  
    301.     if ( $op eq "exit" ) {
    302.         copyright();
    303.     }
    304.  
    305.     if ( $op =~ /\d+/ ) {
    306.         print "\n[!] Listening : " . $emisoras[$op]->{link} . " ...\n\n";
    307.         system("mplayer $emisoras[$op]->{link}");
    308.     }
    309.  
    310.     copyright();
    311.  
    312. }
    313.  
    314. sub head {
    315.  
    316.     clean();
    317.  
    318.     print qq(
    319.  
    320.  
    321.  @@@@@     @    @@@@    @   @@@@     @     @
    322.  @    @    @    @   @   @  @    @    @     @
    323.  @    @   @ @   @    @  @  @    @     @   @
    324.  @    @   @ @   @    @  @  @    @      @ @  
    325.  @@@@@   @   @  @    @  @  @    @       @  
    326.  @    @  @   @  @    @  @  @    @      @ @  
    327.  @    @  @@@@@  @    @  @  @    @     @   @
    328.  @    @ @     @ @   @   @  @    @    @     @
    329.  @    @ @     @ @@@@    @   @@@@     @     @
    330.  
    331. );
    332.  
    333. }
    334.  
    335. sub copyright {
    336.     print "\n\n-- == (C) Doddy Hackman 2014 == --\n\n";
    337.     <stdin>;
    338.     exit(1);
    339. }
    340.  
    341. sub clean {
    342.     my $os = $^O;
    343.     if ( $os =~ /Win32/ig ) {
    344.         system("cls");
    345.     }
    346.     else {
    347.         system("clear");
    348.     }
    349. }
    350.  
    351. #The End ?
    352.  
    353.  

    Un ejemplo de uso

    Código: [Seleccionar]



     @@@@@     @    @@@@    @   @@@@     @     @
     @    @    @    @   @   @  @    @    @     @
     @    @   @ @   @    @  @  @    @     @   @
     @    @   @ @   @    @  @  @    @      @ @
     @@@@@   @   @  @    @  @  @    @       @
     @    @  @   @  @    @  @  @    @      @ @
     @    @  @@@@@  @    @  @  @    @     @   @
     @    @ @     @ @   @   @  @    @    @     @
     @    @ @     @ @@@@    @   @@@@     @     @



    [+] Listing [31] stations found ...

    [+] ID : 1
    [+] Name : idobi Radio
    [+] Type : Alternative

    [+] ID : 2
    [+] Name : BLUES RADIO (1.FM TM)
    [+] Type : Blues

    [+] ID : 3
    [+] Name : Venice Classic Radio Italia
    [+] Type : Classical

    [+] ID : 4
    [+] Name : 100hitz - New Country
    [+] Type : Country

    [+] ID : 5
    [+] Name : RADIO 7 - POLNOCNE
    [+] Type : Decades

    [+] ID : 6
    [+] Name : COOLfahrenheit 93
    [+] Type : Easy Listening

    [+] ID : 7
    [+] Name : Ibiza Global Radio
    [+] Type : Electronic

    [+] ID : 8
    [+] Name : HBR1.com - I.D.M. Tranceponder
    [+] Type : Trance

    [+] ID : 9
    [+] Name : COOL radio - Beograd
    [+] Type : Folk

    [+] ID : 10
    [+] Name : COOL radio - Beograd
    [+] Type : Folk

    [+] ID : 11
    [+] Name : HPR4
    [+] Type : Inspirational

    [+] ID : 12
    [+] Name : Radio Carsija - Melli
    [+] Type : International

    [+] ID : 13
    [+] Name : TheJazzGroove.com
    [+] Type : Jazz

    [+] ID : 14
    [+] Name : Paisa Estereo
    [+] Type : Latin

    [+] ID : 15
    [+] Name : RockRadio1.Com
    [+] Type : Metal

    [+] ID : 16
    [+] Name : Adom 106.3FM
    [+] Type : Misc

    [+] ID : 17
    [+] Name : Healing
    [+] Type : New Age

    [+] ID : 18
    [+] Name : RADIO SOUND POP
    [+] Type : Pop

    [+] ID : 19
    [+] Name : Latido 90.1 FM
    [+] Type : Public Radio

    [+] ID : 20
    [+] Name : Radio Mandela
    [+] Type : Funk

    [+] ID : 21
    [+] Name : Boneyaad Radio
    [+] Type : Rap

    [+] ID : 22
    [+] Name : Reggae141.com
    [+] Type : Reggae

    [+] ID : 23
    [+] Name : Classic Rock 915
    [+] Type : Rock

    [+] ID : 24
    [+] Name : 181.fm - Rock 181 (Active Rock)
    [+] Type : Rock

    [+] ID : 25
    [+] Name : 181.FM - The Buzz
    [+] Type : Rock

    [+] ID : 26
    [+] Name : 181.FM - Good Time Oldies
    [+] Type : Rock

    [+] ID : 27
    [+] Name : Top40
    [+] Type : Pop Dance R&B Rock

    [+] ID : 28
    [+] Name : MUSIK.ORIENTAL
    [+] Type : Seasonal and Holiday

    [+] ID : 29
    [+] Name : NOVA 100.3
    [+] Type : Soundtracks

    [+] ID : 30
    [+] Name : Alex Jones - Infowars.com
    [+] Type : Talk

    [+] ID : 31
    [+] Name : illusive Radio Punta
    [+] Type : Themes

    [+] Write exit to go out

    [+] Option : 3

    [!] Listening : http://174.36.206.197:8000 ...

    MPlayer 1.0rc2-4.2.1 (C) 2000-2007 MPlayer Team
    CPU: AMD Sempron(tm) 140 Processor (Family: 16, Model: 6, Stepping: 2)
    CPUflags:  MMX: 1 MMX2: 1 3DNow: 1 3DNow2: 1 SSE: 1 SSE2: 1
    Compiled with runtime CPU detection.

    Playing http://174.36.206.197:8000.
    Connecting to server 174.36.206.197[174.36.206.197]: 8000...
    Name   : Venice Classic Radio Italia
    Genre  : Classical
    Website: http://www.veniceclassicradio.eu/
    Public : yes
    Bitrate: 128kbit/s
    Cache size set to 320 KBytes
    Cache fill:  0.00% (0 bytes)   No bind found for key ''.

    Cache fill:  7.50% (24576 bytes)
    ICY Info: StreamTitle='Frederic Chopin (1810-1849) - 'Allegro de concert' per pi
    anoforte in la Maggiore Op.46 (11:37)  {+info: veniceclassicradio.eu}';StreamUrl
    ='';
    Cache fill: 17.50% (57344 bytes)
    Audio file file format detected.
    ==========================================================================
    Opening audio decoder: [mp3lib] MPEG layer-2, layer-3
    mpg123: Can't rewind stream by 154 bits!
    AUDIO: 44100 Hz, 2 ch, s16le, 128.0 kbit/9.07% (ratio: 16000->176400)
    Selected audio codec: [mp3] afm: mp3lib (mp3lib MPEG layer-2, layer-3)
    ==========================================================================
    AO: [dsound] 44100Hz 2ch s16le (2 bytes per sample)
    Video: no video
    Starting playback...

    ICY Info: StreamTitle='Mauro Giuliani (1781-1829) - Variazioni su 'Deh! Calma, o
    h ciel!' per chitarra e quartetto (08:00)  {+info: veniceclassicradio.eu}';Strea
    mUrl='';

    ICY Info: StreamTitle='Johann Sebastian Bach (1685-1750) - 'Il clavicembalo ben
    temperato' - Libro I - Praeludium et Fuga in si bemolle Maggiore BWV866 (02:42)
     {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Antonio Palella (1692-1761) - Concerto a 4  in sol Maggio
    re (12:42)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Anton Reicha (1770-1836) - Sonata per fagotto e pianofort
    e (16:19)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Gioachino Rossini (1792-1868) - Sonata per archi in mi be
    molle Maggiore No.5 (14:51)  {+info: veniceclassicradio.eu}';StreamUrl='';

    ICY Info: StreamTitle='Fernand De La Tombelle (1854-1928) - Andante espressivo p
    er violoncello e pianoforte (04:39)  {+info: veniceclassicradio.eu}';StreamUrl='
    ';

    ICY Info: StreamTitle='Franz Schubert (1797-1828) - Sinfonia in re Maggiore No.3
     D200 (23:09)  {+info: veniceclassicradio.eu}';StreamUrl='';


    Eso es todo.
    En línea

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Radio X 0.4
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more