| ÅؽºÆ® :: ¾ÏÈ£ ÅؽºÆ® :: Cipher´Â ÅؽºÆ® ¾ÏÈ£ ¿ë ¸Å¿ì À¯¿¬ÇÑ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
ÅؽºÆ® :: ¾ÏÈ£ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Robert Fischer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~chia/Text-Cipher-1.01/Cipher.pm
ÅؽºÆ® :: ¾ÏÈ£ ű×
ÅؽºÆ® :: ¾ÏÈ£ ¼³¸í
ÅؽºÆ® :: Cipher´Â ÅؽºÆ® ¾ÏÈ£¸¦À§ÇÑ ¸Å¿ì À¯¿¬ÇÑ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. ÅؽºÆ® :: Cipher´Â ÅؽºÆ® Ciphers.Snopsis #¿¡¼ ¸Å¿ì À¯¿¬ÇÑ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. ÁÖ¿ä »ç¿ë ÅؽºÆ® :: ¾ÏÈ£; MY $ OBJ = TEXT :: Cipher-> New ($ µµ¸ÞÀÎ, $ ¸ÅÇÎ); #Constructor My $ Storage = $ obj-> ¾ÏÈ£È ( "ÀϺΠ¹®ÀÚ¿"); #String OP $ obj-> encipher_scalar ($ some_scalar); #scalar ref op my @big_storage = $ obj-> encipher_list ( "2 ¹ø° ¹®ÀÚ¿", #list ¿¬»êÀÚ "¹×"¾ÆÁ÷ "¾ÆÁ÷"ÀÌ»ó ","ÀÌ»ó "," $ obj-> encipher_array (@some_array); #ARRAY ¿¬»êÀÚ ÅؽºÆ® :: ¾ÏÈ£ -> clean (); #MEMORY CLEANUP # »ó¼Ó µÈ ±âº» Ŭ·¡½º ÆÐÅ°Áö ÅؽºÆ® :: CIRESS :: NewCipher; @isa = qw (text :: cipher); »õ {³» $ class = shift; ... ... $ Ŭ·¡½º -> ½´ÆÛ :: »õ·Î¿î ($¿¡¼ $ to); } # text :: cipher :: newCipher´Â ÀÚµ¿À¸·Î ¾ÏÈ£ # ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. # aliasing ¿¹Á¦ : text :: cipher :: newCipher :: flush µ¿ÀÛ # text :: cipher :: clean°ú ¸¶Âù°¡Áö·Î # ½ÃÀÛ {* flush = crypt :: cipher :: clean}; ¿ä±¸ »çÇ× : ¡¤ Perl.
ÅؽºÆ® :: ¾ÏÈ£ °ü·Ã ¼ÒÇÁÆ®¿þ¾î