File: attack.pl

package info (click to toggle)
libnet-easytcp-perl 0.17-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 116 kB
  • ctags: 37
  • sloc: perl: 1,065; makefile: 52
file content (28 lines) | stat: -rwxr-xr-x 582 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl

#
# $Header: /cvsroot/Net::EasyTCP/util/attack.pl,v 1.2 2002/11/03 09:06:18 mina Exp $
#

$|=1;

use Net::EasyTCP;
$|=1;

for (1..1000) {
	print "Launching client [$_}\n";
  $client = new Net::EasyTCP(
        mode            =>      "client",
        host            =>      'localhost',
        port            =>      2345,
		password			=>	"byteme",
		donotencrypt	=>	1,
        )
        || die "ERROR CREATING CLIENT: $@\n";
	push (@clients, $client);
	}

foreach $client (@clients) {
	print "Closing ...\n";
	$client->close() || die "ERROR CLOSING: $@\n";
	}