javalos532:
con el open ssl:
$ openssl x509 -in AAA010101AAA.cer.pem -serial -noout
te da el No de certificado en Hexadecimal:
serial=3030303031303030303030303030303030313134
Hay funciones para pasar de HEX a string, con lo que al convertirlo te debe dar:
00001000000000000114 que es lo que se pone en el XML
Para convertir de hex a string en VB:
Código:
Dim DatoHex As String = "3030303031303030303030303030303030313134"
Dim Data1 As String = ""
Dim Resultado As String = ""
While DatoHex.Length > 0
Data1 = System.Convert.ToChar(System.Convert.ToUInt32(DatoHex.Substring(0, 2), 16)).ToString()
Resultado = Resultado & Data1
DatoHex = DatoHex.Substring(2, DatoHex.Length - 2)
End While
Pones los datos a convertir en "DatoHex" y te da el resultado en "Resultado"
Saludos
Oscar