mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-11-03 20:27:54 +00:00
72712ff548
These scripts will now be publicly available in a git repo for easier shared development and change tracking.
86 lines
2.3 KiB
Perl
Executable File
86 lines
2.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#-------------------------------------------------------------------
|
|
# FILE: rand_nc.pl
|
|
# AUTH: Daniel Berry - wizatta@hotmail.com
|
|
# VERS: 1.0 beta 4/07/04
|
|
# DESC: Simple perl script to generate random arguments for nc
|
|
# TCP port connections.
|
|
#
|
|
# Command line arguments: None
|
|
#
|
|
# There are 3 arrays controlling target execution
|
|
#
|
|
# @targ = for storage of IP addresses or FQDN
|
|
# $targs = set to number of targets in @targ
|
|
#
|
|
# @srcIP = for storage of source IP addresses
|
|
# $srcIps = set to number of source IP addresses
|
|
#
|
|
# @port = for storage of the target TCP ports
|
|
# $ports = set to the number of ports in @port
|
|
#
|
|
#
|
|
#-------------------------------------------------------------------
|
|
|
|
# Target array - either IP address format or FQDN
|
|
@targ = ('box1.target.net','box2.target.net');
|
|
$targs = 2;
|
|
|
|
# Source IP address to use--should be assigned to system
|
|
@srcIP = ('10.1.1.1','10.1.1.2','10.1.1.3','10.1.1.4');
|
|
$srcIPs = 4;
|
|
|
|
|
|
# TCP port to connect to
|
|
@port = ('25','110','111','135','143','161','389','514','515','1080','1433','1521','8080');
|
|
$ports = 13;
|
|
|
|
# Set pause length for timing - seconds
|
|
$pausemin = 5;
|
|
$pausemax = 90;
|
|
|
|
#
|
|
# Create output log
|
|
`echo "Netcat random TCP connection script..." >/tmp/nc_exe.log`;
|
|
`date >>/tmp/nc_exe.log`;
|
|
|
|
#
|
|
# Setup loop -- loop is continious until terminated
|
|
#
|
|
my $i = 0;
|
|
while (1) {
|
|
#
|
|
# Random selection of target
|
|
my $tgt = int(rand($targs));
|
|
$tgtip = $targ[$tgt];
|
|
|
|
#
|
|
# Select source IP address
|
|
my $sIPn = int(rand($srcIPs));
|
|
$sIP = $srcIP[$sIPn];
|
|
|
|
#
|
|
# Select target TCP port
|
|
my $eport = int(rand($ports));
|
|
$tport = $port[$eport];
|
|
|
|
# Execute netcat connection from source IP to target IP and TCP port
|
|
|
|
print "nc TCP Connect TARG: $i \t Src_IP: $sIP \t IP: $tgtip \t PORT: $tport \n";
|
|
`echo "nc TCP Connect TARG: $i \t Src_IP: $sIP \t IP: $tgtip \t PORT: $tport">>/tmp/nc_exe.log`;
|
|
|
|
`echo "^d"|/usr/bin/nc -v -w5 -s $sIP $tgtip $tport >>/tmp/nc_exe.log`;
|
|
|
|
|
|
$i++;
|
|
$pause = $pausemin + int(rand($pausemax));
|
|
print "Sleeping $pause ...\n";
|
|
|
|
sleep $pause;
|
|
}
|
|
|
|
#
|
|
# End - script will terminate normally if all works correctly
|
|
#
|
|
#-------------------------------------------------------------------
|