Hola,
Aqui 2 functiones en VB.net usando el chilkatDotNet2.dll :
Public Function keysMatch() As Boolean
Dim cer As New Chilkat.Cert
Dim privateKey As New Chilkat.PrivateKey
Dim xml As New Chilkat.Xml
Try
Dim cerXmlFile As String = tmpPath & "cer.xml"
Dim keyXmlFile As String = tmpPath & "key.xml"
If cer.LoadFromFile(cerFile) = False Then Throw New Exception(cer.LastErrorText) 'load cer
If cer.ExportPublicKey().SaveXmlFile(cerXmlFile) = False Then Throw New Exception(cer.LastErrorText) 'save as xml
If xml.LoadXmlFile(cerXmlFile) = False Then Throw New Exception(xml.LastErrorText) 'load cerXml
Dim modulusCer = xml.GetRoot.GetChildContent("Modulus") : deleteFile(cerXmlFile) 'get modulusCer
If privateKey.LoadPkcs8EncryptedFile(keyFile, pwd) = False Then Throw New Exception(privateKey.LastErrorText) 'load key
If privateKey.SaveXmlFile(keyXmlFile) = False Then Throw New Exception(privateKey.LastErrorText) 'save as xml
If xml.LoadXmlFile(keyXmlFile) = False Then Throw New Exception(xml.LastErrorText) 'load keyXml
Dim modulusKey = xml.GetRoot.GetChildContent("Modulus") : deleteFile(keyXmlFile) 'get modulusKey
If modulusCer = modulusKey Then Return True Else Return False
Catch ex As Exception
errHandler(ex)
Return False
Finally
If cer IsNot Nothing Then cer.Dispose()
If privateKey IsNot Nothing Then privateKey.Dispose()
If xml IsNot Nothing Then xml.Dispose()
End Try
End Function
Public Function cerIs4Sellos() As Boolean
Dim cer As New Chilkat.Cert
Try
If cer.LoadFromFile(cerFile) = False Then Throw New Exception(cer.LastErrorText) 'load cer
If cer.IntendedKeyUsage = 192 Then Return True Else Return False 'SELLOS = 192, FIEL = ?
Catch ex As Exception
errHandler(ex)
Return False
Finally
If cer IsNot Nothing Then cer.Dispose()
End Try
Return True
End Function

DESCARGA SOFTWARE PARA FACTURA ELECTRONICA DE AQUI.
Facturacion, Validacion, Addendas, Librerias de programacion, etc.
CARTA PORTE V3.1
ECODEX TIENE ESTOS NUEVOS DATOS DE CONTACTO :
Comercializacion y Ventas - Evelia Vicke evicke@ecodex.com.mx 33-16-03-03-48
Soporte - Humberto Guerrero soporte@ecodex.com.mx 33-34-90-46-03
.
Como saber si un certificado es FIEL o es de Sellos?
-
- Mensajes: 6
- Registrado: Jue Feb 03, 2011 8:27 pm
- Dado
- Mensajes: 15981
- Registrado: Mar Jul 06, 2010 7:56 pm
Re: Como saber si un certificado es FIEL o es de Sellos?
Gracias por la aportacionfmellaerts escribió:Hola,
Aqui 2 functiones en VB.net usando el chilkatDotNet2.dll :

ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!
-
- Mensajes: 6
- Registrado: Jue Feb 03, 2011 8:27 pm
Re: Como saber si un certificado es FIEL o es de Sellos?
Hola a todos,
Me gusta compartir el código, porque es la única manera que podemos ayudarnos unos a otros.
Freddy
Me gusta compartir el código, porque es la única manera que podemos ayudarnos unos a otros.
Freddy
-
- Mensajes: 53
- Registrado: Mar May 31, 2011 7:27 am
el CP no me dio el archivo .zip del certisat
hola quisiera saber si ustedes saben que puedo hacer si mi cliente tiene solo estos archivos que saco del certisat
00001000000103014343.cer
bss070323e8a_1103100857s.key
pero no me permite abrilo para generar el xml. yo normalmente lo he hecho con el archivo .zip del certisat
ustedes saben como lo puedo recuperar si no tengo el numero de operacion?
gracias
00001000000103014343.cer
bss070323e8a_1103100857s.key
pero no me permite abrilo para generar el xml. yo normalmente lo he hecho con el archivo .zip del certisat
ustedes saben como lo puedo recuperar si no tengo el numero de operacion?
gracias
- Dado
- Mensajes: 15981
- Registrado: Mar Jul 06, 2010 7:56 pm
Re: el CP no me dio el archivo .zip del certisat
Pues esos son los unicos archivos que necesitas, si acaso lo que te faltaria seria la CLAVE DE ACCESO para abrir el archivo key ya que viene protegido.symty escribió:hola quisiera saber si ustedes saben que puedo hacer si mi cliente tiene solo estos archivos que saco del certisat
00001000000103014343.cer
bss070323e8a_1103100857s.key
pero no me permite abrilo para generar el xml. yo normalmente lo he hecho con el archivo .zip del certisat
ustedes saben como lo puedo recuperar si no tengo el numero de operacion?
gracias
Esa clave debio proporcionarla tu cliente al momento de solicitar los archivos, si no la tiene entonces si necesitarias pedir otro par de CER y KEY
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!
-
- Mensajes: 53
- Registrado: Mar May 31, 2011 7:27 am
Re: el CP no me dio el archivo .zip del certisat
lo que pasa que me marca error y con el archivo 00001000000103014343.cer y con el bss070323e8a_1103100857s.zip que se descomprime y sacas el bss070323e8a_1103100857s.cer ese si funciona.DADO escribió:Pues esos son los unicos archivos que necesitas, si acaso lo que te faltaria seria la CLAVE DE ACCESO para abrir el archivo key ya que viene protegido.symty escribió:hola quisiera saber si ustedes saben que puedo hacer si mi cliente tiene solo estos archivos que saco del certisat
00001000000103014343.cer
bss070323e8a_1103100857s.key
pero no me permite abrilo para generar el xml. yo normalmente lo he hecho con el archivo .zip del certisat
ustedes saben como lo puedo recuperar si no tengo el numero de operacion?
gracias
Esa clave debio proporcionarla tu cliente al momento de solicitar los archivos, si no la tiene entonces si necesitarias pedir otro par de CER y KEY
el contador ya encontro la hoja donde viene el numero de operacion y ya quedo pero porque a mi no me funciona el anterior?