#!/usr/bin/perl
use IO::Socket;

if ($ARGV[1] eq "") {
	die ("Uso : $0 serverIP puerto\n      $0 200.52.45.3 80\n");
}
$victima=$ARGV[0];
$puerto=$ARGV[1];
print("\n--------------------------------------------------------\n");
print("\n  Conectando con el Server [ $victima ] : $puerto \n ");
print("\n--------------------------------------------------------\n");

my $sock=IO::Socket::INET->new("$victima:$puerto")
	or die "IO:Socket:$@";
print $sock "HEAD GET / \n\n";
print<$sock>;
close($sock) || die "close: $!";

######################################################################
#
#   beta testing
help() if exists $opts{'h'} or exists $opts{'?'};

sub help {
    print <<"HELP";
Usage: $0 Server portnumber

Options for version $0:
  -h/-?  Display this message

Run perldoc(1) on this script for additional documentation.

HELP
    exit;
}
######################################################################
#
# DOCUMENTATION

=head1 NOMBRE

client.pl - Permite conectarse al servidor especificado para
obtener información.

=head1 SINOPSIS

Simplemente usa perl para correr este script y especifica el 
servidor y el puerto que debe usarse para la conexión :

  $ perl client.pl 200.36.13.13 80

=head1 DESCRIPCION

Este script está bajo prueba y es para realizar conexiones remotas
y buscar información dependiendo del puerto en el que se realice la
conexión.

Pronto se convertirá en un Scanner de múltiples vulnerabilidades
que automatizará el proceso de administración de los servidores,
al buscar fallas automaticamente.

=head2 Normal Usage

  $ client.pl localhost 80

=head1 OPTIONS

Por ahora este Script soporta estas opciones :

=over 4

=item B<-h>, B<-?>

Imprime una breve muestra de el uso del Script.

=back

=head1 BUGS

=head2 Reporting Bugs

Newer versions of this script may be available from:

http://www.hackcraft.com/

If the bug is in the latest version, send a report to the author.
Patches that fix problems or add new features are welcome.

=head2 Known Issues

No known bugs.

=head1 SEE ALSO

perl(1)

http://www.hackcraft.com

http://www.perl.com

=head1 AUTHOR

M1nd K0ntr0L, mindkontrol@hackcraft.com

=head1 COPYRIGHT

Copyright (c) 2003, Hugo Martín.  This script is NOT free software;
you can redistribute it and/or modify it after informing me you are
doing it. Just want to know who changes my code, i will let you do
it if you ask :)

=head1 VERSION

$Id: client.pl,v 0.1 2003/01/09 21:37:07 mk Exp $

=cut