Problemas con seello
Publicado: Mié Mar 12, 2014 3:43 pm
Buenas tardes, alguien que me pueda ayudar, he sellado mi factura y hoy por ejemplo en la mañana el validador del SAT me dio "SELLO CFDI VALIDO", pero hoy en la tarde solo cambie la fecha de mi factura de ejemplo, me ha dado como "SELLO CFDI NO VALIDO", ¿porque sucede esto? Ha alguien le ha pasado?, el sello lo genero de la siguiente manera:
Function generarSelloDigital(ByVal strCadenaOriginal As String) As String
'Declara las variables que indicarán las rutas de los archivos
'que contendran temporalmente la cadena original, la llave
'privada en formato PEM, y el sello digital respectivamente.
'Así como la ruta de la llave privada en formato KEY.
Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
Dim pathCadenaOriginal As String = "C:\certificado\cadena.original"
Dim pathLlaveFormatoPem As String = "C:\certificado\Archivo.key.pem"
'"C:\certificadoPAX\DemoPAX.key.pem"
Dim pathSelloDigital As String = "C:\certificado\sello.digital"
File.WriteAllText(pathCadenaOriginal, strCadenaOriginal, utf8WithoutBom)
Dim WSHShell As Object
WSHShell = CreateObject("WScript.Shell")
WSHShell.run("cmd /c type " & pathCadenaOriginal &
" | C:\OpenSSL-Win32\bin\openssl dgst -sha1 -sign " & pathLlaveFormatoPem &
" | C:\OpenSSL-Win32\bin\openssl enc -base64 -A -out " & pathSelloDigital, vbHide)
' " | C:\OpenSSL-Win32\bin\openssl enc -base64 -A -out " & pathSelloDigital, vbHide)
'openssl dgst -sha1 -sign LLAVEPRIVADA.pem.txt -out SelloBin.txt "CADENA PASO 3 (codificada en UTF8).txt"
'openssl enc -base64 -in SelloBin.txt -out Sello.txt
'Se coloca el sello digital en una variable.
Dim resultado As String = File.ReadAllText(pathSelloDigital)
Return resultado
End Function 'generarSelloDigital
Alguna idea del problema?
Function generarSelloDigital(ByVal strCadenaOriginal As String) As String
'Declara las variables que indicarán las rutas de los archivos
'que contendran temporalmente la cadena original, la llave
'privada en formato PEM, y el sello digital respectivamente.
'Así como la ruta de la llave privada en formato KEY.
Dim utf8WithoutBom As New System.Text.UTF8Encoding(False)
Dim pathCadenaOriginal As String = "C:\certificado\cadena.original"
Dim pathLlaveFormatoPem As String = "C:\certificado\Archivo.key.pem"
'"C:\certificadoPAX\DemoPAX.key.pem"
Dim pathSelloDigital As String = "C:\certificado\sello.digital"
File.WriteAllText(pathCadenaOriginal, strCadenaOriginal, utf8WithoutBom)
Dim WSHShell As Object
WSHShell = CreateObject("WScript.Shell")
WSHShell.run("cmd /c type " & pathCadenaOriginal &
" | C:\OpenSSL-Win32\bin\openssl dgst -sha1 -sign " & pathLlaveFormatoPem &
" | C:\OpenSSL-Win32\bin\openssl enc -base64 -A -out " & pathSelloDigital, vbHide)
' " | C:\OpenSSL-Win32\bin\openssl enc -base64 -A -out " & pathSelloDigital, vbHide)
'openssl dgst -sha1 -sign LLAVEPRIVADA.pem.txt -out SelloBin.txt "CADENA PASO 3 (codificada en UTF8).txt"
'openssl enc -base64 -in SelloBin.txt -out Sello.txt
'Se coloca el sello digital en una variable.
Dim resultado As String = File.ReadAllText(pathSelloDigital)
Return resultado
End Function 'generarSelloDigital
Alguna idea del problema?