ASP Examples

ChilkatHOMEASPVisual BasicVB.NETC#Visual C++CMFCDelphiFoxProJavaPerlPHPPythonRubySQL ServerVBScript

ASP Examples

ASP String
ASP Byte Array
Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML-to-XML
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
SMTP
Socket
Spider
SSH
SSH Tunnel
SSH Key
SFTP
Tar
ASP Upload
XML
XMP
Zip Compression

More Examples...
Email Object
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA

Unreleased...
Bzip2
LZW
Icon

 

 

 

 

 

 

PKCS7 SignedData Detached Signature

How to create a PKCS7 detached signature. The resulting PKCS7 structure is encoded to a printable string using hex or base64 encoding. The data being signed is not included in the PKCS#7 structure.

Download Chilkat Crypt ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set crypt = Server.CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "Crypt component unlock failed" & "<br>"

End If

set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadByCommonName("Chilkat Software")
If (success <> 1) Then
    Response.Write cert.LastErrorText & "<br>"

End If

'  Make sure this certificate has a private key available:

bHasPrivateKey = cert.HasPrivateKey()
If (bHasPrivateKey <> 1) Then
    Response.Write "No private key available for signing." & "<br>"

End If

'  Tell the encryption component to use this cert.
crypt.SetSigningCert cert

strData = "This is the data to be signed."

'  Indicate that the PKCS7 signature should be returned
'  as a base64 encoded string:
crypt.EncodingMode = "base64"

'  The EncodingMode may be set to other values such as
'  "hex", "url", "quoted-printable", etc.

strSignature = crypt.SignStringENC(strData)

Response.Write Server.HTMLEncode( strSignature) & "<br>"

'  Now verify the signature against the original data.

'  Tell the component what certificate to use for verification.
crypt.SetVerifyCert cert

success = crypt.VerifyStringENC(strData,strSignature)
If (success = 1) Then
    Response.Write "digital signature verified" & "<br>"
Else
    Response.Write "digital signature invalid" & "<br>"
End If

'  Try it with incorrect data:
success = crypt.VerifyStringENC("This is not the signed data",strSignature)
If (success = 1) Then
    Response.Write "digital signature verified" & "<br>"
Else
    Response.Write "digital signature invalid" & "<br>"
End If

%>
</body>
</html>

 

Need a specific example? Send a request to support@chilkatsoft.com

© 2000-2008 Chilkat Software, Inc. All Rights Reserved.