Hice primero el proyecto en VisualBasic, que funciona perfectamente.
Al utilizar el comando netstat -a, veía como se ejecutaban los sockets y enviaba al host y puerto específico, para ello en el VisualBasic utilicé un arreglo de winsock.
Pero a la hora de hacer el script en Perl me tomé, que el script que hice, solo mandaba 1 socket en vez de mandar muchas conexiones. Parte del código Perl es así:
Using perl Syntax Highlighting
- use IO::Socket::INET;
- $x = 0;
- system("pause");
- system("cls");
- print "\nIp del servidor --> ";
- chomp($ip=<STDIN>);
- print("\nPuerto ");
- chomp($puerto=<STDIN>);
- print("\nSlot del servidor default 50 --> ( Solo Numeros ) ");
- chomp($slot=<STDIN>);
- system("cls");
- while($x<=$slot)
- {
- $x++;
- $k=IO::Socket::INET->new( PeerAddr => "$ip",
- PeerPort => "$puerto" ,
- Proto => "tcp");
- print "[+]Socket Connect" . "\n";
- }
- system("pause>nul");
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Al ejecutar el código Perl, utilicé el comando netstat -a, pero vi que solo hace una conexión, o sea, que manda un solo socket...
¿Puedo hacer que envíe muchos sockets distintos al puerto como lo hice con VisualBasic?
¿Necesito usar un array o hash? ¿Cómo sería para definirlos con muchos objetos de sockets? Muchas gracias de antemano.
PHAMTOM
No soy experto en comunicaciones, pero si capto la intención de 
