linux socket 代理

admin

大家提供了许多linux开代理的方法，一般用到python等语言，一些服务器可能不会安装，然而perl可以说是linux标配的语言，给大家一款Perl语言的socket代理，代码非常少，而且还支持密码，效果还是不错，感觉很稳定。

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $auth_enabled = 0;
   
5. $auth_login = "hidden";
   
6. $auth_pass = "hidden";
   
7. $port = 44269;
   
8. 
   
9. use IO::Socket::INET;
   
10. 
    
11. $SIG{'CHLD'} = 'IGNORE';
    
12. $bind = IO::Socket::INET->new(Listen=>10, Reuse=>1, LocalPort=>$port) or  die "Нельзя забиндить порт $port\n";
    
13. 
    
14. while($client = $bind->accept()) {
    
15. $client->autoflush();
    
16. 
    
17. if(fork()){ $client->close(); }
    
18. else { $bind->close(); new_client($client); exit(); }
    
19. }
    
20. 
    
21. sub new_client {
    
22. local $t, $i, $buff, $ord, $success;
    
23. local $client = $_[0];
    
24. sysread($client, $buff, 1);
    
25. 
    
26. if(ord($buff) == 5) {
    
27.   sysread($client, $buff, 1);
    
28.   $t = ord($buff);
    
29. 
    
30.   unless(sysread($client, $buff, $t) == $t) { return; }
    
31. 
    
32.   $success = 0;
    
33.   for($i = 0; $i < $t; $i++) {
    
34.     $ord = ord(substr($buff, $i, 1));
    
35.     if($ord == 0 && !$auth_enabled) {
    
36.       syswrite($client, "\x05\x00", 2);
    
37.       $success++;
    
38.       break;
    
39.     }
    
40.     elsif($ord == 2 && $auth_enabled) {
    
41.       unless(do_auth($client)){ return; }
    
42.       $success++;
    
43.       break;
    
44.     }
    
45.   }
    
46. 
    
47.   if($success) {
    
48.     $t = sysread($client, $buff, 3);
    
49. 
    
50.     if(substr($buff, 0, 1) == '\x05') {
    
51.       if(ord(substr($buff, 2, 1)) == 0) {
    
52.       ($host, $raw_host) = socks_get_host($client);
    
53.       if(!$host) {  return; }
    
54.       ($port, $raw_port) = socks_get_port($client);
    
55.       if(!$port) { return; }
    
56.       $ord = ord(substr($buff, 1, 1));
    
57.       $buff = "\x05\x00\x00".$raw_host.$raw_port;
    
58.       syswrite($client, $buff, length($buff));
    
59.       socks_do($ord, $client, $host, $port);
    
60.       }
    
61.     }
    
62.   } else { syswrite($client, "\x05\xFF", 2); };
    
63. }
    
64. $client->close();
    
65. }
    
66. 
    
67. sub do_auth {
    
68. local $buff, $login, $pass;
    
69. local $client = $_[0];
    
70. 
    
71. syswrite($client, "\x05\x02", 2);
    
72. sysread($client, $buff, 1);
    
73. 
    
74. if(ord($buff) == 1) {
    
75.   sysread($client, $buff, 1);
    
76.   sysread($client, $login, ord($buff));
    
77.   sysread($client, $buff, 1);
    
78.   sysread($client, $pass, ord($buff));
    
79. 
    
80.   if($login eq $auth_login && $pass eq $auth_pass) {
    
81.     syswrite($client, "\x05\x00", 2);
    
82.     return 1;
    
83.   } else { syswrite($client, "\x05\x01", 2); }
    
84. }
    
85. 
    
86. $client->close();
    
87. return 0;
    
88. }
    
89. 
    
90. sub socks_get_host {
    
91. local $client = $_[0];
    
92. local $t, $ord, $raw_host;
    
93. local $host = "";
    
94. 
    
95. sysread($client, $t, 1);
    
96. $ord = ord($t);
    
97. if($ord == 1) {
    
98.   sysread($client, $raw_host, 4);
    
99.   @host = $raw_host =~ /(.)/g;
    
100.   $host = ord($host[0]).".".ord($host[1]).".".ord($host[2]).".".ord($host[3]);
     
101. } elsif($ord == 3) {
     
102.   sysread($client, $raw_host, 1);
     
103.   sysread($client, $host, ord($raw_host));
     
104.   $raw_host .= $host;
     
105. } elsif($ord == 4) {
     
106.   #ipv6 - not supported
     
107. }
     
108. 
     
109. return ($host, $t.$raw_host);
     
110. }
     
111. 
     
112. sub socks_get_port {
     
113. local $client = $_[0];
     
114. local $raw_port, $port;
     
115. sysread($client, $raw_port, 2);
     
116. $port = ord(substr($raw_port, 0, 1)) << 8 | ord(substr($raw_port, 1, 1));
     
117. return ($port, $raw_port);
     
118. }
     
119. 
     
120. sub socks_do {
     
121. local($t, $client, $host, $port) = @_;
     
122. 
     
123. if($t == 1) { socks_connect($client, $host, $port); }
     
124. elsif($t == 2) { socks_bind($client, $host, $port); }
     
125. elsif($t == 3) { socks_udp_associate($client, $host, $port); }
     
126. else { return 0; }
     
127. 
     
128. return 1;
     
129. }
     
130. 
     
131. sub socks_connect {
     
132. my($client, $host, $port) = @_;
     
133. my $target = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Type => SOCK_STREAM);
     
134. 
     
135. unless($target) { return; }
     
136. 
     
137. $target->autoflush();
     
138. while($client || $target) {
     
139.   my $rin = "";
     
140.   vec($rin, fileno($client), 1) = 1 if $client;
     
141.   vec($rin, fileno($target), 1) = 1 if $target;
     
142.   my($rout, $eout);
     
143.   select($rout = $rin, undef, $eout = $rin, 120);
     
144.   if (!$rout  &&  !$eout) { return; }
     
145.   my $cbuffer = "";
     
146.   my $tbuffer = "";
     
147. 
     
148.   if ($client && (vec($eout, fileno($client), 1) || vec($rout, fileno($client), 1))) {
     
149.     my $result = sysread($client, $tbuffer, 1024);
     
150.     if (!defined($result) || !$result) { return; }
     
151.   }
     
152. 
     
153.   if ($target  &&  (vec($eout, fileno($target), 1)  || vec($rout, fileno($target), 1))) {
     
154.     my $result = sysread($target, $cbuffer, 1024);
     
155.     if (!defined($result) || !$result) { return; }
     
156.     }
     
157. 
     
158.   if ($fh  &&  $tbuffer) { print $fh $tbuffer; }
     
159. 
     
160.   while (my $len = length($tbuffer)) {
     
161.     my $res = syswrite($target, $tbuffer, $len);
     
162.     if ($res > 0) { $tbuffer = substr($tbuffer, $res); } else { return; }
     
163.   }
     
164. 
     
165.   while (my $len = length($cbuffer)) {
     
166.     my $res = syswrite($client, $cbuffer, $len);
     
167.     if ($res > 0) { $cbuffer = substr($cbuffer, $res); } else { return; }
     
168.   }
     
169. }
     
170. }
     
171. 
     
172. sub socks_bind {
     
173. my($client, $host, $port) = @_;
     
174. }
     
175. 
     
176. sub socks_udp_associate {
     
177. my($client, $host, $port) = @_;
     
178. }

复制代码