| Crypt :: Util. Crypt :: UtilÀº °¡º¿î Crypt / Digest ÆíÀÇ APIÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Crypt :: Util. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Yuval Kogman
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nobull/
Crypt :: Util. ű×
Crypt :: Util. ¼³¸í
Crypt :: UtilÀº °¡º¿î Crypt / Digest ÆíÀÇ APIÀÔ´Ï´Ù. Crypt :: UtilÀº °æ·®ÀÇ Crypt / Digest ÆíÀǼºÀÔ´Ï´Ù. Synopsis´Â Crypto :: Util; # ¶ÇÇÑ ÇÏÀ§ :: ±âº» ÀνºÅϽº ·¡ÇÎ ±â´ÉÀ» ¹ÝȯÇÏ´Â ±â´ÉÀÌ ÀÖ½À´Ï´Ù. MY $ util = crypto :: util-> new; $ util-> default_key ( "³» ºñ¹Ð"); # Mac ¶Ç´Â Cipher + Digest ±â¹Ý ÅÆÆÛ ÀúÇ× Ä¸½¶È # (ÇÊ¿äÇÑ °æ¿ì $ µ¥ÀÌÅÍ¿¡ ÀúÀå °¡´É) ³» $ TAMPER_RESISTENT_STRING = $ UTTILL-> TAMPER_PRAIN ($ µ¥ÀÌÅÍ); MY $ VERIFIED = $ UTTILT-> THAW_TAMPER_PRAY ($ untrusted_string, key => "´Ù¸¥ ºñ¹Ð"); # ÀÎÄÚµùÀÌ ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ì Base32´Â »ç¿ëµË´Ï´Ù. # (Base32¸¦ »ç¿ëÇÒ ¼ö¾ø´Â °æ¿ì) ³» $ encoded = $ util-> encode_string ($ bytes); ³» $ hash = $ util-> ´ÙÀÌÁ¦½ºÆ® ($ bytes, digest => "md5"); $ util-> verify_hash (hash => $ hash, data => $ bytes, digest => "md5",) ¿ä±¸ »çÇ× : ¡¤ perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Crypt :: Util. °ü·Ã ¼ÒÇÁÆ®¿þ¾î