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]
Registrieren
Login
