home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / PNL Libraries / MySocks.p < prev    next >
Encoding:
Text File  |  1995-10-03  |  758 b   |  51 lines  |  [TEXT/CWIE]
  1. unit MySocks;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types;
  7.  
  8.     const
  9.         socks_default_port = 1080;
  10.         socks_version = 4;
  11.  
  12.     const { Response commands/codes }
  13.         socks_connect = 1;
  14.         socks_bind = 2;
  15.         socks_result = 90;
  16.         socks_fail = 91;
  17.  
  18.     type
  19.         SocksRecordSmall = packed record
  20.                 version: byte;
  21.                 cmd: byte;
  22.                 port: integer;
  23.                 ip: longint;
  24.             end;
  25.         SocksRecord = packed record
  26.                 version: byte;
  27.                 cmd: byte;
  28.                 port: integer;
  29.                 ip: longint;
  30.                 name: str63; {cstring!}
  31.             end;
  32.  
  33. implementation
  34.  
  35. end.
  36. const
  37.     socks_version = 3;
  38. type
  39.     SocksRecordSmall = packed record
  40.             version: byte;
  41.             cmd: byte;
  42.             port: longint;
  43.             ip: longint;
  44.         end;
  45.     SocksRecord = packed record
  46.             version: byte;
  47.             cmd: byte;
  48.             port: longint;
  49.             ip: longint;
  50.             name: str63; {cstring!}
  51.         end;