Perl/shell obfuscated

Posté par  (site web personnel) . Modéré par Fabien Penso.
Étiquettes :
0
9
mai
2001
Perl
Bon, après bien des heures de labeur, Dilbert et moi avons pondus ces lignes de commandes pour écouter les mp3 que raphit broadcast. D'ailleurs ne les lancez pas tous à la fois pour pas le flooder :)

version normale:
perl -e'$a="mp3.raphit.net";s/ /%20/g,/:.{8}(.*mp\d)/i&&print"http://$a/$1\n"foreach`rsync -r "$a"::mp3`'|mpg123 -yvZ@-

variante:
mpg123 -yvZ$(perl -e'$a="mp3.raphit.net";s/ /%20/g,/:.{8}(.*mp\d)/i&&print"http://$a/$1\n"foreach`rsync -r "$a"::mp3`')

version gore:
export Q=mp3.raphit.net;mpg123 -yvZ`rsync -r $Q::mp3|perl -ne's/ /%20/g,/:.{8}(.*mp\d)/i&&print"http://$ENV{Q}/$1\n"'`

encore plus courte:
export Q=mp3.raphit.net;mpg123 -yvZ`rsync -r $Q::mp3|perl -pe's|.*:...(.*mp\d)|http://$ENV{Q}/$1|i?s/ /%20/g:s/.*//'`

  • # jpc

    Posté par  . Évalué à 0.

    moi pas comprendre le chinois, même sous la torture !

  • # et après ?

    Posté par  . Évalué à 0.

    Ca vaut la page principale ce truc ?

  • # putain...... dams j'ai honte :)

    Posté par  . Évalué à 0.

    mouais, bon on était motivé pour un script à la con pour changer :), mais bon ca peut arriver, mais le pire c'est que maintenant on va savoir que je connais un dev MDK, affreux affreux :o).

    À part c'était surtout pour dire une connerie, mettez moi en -1 d'ailleurs, ca m'apprendra.
    Et puis Fabien ne donne pas de T-shirt à Dams, elle pue cette news :)

    -----------------------------------------------
    Dilbert, pas authentifier, mais bon pour dire une connerie par an, c'est pas la peine.

    -----------------------------------------------
    "Le moniteur peut blesser quelqu'un s'il tombe ou s'il est lancé. [Doc IIyama VMpro451]"

  • # et puis ? ....

    Posté par  (site web personnel) . Évalué à -1.

    quel est l'intérêt ???

    -1

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.