Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: CheckHash
Funktion: Überprüft MD5 und SHA Hashes ob sie auch nur aus Hexadezimalen Zeichen bestehen.
Rückgabe: True oder False

Visual Basic: [code]Public Function check_hash(ByVal Hash As String) As Boolean
Dim i As Integer, x As Long, bol As Boolean
If Len(Hash) = 32 Or Len(Hash) = 40 Then
For i = 1 To Len(Hash)
x = Asc(Mid$(Hash, i, 1))
Select Case (x)
Case 48 To 57
bol = True
Case 97 To 102
bol = True
Case Else
bol = False
Exit For
End Select
Next i
Else
bol = False
End If
check_hash = bol
End Function[/code]
_________________