cored has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's minimum standard of quality and will not be displayed.

Replies are listed 'Best First'.
Re: (nrd) Sending messages in the network
by newrisedesigns (Curate) on Jan 25, 2003 at 17:29 UTC

    Can you send me your email address and static IP? I'd like to spam you, too.

    Even if your intentions are good, spoofing something like those annoying windows messaging popups begs to be used improperly.

    Check MS Support if you wish to continue this venture.

    John J Reiser
    newrisedesigns.com

[reply]
Re: Sending messages in the network
by pfaut (Priest) on Jan 25, 2003 at 17:04 UTC

    Could you explain what you need this utility for? It sounds like what you are asking for is a malicious hack that can be used to spoof the source of a message. I can't think of any reason why you would need such a utility unless it were to avoid responsibility for the message.

    ---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';

    [download]
[reply]
[d/l]
      I have written a perl application using the Win32::GUI module that does this. Our Security department here at the college needed a way to send out messages to all the administrative offices such as severe weather alerts, power outtages, etc. Just recently there was a bank robbery just a few blocks from the campus. This application is password protected to prevent malicious use in case it ever got into the wrong hands.

      This application will allow for 'canned' messages to be saved as well in case they ever need to use a recurring message. It still neeeds some tweeking but it's a lot easier than the net send command.

      I don't think everyone has a malicious intent for an application like this.

      Jonathan Southwick
      Allegheny College, Meadville, PA
      jonathan.southwick@allegheny.edu
[reply]
Re: Sending messages in the network
by ibanix (Hermit) on Jan 26, 2003 at 00:29 UTC
    I also wonder about the nature of this request, but I firmly believe in user education and presumption of innocence.
    You should be able to send a NetBEUI message by calling out to net send ala  my $returnval = `net send $options $message` and fill as appropriate. Or, you can use Win32::Message, see the Send() function.

    I would strongly encourage you to consider how you use this code. I hope you're using it to send yourself network alerts, or alerting your users of a problem, server shutdown, etc. If you're using it to send messages to unknown strangers on the internet or your LAN, I'll track you down and teach you the real meaning of use strict;

    ibanix

    $ echo '$0 & $0 &' > foo; chmod a+x foo; foo;
[reply]
[d/l]
[select]
      I have written a perl application using the Win32::GUI module that does this. Our Security department here at the college needed a way to send out messages to all the administrative offices such as severe weather alerts, power outtages, etc. Just recently there was a bank robbery just a few blocks from the campus. This application is password protected to prevent malicious use in case it ever got into the wrong hands.

      This application will allow for 'canned' messages to be saved as well in case they ever need to use a recurring message. It still neeeds some tweeking but it's a lot easier than the net send command.

      I don't think everyone has a malicious intent for an application like this.

      Jonathan Southwick
      Allegheny College, Meadville, PA
      jonathan.southwick@allegheny.edu
[reply]
      Is this applicable to Unix too. I am new to perl and dont know how to use this code in a script.
[reply]

Back to Seekers of Perl Wisdom