Может у кого есть Socks5 на Delphi?

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Alangama, 16 Jun 2018.

  1. Alangama

    Alangama New Member

    Joined:
    16 Jun 2018
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
  2. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    603
    Likes Received:
    222
    Reputations:
    36
  3. #colorblind

    #colorblind Elder - Старейшина

    Joined:
    31 Jan 2014
    Messages:
    603
    Likes Received:
    222
    Reputations:
    36
    PHP:
    unit uSocks5;
    {
    +-----------------------------------------------------------+
    |
    name:        uSocks5                                       |
    |
    descriptionetablishes a SOCKS5 serversupporting AUTH   |
    |
    Author:      Hamtaro aka CorVu5                            |
    |
    date:        16.10.09   released24.10.09               |
    |
    History:     first try                                     |
    |
    ToDo:                                                      |
    |[*] 
    Add support for Proxychains (!) & UDP (?)       |
    |[*] 
    Add support for IPv6                            |
    +-----------------------------------------------------------+
    This code can be changed or used without any restrictions |
    |    
    Leben heißt ein Bild malennicht eine Summe ziehen    |
    +-----------------------------------------------------------+
    }
    interface
    uses WindowsWinSock;

    type
      TSocks5Config 
    record
        Port     
    Dword;
        
    UserName String;
        
    Password String;
    end;
    type PSocks5Config = ^TSocks5Config;
    type
      TSocks5MethodSel 
    record
        Version  
    Byte;
        
    nMethods Byte;
        
    Methods : array[0..255of Byte;
    end;

    type TSocks5Request record
           ucVersion 
    byte;
           
    ucCommand byte;
           
    ucRzv byte;
           
    ucAtyp byte;
           
    dwDestIp  dword;
           
    wDestPort word;
    end;

    function 
    StartSocks5(conf PSocks5Config) : Booleanstdcall;
    var
      
    config TSocks5Config;
    implementation
    procedure SocksProc
    (sock Cardinal); stdcall;
    var
        
    TSocks5MethodSel;
        
    req TSocks5Request;
        
    auth :array[0..600of Byte;
        
    buf  :array[0..500of Byte;
        
    buffer : array[0..4095of Byte;//4kb
        
    recv_len Integer;
        
    Integer;
        
    recvsock TSocket;
        
    UserNamepassword String;
        
    tunneladdr_in sockaddr_in;
        
    tunneldomain String;
        
    tunnelsock TSocket;
        
    hostent PHostEnt;
        
    tv Ttimeval;
        
    fset tfdset;
        
    self_addr sockaddr_in;
        
    self_Len Integer;
    begin
      recvsock 
    := sock;
      if 
    recv(recvsock,m,2,MSG_PEEK) > 0 then begin
        
    if m.Version 5 then begin     //it is socks5
          
    recv(recvsock,mm.nMethods,0); //request complete Header
          
    for := 0 to m.nMethods Do begin
            
    if (m.Methods[i] = 2then begin           //password auth
              
    if (config.UserName '') and (config.Password ''then begin
                m
    .nMethods := $00;
                
    send(recvsockm,2,0);
                
    end else begin
                m
    .nMethods := 2;
                
    send(recvsockm,2,0);
                
    recv(recvsockauth,SizeOf(auth),0);
                if 
    auth[0] = 1 Then begin
                  
    //get username
                  
    SetString(username,Pchar(@auth[2]),auth[1]);
                  
    //get password
                  
    SetString(password,Pchar(Cardinal(@auth) + auth[1]),auth[auth[1]]);
                  if (
    config.UserName UserName) and (config.Password passwordthen begin   //auth successful!
                    
    auth[1] := 0;
                    
    send(recvsock,auth,2,0);
                  
    end else begin
                    MessageBox
    (0,'auth fail','fffuuuuuuu-',0);
                    
    auth[1] := $FF//nothing but fail
                    
    send(recvsock,auth,2,0);
                    break;
                  
    end;
                
    end;
              
    end;
            
    end else if (m.Methods[i] = 0Then begin
              
    if (config.password '') and (config.UserName ''Then begin
                m
    .nMethods := 0;
                
    send(recvsock,m,2,0);
              
    end else begin
                m
    .nMethods := $FF;
                
    send(recvsock,m,2,0);
                break;
              
    end;
            
    end else if m.nMethods then begin
              m
    .nMethods := $FF;
              
    send(recvsock,m,2,0);
              Break;
            
    end;
            
    recv(recvsockreqsizeof(Tsocks5Request), MSG_PEEK);
            if  
    req.ucCommand 1 then begin        //TCP Verbindung, ok
              
    Zeromemory(@tunneladdr_in,sizeof(tunneladdr_in));
              if 
    req.ucAtyp 1 Then begin  //ip4
                
    recv(recvsockreqsizeof(Tsocks5Request), 0);
                
    tunneladdr_in.sin_port := req.wDestPort;
                
    CopyMemory(@tunneladdr_in.sin_addr,@req.dwDestIp,sizeof(tunneladdr_in.sin_addr));
              
    end else if req.ucAtyp 3 Then begin //domain name
                
    ZeroMemory(@buf,SizeOf(buf));
                
    recv(recvsock,buf,Byte(req.dwDestIp),0);
                
    SetString(tunneldomain,PChar(Cardinal(@buf) + 5),Integer(Byte(req.dwDestIp)));
                
    hostent := gethostbyname(PChar(tunneldomain));
                
    PInteger(@tunneladdr_in.sin_addr.S_addr)^:=PInteger(HostEnt.h_addr^)^;
                
    tunneladdr_in.sin_port := htons(Word(Pointer(Cardinal(@buf) + Byte(req.dwDestIp))^));
              
    end//todo: PIv6
              
    tunneladdr_in.sin_family := AF_INET;
              
    tunnelsock := socket(PF_INETSOCK_STREAM0);
              if 
    connect(tunnelsock,tunneladdr_in,sizeof(tunneladdr_in)) = 0 Then begin//success!
                
    req.ucCommand := 0;  //success
              
    end else begin
                req
    .ucCommand := 1//General Failure reporting in
              
    end;
              
    req.ucVersion := 5;
              
    req.ucRzv := 0;
              
    req.ucAtyp := 1;
              
    ZeroMemory(@self_addr,SizeOf(sockaddr_in));
              
    self_Len := SizeOf(sockaddr_in);
              
    getsockname(tunnelsock,self_addr,self_len);
              
    CopyMemory(@req.dwDestIp,@self_addr.sin_addr,sizeof(self_addr.sin_addr));
              
    req.wDestPort := self_addr.sin_port;
              
    send(recvsock,req,10,0);
              
    //now tunneling everything!
              
    tv.tv_sec := 5;
              while 
    =Do begin
                
    //waiting for incoming data
                
    FD_ZERO(fset);
                
    FD_SET(recvsock,fset);
                
    FD_SET(tunnelsock,fset);
                if 
    select(0,@fset,nil,nil,nil) <> SOCKET_ERROR Then begin
                  
    if FD_ISSET(tunnelsock,fsetTHEN begin //data on the recvsock
                    
    ZeroMemory(@buffer,sizeof(buffer));
    //                      MessageBoxa(0,'Data from the tunnelsock!','FF',0);
                    
    recv_len := recv(tunnelsockbuffer,sizeof(buffer),0);
                    if 
    recv_len SOCKET_ERROR Then break; //error?
    //                      messagebox(0,PChar('tunnel' + #13#10 + pchar(@buffer)),0,0);
                    
    send(recvsock,buffer,recv_len,0);
                  
    end;
                  if 
    FD_ISSET(recvsock,fsetTHEN begin //data on the recvsock
                    
    ZeroMemory(@buffer,sizeof(buffer));
    //                      MessageBoxa(0,'Data from the recvsock!','FF',0);
                    
    recv_len := recv(recvsockbuffer,sizeof(buffer),0);
                    if 
    recv_len SOCKET_ERROR Then break; //error?
    //                      messagebox(0,PChar('recv' + #13#10 + pchar(@buffer)),0,0);
                    
    send(tunnelsock,buffer,recv_len,0);
                  
    end;
                
    end;
                
    Sleep(150); //zzZZzzZZZZzz
              
    end;
            
    end;
            Break;
          
    end;
        
    end;
      
    end;
    //  MessageBox(0,PChar('Error Code: ' + inttostr(WSAGetLastError)),'Error!',0);
      
    closesocket(recvsock);
      
    closesocket(tunnelsock);
    end;

    function 
    StartSocks5(conf PSocks5Config) : Booleanstdcall;
    var
      
    wsaData TWSAData;
      
    sock    TSOCKET;
      
    sockaddrSockAddr_in;
      
    conn    Integer;
      
    client  TSockAddr;
      
    tid Cardinal;
      
    size Integer;
    begin
      result 
    := 0;
      
    Move(conf^,config,SizeOf(TSocks5Config));
      
    WSAStartup($101wsaData);
      
    sock := socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
      
    ZeroMemory(@SockAddrsizeof(SockAddr));
      
    sockaddr.sin_family := AF_INET;
      
    sockaddr.sin_port   := htons(config.Port);
      
    sockaddr.sin_addr.S_addr   := INADDR_ANY;
      if (
    bind  (sock  ,sockaddr,SizeOf(sockaddr)) = 0) AND
         (
    listen(sock,SOMAXCONN)                   = 0then begin
          
    while Do begin
            size 
    := SizeOf(client);
            
    conn := accept(sock,@client,@size);
            if 
    conn <> SOCKET_ERROR then  begin
              CreateThread
    (nil,0,@SocksProc,Pointer(conn),0,tid);
            
    end;
            
    Sleep(100);
          
    end;
      
    end;

    end;
    end.
    Использование юнита в программе. Просто подключаете выше указанный юнит к своему проекту и запускаете прокс:
    PHP:
    var
      
    config TSocks5config;
    begin
      config
    .Port     := 8080;
      
    config.UserName := pchar('root');
      
    config.Password := pchar('toor');
      
    CreateThread(0,0,@StartSocks5,@config,0,tid);
     
Loading...