dsa o similar?

[s E t H]

quiero firmar un archivo (no hace falta que sea con vb, puede ser con gpg u otro mientras que funcione), que mi programa lo baje (esto ya lo hice) y que compruebe si la firma es válida

alguno tiene el código?

PD: si, ya googlee y no encontre nada para vb6

[XcryptOR]

mira sEtH no se si esto te pueda ayudar hace uso del componente chilkatcrypt

puedes descargar el componente desde Aqui, segun lo que lei crea y verifica una firma digital

Código (vb) [Seleccionar] Expandir

Dim crypt As New ChilkatCrypt2
    crypt.UnlockComponent "test"

    ' Select a digital certificate for signing.
    Dim StoreCreator As ChilkatCreateCS
    Set StoreCreator = New ChilkatCreateCS
   
    ' Create a certificate store object representing the registry-based
    ' current user certificate store.
    Dim certStore As ChilkatCertStore
    Set certStore = StoreCreator.OpenCurrentUserStore()
   
    ' Find a certificate matching an email address.
    Dim cert As ChilkatCert
    Set cert = certStore.FindCertBySubjectE("test@chilkatsoft.com")
    If (cert Is Nothing) Then
        MsgBox "Certificate not found!"
        Exit Sub
    End If
       
    ' Use this certificate.
    crypt.SetSigningCert cert
   
    Dim fileData As Variant
    Dim sigData As Variant
   
    fileData = crypt.ReadFile("sample.pdf")
    If IsNull(fileData) Then
        MsgBox crypt.LastErrorText
        Exit Sub
    End If
   
    sigData = crypt.SignBytes(fileData)
    If IsNull(sigData) Then
        MsgBox crypt.LastErrorText
        Exit Sub
    End If
   
    success = crypt.WriteFile("signature.dat", sigData)
    If (success = 0) Then
        MsgBox crypt.LastErrorText
    End If
   
    MsgBox "OK!"
   
    ' Now verify it...
    Dim sigData2 As Variant
   
    sigData2 = crypt.ReadFile("signature.dat")
    If IsNull(sigData2) Then
        MsgBox crypt.LastErrorText
        Exit Sub
    End If
   
    sigOK = crypt.VerifyBytes(fileData, sigData2)
    If (sigOK = 1) Then
        MsgBox "Signature is valid, the file is unchanged."
    Else
        MsgBox "Invalid signature, the file may have been altered."
    End If

[s E t H]

ya lo habia visto, pero es un demo por 30 dias asi que no me sirve

[byway]

talvez esto sea loque buscas:
link