Ver Mensaje Individual
  #58 (permalink)  
Antiguo 23/07/2010, 17:29
alfredo_
 
Fecha de Ingreso: julio-2010
Mensajes: 4
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Factura electroncia sat mexico

Cita:
Iniciado por Oscargf Ver Mensaje
Extraer el No ce certificado en VB sin openssl:

Crear un formulario con un boton y dos etiquetas.
el certificado está en c:\1\aaa010101aaa.cer.pem

El codigo:

Código:
Imports System
Imports System.Security.Cryptography.X509Certificates


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim CertHex As String

        Dim cert As X509Certificate = X509Certificate.CreateFromCertFile("c:\1\aaa010101aaa.cer.pem")

        CertHex = cert.GetSerialNumberString()

        Label1.Text = "Hex: " & CertHex


        Dim Data1 As String = ""
        Dim Resultado As String = ""

        While CertHex.Length > 0

            Data1 = System.Convert.ToChar(System.Convert.ToUInt32(CertHex.Substring(0, 2), 16)).ToString()
            Resultado = Resultado & Data1
            CertHex = CertHex.Substring(2, CertHex.Length - 2)
        End While


        Label2.Text = Resultado

    End Sub


End Class
al darle click en el boton sale en la label1: el No en hex, y el la label 2 el No buscado


Saludos
Oscar
HOLA OSCAR,

Fijate que ya copie el codigo que mencionas para poder leer el no de certificado,
pero al ejecutarlo en vb me da un error : me dice que no encuentra el objeto

Dim cert As X509Certificate = X509Certificate.CreateFromCertFile("c:\1\aaa010101 aaa.cer.pem")

1.- la ruta de mi archivo es c:\certificados\x.cer.pem

2.- previamente ejecute : c:\some\openssl\bin\openssl.exe x509 -inform DER -outform PEM -in aaa010101aaa_csd_01.cer -pubkey > x.cer.pm
que me genera un archivo de tamaño 1553 bytes.

que estare haciendo mal ?

de antemano muchas gracias !!