Crypt :: Khazad.

CRYPT :: KHAZAD´Â CRYPT :: CBC ȣȯ ºí·Ï ¾ÏÈ£ÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Crypt :: Khazad. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Julius C. Duque
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~jcduque/Crypt-Rainbow-1.0.0/Rainbow.pm

Crypt :: Khazad. ű×


Crypt :: Khazad. ¼³¸í

Crypt :: Khazad´Â Crypt :: CBC ȣȯ ºí·Ï ¾ÏÈ£ÀÔ´Ï´Ù. Crypt :: Khazad´Â Crypt :: CBC ȣȯ ºí·Ï Cipher.AbstractKhazad´Â Vincent Rijmen ¹× Paulo S. L. M. Barreto.synopsis Crypt :: Khazad¸¦ »ç¿ëÇÏ¿© 128 ºñÆ® Å°, 64 ºñÆ® ºí·Ï ¾ÏÈ£ÀÔ´Ï´Ù. $ cipher = new crypt :: khazad $ Å°; $ ciphertext = $ cipher-> ¾Ïȣȭ ($ PRALEXT); $ plaintext = $ cipher-> decrypt ($ ciphertext); Khazad´Â 128 ºñÆ® Å°, 64 ºñÆ® ºí·Ï ¾ÏÈ£ÀÔ´Ï´Ù. Vincent Rijmen°ú Paulo S. L. M. Barreto°¡ µðÀÚÀÎ ÇÑ Khazad´Â ·¹°Å½Ã ·¹º§ ºí·Ï ¾ÏÈ£¸¦À§ÇÑ Nessie FinalistÀÔ´Ï´Ù. Khazad´Â Rijndael°úÀÇ ¸¹Àº À¯»çÁ¡À» °¡Áö°í ÀÖÀ¸¸ç ¸Å¿ì ³ôÀº È®»ê ¼Óµµ¸¦ °¡Áö°í ÀÖ½À´Ï´Ù.ÀÌ ¸ðµâÀº ´ÙÀ½°ú °°Àº ±â´ÉÀ» »ç¿ëÇÏ¿© Crypt :: CBC ÀÎÅÍÆäÀ̽º¸¦ Áö¿øÇÕ´Ï´Ù .FunctionsBlockSize´Â ºí·Ï (8,ÀÌ °æ¿ì 8)ÀÇ Å©±â (¹ÙÀÌÆ®)¸¦ ¹ÝȯÇÕ´Ï´Ù. Keysize Å°ÀÇ Å©±â (¹ÙÀÌÆ®)¸¦ ¹ÝȯÇÕ´Ï´Ù (16,ÀÌ °æ¿ì) .encrypt ($ µ¥ÀÌÅÍ)´Â 8 ¹ÙÀÌÆ® $ µ¥ÀÌÅ͸¦ ¾ÏȣȭÇÏ°í ÇØ´ç CipherText.Decrypt ($ µ¥ÀÌÅÍ)¸¦ ¹ÝȯÇÕ´Ï´Ù. 8 ¹ÙÀÌÆ® 8 ¹ÙÀÌÆ®ÀÇ $ µ¥ÀÌÅ͸¦ Çص¶ÇÏ°í ´ëÀÀÇÏ´Â plaintext.example 1 #! / usr / local / bin / perl »ç¿ë Áø´Ü; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Crypt :: Khazad¸¦ »ç¿ëÇϽʽÿÀ; # Å°´Â 16 ¹ÙÀÌÆ® ±ä ³» $ Å° = "0123456789abcdef"; MY $ CIPHER = NEW CRYPT :: KHAZAD $ Å°; "blocksize =", $ cipher-> blocksize, "bytes n"; "Keysize =", $ cipher-> Å° Å©±â, "¹ÙÀÌÆ® n"À» ÀμâÇϽʽÿÀ. # ºí·ÏÀº 8 ¹ÙÀÌÆ® ±ä ³» $ Plaintext1 = "testing1"À̾î¾ßÇÕ´Ï´Ù. MY $ CIREDTEXT = $ CIPHER-> ¾Ïȣȭ ($ PRALITEXT1); MY $ PRITEXT2 = $ CIPHOR-> Çص¶ ($ CIPHERTEXT); ($ PRITEXT1 EQ $ PRAINTEXT2) ÀÎ °æ¿ì "¾ÏÈ£ Çص¶ OKN"À» ÀμâÇϽʽÿÀ. ¿¹ 2 #! / usr / local / bin / perl Áø´ÜÀ» »ç¿ëÇϽʽÿÀ. ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Crypt :: CBC¸¦ »ç¿ëÇϽʽÿÀ. # CBC´Â ÀÚµ¿À¸·Î Khazad¸¦ ÀÚµ¿À¸·Î·ÎµåÇÕ´Ï´Ù. Crypt :: CBC¸¦ »ç¿ëÇÒ ¶§ Å° ±æÀÌ°¡ ±æ¾îÁú ¼ö ÀÖ½À´Ï´Ù = "0123456789abcdef"; # iv´Â Á¤È®È÷ 8 ¹ÙÀÌÆ® ±æÀÌ°¡µÇ¾î¾ßÇÕ´Ï´Ù. $ IV = PACK "H16", 0; MY $ CIREDER = CRYPT :: CBC-> NEW ({ '=> $ Å°,'¾ÏÈ£ '=>'khazad ','iv '=> $ IV'regenerate_key '=> 1,'PADDING '=> 'Ç¥ÁØ', 'prepend_iv'=> 0}); # Crypt :: CBC¸¦ »ç¿ëÇÒ ¶§, ÀÏ¹Ý ÅؽºÆ®´Â ±æÀÌ°¡ ³» $ Plaintext1 = "Å×½ºÆ®"ÀÏ ¼ö ÀÖ½À´Ï´Ù. MY $ CIREDTEXT = $ CIPHER-> ¾Ïȣȭ ($ PRALITEXT1); MY $ PRITEXT2 = $ CIPHOR-> Çص¶ ($ CIPHERTEXT); ($ PlainText1 Eq $ PlainText2) ÀÎ °æ¿ì "¾ÏÈ£ Çص¶ OKN"Àμâ; ¿ä±¸ »çÇ× : ¡¤ Perl


Crypt :: Khazad. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

Crypt :: Imail.

CRYPT :: IMAILÀº IMAIL ¾ÏÈ£¸¦ ¾ÏȣȭÇÏ°í Çص¶ÇÏ´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. ...

189

´Ù¿î·Îµå