|
|
@ -1,7 +1,5 @@ |
|
|
|
-module(ibrowse_socks5). |
|
|
|
|
|
|
|
-include_lib("kernel/src/inet_dns.hrl"). |
|
|
|
|
|
|
|
-export([connect/3]). |
|
|
|
|
|
|
|
-define(TIMEOUT, 2000). |
|
|
@ -14,8 +12,6 @@ |
|
|
|
-define(RESERVER, 0). |
|
|
|
-define(STATUS_GRANTED, 0). |
|
|
|
|
|
|
|
-define(DNS_IP, {8,8,8,8}). |
|
|
|
|
|
|
|
connect(Host, Port, Options) -> |
|
|
|
Socks5Host = proplists:get_value(socks5_host, Options), |
|
|
|
Socks5Port = proplists:get_value(socks5_port, Options), |
|
|
@ -44,14 +40,7 @@ connect(Host, Port, Options) -> |
|
|
|
{ok, <<1, 0>>} = gen_tcp:recv(Socket, 2, ?TIMEOUT) |
|
|
|
end, |
|
|
|
|
|
|
|
{IP1,IP2,IP3,IP4} = case inet_parse:address(Host) of |
|
|
|
{ok, IP} -> |
|
|
|
IP; |
|
|
|
_Other -> |
|
|
|
{ok, NsData} = inet_res:nslookup(Host, in, a, [{?DNS_IP, 53}]), |
|
|
|
[Addr | _NewAnList] = [D || #dns_rr{data=D, type=a} <- NsData#dns_rec.anlist], |
|
|
|
Addr |
|
|
|
end, |
|
|
|
{ok, {IP1,IP2,IP3,IP4}} = inet:getaddr(Host, inet), |
|
|
|
|
|
|
|
ok = gen_tcp:send(Socket, <<?SOCKS5, ?COMMAND_TYPE_TCPIP_STREAM, ?RESERVER, ?ADDRESS_TYPE_IP4, IP1, IP2, IP3, IP4, Port:16>>), |
|
|
|
{ok, << ?SOCKS5, ?STATUS_GRANTED, ?RESERVER, ?ADDRESS_TYPE_IP4, IP1, IP2, IP3, IP4, Port:16 >>} = gen_tcp:recv(Socket, 10, ?TIMEOUT), |
|
|
|