ÅؽºÆ® :: ¾ÏÈ£

ÅؽºÆ® :: Cipher´Â ÅؽºÆ® ¾ÏÈ£ ¿ë ¸Å¿ì À¯¿¬ÇÑ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÅؽºÆ® :: ¾ÏÈ£ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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.


ÅؽºÆ® :: ¾ÏÈ£ °ü·Ã ¼ÒÇÁÆ®¿þ¾î