(Perl) List CSP's (Cryptographic Service Providers) on a Windows System

List the CSP's registered on a Windows system.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$csp = chilkat::CkCsp->new();
$st = chilkat::CkStringTable->new();

$success = $csp->GetProviders($st);
if ($success == 0) {
    print $csp->lastErrorText() . "\r\n";
    exit;
}

# Iterate over the CSP names..
$i = 0;
$numProviders = $st->get_Count();
while ($i < $numProviders) {
    print $i . ": " . $st->stringAt($i) . "\r\n";
    $i = $i + 1;
}

# Sample output:
# 
# 0: Microsoft Base Cryptographic Provider v1.0
# 1: Microsoft Base DSS and Diffie-Hellman Cryptographic Provider
# 2: Microsoft Base DSS Cryptographic Provider
# 3: Microsoft Base Smart Card Crypto Provider
# 4: Microsoft DH SChannel Cryptographic Provider
# 5: Microsoft Enhanced Cryptographic Provider v1.0
# 6: Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider
# 7: Microsoft Enhanced RSA and AES Cryptographic Provider
# 8: Microsoft RSA SChannel Cryptographic Provider
# 9: Microsoft Strong Cryptographic Provider
#