Differences From Artifact [ce581f0c53]:

• Executable file test.tcl — part of check-in [85de7abf4c] at 2010-10-11 04:59:30 on branch trunk — Updated to close session if we get a CKR_DEVICE_REMOVED on logout Win32-specific PKCS#11 definitions created Updated to retrieve function pointers using lookups rather than C_GetFunctionList on Win32 since ActivClient doesn't seem to return valid function pointers... Updated to return fake PKCS#11 error "MAYBE_LOGIN" if we are unable to find any private key objects Updated to try C_Encrypt for encryption before trying C_Sign. Updated to unpad (PKCS 1.5 mode 1 only) input when encrypting since some drivers require the input to be unpadded Minor cleanup Updated test driver to support logging in if MAYBE_LOGIN is recieved (user: rkeene, size: 1934) [annotate] [blame] [check-ins using]

To Artifact [e1ed48f58d]:

• Executable file test.tcl — part of check-in [00bd99c476] at 2010-10-11 13:55:56 on branch trunk — Tclpkcs11 0.9.6 Updated test script to not call exit (user: rkeene, size: 1932) [annotate] [blame] [check-ins using]

59
60
61
62
63
64
65
66

67
68
69
70
71
72
73
74
75
76
77
78

79
80
81
82

59
60
61
62
63
64
65

66
67
68
69
70
71
72
73
74
75
76
77

78
79
80
81
82

-
+











-
+

			break
		}
	}

	if {$plain != $orig} {
		puts "Decryption error!  Expected \"$orig\", got \"$plain\""

		exit 1
		break
	}

	set cipher [pki::encrypt -binary -priv -- $orig $certinfo_list]
	set plain  [pki::decrypt -binary -pub -- $cipher $certinfo_list]

	set sig    [pki::sign $orig $certinfo_list]
	set verify [pki::verify $sig $orig $certinfo_list]

	if {!$verify} {
		puts "Signature verification error!"

		exit 1
		break
	}
}

pki::pkcs11::unloadmodule $handle