发信人: qcrsoft(网痞)
整理人: qcrsoft(2002-05-09 23:22:58), 站内信件
|
1发送加密邮件
<%
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Mail = Server.CreateObject("Persits.MailSender")
Set Context = CM.OpenContext("mycontainer", True )
Set RecipientCert = CM.ImportCertFromFile("d:\his.cer")
Set Msg = Context.CreateMessage
Msg.AddRecipientCert RecipientCert ' repeat if necessary
' Send Encrypted Message
Mail.Host = "smtp.veryhotcakes.com"
Mail.Subject = "Encrypted message"
Mail.From = "[email protected]"
Mail.FromName = "Very Hot Cakes, Inc."
Mail.AddAddress "[email protected]"
Mail.Body = "Here is your receipt."
Mail.SendEncrypted Msg ' Use CryptoMessage object
%>
2发送有带符号邮件
<%
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Mail = Server.CreateObject("Persits.MailSender")
CM.LogonUser "mydomain", "Administrator", "xxx"
Set Store = CM.OpenStore( "my", True )
Set SignerCert = Store.Certificates("012E78")
Set Context = CM.OpenContext("mycontainer", True )
Set Msg = Context.CreateMessage
Msg.SetSignerCert SignerCert ' Specify signer certificate
' Send Signed Message
Mail.Host = "smtp.veryhotcakes.com"
Mail.Subject = "Signed message"
Mail.From = "[email protected]"
Mail.FromName = "Very Hot Cakes, Inc."
Mail.AddAddress "[email protected]"
Mail.Body = "Thanks for shopping with us."
Mail.SendSigned Msg ' Send CryptoMessage object
%>
作者:东东
来自:特效先锋 |
|