Visual Basic Forum

Verfasst am: 18.06.2009, 11:59 Aufrufe: 895

Name: CheckHash Funktion: Überprüft MD5 und SHA Hashes ob sie auch nur aus Hexadezimalen Zeichen bestehen. Rückgabe: True oder FalseVisual Basic: [code]Public Function check_hash(ByVal Hash As String) As BooleanDim i As Integer, x As Long, bol As BooleanIf 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 bo ...

Verfasst am: 30.09.2008, 19:14 Aufrufe: 1380

Hab hier ein kleines snippet für euch, dass ich mir mal gebastelt hab. Vielleicht nützt es ja jemanden was. Die Funktion überprüft ob der Hash aus 32 Zeichen Hexcode besteht. Also 0-9 und a-f. Ist also eigentlich für MD5 gedacht. Was aber nicht bedeuted, dass der Hash dann nur ausschließlich ein MD5 sein kann. Auch MD2/MD4 haben 32 Zeichen (128Bit). Die Wahrscheinlichkeit ist aber sehr hoch das es MD5 ist.

Verfasst am: 08.12.2007, 21:06 Aufrufe: 2012

... ck Public Function GetFilepath(ByVal Filepath As String) As String GetFilepath = Mid$(Filepath, 1, InStrRev(Filepath, "\")) End Function GetFileExtension - Liest die Dateiendung aus Public Function GetFileExtension(ByVal Filepath As String) As String GetFileExtension = Mid$(Filepath, InStrRev(Filepath, ".")) End Function CheckHash ...