PoE :: Component :: Sslify.

POE :: ±¸¼º ¿ä¼Ò :: SSLify´Â POEÀÇ ¼¼°è¿¡¼­ SSLÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù!
Áö±Ý ´Ù¿î·Îµå

PoE :: Component :: Sslify. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Rocco Caputo
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~apocal/

PoE :: Component :: Sslify. ű×


PoE :: Component :: Sslify. ¼³¸í

PoE :: Component :: SSLify´Â PoE ¼¼°è¿¡¼­ SSLÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù! PoE :: Component :: SSLify´Â PoEÀÇ ¼¼°è¿¡¼­ SSLÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. SynopsSclient Ãø »ç¿ë¹ý # ¸ðµâ °¡Á® ¿À±â PoE :: Component :: SSLify QW (client_sslify); # Á¤»óÀûÀÎ socketfactory ÈÙ ¶Ç´Â ³» $ factory = poe :: ÈÙ :: socketfactory-> new (...); # ¼ÒÄÏÀ» SSL ¼ÒÄÏ PoE·Î º¯È¯ ÇÒ ¼ö ÀÖ½À´Ï´Ù {$ socket = client_sslify ($ socket)}¿Í Åë½Å ÇÒ ¼ö ÀÖ½À´Ï´Ù. if ($ @) {# sslify ...} # ÀÌÁ¦´Â $ rw = poe :: ÈÙ :: readwrite-> new (handle => $ socket, ...)¸¦ ÀÐÀ¸½Ê½Ã¿À. # ¿øÇϴ´ë·Î »ç¿ëÇϽʽÿÀ ... ¼­¹ö Ãø »ç¿ë # !!! net :: ssleayÀÇ makecert.pl # ÈǸ¢ÇÑ HOWTO : http://www.akadia.com/services/ssh_test_certificate.html # ¸ðµâÀ» °¡Á® ¿À´Â PoE :: Component :: SSLify QW »ç¿ëÇϱâ (server_sslify sslify_options); # Å° + ÀÎÁõ¼­ ÆÄÀÏ eval {sslify_options ( 'server.key', 'server.crt')}À» ¼³Á¤ÇϽʽÿÀ. if ($ @) {# Å° ¶Ç´Â ÀÎÁõ¼­ ÆÄÀÏÀ»·Îµå ÇÒ ¼ö ¾ø½À´Ï´Ù ...} # Á¤»óÀûÀÎ ¼ÒÄÏ Ã¤Ç÷ ÈÙÀ» ¸¸µé°Å³ª MY $ FACTIONS = POE :: ÈÙ :: SocketFactory-> New (...); # ¼ÒÄÏÀ» SSL ¼ÒÄÏ POE·Î º¯È¯ ÇÒ ¼ö ÀÖ½À´Ï´Ù eval {$ socket = server_sslify ($ socket)}¿Í Åë½Å ÇÒ ¼ö ÀÖ½À´Ï´Ù. if ($ @) {# sslify ...} # ÀÌÁ¦´Â $ rw = poe :: ÈÙ :: readwrite-> new (handle => $ socket, ...)¸¦ ÀÐÀ¸½Ê½Ã¿À. # ¿øÇϴ´ë·Î »ç¿ëÇϽʽÿÀ ... ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


PoE :: Component :: Sslify. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

getopt :: argvfile.

getOpt :: argvfileÀº ÆÄÀÏ¿¡¼­ @argv ¶Ç´Â ´Ù¸¥ ¹è¿­·Î ½ºÅ©¸³Æ® ¿É¼ÇÀ» º¸°£ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

162

´Ù¿î·Îµå