io :: Socket :: Socks.

は、4と5バージョンの両方でSOCKSクライアントまたはサーバーを作成する方法を提供します。
今すぐダウンロード

io :: Socket :: Socks. ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Oleg G.
  • 出版社のWebサイト:
  • http://search.cpan.org/oleg/

io :: Socket :: Socks. タグ


io :: Socket :: Socks. 説明

IO :: Socket :: Socksは、SOCKSプロキシに接続するPerlモジュールで、オブジェクトが作成されたときにリモートホスト/ポートへの接続を開くように指示します。受信したオブジェクトは、リモートホストからデータを送受信するためのソケットとして直接使用できます。 SOCKSクライアントを作成することに加えて、このモジュールを使用してSOCKSサーバーを作成できます。以下の例を参照してください..SynopSisClient IO :: Socket :: Socksを使用します。 My $ SOCKS =新しいIO :: Socket :: Socks（ProxyAddr => "Proxy Host"、ProxyPort => "Proxy Port"、ConnectAddr => "Remote Host"、ConnectPort => "Remote Port"、）。印刷$ SOCKS "foo n"; $ socks-> close（）;サーバーIO :: Socket :: Socks '：定数'; My $ SOCKS_SERVER = NEW IO :: Socket :: Socks（ProxyAddr => "localhost"、ProxyPort => "8000"、listen => 1、userauth => auth、要件=> 1）; My $ SELECT = NEW IO :: Select（$ SOCKS_SERVER）; （1）{if（$ select-> can_read（））{My $ Client = $ SOCKS_SERVER-> accept（）; if（！定義された（$ client））{印刷 "エラー：$ SOCKS_ERROR n";次; my $ command = $ client-> command（）; （$ command - > == cmd_connect）{＃connect $ client-> command_reply（reply_success、addr、port）を処理します。 ...＃クライアントからのリードして接続アドレスに送信してください... $ client-> close（）;サブauth {My $ user = shift;私の$ pass =シフト。 IF（（$ USER EQ "foo"）の場合は1（$ EQ "バー"））を返します。 0を返します。製品のホームページ


io :: Socket :: Socks. 関連ソフトウェア

私たちに関しては