#!/usr/bin/perl -w
#!C:\Perl\bin\perl.exe -w
################################################################

################################################################
#                                                              #
# By using this code you agree to indemnify rootsecure.net     #
# from any liability that might arise from its use.            #
#                                                              #
# Also you agree not to use it for the purpose of advertising  #
# any product, brand or service.                               #
#                                                              #
################################################################

$message_text = "spam";
$first_x2_ip = "192.168";

for ($countb=0; $countb<257; $countb++) {

    for ($counta=1; $counta<257; $counta++) {
        $send_message_to = "$first_x2_ip.$countb.$counta";
        &mess_send;
    }

}

sub mess_send {
   system("net send $send_message_to = $message_text");
   print "$send_message_to\n";

}