| PoE :: Component :: Sslify. POE :: ±¸¼º ¿ä¼Ò :: SSLify´Â POEÀÇ ¼¼°è¿¡¼ SSLÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù! |
Áö±Ý ´Ù¿î·Îµå |
PoE :: Component :: Sslify. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î