Crypt :: GPG. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Ashish Gulhati
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~agul/
Crypt :: GPG. ű×
Crypt :: GPG. ¼³¸í
gnupg¿¡ ´ëÇÑ °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º Crypt :: GPG´Â °´Ã¼ ÁöÇâ ÀÎÅÍÆäÀ̽º¸¦ ÅëÇØ gnupg (www.gnupg.org) ¾ÏÈ£È µµ±¸ÀÇ ±â´É¿¡ ´ëÇÑ ¾×¼¼½º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ¾ÏÈ£È, ¾ÏÈ£ Çص¶, ¼¸í, ¼¸í È®ÀÎ, Å° »ý¼º, ÁÖ¿ä ÀÎÁõÀ»À§ÇÑ ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. , ³»º¸³»±â ¹× °¡Á® ¿À±â. Å° ¼¹ö ¾×¼¼½º´Â TODO LISTÀÔ´Ï´Ù. ¸ðµâÀÇ ¸±¸®½º´Â ÀÌÀü ¹öÀü¿¡¼ ȣȯ¼º ¹®Á¦¸¦ »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯ÇÑ ¹®Á¦Á¡À̳ª ¹ö±× ¶Ç´Â ¹®¼ ¿À·ù°¡ÀÖ´Â °æ¿ì Neomailbox.com¿¡¼ Crypt-GPG·Îº¸°íÇϽʽÿÀ. Synopsis Use Crypt :: GPG; MY $ GPG = NEW CRYPT :: GPG; $ GPG-> GPGBIN ( '/ usr / bin / gpg'); # gnupg ½ÇÇà ÆÄÀÏÀÔ´Ï´Ù. $ gpg-> secretkey ( '0x2B59D29E'); # ±âº» ºñ¹Ð Å°ÀÇ ID¸¦ ¼³Á¤ÇÕ´Ï´Ù. $ GPG-> ¾ÏÈ£¹® ( 'Å×½ºÆ®'); # ¾ÏÈ£¸¦ ¼³Á¤ÇÕ´Ï´Ù. # ¸Þ½ÃÁö ¼¸í : MY $ Sign = $ GPG-> ·Î±×ÀÎ ( 'Å×½ºÆ®'); # ¸Þ½ÃÁö¸¦ ¾ÏÈ£ÈÇϽʽÿÀ : my @encrypted = $ gpg-> ¾ÏÈ£È ( 'top secret', 'test@bar.com'); # ¸Þ½ÃÁö Á¤º¸ °¡Á® ¿À±â : my @recipients = $ gpg-> msginfo ($ ¾ÏÈ£È µÈ); # ¸Þ½ÃÁö¸¦ Çص¶ÇÕ´Ï´Ù. ³» ($ plaintext, $ signature) = $ gpg-> È®ÀÎ ($ ¾ÏÈ£È µÈ); # Å° »ý¼º : $ status = $ gpg-> keygen ( 'test', 'test@foo.com', 'eleg-e', 2048, 0, '¾ÏÈ£ ¹®±¸); ÀμâÇÏ´Â µ¿¾È ÀμâÇϽʽÿÀ (); $ »óŸ¦ ´Ý½À´Ï´Ù. # Å° µ¥ÀÌÅͺ£À̽º Á¶ÀÛ : $ GPG-> ADDKEY ($ key, @ids); @Keys = $ gpg-> keydb (@IDS); # Å° Á¶ÀÛ : $ Å° = $ Å° ; $ GPG-> µ¨ Å° ($ Å°); $ gpg-> disableKey ($ Å°); $ GPG-> enableKey ($ Å°); $ GPG-> Å°º¸±â ($ Å°, $ OldPassphrase, $ newpassphrase); $ keystring = $ GPG-> ¼öÃâ ($ Å°); ¿ä±¸ »çÇ× : ¡¤ Perl.
Crypt :: GPG. °ü·Ã ¼ÒÇÁÆ®¿þ¾î