Io :: presa :: calze

fornisce un modo per creare client di calze o server sia 4 e 5
Scarica ora

Io :: presa :: calze Classifica e riepilogo

Annuncio pubblicitario

  • Rating:
  • Licenza:
  • Perl Artistic License
  • Prezzo:
  • FREE
  • Nome editore:
  • Oleg G.
  • Sito web dell'editore:
  • http://search.cpan.org/~oleg/

Io :: presa :: calze Tag


Io :: presa :: calze Descrizione

IO :: presa :: calze è un modulo perl che si connette a un proxy dei calzini, dice ad aprire una connessione a un host / porta remoto quando viene creato l'oggetto. L'oggetto che si riceve può essere utilizzato direttamente come socket per l'invio e la ricezione di dati dall'host remoto. Oltre a creare client calks questo modulo potrebbe essere utilizzato per creare server calzini. Vedere Esempi sotto.SynopsisClient Utilizzare IO :: Presa :: calze; My $ Socks = NUOVO IO :: Socket :: Socks (ProxyAdddr => "PROXYADDDR =>" PROXY HOST ", PROXYPORT =>" PORT PROXY ", connectAddRD =>" host remoto ", connectport =>" Porta remota ",); Stampa $ calze "foo \ n"; $ calze-> chiudi (); server uso IO :: presa :: calze ": costanti"; My $ Socks_server = New Io :: presa :: calze (proxyaddr => "localhost", proxyport => "8000", ascolta => 1, userauth => \ Auth, requireauth => 1); My $ Select = Nuovo IO :: Select ($ Socks_server); while (1) {if ($ Select-> Can_read ()) {My $ client = $ socks_server-> accetta (); se (! Defined ($ client)) {stampa "Errore: $ socks_error \ n"; prossimo; } My $ Command = $ client-> comando (); se ($ comando -> == cmd_connect) {# maniglia il client Connetti $-> command_reply (Reply_success, addr, porto); } ... #read dal client e invia all'indirizzo di connessione ... $ client-> chiudi (); }} sub Auth {My $ utente = shift; My $ pass = shift; Ritorna 1 se (($ utente EQ "foo") ($ pass eq "bar")); Ritorno 0; } Homepage del prodotto


Io :: presa :: calze Software correlato