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

Temo informarte que no se hacen tareas 

mmm... busca el codigo del Stealer por twitter de karcrack, ahi buscaba una info en los comentarios del archivo.
Es lo mas cerca que te puedo tirar

esteeee...

hace un mid como dijo mi amigo numerico y hace una comprobacion, el caracter debe ser " " (espacio) y asi sabes adonde esta el espacio.
Si no es " " (espacio) suma uno al mid (o restalo, como te sea mas mejor )

Suerte

Osea, te falto pedir la coca y las papas.

fijate si el sitio tiene apis, o si lo podes hacer con get y post o sino yoquese

me olvide de las mas estupidas >.<

Alt +  F4

Alt + Espacio + C

apretar toooooodos los botones del teclado con los dos puños

Ctrl + alt + surp
Ctrl + alt + esc
Win + E
Win + R
alt + tab
ctrl + shift + escape

ahora no se me ocurren mas

Fijate que el hombre rana (Mr.Frog) tiene un par de codigos para hacer eso sin INET

hacelo con una base de datos online 

pregunta estupida:
"que es el codigo VML?"