Tutorial

Using mdTypes [EN]

von

Seite 6 von 12

Security:
- md/security/mdMessageDigest

With mdMessageDigest you can calculate MD5, SHA-1 and SHA-512 values for any String and even whole files:

#Include Once "md/security/mdMessageDigest.bi"



Dim As String result

Dim As String text = "Franz jagt im komplett verwahrlosten Taxi quer durch Bayern"



Dim As mdMessageDigest m = mdMessageDigest.getInstance("MD5") '"SHA-1" and "SHA-512" are also possible

m.update(text)

result = m.digest()

If UCase(result) = UCase("a3cca2b2aa1e3b5b3b5aad99a8529074") Then

    Print "Digest Test 1: yeah"

Else

    Print "Digest Test 1: nooo"

EndIf



'or



Dim As mdMessageDigest m1 = mdMessageDigest.getInstance("MD5")

result = m1.createHash(text)

If UCase(result) = UCase("a3cca2b2aa1e3b5b3b5aad99a8529074") Then

    Print "Result Test 1: yeah"

Else

    Print "Result Test 1: nooo"

EndIf



Sleep

Note that this code will only work in FreeBASIC >= 0.91 because of a bug with FreeBASICs Hex function.

Gehe zu Seite 1 2 3 4 5 6 7 8 9 10 11 12

Zusätzliche Informationen und Funktionen

Das Tutorial wurde am 17.04.2014 von MOD angelegt.
Die aktuellste Version wurde am 31.07.2019 von MOD gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.