SELLO 2048bits

Para quienes programan Visual Basic aqui esta la solucion
[[ FORO CERRADO DEBIDO A QUE YA LA INFORMACION YA NO ES VIGENTE ]]
huhuhu101
Mensajes: 1
Registrado: Vie Abr 29, 2016 4:32 pm

SELLO 2048bits

Mensajepor huhuhu101 » Vie Abr 29, 2016 4:38 pm

Hola AMigos,

Al generar el sello del xml y validarla, me dice que el el sello es invalido, esto comenzo para los .cer de 2048bits.

Les dejo mi codigo y espero me pueden ayudar..saludos....

Private Function GenerarSello() As String
Dim pkey As New privateKey
Dim success As Long
Dim pkeyXml As String
Dim rsa As New ChilkatRsa


tConf.MoveFirst
tPaises.Index = "Clave"
tPaises.Seek "=", tConf!Pais
If Not tPaises.NoMatch Then
pkey.LoadPkcs8EncryptedFile tPaises!Key, tPaises!ClaveCer
End If

pkeyXml = pkey.GetXml()

success = rsa.UnlockComponent(CK_KEY)
If (success <> 1) Then
Debug.Print rsa.LastErrorText & vbCrLf
Exit Function
End If

success = rsa.GenerateKey(2048)

If (success <> 1) Then
Debug.Print rsa.LastErrorText & vbCrLf
Form1.Text1.Text = rsa.LastErrorText
MsgBox rsa.LastErrorText
Exit Function
End If



success = rsa.ImportPrivateKey(pkeyXml)
If (success <> 1) Then
Debug.Print rsa.LastErrorText & vbCrLf
MsgBox rsa.LastErrorText
Exit Function
End If

rsa.Charset = "utf-8"
rsa.EncodingMode = "base64"

rsa.LittleEndian = 0

Dim base64Sig As String

base64Sig = rsa.SignStringENC(GetCadenaOriginal(m_xmlDOM), "sha-1")

GenerarSello = base64Sig

End Function

Avatar de Usuario
Dado
Mensajes: 15824
Registrado: Mar Jul 06, 2010 8:56 pm

Re: SELLO 2048bits

Mensajepor Dado » Vie Abr 29, 2016 4:46 pm

Código: Seleccionar todo

base64Sig = rsa.SignStringENC(GetCadenaOriginal(m_xmlDOM), "sha-1")

cambialo por sha-2 y vuelve a intentarlo

Código: Seleccionar todo

base64Sig = rsa.SignStringENC(GetCadenaOriginal(m_xmlDOM), "sha-2")
ADDENDAS? VALIDACION? CODIGO PARA PROGRAMAR TU PROPIA SOLUCION? TODO LO TENEMOS EN WWW.VALIDACFD.COM VISITANOS !!


Volver a “Visual Basic”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados