ValidaCFD

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

fmellaerts escribió:Hola,
Aqui 2 functiones en VB.net usando el chilkatDotNet2.dll :

Gracias por la aportacion

Hola a todos,

Me gusta compartir el código, porque es la única manera que podemos ayudarnos unos a otros.

Freddy

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

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

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.

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

DADO escribió:

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

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.


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

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.

el contador ya encontro la hoja donde viene el numero de operacion y ya quedo pero porque a mi no me funciona el anterior?