crypto/external/bsd/netpgp/dist/bindings/tcl/netpgp.tcl

   1 #! /usr/bin/env tclsh
   2
   3 # netpgp bindings for tcl
   4
   5 load libnetpgptcl.so
   6
   7 # initialisations
   8 set n [new_netpgp_t]
   9 netpgp_setvar $n "homedir" "/home/agc/.gnupg"
  10 netpgp_setvar $n "hash" "SHA256"
  11 netpgp_init $n
  12
  13 set userid [netpgp_getvar $n "userid"]
  14 netpgp_sign_file $n $userid "a" "a.gpg" 0 0 0
  15 netpgp_verify_file $n "a.gpg" "/dev/null" 0