On 24/01/07, Ph. Marek <[EMAIL PROTECTED]> wrote:
I'd like a perl script like $my_pkcs11 = new Chipcard::PKCS11("driver.so"); $my_pkcs11->Initialize(); $my_pkcs11->Login($pin, LOGIN_AS_USER); $my_pkcs11->Encrypt(...);PerlScript => PerlModule => PKCS#11-Driver => PCSCD => Card ^ this is what I'd like to have.
I do not know any PKCS#11 wrapper for Perl. You have a PKCS#11 Python wrapper at [1] but that may not answer your problem :-)
I know that I can call pkcs11-tool, but as I'm checking via Chipcard::PCSC when a card is inserted, I'd have two processes going to the card - which might make problems, depending on interferences between the accesses.
I don't know what you do to check a card is inserted but that should not be a problem to have multiple accesses. Just try.
Furthermore having all PKCS11 function available in perl would be much more flexible, of course -- and there's the performance, too.
You are concerned about performance with a PKCS#11 smart card token? :-) Bye [1] http://www.bit4id.org/trac/pykcs11 -- Dr. Ludovic Rousseau _______________________________________________ Muscle mailing list [email protected] http://lists.drizzle.com/mailman/listinfo/muscle
