El rincón de Zerial » ocio http://blog.zerial.org Informática, GNU/Linux, Seguridad, Hacking, Programación, Ocio Tue, 03 Jan 2012 00:13:53 +0000 en hourly 1 http://wordpress.org/?v=3.0 Asaltando un sitio de series online http://blog.zerial.org/seguridad/asaltando-un-sitio-de-series-online/ http://blog.zerial.org/seguridad/asaltando-un-sitio-de-series-online/#comments Tue, 16 Feb 2010 00:33:35 +0000 Zerial http://blog.zerial.org/?p=1545 De aburridos, junto con E.A.S (o xwall), nos dedicamos a buscar un sitio que brinde el servicio de series de en linea para encontrar la forma de tomar prestadas todas las series alojadas en el servidor. Imaginense algo como YouTube, pero tan vulnerable que fuese posible extraer todos los videos que hay en la red.
Bien, nuestro objetivo fue un sitio de series de animé en línea llamado “Efecto animé” que, mediante el sitio Satanick.net logramos descargar todas las series y capítulos que se servían.

La teoría es sencilla, la idea era encontrar un link directo a los distintos archivos multimedia o bien un enlace a algun directorios que los contenga, para luego descargar todo el contenido del directorio.
El fallo por parte de ellos fue dejar que se liste el contenido de directorios, de esta forma pudimos tener acceso a informacón como la siguiente:

Luego, con un poco de magia, simplemente descargamos el contenido de todo ese directorio.

Todo fue gracias al sitio “Satanick” el cual contiene un flash que provee al usuario poder ver series en línea, afortunadamente lamentablemente si vemos el código fuente nos encontramos con la siguiente sorpresa:

Miren detenidamente el código a ver si encuentran algo que nos ayude a nuestro propósito. Encontramos:

file=http://efectoanime.com/server/dn0te/06.mp4

Con esto ya podemos deducir que todos los videos se encuentran en la URL http://efectoanime.com/server/XXX, donde XXX corresponde al nombre de la serie. Como vimos en la imágen que les mostré anteriormente (donde se listaban los archivos del directorio thundercats/), está permitido listado de archivos de un directorio. Nuestro amigo wget será la salvación, ya que con el parametro -r es posible descargar un directorio.

Bien, ahora nos falta automatizar el proceso. Las URL de Satanick, donde se encuetran los videos, son de la forma http://satanick.com/?page_id=XXX, por lo que podemos asumir que cada ID corresponde a una página y en cada página es posible que encontremos links como el que les acabo de mostrar (el html de más arriba). Entonces mi idea fue crear un script que recorriera todas las páginas desde XXX hasta XXX+n. Pensando que si lo hago desde 0 se iba a demorar una eternidad, solo lo hice desde el 3000 hasta el 10000, luego cada página examinada deberá ser parseada y se debe encontrar un patrón que nos permita obtener la URL donde se encuentran los videos.
Yo lo hice de la siguiente forma:

for x in $(seq 3000 10000); do wget -O - http://satanick.net/?page_id=$x |grep "http://efectoanime.com/server" |awk -F '&' {'print $2'}>> lista_videos_satanick; done

Si lo queremos ver más bonito y en forma de “script”:

#!/bin/bash
for x in $(seq 3000 10000);
do
   wget -O - http://satanick.net/?page_id=$x |grep "http://efectoanime.com/server" |awk -F '&' {'print $2'}>> lista_videos_satanick;
done

El archivo “lista_videos_satanick” va a guardar todas las URL que encuentre y quedarás más o menos así:

file=http://efectoanime.com/server/hades/h29.mp4
file=http://efectoanime.com/server/hades/h29.mp4
file=http://efectoanime.com/server/hades/h30.mp4
file=http://efectoanime.com/server/hades/h30.mp4
file=http://efectoanime.com/server/hades/h31.mp4
file=http://efectoanime.com/server/hades/h31.mp4
file=http://efectoanime.com/server/hades/h31.mp4
file=http://efectoanime.com/server/thundercats/Th71.mp4
file=http://efectoanime.com/server/thundercats/Th71.mp4
file=http://efectoanime.com/server/thundercats/Th71.mp4
file=http://efectoanime.com/server/thundercats/Th72.mp4
file=http://efectoanime.com/server/thundercats/Th72.mp4
file=http://efectoanime.com/server/thundercats/Th72.mp4
file=http://efectoanime.com/server/thundercats/Th73.mp4
file=http://efectoanime.com/server/thundercats/Th73.mp4
file=http://efectoanime.com/server/thundercats/Th73.mp4
file=http://efectoanime.com/server/thundercats/Th74.mp4
file=http://efectoanime.com/server/thundercats/Th74.mp4

Lo único que debemos hacer es quitarle el principio “file=” y quitar las líneas repetidas:
sed -i 's/file=//g' lista_videos_satanick
Nos quedará algo así:

http://efectoanime.com/server/shippuden/Shippuden_144.mp4

http://efectoanime.com/server/bl34ch/B255.mp4

http://efectoanime.com/server/shippuden/Shippuden_145.mp4

http://efectoanime.com/server/md/612.mp4

http://efectoanime.com/server/bl34ch/B256.mp4

http://efectoanime.com/server/shippuden/Shippuden_146.mp4

http://efectoanime.com/server/thundercats/Th90.mp4

http://efectoanime.com/server/thundercats/Th92.mp4

De todas estas URL lo que nos interesa es sólo http://efectoanime.com/server/XXX, entonces lo arreglamos:

awk -F '/' {'print $1"/"$2"/"$3"/"$4"/"$5'} lista_videos_satanick

Quedará algo así:

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/bl34ch

http://efectoanime.com/server/bl34ch

http://efectoanime.com/server/bl34ch

http://efectoanime.com/server/shippuden

http://efectoanime.com/server/shippuden

http://efectoanime.com/server/shippuden

http://efectoanime.com/server/MD

http://efectoanime.com/server/MD

http://efectoanime.com/server/MD

Ahora debemos eliminar las repetidas:

# awk -F '/' {'print $1"/"$2"/"$3"/"$4"/"$5'} lista_videos_satanick |sort|uniq -d

http://efectoanime.com/server/avatar

http://efectoanime.com/server/bl34ch

http://efectoanime.com/server/Chihiro

http://efectoanime.com/server/dn0te

http://efectoanime.com/server/hades

http://efectoanime.com/server/lcanvas

http://efectoanime.com/server/manga

http://efectoanime.com/server/md

http://efectoanime.com/server/MD

http://efectoanime.com/server/sayns

http://efectoanime.com/server/shippuden

http://efectoanime.com/server/thundercats

http://efectoanime.com/server/trailers

http://efectoanime.com/server/Vshow

Luego un script que descarge todos los contenidos de los directorios:

for link in $(cat lista_videos_satanick); do wget -r $link; done

Y listo.

1.6G Death Note.tar
1.6G Saga de Hades.tar

ACTUALIZADO 16/02/2009

Luego de los comentarios de los responsables de los sitios, dando las gracias y diciendo que no les importa porque de todas formas tiene una marca de agua, etc etc.. Los directorios ya no se pueden listar:

http://efectoanime.com/server/thundercats/

Al fin y al cabo, si les importó el tema. Me alegro que les sirviera el post.

]]> http://blog.zerial.org/seguridad/asaltando-un-sitio-de-series-online/feed/ 10 Jugando con Festival TTS http://blog.zerial.org/tips/jugando-con-festival-tts/ http://blog.zerial.org/tips/jugando-con-festival-tts/#comments Mon, 28 Sep 2009 03:30:17 +0000 Zerial http://blog.zerial.org/?p=979 Festival es un software text-to-speech (TTS) o sintetizador de vóz que nos permite lograr que nuestra máquina nos hable o, más bien, nos lea algún texto. Con un poco de imaginación se pueden lograr cosas bastante simpáticas como hacer que nuestro computador nos diga la hora, nos lea los sitios web o el texto seleccionado o simplemente para ocio.
Existen paquetes para distintas distribuciones, como Archlinux o Debian, entre otras, para instalarlo directamente desde el gestor de paquetesa como pacman o apt-get, respectivamente. Podemos buscarlo como festvox o como festival y para ejecutarlo es súper simple:

comando | festival --tts

Y automaticamente leerá el texto pasado mediante pipe.
Por ejemplo, un sencillo script para que nos diga la hora en español:

  1. #!/bin/bash
  2.  
  3. hora=`date`
  4. hora=`echo $hora |cut -f4 -d " "`
  5. h=`echo $hora |cut -f1 -d ":"`
  6. m=`echo $hora |cut -f2 -d ":"`
  7. s=`echo $hora |cut -f3 -d ":"`
  8.  
  9. echo "Son las $h horas, $m minutos con $s segundos." |festival -tts -language spanish

Cuando usaba fluxbox, tenía uno atajo de teclado para hacer que me leyera lo que tenia en el portapapeles:

xsel --clipboard |iconv -f utf-8 -t iso-8859-1|festival --tts --language spanish

Con esto, pasamos el cotneindo del clipboard a ISO-8869-1 y le decimos a festival que lo lea en español.
Acá hay un video demostrativo de lo que se puede hacer con festival:

www.youtube.com/watch?v=VP3TUDm_9nk

]]> http://blog.zerial.org/tips/jugando-con-festival-tts/feed/ 1 Useless: Cosas ociosas e inútiles que puedes hacer en GNU/Linux http://blog.zerial.org/linux/useless-cosas-ociosas-e-inutiles-que-puedes-hacer-en-gnulinux/ http://blog.zerial.org/linux/useless-cosas-ociosas-e-inutiles-que-puedes-hacer-en-gnulinux/#comments Sat, 12 Sep 2009 20:38:34 +0000 Zerial http://blog.zerial.org/?p=854 Aveces nos encontramos en el trabajo o en la universidad frente a la pantalla sin nada que hacer y empezamos a inventar cosas para hacer, probamos comandos, nos mandamos alguna cagadita, en fín, intentamos ocupar nuestro tiempo de ocio en algo. A continuación les mostraré unos cuantos tips para cuando esten aburridos.
Les enseñaré a escuchar como trabaja su disco duro, jugar con el speaker, ver los movimientos -en binario- del mouse y algo más.

La guía del ocio, índice:

  1. Ver los movimientos del mouse
  2. Escuchar como trabaja nuestro disco duro
  3. Jugar con el speaker

Contenido

  • Ver los movimientos del mouse

    • Podemos visualizar los movimientos que hacemos con el mouse, dependiendo del dispositivo que usemos. Por ejemplo yo, con un mouse usb o con el touchpad de mi portatil usaré el dispositivo /dev/input/mice. Es simple, sólo debemos ejecutar el comando (como root):
    # cat /dev/input/mice
    Y comenzar a mover el mouse.
    Resultado:

    cat_dev_mouse

  • Escuchar como trabaja nuestro disco duro

    • Esto va depende de cómo tengamos distribuido nuestros discos, en mi caso, corresponde al dispositivo /dev/sda y para “escuchar” cómo suena, sólo ejecuto este comando (root):

    # cat /dev/sda >> /dev/audio
    Y sentiremos como si estuviesemos escuchando ruido extraterrestre…

  • Jugar con el speaker

    • Esto es un poco más divertido, para esto necesitaremos instalar el paquete “beep” y cargar el módulo pcspkr en el caso que no esté cargado. Para hacer sonar el speaker basta con ejecutar el comando:
    # beep

    Podemos jugar con las frecuencias y duración de cada beep (ver man beep) y lograr cosas como estas:

    1. #!/bin/bash
    2. beep -f 349;
    3. sleep 0.33
    4. beep -f 415.3;
    5. sleep 0.165
    6. beep -f 349;
    7. beep -f 349 -l 170;
    8. beep -f 466.2;
    9. sleep 0.05
    10. beep -f 349;
    11. sleep 0.05
    12. beep -f 311.1;
    13. sleep 0.05
    14. beep -f 349;
    15. sleep 0.33
    16. beep -f 523.2;
    17. sleep 0.165
    18. beep -f 349;
    19. beep -f 349 -l 170;
    20. beep -f 550;
    21. sleep 0.05
    22. beep -f 523.2;
    23. sleep 0.05
    24. beep -f 415.3;
    25. sleep 0.05
    26. beep -f 349;
    27. sleep 0.05
    28. beep -f 523.2;
    29. sleep 0.05
    30. beep -f 698.4;
    31. sleep 0.03
    32. beep -f 349 -l 170;
    33. beep -f 311.1 ;
    34. beep -f 311.1 -l 170;
    35. sleep 0.05
    36. beep -f 261.6;
    37. sleep 0.03
    38. beep -f 392;
    39. sleep 0.03
    40. beep -f 349 -l 750;

    Por ejemplo, este “beep” lo hicimos junto a Pons y a otros compañeros en la Universidad, cuando estabamos muy aburridos y no teniamos cosas que hacer.

]]> http://blog.zerial.org/linux/useless-cosas-ociosas-e-inutiles-que-puedes-hacer-en-gnulinux/feed/ 6 Script en perl en forma de camello http://blog.zerial.org/programacion/script-en-perl-en-forma-de-camello/ http://blog.zerial.org/programacion/script-en-perl-en-forma-de-camello/#comments Fri, 20 Feb 2009 15:25:31 +0000 Zerial http://blog.zerial.org/?p=247 =abs($F))?$G:$F;($E<0) and($ I,$K)=($J,$L);$E||=.01 ;for($i=0;$i< =abs$E;$i++ ){ $D->{$K +int($i*$F/$E) [...]]]> Ahora que me estoy especializando en perl, me acordé haber visto en el blog de vostorga un post bien curioso, escrito en perl y en forma de camello. 

                                                       #
                                                   sub j(\$){($
                     P,$V)=                      @_;while($$P=~s:^
                 ([()])::x){                    $V+=('('eq$1)?-32:31
           }$V+=ord(  substr(                 $$P,0,1,""))-74} sub a{
          my($I,$K,$  J,$L)=@_               ;$I=int($I*$M/$Z);$K=int(
         $K*$M/$Z);$J=int($J*$M             /$Z);$L=int($L*$M/$Z); $G=$
         J-$I;$F=$L-$K;$E=(abs($          G)>=abs($F))?$G:$F;($E<0) and($
          I,$K)=($J,$L);$E||=.01       ;for($i=0;$i< =abs$E;$i++ ){ $D->{$K
                  +int($i*$F/$E)      }->{$I+int($i*$G/$E)}=1}}sub p{$D={};$
                 Z=$z||.01;map{    $H=$_;$I=$N=j$H;$K=$O=j$H;while($H){$q=ord
                substr($H,0,1,"" );if(42==$q){$J=j$H;$L=j$H}else{$q-=43;$L =$q
              %9;$J=($q-$L)/9;$L=$q-9*$J-4;$J-=4}$J+=$I;$L+=$K;a($I,$K,$J,$ L);
              ($I,$K)=($J,$L)}a($I,$K,$N,$O)}@_;my$T;map{$y=$_;map{ $T.=$D->{$y}
              ->{$_}?$\:' '}(-59..59);$T.="\n"}(-23..23);print"\e[H$T"}$w= eval{
              require Win32::Console::ANSI};$b=$w?'1;7;':"";($j,$u,$s,$t,$a,$n,$o
              ,$h,$c,$k,$p,$e,$r,$l,$C)=split/}/,'Tw*JSK8IAg*PJ[*J@wR}*JR]*QJ[*J'.
               'BA*JQK8I*JC}KUz]BAIJT]*QJ[R?-R[e]\RI'.'}Tn*JQ]wRAI*JDnR8QAU}wT8KT'.
               ']n*JEI*EJR*QJ]*JR*DJ@IQ[}*JSe*JD[n]*JPe*'.'JBI/KI}T8@?PcdnfgVCBRcP'.
                '?ABKV]]}*JWe*JD[n]*JPe*JC?8B*JE};Vq*OJQ/IP['.'wQ}*JWeOe{n*EERk8;'.
                  'J*JC}/U*OJd[OI@*BJ*JXn*J>w]U}CWq*OJc8KJ?O[e]U/T*QJP?}*JSe*JCnTe'.
                   'QIAKJR}*JV]wRAI*J?}T]*RJcJI[\]3;U]Uq*PM[wV]W]WCT*DM*SJ'.  'ZP[Z'.
                      'PZa[\]UKVgogK9K*QJ[\]n[RI@*EH@IddR[Q[]T]T]T3o[dk*JE'.  '[Z\U'.
                        '{T]*JPKTKK]*OJ[QIO[PIQIO[[gUKU\k*JE+J+J5R5AI*EJ00'.  'BCB*'.
                             'DMKKJIR[Q+*EJ0*EK';sub h{$\ = qw(% & @ x)[int    rand
                              4];map{printf  "\e[$b;%dm",int(rand 6)+101-60*   ($w
                               ||0);system(  "cls")if$w ;($A,$S)=    ($_[1],   $
                                _[0]);($M,   @,)= split  '}';for(     $z=256
                                ;$z>0; $z   -=$S){$S*=   $A;p @,}      sleep$_
                                [2];while   ($_[3]&&($    z+=$ S)       < =256){
                                p@,}}("".   "32}7D$j"     ."}AG".       "$u}OG"
                                ."$s}WG"    ."$t",""      ."24}("        ."IJ$a"
                                ."}1G$n"    ."}CO$o"     ."}GG$t"        ."}QC"
                                 ."$h}"      ."^G$e"    ."})IG"          ."$r",
                                 "32}?"       ."H$p}FG$e}QG$r".          "}ZC"
                                 ."$l",          "28}(LC" .""            ."".
                                 "$h}:"           ."J$a}EG".             "$c"
                                 ."}M"             ."C$k}ZG".            "$e"
                                 ."}"             ."dG$r","18"          ."}("
                                ."D;"            ."$C"  )}{h(16         ,1,1,0
                               );h(8,          .98,0,0   );h(16         ,1,1,1)
                               ;h(8.0         ,0.98,0,     1);         redo}###
                             #written                                 060204 by
                           #liverpole                                  @@@@@@@
                        #@@@@@@@@@@@

Para ejecutarlo basta que lo copies y lo pegues en tu editor de texto favorito y lo ejecutes escribiendo perl script.pl. Tambien puedes descargarlo desde acá.

]]> http://blog.zerial.org/programacion/script-en-perl-en-forma-de-camello/feed/ 3