Re: chicken and socks5

[Christian Kellermann]

* Александр <steeel@yandex.ru> [210121 15:33]:
>    Is there any egg which provides socks5 for chicken?

I have written a minimal binding to get a Tor socket with chicken,
as part of a gopher client. You can grab it from here:

$ git clone git://vernunftzentrum.de/holymoly.git

The interesting file in there is the proxy.scm file.  This relies
on the bitstring egg being installed so you might want to do this
first.

I am choosing a proxy here:

(define proxy
  (and-let*
        ((proxy-vals (or (get-environment-variable "SOCKS_PROXY")
                         "localhost:9050"))
         (conf
          (if (not (string-null? proxy-vals))
             (string-split proxy-vals ":")
             #f)) ;; no proxy configured, so abort here
         (proxy-host (car conf))
         (proxy-port (string->number (cadr conf))))
    (make-parameter (cons proxy-host proxy-port))))

and further on I use this in:

(let-values (((i o _) (if proxy
                               (connect/socksv5 (car (proxy)) (cdr (proxy)) 
server port)
                               (receive (i o) (tcp-connect server port) (values 
i o #f)))))
.....

There is virtually no error handling happening and other control
mechanisms are missing. I am showing this in the hope that it may
be helpful.

All the best,

Christian


-- 
May you be peaceful, may you live in safety, may you be free from
suffering, and may you live with ease. Also encrypt mails to me:
gpg key 0x068757350D0328634B833B65C537678F6BC627B5