Projektbeispiel 1, H@shBOX easy! - V2.x
Das nachfolgende Projektbeispiel durchläuft im ersten Teil alle sieben Hash-Algorithmen per Standardtext. Im zweiten Teil  erfolgt eine berechnung über das H@shBOX ActiveX, welches abschließend im dritten Teil durch ein Style neu formatiert wird. Die Ergebnise werden zu Kontrollzwecken im Debugger protokolliert.
 
Private Sub Template()

    Dim szTemp as String
    Dim szFile as String
    Dim dwAlgorithmus as Long
    Dim szAlgorithmus as String
    Dim nLoop as Integer
    Dim oFSO as Object

    '- Beispiel A -

    szTemp = "Franz jagt im komplett verwahrlosten Taxi quer durch Bayern"

    For nLoop = 1 to 7

        szAlgorithmus = Choose(nLoop,
                        "MD2", _
                        "MD4", _
                        "MD5", _
                        "SHA1", _
                        "SHA256", _
                        "SHA384", _
                        "SHA512")

        dwAlgorithmus = Choose(nLoop, _
                        HASH_MD2, _
                        HASH_MD4, _
                        HASH_MD5, _
                        HASH_SHA1, _
                        HASH_SHA256, _
                        HASH_SHA384, _
                        HASH_SHA512)

        Debug.Print szAlgorithmus & ": " & HASH1.BuildHash(szTemp, dwAlgorithmus)

    Next nLoop

    '- Beispiel B: Dateiobjekt -

    szFile = Environ$("SYSTEMROOT" & "\SYSTEM32\H@SHBOX.ocx")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    If oFSO.FileExists(szFile) then
        Debug.Print szFile & ": " & HASH1.BuildHash(HASH1.ReadFILE(szFile), HASH_MD5)
    End If

    Set oFSO = Nothing

    '- Beispiel C: Style -

    Debug.Print HASH1.Style(8, "-")
    Debug.Print HASH1.Value

End Sub
 
©2011 by ProScan Elektronische Systeme, Buchholzer Weg 2, 42897 Remscheid, www.smartcardtools.de