Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

SOCKS4 Server in Perl

by strredwolf (Chaplain)
on Jul 01, 2002 at 18:21 UTC ( #178634=sourcecode: print w/replies, xml ) Need Help??
Category: Networking Code
Author/Contact Info strredwolf
Description: Something I grew frustrated with, so I wrote up my own Socks 4 server. Supports CONNECT and BIND. Probably extensible to Socks 5 (have to pull the specs on it). Quick and dirty hack.

To use, grab netpipes and use outgoingIPaddr


$|=1; # Run this with Faucet.

#use strict;
use IO::Socket;
use Net::hostent;
use bytes;

my $remote=$ARGV[0];
my $buf, $byte, @head, $up, $user, $err, $kidpid, $sock, $op, $server;
my $destip, $destport, $i;

### Read in first bytes of the Socks header.


while(read(STDIN,$buf,1)) {
  last unless(ord $buf);
  $user .= $buf;

### Do some insanity checking.
$err=91;  $op=-1; # Assume Not OK...
$destip=pack("N",0); $destport=0;

if($head[0] == 4) { # SOCKS 4
  if($head[1] == 1) { # CONNECT
    if($sock) {
  } elsif($head[1] == 2) { # BIND
    $destport=$$; $destip=inet_aton($remote);
    print pack("CCn",0,90,$destport).$destip;
    if($sock=$server->accept()) {
      if($sock->peerhost eq $ip) {
      } else {
    close $sock;
    close $server;

print pack("CCn",0,$err,$destport).$destip;
exit if($err>90);

die "can't fork: $!" unless defined($kidpid=fork());
if($kidpid) {
    print STDOUT $byte;
  kill("TERM", $kidpid);
} else {
  while (read(STDIN,$byte,1)) {
    print $sock $byte;
Replies are listed 'Best First'.
Re: SOCKS4 Server in Perl
by Anonymous Monk on Sep 18, 2009 at 22:14 UTC
    how to use?
Re: SOCKS4 Server in Perl
by Anonymous Monk on Jan 12, 2010 at 08:35 UTC
    pls give as a code for .net networking,1 server and many clients,,,,just like updating one database only
      Try this instead:
Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://178634]
[shmem]: Discipulus: has that been in the CB? or in a PM node proper? for the latter case, can you provide the ID?
[Discipulus]: you seriously can use their in this way in eng?
[Corion]: Meh. $effin_bad_system has an interface breakdown and then loads events in parallel with events overtaking one another instead of being processed sequentially
[shmem]: Discipulus: dunno, but we do all the time ^^
[choroba]: Discipulus I was taught so by a Londoner
[shmem]: Corion: very clear case of missing sequence number
[Corion]: shmem: Yeah. I guess they have a sequence number but distribute the events across threads or machines or whatever.
[karlgoethebier]: choroba: another chapter of "Learning English At The Monastry"?
[shmem]: Corion, well then... next issue, sequence number not a shared resource :P
[Discipulus]: shmem i'm searching it.. but failing i was sure was in Re: Let's Make PerlMonks Great Again! -- suggestions and dreams

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (14)
As of 2017-05-23 08:23 GMT
Find Nodes?
    Voting Booth?