Gauche-_gpgme

Gauche-_gpgmeはGPGMEをGaucheから操作するための拡張です。

ダウンロード: Gauche-_gpgme-1.1.4.tgz (2018-12-21)

履歴

• 2017-7-16 version 1.0 初めてのリリース
• 2017-9-12 version 1.0.1 マニュアルの整備
• 2018-3-8 version 1.1.0 試験的にGnuPG 2.1以上に対応
• 2018-3-13 version 1.1.1 英語版のマニュアルの整備
• 2018-7-21 version 1.1.2 iterationがおかしかったのを修正
• 2018-9-1 version 1.1.3 バイナリの出力がおかしかったのを修正
• 2018-12-21 version 1.1.4 Gauche 0.9.7でコンパイルできるようにした

使い方

(use crypt.gpgme)
(use gauche.collection)

(init-gpgme)

(define (passphrase-cb opaque uid-hint passphrase-info last-was-bad oport)
  (format oport "foobar\n")
  0)

(call-with-gpgme-context
 (^(ctx)
   (with-gpgme-armor
    ctx
    (guard
        (exc
         [(gpgme-error? exc)
          (format #t "~a~a\n"
                  (gpgme-error-debug-info exc)
                  (gpgme-error-reason exc))])
      (let ([encrypt-string "Encrypt string.\n"]
            [out (open-output-string)])

        ;;; Using key
        (gpgme-encrypt-string ctx encrypt-string '("foo@hoge.com")
                              GPGME-ENCRYPT-ALWAYS-TRUST
                              :passphrase-cb passphrase-cb
                              :oport out)
        (format #t "Encrypt string [~a]\n" (get-output-string out))
        (format #t "\nDecrypt\n")
        (gpgme-decrypt-string ctx (get-output-string out)
                              :passphrase-cb passphrase-cb))))))