Factura electroncia sat mexico

[therealzeta]

alguien me puede ayudar a encontrar el error en mis sentencias. La verdad es que esto mas facil no puede estar, es copiar y pegar pero simplemente no me da un sello valido.

utilizo esta cadena

Dim strCadena As String = "||2.0|A|12|2010-06-16T12:03:07|1|2009|ingreso|Una sola exhibición|17000|0|19720|ISP900909Q88|Industrias del Sur Poniente, S.A. de C.V.|Alvaro Obregón|37|3|Col. Roma Norte|México|Cuauhtémoc|Distrito Federal|México|06700|Pino Suarez|23|Centro|Nuevo Léon|Monterrey|Nuevo Léon|México|95460|CAUR390312S87|Rosa María Calderón Uriegas|Topochico|52|Jardines del Valle|Monterrey|Monterrey|Nuevo León|México|95465|2|pieza|PC- GENERICA|5000|10000|1|KGS|PC- AVANZADA|7000|7000|IVA|16.00|2720|2720||"

me devuelve la digestion correcta: 66e41da54d31b94c5cc08da087b127b3

genero mi certificado:

Shell("c:\OpenSSL\bin\openssl.exe pkcs8 -inform DER -in C:\aaa010101aaa_CSD_01.key -passin pass:a0123456789 -out C:\aaa010101aaa_CSD_01.key.pem")

y luego utilizo esta comando para generar el sello

Shell("C:\OpenSSL\bin\openssl dgst -sign C:\aaa010101aaa_CSD_01.key.pem C:\md5.txt | openssl enc -base64 -A > C:\sello.txt

quisiera que me aclararan lso temrinos
el primer parametro es mi certificado, el segundo el fichero con el resultado de la digestion y luego al final el fichero que se generara con el sello.

y el resultado que obtengo es:

s3M7mxj1QE98rfaVZ7f4p/n22WeCSpZVZ1iAJ82DjOSf868toPPn7/5D4t5ArRl8fJBWbmIDxylrIubBvtp7UHV/5pzAtC1ASvM3Ex1+H3s58IGhjA9/S8Po34rECPq1aKBZnWyuvuAqJiv7v4XQb5xJp66r476TuvZf2p 4XXVw=

y asi sucesivamente con cada cadena que pruebo.

les agradeceria que me dijeran que estoy haciendo mal.