| crypt :: pbc :: ¿ä¼Ò ½ºÅÄÆ÷µå PBC ¶óÀ̺귯¸® ¿ë OO ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
crypt :: pbc :: ¿ä¼Ò ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~jettero/
crypt :: pbc :: ¿ä¼Ò ű×
crypt :: pbc :: ¿ä¼Ò ¼³¸í
½ºÅÄÆ÷µå PBC ¶óÀ̺귯¸®¸¦À§ÇÑ OO ÀÎÅÍÆäÀ̽º crypt :: pbc :: ¿ä¼Ò´Â ½ºÅÄÆ÷µå PBC ¶óÀ̺귯¸®¸¦À§ÇÑ OO ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù .Synopsis »ç¿ë Crypt :: PBC; $ Pairing = New Crypt :: PBC ( "params_d.txt"); MY $ G1 = $ Æä¾î¸µ -> init_g1-> ¹«ÀÛÀ§; MY $ G2 = $ Æä¾î¸µ -> init_g2-> random-> double-> square; MY $ GT = $ Æä¾î¸µ -> init_gt-> pairing_apply ($ g1, $ g2); OverviewToraght Àüü OO ÀÎÅÍÆäÀ̽º´Â ¿ä¼Ò°¡ Áï°¢ÀûÀ¸·Î ¸í¹éÇÏÁö ¾Ê¾Æ¾ßÇÏ´ÂÁö, ´Ù¸¥ ÀÏÀÌ ¹ÝȯµÇ¾î¾ßÇÑ´Ù´Â Á¡¿¡¼ ÀÚü°¡ µÇµ¹¾Æ °¡Áö ¾ÊÀ¸·Á °í ½ÃµµÇß½À´Ï´Ù. ´ë½Å¿¡. ³» $ x = $ Æä¾î¸µ -> init_g1; # $ x´Â ¿ä¼Ò $ x> ¹«ÀÛÀ§ÀÔ´Ï´Ù. # ¿ä¼Ò¸¦ ¹«ÀÛÀ§·Î ÁöÁ¤ÇÕ´Ï´Ù. $ x -> set0; # 0 $ x -> set_to_hash ( "LOL!")·Î ¿ä¼Ò¸¦ ¼³Á¤ÇϽʽÿÀ. # ·Ñ¿¡ ¿ä¼Ò ¼³Á¤ ... À§ÀÇ ¸ðµç °ÍÀº ´ë½Å ´ë½Å¿¡ ´ÙÀ½°ú °°ÀÌ ÀÛ¼º µÉ ¼ö ÀÖ½À´Ï´Ù : MY $ x = $ Æä¾î¸µ -> init_g1-> random-> set0-> set_to_hash ( "·Ñ!"); ±×·¯³ª ´Ù¸¥ °ÍÀ» ¹ÝȯÇÏ´Â ±â´É ... ¿ø¼Ò¸¦ ¹ÝȯÇÏÁö ¸¶½Ê½Ã¿À. $ string (¾Æ·¡)Àº ¿ä¼Ò°¡ ¾Æ´Ñ MIME ÀÎÄÚµù ¹®ÀÚ¿ÀÔ´Ï´Ù. MY $ string = $ x -> as_base64; »õ·Î¿î Æä¾î¸µÀ» ¼³Á¤ÇÏ´Â µ¥ ´õ ¸¹Àº µµ¿ò¸»À» º¸·Á¸é Crypt :: PBC ¸Ç ÆäÀÌÁö (»õ·Î ¾Æ·¡)¸¦ ÂüÁ¶ÇϽʽÿÀ. ¿ä±¸ »çÇ× : ¡¤ Perl.
crypt :: pbc :: ¿ä¼Ò °ü·Ã ¼ÒÇÁÆ®¿þ¾î