hash in VBA code geeft problemen

[allard1977]

Hallo Allemaal,

Ik heb een code geschreven en een beetje afgekeken hier en daar maar krijg nu een error 429 activex (hash error).
Wat kan het probleem zijn?

Private Sub butGet_Click()

    Dim strID As String
    strID = Hash(WMImachineSerial & vbNewLine & cstAppName)
    DoCmd.SendObject acSendNoObject, , , _
                    "allard.wagenaar@outlook.com", , , _
                    "New licence Reguest", _
                    strID
    
End Sub

Hier open outlook wel maar laat geen AppName zien en Machine serial. Als ik de hash weg haal werkt het wel.

Dit is een code met error melding:

Private Sub butActivate_Click()
    Dim strHash As String
    Dim strLix As String
    Dim strID As String
    Dim strSQL As String
    strSQL = "UPDATE tblLicence SET " _
        & "strCheckLicence = '" & Me!ActCode & "', " _
        & "strLicence = '" & Me!Lix & "' " _
        & "WHERE IDlicence = 1;"
        CurrentDb.Execute strSQL
    DoEvents
    strHash = Nz(DLookup("strCheckLicence", "tblLicence", "IDlicence = 1"), "")
    strLix = Nz(DLookup("strLicence", "tblLicence", "IDlicence = 1"), "")
    strID = Hash(WMImachineSerial & cstAppName)
    If Hash(strID & strLix) = strHash Then
        DoCmd.OpenForm "F_Logon"
        DoCmd.Close acForm, "frmStartup"
    'else
    '   leave frmStartup displayed and wait for the user
    End If
    
End Sub

Er is ook een functie die hier bij hoort:

Option Compare Database
Option Explicit

Public Function Hash(ByVal strPlainText As String) As String
    Dim obHash As Object
    On Error GoTo err_Hash
    Set obHash = CreateObject("CAPICOM.HashedData")
    obHash.Algorithm = 0
    obHash.Hash strPlainText 'was ByVal
    Hash = obHash.Value
exit_Hash:
    strPlainText = ""
    Set obHash = Nothing
    Exit Function
err_Hash:
        MsgBox Err.Number & ": " & Err.Description, vbInformation, "Hash error"
        Hash = ""
        Resume exit_Hash
End Function

Wie kan me helpen met de hash error

Mvg Allard

 

[alphamax]

De errorhandling van je code werkt perfect.
Heb je CAPICOM.dll in b.v. C:\Windows\System32 staan?
Heb je CAPICOM.dll met regsvr32 aangemeld?
Je kan CAPICOM.dll downloaden van http://www.microsoft.com/en-us/download/details.aspx?id=25281
Zie ook https://msdn.microsoft.com/en-us/library/cc778518(VS.85).aspx voor meer alternatieven

Als je een unieke code wil genereren kan je ook de tijd als basis gebruiken of google "vba generate unique id"

 

[allard1977]

Ja dat klopt errorhandeling werkt ok. Ik heb zo even veder gelezen over capicom, dit is voor 32 bit, ik heb windows 10 64 bit en office 32bit 2013. dus als ik het goed lees werk het hier niet op.
Du hoogstwaarschijnlijk zal ik mijn code opnieuw moeten schrijven!

Mvg

 

[alphamax]

Je kan ook een MD5 hash met code aanmaken in plaats van de CAPICOM active-x control, google "vba md5 hash function".

 

[allard1977]

Oke dat is een hele ander taal. Ik zal rustig gaan uit zoeken hoe ik mijn code's aan het werk kan krijgen. Dankjewel voor input.