| AFS :: Kas. AFS :: KAS´Â AFS ÀÎÁõ ¼¹ö¿Í Åë½ÅÇÏ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
AFS :: Kas. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Norbert E. Gruener
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nog/AFS-2.4.0/pod/v2/afsperlkas.pod
AFS :: Kas. ű×
AFS :: Kas. ¼³¸í
AFS :: KAS´Â AFS ÀÎÁõ ¼¹ö¿Í Åë½ÅÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. AFS :: KAS´Â AFS ÀÎÁõ ¼¹ö¿Í Åë½ÅÇÏ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù .Synopsis AFS :: KAS; AFS :: KTC_PrincipalÀ» »ç¿ëÇϽʽÿÀ. afs :: ktc_token; AFS :: KTC_EKEY¸¦ »ç¿ëÇϽʽÿÀ. MY $ ADMIN = AFS :: KTC_PRICIPAL-> NEW ( 'admin'); ³» $ key = afs :: ktc_ekey-> readpassword ($ admin-> name. "ÀÇ ¾ÏÈ£ :"); MY $ TOKEN = AFS :: KTC_TOKEN-> getAdmintoken ($ admin, $ Å°, 300); MY $ KAS = AFS :: KAS-> AUTHSERVERCONN ($ TOKEN, AFS :: KA_MAINTENENESERVICE); MY $ USER = AFS :: KTC_PRICIPAL-> NEW ( 'XYZ'); ³» $ ukey = afs :: ktc_ekey-> readpassword ($ user-> name. "ÀÇ ¾ÏÈ£ :"); MY $ OK = $ KAS-> CREATE ($ USER-> À̸§, $ USER-> ÀνºÅϽº, $ UKEY); ³» $ Ç÷¡±× = 1; # (1 = Normal, 4 = admin) My $ Expire = 925715000; # epoch time => 035 ¿ù 199907:03 My $ maxassoc = 0; ³» $ lifetime = 48 * 60 * 60; #unitÀº secs; => 48 ½Ã°£ ³» $ pwexpire = 10; #number of Days ³» $ pw_reuse = 2; #pwreuse Çã¿ë : My $ nfail = 4; # (nfail-1) ½Ãµµ°¡ Çã¿ëµË´Ï´Ù. => 3 ³» $ locktime = 3À» ½ÃµµÇÕ´Ï´Ù. #unitÀº 8.5 ºÐ => 3 * (8.5) ³» $ specip2 = 0; $ PACKED = (($ PWEXPIRE ÀνºÅϽº, $ Ç÷¡±×, $ ¸¸·á, $ lifetime, $ maxascoc, $ pack); My $ entry = $ KAS-> getEntry ($ user-> À̸§, $ user-> ÀνºÅϽº); $ packed = $$ Ç׸ñ { 'misc_auth_bytes'}; $ pwexpire = (($ PACKED >> 24) ¹× 0xFF); $ PW_REUSE = (($ PACKED >> 16) ¹× 0xFF); $ nfail = ($ PACKED >> 8); $ locktime = ($ PACKED >> 0) ¹× 0xFF); $ KAS-> Æı«; # µð·ºÅ丮 ¼¹ö ¿¬°á ÅëÇÕ :ÀÌ ¾ç½ÄÀº ´õ ÀÌ»ó »ç¿ëµÇÁö ¾Ê½À´Ï´Ù !!! ¸ðµç AFS À̸§ °¡Á® ¿À±â AFS @ AFS :: KA; # °¡Á® ¿À±â ka À̸§ ¸¸ »ç¿ëÇϸé AFS @afs :: ktc; # °¡Á® ¿À±â KTC Namesthis Ŭ·¡½º´Â AFS ÀÎÁõ ¼¹ö¿Í Åë½ÅÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. »ç¿ëÀÚ ID¸¦ È®ÀÎÇÏ°í °Å·¡¿¡ Âü¿©ÇÑ Âü°¡ÀÚ°¡ Áõ¸íÇÏ´Â ½Ã¼³À» Á¦°øÇÕ´Ï´Ù. ¼·ÎÀÇ ½Å¿ø (»óÈ£ ÀÎÁõ). ±×°ÍÀº AFS ¼¹ö ¾ÏÈ£È Å°»Ó¸¸ ¾Æ´Ï¶ó Encryption Key ÆûÀ¸·Î º¯È¯ µÈ »ç¿ëÀÚ ¾ÏÈ£¸¦ ÀúÀåÇÏ´Â ÀÎÁõ µ¥ÀÌÅͺ£À̽º¸¦ À¯Áö °ü¸®ÇÕ´Ï´Ù. ÁÖ¾îÁø AFS »ç¿ëÀÚ¿¡ ´ëÇØ º¸À¯ µÈ Á¤º¸¸¦ Äõ¸®ÇÏ´Â ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù. Å©·¹¿¡ À§ÀÇ Á¤º¸°¡ º¸À¯ÇÑ DBÀÇ ·¹Äڵ带 ATE, ¼öÁ¤ ¹× »èÁ¦ÇÕ´Ï´Ù. DB ·¹Äڵ忡 ¾×¼¼½º ÇÒ ¼ö ÀÖÀ¸¹Ç·Î ÀÎÁõ ¼¹ö¿¡ ´ëÇÑ ¿¬°áÀ» ¼³Á¤ÇؾßÇÕ´Ï´Ù. ÀÌ´Â KAS ¿ÀºêÁ§Æ®¸¦ ¹ÝȯÇÏ´Â SingleserverConn ¹× AuthServerConn »ý¼ºÀÚ ¸Þ¼Òµå¿¡ ÀÇÇØ ¼öÇàµË´Ï´Ù. KAS °´Ã¼´Â ±âº»ÀûÀ¸·Î ÁÖ¾îÁø ¼¿ÀÇ ÀÎÁõ ¼¹ö¿Í ´ëÈÇÏ´Â ÇÚµéÀÔ´Ï´Ù. ÀÌ·¯ÇÑ KAS °´Ã¼´Â ´Ù¸¥ KAS ÀνºÅϽº ¸Þ¼Òµå Áß ÀÓÀÇÀÇ ´Ù¸¥ KAS ÀνºÅϽº ¸Þ¼Òµå°¡ È£ÃâµÇ±â Àü¿¡ ÇÊ¿äÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
AFS :: Kas. °ü·Ã ¼ÒÇÁÆ®¿þ¾î