Ver Mensaje Individual
  #3 (permalink)  
Antiguo 13/10/2011, 16:35
Avatar de MardanCorp
MardanCorp
 
Fecha de Ingreso: octubre-2011
Mensajes: 7
Antigüedad: 10 años, 9 meses
Puntos: 2
Respuesta: Facturación electrónica 2011. Codigo vb.net 2008

process5.Start() 'iniciamos el proceso

process5.WaitForExit() 'le decimos q se espere el proceso
Dim CertificadoCadena As String 'creamos una varaible q almacenara el resultado encriptado
CertificadoCadena = process5.StandardOutput.ReadToEnd
CertificadoCadena = Mid(CertificadoCadena, 28)
'quitamos los guiones
Dim RespCertificadoCadena As String = ""
For i As Integer = 0 To CertificadoCadena.Length - 1
If CertificadoCadena.Chars(i) <> "-" Then
RespCertificadoCadena = RespCertificadoCadena & CertificadoCadena.Chars(i)
Else
Exit For
End If
Next


'OBTENEMOS EL NUMERO DE NO. DE CERTIFICADO
'C:\OpenSSL\bin>openssl.exe x509 -in D:\Cer_Sellos\aaa010101aaa_CSD_01.cer.pem -serial
Dim process6 As New Process
process6.StartInfo.WindowStyle = ProcessWindowStyle.Minimized
process6.StartInfo.FileName = "C:\OpenSSL\bin\openssl.exe" 'le ponemos el nombre del archivo q hara la encriptacion (la ruta del openssl.exe)
process6.StartInfo.Arguments = " x509 -in D:\Cer_Sellos\aaa010101aaa_CSD_01.cer.pem -serial " 'le madamos solo un parametro.
process6.StartInfo.WorkingDirectory = "C:\OpenSSL\bin" 'esto es para poner el direcctorio inicial en el q iniciara el proceso
process6.StartInfo.UseShellExecute = False 'esto es para decirle q no usaremos el shell del sistema operativo
process6.StartInfo.ErrorDialog = False 'esto es para omitir cualquier mensaje de error del proceso a ejecutar
process6.StartInfo.RedirectStandardOutput = True 'esto es para decirle q vamos a escribir (o utiliar) el resultado de la secuencia (o sea el resultado encriptado)

process6.Start() 'iniciamos el proceso

process6.WaitForExit() 'le decimos q se espere el proceso
Dim NoCertificado As String 'creamos una varaible q almacenara el resultado NoCertificado (el string completo)
NoCertificado = Mid(process6.StandardOutput.ReadToEnd, 8)

Dim NoCertificadoR As String = ""
'le aplicamos el ciclo estraemos solo las pociciones pares
For i As Integer = 0 To NoCertificado.Length - 1
If NoCertificado(i) <> "-" Then
If ((i + 1) Mod 2) = 0 Then
NoCertificadoR = NoCertificadoR & NoCertificado(i)
End If
Else
Exit For
End If
Next



'NO TE DESESPERES AUN CONTINUA EL POST!!! MAS ABAJO, SIGUE LA PARTE EN EL Q SE ARMA EL XML ;)