Factura electroncia sat mexico

[avanx777]

BUENAS TARDES A TODOS HE LEIDO TODO ESTO DE LA FACTURA ELECTRONICA Y SOLO POR AFICION HE ESTADO MODIFICANDO ALGUNOS CODIGOS PERO TENGO DUDAS EN ALGUNOS RESULTADOS LE DEJO ESTE CODIGO QUE MODIFIQUE PARA QUE SI GUSTAN LO PUEDAN PROBAR NO SE SI SIRVA MUCHO PERO LO DEJO...


Dim objCert As New X509Certificate2("C:\Users\LapTop\Documents\Visual Studio 2010\Projects\Factu_H\Factu_H\bin\Debug\db\G.I\CER TIFICADO\NUEVO\00001000000101856477.cer")
Dim objSB As Text.StringBuilder = New Text.StringBuilder("Detalle del certificado:")
Dim RESULT() As String
Dim CADENAENTIDAD As String = objCert.Issuer.ToString
Dim CADENAASUNTO As String = objCert.Subject.ToString
Dim charSeparators() As Char = {","}

Console.WriteLine(objSB.ToString())
Console.WriteLine(" ", "\n")

RESULT = CADENAENTIDAD.Split(charSeparators, StringSplitOptions.RemoveEmptyEntries)
Show(RESULT)

RESULT = CADENAASUNTO.Split(charSeparators, StringSplitOptions.RemoveEmptyEntries)
Show(RESULT)

Console.WriteLine("Válido desde = " + objCert.NotBefore.ToString(), "\n")
Console.WriteLine("Válido hasta = " + objCert.NotAfter.ToString(), "\n")
Console.WriteLine(" ", "\n")
Console.WriteLine("Tamaño de la clave = " + objCert.PublicKey.Key.KeySize.ToString(), "\n")
Console.WriteLine(" ", "\n")
Console.WriteLine("Número de serie = " + objCert.SerialNumber, "\n")
Console.WriteLine("Hash = " + objCert.Thumbprint, "\n")
Console.WriteLine(" ", "\n")

Dim DatoHex As String = objCert.SerialNumber
Dim Data1 As String = ""
Dim Resultado As String = ""

While DatoHex.Length > 0

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

Console.WriteLine("Certificado = " + Resultado)
Console.WriteLine(" ", "\n")

Console.WriteLine("Extensiones:", "\n")
For Each objExt In objCert.Extensions
Console.WriteLine(objExt.Oid.FriendlyName & " (" & objExt.Oid.Value & ")")
If (objExt.Oid.FriendlyName = "Key Usage") Then
'Dim ext As X509KeyUsageExtension = objExt
'Console.WriteLine(" " + ext.KeyUsages)
End If
If (objExt.Oid.FriendlyName = "Basic Constraints") Then
'Dim ext2 As X509BasicConstraintsExtension = objExt
'Console.WriteLine(" " + ext2.CertificateAuthority)
'Console.WriteLine(" " + ext2.HasPathLengthConstraint)
'Console.WriteLine(" " + ext2.PathLengthConstraint)
End If
If (objExt.Oid.FriendlyName = "Subject Key Identifier") Then
'Dim ext3 As X509SubjectKeyIdentifierExtension = objExt
'Console.WriteLine(" " + ext3.SubjectKeyIdentifier)
End If
If (objExt.Oid.FriendlyName = "Enhanced Key Usage") Then '//2.5.29.37
'Dim ext4 As X509EnhancedKeyUsageExtension = objExt
'Dim objOids As OidCollection = ext4.EnhancedKeyUsages
'For Each Oid In objOids
' Console.WriteLine(" " & Oid.FriendlyName & " (" + Oid.Value & ")")
'Next
End If
Next
Console.ReadKey()
End Sub

Public Sub Show(ByVal entries() As String)
Dim entry As String
For Each entry In entries
Console.Write("<{0}>", Trim(entry))
Console.Write(vbCrLf)
Next entry
Console.Write(vbCrLf & vbCrLf)
End Sub

OID.1.2.840.113549.1.9.2=
L=
S=
C=
PostalCode=
STREET=
E=
O=
CN=
OU=
SERIALNUMBER=
OID.2.5.4.45=
O=
OID.2.5.4.41=
CN=

ALGUIEN DE USTEDES SABE EXACTAMENTE QUE ES CADA UNA DE ESTAS ETIQUETAS GRACIAS

JAJAJAJAJA POR CIERTO SOLO LO HAGO POR AFICION Y YA ME INTRIGO EL TEMA MUCHAS GRACIAS A TODOS...