ÅؽºÆ® :: Cipher :: KeywordalPhabet.Å°¿öµå ¾ËÆĺªÀ» ±â¹ÝÀ¸·ÎÇÏ´Â ´ëü ¾ÏÈ£ | |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: Cipher :: KeywordalPhabet. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- John Alden
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bbc/
ÅؽºÆ® :: Cipher :: KeywordalPhabet. ű×
ÅؽºÆ® :: Cipher :: KeywordalPhabet. ¼³¸í
Å°¿öµå ¾ËÆĺªÀ» ±â¹ÝÀ¸·Î ´ëü ¾ÏÈ£ ÅؽºÆ® :: Cipher :: KeywordalphabetÀº ´Ü¾î ÁýÇÕ¿¡¼ ¸ð³ë ¹®ÀÚ ´ëü ¾ÏÈ£¸¦ »ý¼ºÇÏ¿© "Å°¿öµå (»ý¼º µÈ) ¾ËÆĺªÀ¸·Î ¾ð±ÞµÇ´Â °ÍÀ» ÃÊ·¡ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù." ¿©±â¿¡ À͸íÀÇ ¼Ò½º¿¡¼ Ç¥Àý µÈ ÁÁÀº Á¤ÀÇ°¡ ÀÖ½À´Ï´Ù. "Å°¿öµå ¾ËÆĺªÀº ´Ü¾î ³ª ±¸¸¦ °¡Á® ¿Í¼ °¢ ¹®ÀÚÀÇ µÎ ¹ø° ¹× ÈÄ¼Ó ¹ß»ýÀ» »èÁ¦ ÇÑ ´ÙÀ½ ¾ËÆĺªÀÇ ³ª¸ÓÁö ¹®ÀÚ¸¦ ¼ø¼´ë·Î ¾²´Â °ÍÀ¸·Î ±¸¼ºµË´Ï´Ù. ¾Ïȣȴ (Cyclic) Å°¿öµå ¾ËÆĺªÀÇ µÞºÎºÐ¿¡¼ ³ªÁß¿¡ n ±ÛÀÚ¸¦ Ç¥½ÃÇÏ´Â ¹®ÀÚ·Î °¢ ÀÏ¹Ý ÅؽºÆ® ¹®ÀÚÀÔ´Ï´Ù. "Å°¿öµå ¾ËÆĺªÀº ´ë¼Ò ¹®ÀÚ¸¦ ±¸ºÐÇÏÁö ¾Ê½À´Ï´Ù. ´ë¹®ÀÚ¿Í ¼Ò¹®ÀÚ´Â ¸ðµÎ µ¿ÀÏÇÑ ¸ÅÇÎÀ¸·Î º¯È¯µË´Ï´Ù. À§ÀÇ ¿ÀÇÁ¼Â (À§ÀÇ Á¤ÀÇ)Àº ±àÁ¤ÀûÀ̰ųª ºÎÁ¤ÀûÀÎ integer.http : //www.trincoll.edu/depts/cpsc/cryptography/substitution.htmlÀÌ µÉ ¼öÀÖ´Â ¹æ¹ý¿¡ ´ëÇÑ ¼Ò°³ ÀÚ½À¼ÀÔ´Ï´Ù. http://www-math.cudenver.edu/~wcherowi/courses/m5410/exsubcip.html Àüü ÀÛ¾÷ ¿¹Á¦°¡ µé¾î ÀÖ½À´Ï´Ù. http://www.muth.org/robert/cipher/query_scb.htmlÀº ¿Â¶óÀÎ ´ëü ¾ÏÈ£ Â÷´Ü±â¸¦ Á¦°øÇÕ´Ï´Ù. ´ëü ¾ÏÈ£°¡ ½¬±â ½±±â ¶§¹®¿¡, Áß¿äÇÑ µ¥ÀÌÅ͸¦ º¸È£Çϱâ À§ÇØ »ç¿ëÇÏÁö ¾Ê´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ...¿¡ Data.Synopsis #create Å°¿öµå ¾ËÆĺªÀ¸·Î 5 $ Cipher = »õ ÅؽºÆ® :: ¾ÏÈ£·Î ±¸¼ºµÈ Crypt :: CBC¿¡ ¿¬°áÇÏ´Â Crypt :: CBC¿¡¼ ´õ ¸¹Àº Çìºñ µàƼ ¾ÏÈ£¸¦ »ìÆ캸½Ê½Ã¿À. :: Keyworderalphabet ( "ºü¸¥ °¥»ö ¿©¿ì", -5); # »ý¼º µÈ ¾ËÆĺª $ keyword_alphabet = $ cipher-> alphabet (); #Encipher A ¹®ÀÚ¿ $ ciphered = $ Cipher-> ¾ÏÈ£È ($ ¸Þ½ÃÁö); #deciphered message $ message = $ cipher-> Çص¶ ($ ciphered); # Some Conipher-> Encipher_Scalar ($ some_scalar); $ cipher-> decipher_scalar ($ some_scalar); @ciphered = $ cipher-> encipher_list (@List); @List = $ cipher-> decomipher_list (@Ciphered); $ cipher-> encipher_array (@some_array); $ cipher-> decipher_array (@some_array); # ±âŸ´Â $ Null_cipher = »õ ÅؽºÆ® :: Cipher :: KeywordAlphabet (); # no-op cipher $ rot13_cipher = »õ ÅؽºÆ® :: cipher :: Keywordalphabet (Undef, 13); #caesar ¾ÏÈ£ ¿ä±¸ »çÇ× : ¡¤ Perl.
ÅؽºÆ® :: Cipher :: KeywordalPhabet. °ü·Ã ¼ÒÇÁÆ®¿þ¾î