Ai cũng thấy rằng password dùng để login vào windows dễ dàng bị vô hiệu hoá. 

[root@localhost]#perl /honeyd-script/telnet/faketelnet.pl
 

Can't locate msgs.txt in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /honeyd-script/telnet/faketelnet.pl line 8.
 

require 'msgs.txt';

use IO::Socket;

my ($line, $i, $con, $port);

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsockopt: $!";
bind(SERVER, sockaddr_in(24, INADDR_ANY)) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";


while($con = accept(CLIENT, SERVER))
{
$pid=fork();
if ($pid == 0)
{
addloginfo();
login(CLIENT);
}
}


##Subrotina de login
sub login
{
($client) = @_;
send($client, "$message\n", 0);
send($client, "\nLogin:", 0);
recv(CLIENT, $user, 100, 0);
if(length($user) > 15)
{
send($client, "Segment Fault\n", 0);
$shell="sh-2.05b# ";
&shell($client,$user);
}
chomp($user);
send($client, "Password:", 0);
recv(CLIENT, $pass, 100, 0);

addloguser($user,$pass);
shell($client,$user);
}


##subrotina simulando uma shell
sub shell
{
getcmds();
($client,$user)= @_;
my $steps="$user" . "conectou";
send($client, "$shell", 0);
my $exec=0;
for(;
{
recv($client, $comand, 100, 0);
chomp($comand);

if($comand =~ /^\r/)
{
send($client, "$shell", 0);
}
elsif($comand =~ /quit\b/)
{
exit 0;
}
elsif($comand =~/\W/)
{
foreach my $rule (keys %cmds)
{
if($comand =~ /$rule/i)
{
send($client, "$cmds{$rule}", 0);
send($client, "$shell", 0);
$exe=1;
last;
}
else
{
$exe=0;
}
}
if($exe != 1)
{
send($client, "bash command not found\n", 0);
send($client, "$shell", 0);
$exe=0;
}
}
}
exit 1;
}


#subrotina que "pega" os comandos do arquivo cmds.txt

sub getcmds
{
open(CMDS, "cmds.txt";
while (defined ($opt=<CMDS>)
{
if($opt =~ /^ $/)
{
last;
}
else
{
@optw = split(/:/, $opt);
$cmds{$optw[0]}=$optw[1];
}
}
close(CMDS);
}

sub addloginfo
{
my($port,$iaddr) = sockaddr_in($con);
open(LOGFILE, "+>>$logfile";
if(LOGFILE)
{
print(LOGFILE scalar localtime);
print(LOGFILE " Faketelnet -- ataque vindo de: ", inet_ntoa($iaddr), ":$port\n";
close(LOGFILE);
}
}

sub addloguser
{
my ($user,$pass)= @_;
open(LOGFILE, "+>>$logfile";
if(LOGFILE)
{
chomp($user);
chomp($pass);
print(LOGFILE " Info do atacante:", $user, "\n";
print(LOGFILE " senha utilizada:", $pass, "\n";
close(LOGFILE);
}
}



 

#file with the messages to be sent
#Emulate Linux RedHAT
#
#$logfile="faketel.log";
#$myhost="enigma.opensolutions.com.br";
#$message="\n$myhost (Linux release 2.4.18-14)";
#$msglogin="Bem vindo a maquina ENIGMA\n\n";
#$shell="[root\@enigma root]# ";
#$uname="Linux RedHat 6.2 enigma.opensolutions.com.br 2.2.19 i586";
#
#emulate Solaris
#
#$logfile="faketel.log";
#$myhost="enigma.opensolutions.com.br";
#$message="\nSunOS 5.8";
#$msglogin="Last login: Mon Jun 2 15:31:59 from localhost\n";
#$shell="$ ";
#$uname="SunOS 5.8 Spark Ultra 10";
#
#Emulate Win NT (GoodTech Telnet Server)
#
#$logfile="faketel.log";
#$message="Welcome to GoodTech Telnet Server for Windows NT (V2.2) \n\n (C) Copyright 1996-1999 GoodTech Systems,Inc.\n";
#msglogin="";
#$shell="c:>";
#$uname="uname is not recognized as a internal or external program, operable program or batch file";


#Default responses:


$logfile="faketel.log";
$myhost="localhost.localdomain";
$message="\nConnected to $myhost";
$msglogin="Last login: Mon Jun 2 15:31:59 from localhost\n\n";
$shell="[root\@enigma root]# ";
 

File cấu hình của bạn nhiều dòng comment quá (bắt đầu bằng dấu #), nên remove hết đi để tạo thuận tiện cho người đọc. 

Từ kết quả này bạn có rút ra được điều gì không?

PS: mình thì chưa dùng honeyd nhưng mình thấy bản mới nhất của nó cũng release từ 2007, nên chắc ít người mặn mà với nó. 

Mình đã cài được honeyd.
File cấu hình honey.conf:

Khi chưa start honeyd, lấy 1 máy bất kỳ scan máy 10.0.0.2 thì ra đúng:

Khi start honeyd, thì lại ra không đúng so với file cấu hình:

Và honeyd thì:

Cấu hình liệu mình có sai gì không mà sao scan ko ra vậy?  

kyoshiroit wrote:

Mình đã làm theo hướng dẫn của tranhuuphuoc, khi configure --with-libevent=/usr/local/libevent => ok không có lỗi.
Nhưng khi make thì lại báo lỗi:

Bị sao vậy  

Uả vậy bước này bạn khắc phục sao vậy, thiếu thư viện à