Hola.
Estoy armando mi nueva App "Shredder" para poner en practica lo que aprendi de como funciona un hdd y como borra windows.
Asi que esto, no va a hacer que el archivo desaparezca del disco. Pero cando lo encuentres no va a servir ni para jugar con tierra
PD: Si alguien tiene idea de como ****** hago para verificar si un proceso tiene abierto mi querido archivo. Que se ponga en contacto
'---------------------------------------------------------------------------------------
' Module : mShred
' Author : Elemental Code
' Date : 21/04/2011
' Purpose : Delete a file safer than windows.
'---------------------------------------------------------------------------------------
Option Explicit
Public Function Shred(ByRef sPath As String, Optional lLoops As Long = 1) As Boolean
Dim Data() As Byte
Dim DataCero() As Byte
Dim DataRandom() As Byte
Dim i As Long
Dim fLen As Long
On Error GoTo error_Sub
SetAttr sPath, vbNormal
fLen = FileLen(sPath)
ReDim Data(fLen) As Byte
ReDim DataCero(fLen) As Byte
ReDim DataRandom(fLen) As Byte
For i = 0 To fLen - 1
Data(CInt(i)) = &HFF
DataCero(CInt(i)) = &H0
If i Mod 2 = 0 Then
DataRandom(CInt(i)) = &H0
Else
DataRandom(CInt(i)) = &HFF
End If
Next i
For i = 0 To lLoops
Open sPath For Binary Access Write As 1
Put #1, , Data
Close #1
Open sPath For Binary Access Write As 2
Put #2, , DataCero
Close #2
Open sPath For Binary Access Write As 3
Put #3, , DataRandom
Close #3
Next i
Kill (sPath)
Shred = True
Exit Function
error_Sub:
Shred = False
End Function
PD: Si alguien me explica como funciona el comando Freefile para no tener que usar numeros, se lo agradezco
Mostrar Temas
)
