HEY
ich hab ne liste mit pfaden zu verschiedenen dateien, und will davon hash werte haben, der erste funktioniert ja noch, aba bei den anderen kommt da immer "illegales zeichen im pfad"
code:
Spoiler anzeigen
plz help me
ich hab ne liste mit pfaden zu verschiedenen dateien, und will davon hash werte haben, der erste funktioniert ja noch, aba bei den anderen kommt da immer "illegales zeichen im pfad"
code:
VB.NET-Quellcode
- Public Function MD5FileHash(ByVal sFile As String) As String
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Hash As Byte()
- Dim Result As String = ""
- Dim Tmp As String = ""
- Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
- MD5.ComputeHash(FN)
- FN.Close()
- Hash = MD5.Hash
- For i As Integer = 0 To Hash.Length - 1
- Tmp = Hex(Hash(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Result += Tmp
- Next
- Return Result
- End Function
- Dim splitted As String() = filelist.Split(CChar(vbNewLine))
- Dim splitcount As Integer = splitted.Count
- Dim counter As Integer = "0"
- Dim lolo As String
- For i = 0 To splitcount
- Try
- If filehash = "" Then
- filehash = MD5FileHash(splitted(counter)).ToLower
- Else
- filehash = filehash + vbNewLine + MD5FileHash(splitted(counter)).ToLower
- End If
- If newfilelist = "" Then
- newfilelist = splitted(counter)
- Else
- newfilelist = newfilelist + vbNewLine + splitted(counter)
- End If
- counter = Val(counter) + Val("1")
- lolo = counter
- Catch ex As Exception
- TextBox1.Text &= vbNewLine + ex.Message
- End Try
- Next i
- Try
- MkDir("Hashes")
- Catch ex As Exception
- End Try
- Using fw As New System.IO.StreamWriter("Hashes\hashs.txt")
- fw.WriteLine(filehash)
- End Using
- Using fw As New System.IO.StreamWriter("Hashes\filelist.txt")
- fw.WriteLine(newfilelist)
- End Using
- MsgBox("finish")
plz help me
Wer Rechtschreibfehler findet darf sie behalten