martes, 27 de abril de 2010

doy2m.pl

#!/usr/bin/perl -wl
#
# doy2m.pl
# day of year 2 month

use Date::Manip;

my ($y,$m,$d,$h,$mn,$s) = Date_NthDayOfYear(2010,69);
print $m;

jueves, 8 de abril de 2010

Por si no se entendió

Por si alguien no entendió el post de Showtime Networks Incorporated:

Case ID: 1024197398
Infringing Work: Dexter
First Found: 4 Mar 2010 00:05:03 EST (GMT-0500)
Last Found: 4 Mar 2010 00:05:03 EST (GMT-0500)
IP Address: 132.248.30.X
IP Port: 51413
Protocol: BitTorrent
Torrent InfoHash: 6B9F76C83C1B73EF852F9BC011698113A4F6966A
Containing files(s): Dexter.S04E02.Remains.to.Be.Seen.HDTV.XviD-FQM.avi.torrent (576,730,440 bytes)

El 3 de marzo del 2010 a las 23:05:03 hora local se encuentra que el equipo con direción de internet 132.248.30.X está corriendo un programa de bittorrent en el puerto de comunicación 51413 el cual contiene el archivo de nombre Dexter.S04E02.Remains.to.Be.Seen.HDTV.XviD-FQM.avi.torrent con un tamaño de 576,730,440 bytes.

Se presume que dicho archivo, en el formato AVI de Microsoft creado con el codificador XviD con la opción FQM, contiene una copia no autorizada del vídeo de la serie de televisión Dexter, Temporada 4, Episodio 2, con título "Remains to be seen", en formato de alta definición.

domingo, 28 de marzo de 2010

sábado, 27 de marzo de 2010

Showtime Networks Incorported

Ayer me notificaron que Showtime Networks Inc. se estaba quejando sobre actividades que presumiblemente violan derechos de propiedad intelectual de terceros en una las computadoras de la red a mi cargo:

Case ID: 1024197398
Infringing Work: Dexter
First Found: 4 Mar 2010 00:05:03 EST (GMT-0500)
Last Found: 4 Mar 2010 00:05:03 EST (GMT-0500)
IP Address: 132.248.30.X
IP Port: 51413
Protocol: BitTorrent
Torrent InfoHash: 6B9F76C83C1B73EF852F9BC011698113A4F6966A
Containing files(s): Dexter.S04E02.Remains.to.Be.Seen.HDTV.XviD-FQM.avi.torrent (576,730,440
bytes)

¡Típico! El asunto ha sido arreglado. Showtime Networks Incorporated puede estar seguro de que en esa computadora en particular no hay ningún archivo de nombre Dexter.S04E02.Remains.to.Be.Seen.HDTV.XviD-FQM.avi.torrent con un tamaño de 576,730,440 bytes :-)

Me pregunto. ¿Cómo le hizo Showtime Networks Incorporated para obtener la información? ¿Será que tiene un sniffer en alguna computadora de nuestra red? ¿Una de esas tantas computadoras infectadas con malware y que están al servicio del mejor postor? ¿Tendrán un sniffer en el backbone de nuestro ISP?

No hace falta ser un genio como Dexter ni tener una hermana como Dee dee para darse cuenta que con una ligera modificación a un cliente bittorrent es posible obtener del tracker la lista de direcciones IP.

Por cierto: no estoy interesado en cereal killers. La última serie decente de showtime que recuerdo haber visto fue Penn & Teller. ¡Y ya no la pasan! ¿Se podrá conseguir por Internet en la tienda de vídeos?

jueves, 25 de marzo de 2010

Los mejores personajes de películas

No tengo idea de cómo llegué aquí. No estaré de acuerdo con todos, pero van mis favoritos:

¿Y tu que opinas?

viernes, 19 de marzo de 2010

filldisk.pl

#!/usr/bin/perl -w
#
# Usage: perl filldisk.pl > /dev/sdc

use Crypt::RC4;
use Crypt::Random qw(makerandom_octet);

my $BSIZE=4096;
my $KSIZE=16;

my $buffer;
my $rc4key=makerandom_octet(Length => $KSIZE, Strength => 1, Uniform=>1);

binmode STDOUT;

my $total=0;
my $wsize=0;

my $alarm=1;

local $SIG{ALRM} = sub { $alarm=1; };

while(1) {
if($alarm) {
print STDERR "\r$total KB";
$buffer=makerandom_octet(Length => $BSIZE, Strength => 0, Uniform=>1);
$alarm = 0;
alarm(1);
}

$buffer = RC4($rc4key, $buffer);
$wsize = syswrite(STDOUT, $buffer, $BSIZE);
last unless $wsize;
$total+=$wsize >> 10;
$rc4key=makerandom_octet(Length => $KSIZE, Strength => 0, Uniform=>1);
}

print STDERR "\n$0: $!\n$total KB written\n";

jueves, 4 de marzo de 2010

d2hms.c

#include <stdio.h>
#include <stdlib.h>
#include <math.h>

double d2hms(const double d, double *h, double *m, double *s)
{ double foo;
foo=modf(d,h);
foo*=60;
foo=modf(foo,m);
foo*=60;
foo=modf(foo,s);
return foo;
}

int main(int argc, char* argv[], char* envp[])
{
double d,h,m,s,c;

if(argc==2) {
d=atof(argv[1]); /* better use strtod */
} else {
printf("Usage:\n%s hora.decimal\n",argv[0]);
return -1;
}

c=d2hms(d,&h,&m,&s);
printf("%f=%.0f:%02.0f:%06.3f\n", d, h, m, s+c);
return 0;
}

---
$ gcc d2hms.c -lm
$ ./a.out 12.345678
12.345678=12:20:44.441

lunes, 22 de febrero de 2010

CIE-UNAM UC root SSL CA

-----BEGIN CERTIFICATE-----
MIIGzTCCBLWgAwIBAgIJAKOV5QBX6CvLMA0GCSqGSIb3DQEBBQUAMIGfMQswCQYD
VQQGEwJNWDEQMA4GA1UECBMHTW9yZWxvczEQMA4GA1UEBxMHVGVtaXhjbzEtMCsG
A1UECgwkQ2VudHJvIGRlIEludmVzdGlnYWNpw7NuIGVuIEVuZXJnw61hMRswGQYD
VQQLDBJVbmlkYWQgZGUgQ8OzbXB1dG8xIDAeBgNVBAMTF0NJRS1VTkFNIFVDIHJv
b3QgU1NMIENBMB4XDTEwMDIxOTE1MjE1MloXDTM1MDIxOTE1MjE1MlowgZ8xCzAJ
BgNVBAYTAk1YMRAwDgYDVQQIEwdNb3JlbG9zMRAwDgYDVQQHEwdUZW1peGNvMS0w
KwYDVQQKDCRDZW50cm8gZGUgSW52ZXN0aWdhY2nDs24gZW4gRW5lcmfDrWExGzAZ
BgNVBAsMElVuaWRhZCBkZSBDw7NtcHV0bzEgMB4GA1UEAxMXQ0lFLVVOQU0gVUMg
cm9vdCBTU0wgQ0EwggIiMA0GCSqGSIb3DQEBAQUAA4ICDwAwggIKAoICAQDXW9kM
BQeKbue9k2hZyctAB63rB6BEszriV+i/ted9Gs1Yj/zWmVAGSZu1NJnbgOBGX3j/
78M7h8XHE00H/XnFPFPgiUxxBZZFsSbdjFFYEgQ7jfbvl1E1uYEL8wc16nCsZfWy
xtthq8nS6Ell1uW9ecuSiHime4XkCrNcaPLdpTJPGBEHLJCeF0LBImwqoNCuG9Lw
2naVhK9515vNX37tpQnUJxMdtZ1h83Gqp7yaY996nYyfeJjtOhFqBJ0iZfSOWE/5
wl6XaL/Q6rmy8vaxHJgJqn05hT+AtC+NftE+dm9/q2U5wa6sjqQKnE5a3++x3P3e
ntYbUh6lyxLlVhhMbWX7O2YVUouddp8fT91ae/rKPqP7pzTgvH8aru97pFCjTM91
8TnhuaqGKrMyeraVTe9gJB9AN800B9dOhTiGMAUkZUEfXEsmZSVtxpvM1ooFVF5H
Ye/8JH4hpmPzR+FNzMroxkY5TR7ykuEeeYuAjLF3Er4ddvAM9UYrh+fZKxp83wkE
FbFNh/SqLneUPvqekWo8yW141qFG7oQfSuCGvY3o+qaMg5+eAzPHBey04gUbG6uL
mCUec2vTnix8gJb7Ar0cx1YO5/NUp/rTKBZ/jU8FqSHfK/czwR4PUye/biYQ9PmX
N5PiRC5KNz1BJS37+t94aYriaCXpwWY+NnTZxQIDAQABo4IBCDCCAQQwHQYDVR0O
BBYEFCGfTMdVqPWQ4u5ZLdvPhWdTaH6sMIHUBgNVHSMEgcwwgcmAFCGfTMdVqPWQ
4u5ZLdvPhWdTaH6soYGlpIGiMIGfMQswCQYDVQQGEwJNWDEQMA4GA1UECBMHTW9y
ZWxvczEQMA4GA1UEBxMHVGVtaXhjbzEtMCsGA1UECgwkQ2VudHJvIGRlIEludmVz
dGlnYWNpw7NuIGVuIEVuZXJnw61hMRswGQYDVQQLDBJVbmlkYWQgZGUgQ8OzbXB1
dG8xIDAeBgNVBAMTF0NJRS1VTkFNIFVDIHJvb3QgU1NMIENBggkAo5XlAFfoK8sw
DAYDVR0TBAUwAwEB/zANBgkqhkiG9w0BAQUFAAOCAgEAJ70tLFZ8x6NKIIY+V39c
iGMLLqdTyTFEn6UaiDbulzITCmyhoP539ysqtUchJ5F+I9eZkesN3MIYUi2d/XFq
dy02MCZ+JCbCsW067280Ckh7Dpcbir0iIRM3udV7l4YDFuXHJSGddkmDoPTt8ltX
sridshmsJwjkIUoPJe8jy6LUTghVFPkHbD+ANbm12fYnZHsrwTsYYyku5PJynaS/
cWuXE07kKLzF0pfskkqZfzz8/9AC5XWqQqc2+JpsjgTjRCg+hviUjQ7+SuPgbH3z
CA9LNFffPiHwFj9T5yht1NFPQDEIKLmr02naLnzo5rd5fK9oLSW+IiFqaTDbgeHo
bgJsunZjUw4rO65htb8DgdBl5aD30vxEWSqZV+qLSx7Xbmt3iXeXYu80L+YeFyp7
H94SSVKzngY3owz/W5Rmhtmqud285ph60srrQe7PFkUKhMis6+sIdPyQLbLkiju/
/GwJBgBEBe4y/WiRF2eo2aDwCKkMpZCcYv303y1P4iFK8W1z/UKk8BIcEcEpm73k
xBUIelvtU0p2jD/lvVfMV8MgkPwnqFlF4LJ3ymgnF3HAxjplrKJggJOE4to116Un
MQzns0rerf09ybJArhC7Rpi54W+xFK/VpZPmTiBb1Y+QVNpZ3FPJODsJOInq4mim
dU8Cb0yx/3FDfiUo7KHRkLM=
-----END CERTIFICATE-----

lunes, 1 de febrero de 2010

Marte y la Luna


Marte y la Luna, originalmente cargada por hdaniel.

Coincidiendo con el primer puente de año, aproveché para tomarle una foto al evento astronómico del fin de semana: una luna llena, la más grande del año por encontrarse cerca del perigeo, y marte, en oposición, y por tanto más cerca de la Tierra (aunque no tanto como en el 2003, cuando el infame HOAX que aún sigue circulando por Internet).

Debí llevar mi telescopio, o cuando menos un tripié para la cámara.

miércoles, 27 de enero de 2010

Sysadmin appreciation gift

cookies
Sysadmin appreciation gift, originalmente cargada por hdaniel.

Se me había pasado postear esta foto. A pesar del mal principio de año, incluyendo la falla del servidor MAZATL, aún hay usuarios que se acuerdan del sysadmin.

Gracias.

jueves, 21 de enero de 2010

Me hace falta un teléfono directo

En esta era de la Comunicación Digital, me cuesta trabajo creer que me tardé cerca de una hora para contactar al soporte técnico de DELL (001-866-563-4425). Si bien es cierto que la red telefónica digital de la UNAM es una maravilla, también tiene sus limitantes. Lo que me incomoda es que sean limitaciones impuestas. Entiendo que no la UNAM no quiera que realices llamadas de larga distancia, ni que llames a teléfonos celulares, ni que llames a tu casa, ni a los jefes... ¿le sigo? Como sea, voy a solicitar una de las famosas claves para poder hacer todo esto. Estoy seguro que no me darán nada, porque también entiendo que para los jefes no es importante que la unidad de cómputo pueda llamar al soporte técnico cuando se descomponen los servidores, o el RDI.

Bueno, después de este berrinche, a lo que vine a este blog: me han dado mi número de reporte y van a reemplazar la tarjeta controladora de los discos en arreglo (todo por no querer decir RAID). Ya recibí una llamada confirmando la dirección y que llamarán mañana para acordar la hora de la visita. Espero que mejore la suerte, pero no dejo de pensar que Murphy era un optimista.