| crypt :: ¾ÆÀ̵ð¾î CRYPT :: IDEA´Â ¾ÆÀ̵ð¾î ºí·Ï ¾ÏÈ£ÀÇ PERL ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
crypt :: ¾ÆÀ̵ð¾î ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dparis/Crypt-IDEA-1.08/IDEA.pod
crypt :: ¾ÆÀ̵ð¾î ű×
crypt :: ¾ÆÀ̵ð¾î ¼³¸í
Crypt :: Idea´Â ¾ÆÀ̵ð¾î ºí·Ï ¾ÏÈ£ÀÇ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. Crypt :: Itead´Â ¾ÆÀ̵ð¾î ºí·Ï Cipher.Synopsis »ç¿ë Crypt :: Idea;ÀÌ Perl È®ÀåÀÚ´Â ¾ÆÀ̵ð¾î ºí·Ï ¾ÏÈ£ ¾Ë°í¸®ÁòÀÇ ±¸ÇöÀÔ´Ï´Ù. ÀÌ ¸ðµâÀº ´ÙÀ½°ú °°Àº messowsblocksize = item keysize = Ç׸ñ encrypt = Ç׸ñ decryptFunctionsBlockSize Ç׸ñÀÇ Å©±â (¹ÙÀÌÆ®)¸¦ ¹ÝȯÇÕ´Ï´Ù. key.new ³»ÀÇ Å©±â (¹ÙÀÌÆ®)¸¦ ¹ÝȯÇÕ´Ï´Ù. $ cipher = »õ·Î¿î ¾ÆÀ̵ð¾î $ Å°; ÀÌ·¸°ÔÇϸé $ Å°¸¦ »ç¿ëÇÏ¿© »õ ¾ÆÀ̵ð¾î ºí·Ï Ŭ¶óÀÌ¾î °´Ã¼¸¦ ¸¸µì´Ï´Ù. ¿©±â¼ $ Å°´Â KEYSIZE () ¹ÙÀÌÆ®ÀÇ Å°ÀÔ´Ï´Ù. MY $ CIPHER = NEW IDEA $ Å°; MY $ CIREDTEXT = $ CIPHER-> ¾ÏÈ£È ($ PRALEXT); ÀÌ ÇÔ¼ö´Â $ Plaintext¸¦ ¾ÏÈ£ÈÇÏ°í $ Pripertext¿Í $ CipherText°¡ blocksize () bytes.decrypt°¡ BlockSize () bytes.decryptÀ̾î¾ßÇÕ´Ï´Ù. »õ ¾ÆÀ̵ð¾î $ Å°; MY $ PRALITEXT = $ CIPHOR-> DECRIPT ($ CIPHERTEXT); ÀÌ ÇÔ¼ö´Â $ CipherText¸¦ Çص¶ÇÏ°í $ PraliltExt ¹× $ CipherText°¡ Blocksize () bytes.ExampleÀÇ ³» $ key = ÆÑ ( "H32", "0123456789ABCDEF") ¿©¾ßÇÏ´Â $ Prasext¸¦ ¹ÝȯÇÕ´Ï´Ù. ³» $ CIPHER = »õ·Î¿î ¾ÆÀ̵ð¾î $ Å°; MY $ CIREDTEXT = $ CIPHER-> ¾ÏÈ£È ( "PALITEX"); # nb - 8 ¹ÙÀÌÆ® Àμâ unpack ( "h16", $ ciphertext), "n"; ¿ä±¸ »çÇ× : ¡¤ Perl.
crypt :: ¾ÆÀ̵ð¾î °ü·Ã ¼ÒÇÁÆ®¿þ¾î