# идентификатор юзера, по которому находится сертияикат (ниже)
my $user = '18b729e9d7485c1b12964e2ef3fba8a8'; 
my $data = '1234567890';


# ищем сертификат
my $Store = Win32::OLE->new('CAPICOM.Store') or die "Cannot start CAPICOM.Store";
$Store->Open( CAPICOM_CURRENT_USER_STORE, "My", CAPICOM_STORE_OPEN_READ_ONLY );

my $Certificates = $Store->Certificates;
my $certificate;
for ( my $i = 1 ; $i <= $Certificates->Count() ; $i++ ) {
	my $Certificate = $Certificates->Item($i);
	if ( hashSubjectName( $Certificate->SubjectName() ) eq $user ) {
		$certificate = $Certificate;
		last;
	}
}
# да, наш сертификат, имеет приватный ключ $Certificate->HasPrivateKey()
print $certificate->SubjectName(); 

# подписываем выше найденным сертификатом
my $Signer = Win32::OLE->new('CAPICOM.Signer') or die "Cannot start CAPICOM.Signer";
$Signer->LetProperty( 'Certificate', $certificate );

my $SignedData = Win32::OLE->new('CAPICOM.SignedData') or die "Cannot start CAPICOM.SignedData";
$SignedData->LetProperty( 'Content', $data ); # или $SignedData->Content($data) ?
my $signature = $SignedData->Sign( $Signer, 1, CAPICOM_ENCODE_BASE64 );

# что-то есть
print $signature; 

# проверяем подпись
my $SignedData = Win32::OLE->new('CAPICOM.SignedData') or die "Cannot start CAPICOM.SignedData";
$SignedData->LetProperty( 'Content', $data ); #или $SignedData->Content($data) ?

# возвращается undef, что значает, что подпись неверна (и так ли это?)
print $SignedData->Verify( $signature, 1, CAPICOM_VERIFY_SIGNATURE_ONLY );

# идентификатор юзера, по которому находим сертификат
	my $user = '18b729e9d7485c1b12964e2ef3fba8a8';

	my $Store = Win32::OLE->new('CAPICOM.Store') or die "Cannot start CAPICOM.Store";
	$Store->Open( CAPICOM_CURRENT_USER_STORE, "My", CAPICOM_STORE_OPEN_READ_ONLY );
	my $Certificates = $Store->Certificates;

	my $Certificate;
	for ( my $i = 1 ; $i <= $Certificates->Count() ; $i++ ) {
		my $Cert = $Certificates->Item($i);
		if ( _CertificateSubjectName2SSL_CLIENT_S_DN( $Cert->SubjectName() ) eq $user ) {
			$Certificate = $Cert;
			last;
		}
	}
# нашли, выводим имя и наличие приватного ключа - угу, он самый
	print $Certificate->SubjectName() . ' ' . $Certificate->HasPrivateKey();

# проверяем на валидность
	my $CertificateStatus = $Certificate->IsValid();
	$CertificateStatus->CheckFlag(
								        CAPICOM_CHECK_TRUSTED_ROOT
									 or CAPICOM_CHECK_TIME_VALIDITY
									 or CAPICOM_CHECK_SIGNATURE_VALIDITY
									 or CAPICOM_CHECK_ONLINE_REVOCATION_STATUS
	);

	if ( $CertificateStatus->Result() ) {
		print "CryptoAPI believes to be trustworthy.";
	}
	else {
		my $Chain = Win32::OLE->new("CAPICOM.Chain") or die "Cannot start CAPICOM.Store";
		$Chain->Build($Certificate);

#...пропущено...

# срабатывает на этот код
		if ( CAPICOM_TRUST_REVOCATION_STATUS_UNKNOWN & $Chain->Status() ) {
			print 
			    "CryptoAPI was unable to determine the certificate status for &rsquo;"
			  . $Certificate->GetInfo(CAPICOM_INFO_SUBJECT_SIMPLE_NAME)
			  . "&rsquo;";
		}
	}