Hallo, ich habe mal eine frage an diejenigen die sich mit intensiver Datenwiederherstellung auskennen. Unter "Dateien sicher löschen" versteht man ja das diese Dateien mehrfach überschrieben und darauffolgend gelöscht werden. Dies nun Theoretisch in VB umzusetzen ist nicht schwer, bei mir sieht die Funktion folgend aus:
Meine Frage nun: Ist diese Methode wirklich sicher und ist diese Funktion bzw. dieses vorgehen so korrekt? Funktionieren tut es, da ich es mit der Wiederherstellungssoftware Recuva getestet habe, Recuva konnte die Originaldatei nicht wiederherstellen. Recuva ist allerdings eine einfache Anwendung und nicht mit der Profianwendungen die z.b. Behörden oder Geheimdienste zu vergleichen. Hat jemand in diesem Bereich erfahrungen?
MfG Mr. Johny
VB.NET-Quellcode
- Public Function SafeEraser(ByVal filepath As String, ByVal repeat As Integer, ByVal delete As Boolean)
- Dim r As New Random
- Dim sb As New StringBuilder
- Dim abc = "abcdefghijklmnopqrstuvwxyz"
- Try
- For i = 0 To repeat
- Dim idx As Integer = r.Next(0, abc.Length)
- Dim filesize As New FileInfo(filepath)
- Dim fsize = CInt(Int(filesize.Length))
- Dim fstream As New StreamWriter(filepath)
- sb.Append(abc.Substring(idx, 1))
- For o = 0 To CInt(fsize)
- fstream.Write(sb.ToString)
- Next
- sb.Clear()
- fstream.Close()
- Next
- Catch ex As Exception
- End Try
- Try
- If delete = True Then
- File.Delete(filepath)
- Else
- End If
- Catch ex As Exception
- MsgBox("File could not be deleted: " & ErrorToString(), MsgBoxStyle.Critical)
- End Try
- End Function
Meine Frage nun: Ist diese Methode wirklich sicher und ist diese Funktion bzw. dieses vorgehen so korrekt? Funktionieren tut es, da ich es mit der Wiederherstellungssoftware Recuva getestet habe, Recuva konnte die Originaldatei nicht wiederherstellen. Recuva ist allerdings eine einfache Anwendung und nicht mit der Profianwendungen die z.b. Behörden oder Geheimdienste zu vergleichen. Hat jemand in diesem Bereich erfahrungen?
MfG Mr. Johny