Crypt :: CFB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Matthias Bauer
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bauerm/
Crypt :: CFB. ű×
Crypt :: CFB. ¼³¸í
¾ÏÈ£ Çǵå¹é ¸ðµå¿¡¼ µ¥ÀÌÅ͸¦ ¾ÏÈ£ÈÇÕ´Ï´Ù Crypt :: CFB´Â ¼ø¼öÇÑ Perl¿¡¼ ÀϹÝÀûÀÎ CFB ±¸ÇöÀ» Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¾ÏÈ£ Çǵå¹é ¸ðµâÀº ºí·Ï ¾ÏÈ£ ¶Ç´Â ¾ÏÈ£È Çؽà ±â´ÉÀ¸·ÎºÎÅÍ ½ºÆ®¸² ¾ÏÈ£¸¦ ±¸¼ºÇÏ°í °´Ã¼·Î ¹ÝȯÇÕ´Ï´Ù. BlockSize ¹× Keysize ¸Þ¼Òµå¸¦ Áö¿øÇÏ´Â ÇÑ Crypt :: Ŭ·¡½ºÀÇ ¸ðµç ºí·Ï ¾ÏÈ£¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Digest :: Ŭ·¡½ºÀÇ ¸ðµç Çؽà ÇÔ¼ö´Â Add ¸Þ¼µå¸¦ Áö¿øÇÏ´Â ÇÑ, Crypt :: CFB¸¦ »ç¿ëÇÏ´Â °Í°ú °°ÀÌ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. MY $ CIPHER = NEW CRYPT :: CFB $ Å°, 'CRYPT :: RIJNDAEL'; MY $ CIREDTEXT = $ CIPHER-> ¾ÏÈ£È ($ PRALEXT); MY $ PRALITEXT = $ CIPHOR-> DECRIPT ($ CIPHERTEXT); MY $ CIREDER2 = NEW CRYPT :: CFB $ Å°, '´ÙÀÌÁ¦½ºÆ® :: MD5'; $ ciphertext = $ cipher-> ¾ÏÈ£È ($ PRALEXT); $ plaintext = $ cipher-> decrypt ($ ciphertext); ¿ä±¸ »çÇ× : ¡¤ Perl.
Crypt :: CFB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î