Obtención del Sello Digital

[alecks]

Que tal,

Tengo problemas en generar el Sello Digital para VB.Net. Tengo una función que obtuve de este foro

Function ObtenerSelloDigital(CadenaOriginal As String, rutaLlavePrivada As String, password As String) As String
Dim selloDigital As String = ""
Dim passwordSeguro As New SecureString()
passwordSeguro.Clear()
For Each c As Char In password.ToCharArray()
passwordSeguro.AppendChar(c)
Next

Try
Dim llavePrivadaBytes As Byte() = System.IO.File.ReadAllBytes(rutaLlavePrivada)
Dim rsa As RSACryptoServiceProvider = opensslkey.DecodeEncryptedPrivateKeyInfo(llavePrivadaBytes, passwordSeguro)
Dim hasher As New SHA1CryptoServiceProvider()
Dim bytesFirmados As Byte() = rsa.SignData(System.Text.Encoding.UTF8.GetBytes(CadenaOriginal), hasher)
selloDigital = Convert.ToBase64String(bytesFirmados)
Catch ex As Exception
Console.Write(ex.Message)
End Try

Return selloDigital
End Function


Mi PAC es Timbre Fiscal y me aparece que el sello no es valido.

Les agradecería su valioso apoyo,

Saludos!

[jasistemas]

Deberias postear la cadena original que envias desde tu código y también la cadena original generada desde el validador ValidaCFD o desde el validador del SAT, es probable que estes armando mal tu cadena original

[alecks]

Buenos días,

Mando la cadena original y el resultado del sistema.

Cadena Original: ||3.2|2013-10-31T09:19:02-06:00|ingreso|Pago en una sola exhibi
cion|310|359.6|Tarjeta|Manzanillo, Colima|2345|TOE0711151X9|Empresa demo|Venusti
ano Carranza|1660|Obispado|Monterrey|Nuevo Leon|Mexico|64000|PERSONA FISCA|CLI01
0101DEM|Cliente demo|Fresno|234|Jardines del Valle|Zapopan|Jalisco|Mexico|45138|
40|bolsa|Papa Sabritas|6|240|70|cajas|Pepsi Max 600ml|1|70|IVA|160.00|49.6||

OK Esquema valido
OK El certificado no contiene una llave privada
OK Numero de certificado
System.Web.Services.Protocols.SoapException: El sello del comprobante no es válido

Saludos!

[jasistemas]

Esto que es la fecha-hora en que formato esta?
2013-10-31T09:19:02-06:00
pareciera estar incorrecto eso del guion no??? como generaste tu cadena original? con el archivo de transformación cadenaOriginal_3_2.xslt (se aprecia que hablamos de un CFD-I cierto?) o la creaste manualmente concatenando campo tras campo (nada recomendable)

[Dado]

Esto que es la fecha-hora en que formato esta?
2013-10-31T09:19:02-06:00
pareciera estar incorrecto eso del guion no??? como generaste tu cadena original? con el archivo de transformación cadenaOriginal_3_2.xslt (se aprecia que hablamos de un CFD-I cierto?) o la creaste manualmente concatenando campo tras campo (nada recomendable)

Esta en formato yyyy-mm-ddThh:mm:ss-z

en donde -z es la ZONA HORARIA y SI es parte del estandar para describir una fecha/hora solo que en el Anexo 20 no consideraron esa parte

[alecks]

Buenos días,

OK Esquema valido
OK El certificado no contiene una llave privada
OK Numero de certificado
System.Web.Services.Protocols.SoapException: El sello del comprobante no es váli
do |cadena original ||3.2|2013-10-31T11:14:18|ingreso|Pago en una sola exhibicio
n|310|359.6|Tarjeta|Manzanillo, Colima|2345|TOE0711151X9|Empresa demo|Venustiano
Carranza|1660|Obispado|Monterrey|Nuevo Leon|Mexico|64000|PERSONA FISCA|CLI01010
1DEM|Cliente demo|Fresno|234|Jardines del Valle|Zapopan|Jalisco|Mexico|45138|40|
bolsa|Papa Sabritas|6|240|70|cajas|Pepsi Max 600ml|1|70|IVA|160.00|49.6||
en System.Web.Services.Protocols.SoapHttpClientProtocol.ReadResponse(SoapClie
ntMessage message, WebResponse response, Stream responseStream, Boolean asyncCal
l)
en System.Web.Services.Protocols.SoapHttpClientProtocol.Invoke(String methodN
ame, Object[] parameters)
en ConsoleApplication2.com.buzonfiscal.demotf.TimbradoCFDI.timbradoCFD(Reques
tTimbradoCFDType RequestTimbradoCFD) en C:\Users\user\Desktop\Cliente SWBF VB\We
b References\com.buzonfiscal.demotf\Reference.vb:línea 80
en ConsoleApplication2.Module2.Timbra() en C:\Users\user\Desktop\Cliente SWBF
VB\Module2.vb:línea 367

La fecha la cambié y me sigue apareciendo el error. :/

[alecks]

Por cierto, si estoy usando el archivo cadenaOriginal_3_2.xslt.

Saludos!

[gatubela]

Que tal,

Tengo problemas en generar el Sello Digital para VB.Net. Tengo una función que obtuve de este foro

Function ObtenerSelloDigital(CadenaOriginal As String, rutaLlavePrivada As String, password As String) As String
Dim selloDigital As String = ""
Dim passwordSeguro As New SecureString()
passwordSeguro.Clear()
For Each c As Char In password.ToCharArray()
passwordSeguro.AppendChar(c)
Next

Try
Dim llavePrivadaBytes As Byte() = System.IO.File.ReadAllBytes(rutaLlavePrivada)
Dim rsa As RSACryptoServiceProvider = opensslkey.DecodeEncryptedPrivateKeyInfo(llavePrivadaBytes, passwordSeguro)
Dim hasher As New SHA1CryptoServiceProvider()
Dim bytesFirmados As Byte() = rsa.SignData(System.Text.Encoding.UTF8.GetBytes(CadenaOriginal), hasher)
selloDigital = Convert.ToBase64String(bytesFirmados)
Catch ex As Exception
Console.Write(ex.Message)
End Try

Return selloDigital
End Function


Mi PAC es Timbre Fiscal y me aparece que el sello no es valido.

Les agradecería su valioso apoyo,

Saludos!

Hola alecks,
Podrias ayudarme con la libreria en vb.net de opensslkey o como lo hago? no se como implementarla.
Agradezco tu apoyo!

[crono81]

No se si tiene que ver, pero parece haber un error, en el traslado del iva, en la tasa, le tienes 160.00