Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
#!/usr/bin/perl
use IO::Socket::INET;
$| = 1;
my ($socket,$client_socket,$peeraddress,$peerport,$cop);
$socket = new IO::Socket::INET (
LocalHost => '127.0.0.1',
LocalPort => '5000',
Proto => 'tcp',
Listen => 5,
Reuse => 1
) or die "ERROR in Socket Creation : $!\n";
print "Content-type: text/html\n\n";
print "<html>";
print "SERVER Waiting for client connection on port 5000<br>\n";
while(!$cop){
$client_socket = $socket->accept();
$peeraddress = $client_socket->peerhost() || die "ERROR in peerhost : $!\n";;
$peerport = $client_socket->peerport() || die "ERROR in peerport : $!\n";;
print "Accepted New Client Connection From : $peeraddress, $peerport<br>\n";
print $client_socket "!DATA from Server!\n";
$client_socket->send($data);
my $data = <$client_socket>;
$client_socket->recv($data,1024);
print "Received from Client : $data<br>\n";
$cop = 1;
}
$socket->close();
print "</html>";use Socket;
$myserverhostname = 'myserver.ru';
$packed = gethostbyname($myserverhostname) || die "Couldn't resolve address for $hostname: $!\n";
$address = inet_ntoa($packed);
print "$address\n";#!/usr/bin/perl -w
use strict;
use IO::Socket;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $host = "127.0.0.1"; # тут 127.0.0.1 заменяю на полученный IP
my $port = 5000;
my $paddr = sockaddr_in($port, inet_aton($host));
connect(SOCK, $paddr) or die("No connect!");;
send(SOCK, "GET\nHOST: ${host}", 0);
my @data = <SOCK>;
print join(" ", @data);
close(SOCK);Обучение наступательной кибербезопасности в игровой форме. Начать игру!