±â°£ :: ReadPassword.

»ç¿ëÀÚ¿¡°Ô ¾ÏÈ£¸¦ ¿äûÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

±â°£ :: ReadPassword. ¼øÀ§ ¹× ¿ä¾à

±¤°í

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

±â°£ :: ReadPassword. ű×


±â°£ :: ReadPassword. ¼³¸í

»ç¿ëÀÚ¿¡°Ô ¾ÏÈ£¸¦ ¿äûÇÕ´Ï´Ù. Term :: ReadPassword´Â Password.synopsis »ç¿ë ±â°£ :: ReadPassword;¸¦ ¹¯´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. while (1) {my $ password = read_password ( '¾ÏÈ£ :'); Á¤ÀÇ µÈ $ ºñ¹Ð¹øÈ£¸¦ Á¤ÀÇÇÏÁö ¾Ê´Â ÇÑ ´Ù½Ã ½ÇÇàÇϽʽÿÀ. if ($ PASSWEDE EQ 'flubber') {Àμâ "¾×¼¼½º°¡ ºÎ¿©µË´Ï´Ù. ";} else {print"¾×¼¼½º°¡ °ÅºÎµÇ¾ú½À´Ï´Ù. "; redo;}}ÀÌ ¸ðµâÀ» »ç¿ëÇϸé Å°º¸µå¿¡¼­ÀÇ ÀüÅëÀûÀÎ ¹æ½ÄÀ¸·Î ¾ÏÈ£¸¦ »ç¿ëÀÚ¿¡°Ô ¿äûÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ°ÍÀº À¥À» ÅëÇØ »ç¿ëÇϱâÀ§ÇÑ °ÍÀÌ ¾Æ´Õ´Ï´Ù. À¥À» ÅëÇÑ »ç¿ëÀÚ ÀÎÁõÀº ¿ÏÀüÈ÷ ´Ù¸¥ ¹®Á¦ÀÔ´Ï´Ù. ¶ÇÇÑ, ÀÌ ¸ðµâÀº ÀϹÝÀûÀ¸·Î PerlÀÇ crypt () ÇÔ¼ö¿Í ÇÔ²² º°µµ·Î ÆǸŵǾî¾ßÇÕ´Ï´Ù. read_password ÇÔ¼ö ÀÔ·Â ÇÁ·ÒÇÁÆ®´Â Å°º¸µå¿¡¼­ ÅؽºÆ® ÁÙÀ» ÀÐ°í ¹ß½ÅÀÚ¿¡°Ô ÇØ´ç ÁÙÀ» ¹ÝȯÇÕ´Ï´Ù. ÅؽºÆ® ÁÙ¿¡´Â Æ÷ÇÔµÇÁö ¾Ê½À´Ï´Ù. °³Çà ¹®ÀÚ´Â »ç¿ëÀÚ°¡ ÅؽºÆ®¸¦ ÀÔ·ÂÇÏ´Â µ¥ ÇÊ¿äÇÑ chomp.se¸¦ »ç¿ëÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. ¹®ÀÚ »èÁ¦ (¶Ç´Â ¹®ÀÚ ¹é ½ºÆäÀ̽º)°¡ ÇϳªÀÇ ¹®ÀÚ¸¦ ¹é¾÷ÇÏ¿© ÀÔ·Â ¹öÆÛÀÇ ¸¶Áö¸· ¹®ÀÚ¸¦ Á¦°ÅÇÕ´Ï´Ù. (ÀÖ´Â °æ¿ì). ¹®ÀÚ Cr (¶Ç´Â Character LF)Àº ÀÔ·ÂÀÇ ³¡À» ½ÅÈ£·Î º¸³»¹Ç·Î ´©Àû µÈ ÀÔ·Â ¹öÆÛ¸¦ ¸®ÅÏ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÔ·Â ¹öÆÛ°¡ ºñ¾î ÀÖ½À´Ï´Ù. ¼±ÅÃÀûÀ¸·Î ¹®ÀÚ Control-C´Â ÀÔ·Â ÀÛ¾÷À» Á¾·áÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. (¾Æ·¡ÀÇ ¼¼ºÎ »çÇ×À» ÂüÁ¶ÇϽʽÿÀ.) ÀϹÝÀûÀ¸·Î Ưº°ÇÑ ¸ñÀûÀ» °®´Â ´Ù¸¥ ¸ðµç ¹®ÀÚ´Â ÀÔ·Â ¹öÆÛ¿¡ Ãß°¡µË´Ï´Ù. ¾ÏÈ£ÀÇ AS-AS-AS-INSPECFIFIFIFIFIFIFIFIFIFIFIFIFIFIED Á¦¾î ¹®ÀÚ¸¦ »ç¿ëÇÏ´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ÀÌ·¯ÇÑ Ä³¸¯ÅÍ´ÂÀÌ ¸ðµâÀÇ ÇâÈÄ ¹öÀü¿¡¼­ Àǹ̰¡ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. »ç¿ëÀÚ°¡ ÀÚ½ÅÀÇ ¾ÏÈ£¸¦ ¼³Á¤ÇÒ ¼öÀÖ´Â ÀÀ¿ë ÇÁ·Î±×·¥ÀºÀÌ ±ÔÄ¢À» ½ÃÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. {# Nake Block Scoping ¹× $ New_PW = READ_PASSWORD (»õ ¾ÏÈ£ ÀÔ·Â : "¶ó°í ÀÔ·Â); if ($ new_pw = ~ / () /) {My $ bad = unpack "h *", $ 1; "ºñ¹Ð¹øÈ£°¡ Æ÷ÇԵǾî ÀÖÁö ¾ÊÀ» ¼ö ÀÖ½À´Ï´Ù"; "16 Áø¼ö ÄÚµå·Î ¹®ÀÚ¸¦ ÀμâÇϽʽÿÀ $ bad. "; redo;} ELSIF (Length (Length ($ New_PW) <5) {Àμâ"ºñ¹Ð¹øÈ£´Â ±×º¸´Ù ´õ ¿À·¡µÇ¾î¾ßÇÕ´Ï´Ù! "; Redo;} ELSIF ($ new_pw ne read_password ("´Ù½Ã ÀÔ·Â : ")) {Àμâ"¾ÏÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù. "; redo;} else {Chanking_Password ($ new_pw);"Print "Print"°¡ º¯°æµÇ¾ú½À´Ï´Ù. ";}} read_passwordÀÇ µÎ ¹ø° ¸Å°³ º¯¼ö´Â ¼±ÅÃÀû IDLE_TIMEOUT °ªÀ̸ç, 0ÀÌ ¾Æ´Ñ ¼ýÀÚÀÌ°í Àá¼ö·Î Å°º¸µå ÀÔ·ÂÀ̾ø´Â °æ¿ì ÀÔ·Â Á¶ÀÛÀÌ Á¾·áµË´Ï´Ù. ÀÌ°ÍÀº Àüü ½Ã°£ Á¦ÇÑÀÌ ¾Æ´Õ´Ï´Ù. ŸÀ̸Ӱ¡ °¢°¢ÀÇ »õ·Î¿î ¹®ÀÚ¿Í ÇÔ²² Àç½ÃÀ۵ǹǷΠControl-C¸¦ »ç¿ëÇÏ¿© ÀÔ·Â Á¶ÀÛÀ» ¼±ÅÃÀûÀ¸·Î Á¾·á ÇÒ ¼ö ÀÖ½À´Ï´Ù.ÀÌ °æ¿ì, ÀԷµÇÁö ¾Ê°Å³ª FALSE ÀÎ °æ¿ì, ÀÔ·Â µÈ CONTROL-C°¡ ÀÔ·Â ¹öÆÛ¸¦ ´Ù¸¥ ¹®ÀÚ·Î ¸¸ ÀÔ·ÂÇϽʽÿÀ.ÀÌ °æ¿ì Å°º¸µå¿¡¼­ ÀÔ·ÂÀ» ±â´Ù¸®´Â µ¿¾È ÇÁ·Î±×·¥À» Á¾·áÇϱâ À§ÇØ Å°º¸µå°¡ Á¾·áµÇÁö´Â ¾Ê½À´Ï´Ù. (Áï, Å°º¸µå¿¡¼­ ½ÅÈ£¸¦ »ý¼ºÇÏ´Â Á¤»óÀûÀÎ ±â´ÉÀÌ ÅëÈ­ Áß¿¡ ÀϽà ÁßÁöµË´Ï´Ù. read_password.) ÀÔ·Â ÀÛ¾÷ÀÌ ÀÏÂï Á¾·áµÇ°Å³ª Control-C°¡ È°¼ºÈ­µÇ°í ÀԷµǹǷΠ¹Ýȯ °ªÀÌ undef°¡µË´Ï´Ù. µÎ °æ¿ì ¸ðµÎ ¹ß°ß ÇÒ ¼öÀÖ´Â ¹æ¹ýÀÌ ¾ø½À´Ï´Ù. ¾Æ¹«°Íµµ ÀÎ °æ¿ì)¸¦ ÀÔ·Â ÇÑ °ÍÀ¸·Î ³ªÅ¸³µ½À´Ï´Ù ±¤¼® Á¶±â Á¾·á, ¶Ç´Â ÀÔ·Â ÀÛ¾÷ÀÌ ¿Ö Á¾·á µÇ¾ú´Â°¡. »ç¿ëÀÚ°¡ ÇÁ·ÒÇÁÆ®°¡ ³ªÅ¸³ª±â Àü¿¡ "ÀÔ·Â µÈ ÀÔ·Â µÈ ¸ðµç ÀÔ·Â"À» Á¦¿ÜÇÏ°í »ç¿ëÀÚ°¡ ¾ÏÈ£¸¦ ÀÔ·ÂÇÏÁö ¸øÇϵµ·Ï »ç¿ëÀÚ°¡ ¾ÏÈ£¸¦ ÀÔ·ÂÇÏÁö ¸øÇϵµ·ÏÇÏ´Â °Í°ú °°ÀÌ »èÁ¦µË´Ï´Ù. ±×¸®°í ÀÔ·Â ÀÛ¾÷ÀÌ Á¤»óÀûÀ¸·Î Á¾·áµÇ¾ú´ÂÁö ¿©ºÎ´Â »õ·Î¿î ¶óÀÎ ¹®ÀÚ°¡ ÀμâµÇ¹Ç·Î ÇÁ·ÒÇÁÆ®°¡ ³¡³­ ÈÄ Ä¿¼­°¡ ÁÙ¿¡ ³²¾Æ ÀÖÁö ¾Ê½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


±â°£ :: ReadPassword. °ü·Ã ¼ÒÇÁÆ®¿þ¾î