1*e1d61885Sagc#! /usr/bin/env tclsh 2*e1d61885Sagc 3*e1d61885Sagc# netpgp bindings for tcl 4*e1d61885Sagc 5*e1d61885Sagcload libnetpgptcl.so 6*e1d61885Sagc 7*e1d61885Sagc# initialisations 8*e1d61885Sagcset n [new_netpgp_t] 9*e1d61885Sagcnetpgp_setvar $n "homedir" "/home/agc/.gnupg" 10*e1d61885Sagcnetpgp_setvar $n "hash" "SHA256" 11*e1d61885Sagcnetpgp_init $n 12*e1d61885Sagc 13*e1d61885Sagcset userid [netpgp_getvar $n "userid"] 14*e1d61885Sagcnetpgp_sign_file $n $userid "a" "a.gpg" 0 0 0 15*e1d61885Sagcnetpgp_verify_file $n "a.gpg" "/dev/null" 0 16