Untitled

SUBMITTED BY: Guest

DATE: May 4, 2014, 7:24 p.m.

FORMAT: Text only

SIZE: 5.5 kB

Raw Download

HITS: 996

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