Jump to content
Sign in to follow this  
GHOSTSKIKDA

Corrupt File

Recommended Posts

Hi, This program for Corrupt File

destruction of private and confidential files before deleting them

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Application.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Corrupt File
#AutoIt3Wrapper_Res_Description=Created by: GHOST SKIKDA
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=2010
#AutoIt3Wrapper_Res_Language=5121
://////=__=_.=
#AutoIt3Wrapper_Run_After=ResHacker.exe -add %out%, %out%, inf.jpg, rcdata, JPG_1, 0
#AutoIt3Wrapper_Run_After=upx.exe --best --compress-resources=0 "%out%"
#AutoIt3Wrapper_Tidy_Stop_onerror=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <file.au3>
#include <array.au3>
#include <resources.au3>
$Form1 = GUICreate("Corrupt File V 1.2", 515, 270, -1, -1, -1, 0x00000010)
$Tab1 = GUICtrlCreateTab(16, 56, 487, 209)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("App //")
$Group1 = GUICtrlCreateGroup("", 32, 113, 457, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Path :", 40, 137, 33, 17)
$Input1 = GUICtrlCreateInput("", 72, 134, 369, 22, $ES_READONLY);,$WS_CLIPSIBLINGS))$ES_READONLY,$ES_READONLY,
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetFont(-1, 8, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("...", 445, 132, 38, 25, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("BackUp", 72, 161, 97, 13)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 32, 185, 457, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Start", 40, 201, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("File Size", 320, 201, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Delete", 230, 201, 75, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Exit", 408, 201, 75, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("&Open", 140, 201, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("About //")
$Group3 = GUICtrlCreateGroup("", 120, 95, 249, 153)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("Name          :", 128, 120, 64, 18)
$Label3 = GUICtrlCreateLabel("Corrupt File", 198, 120, 59, 18)
$Label4 = GUICtrlCreateLabel("Version       :", 128, 144, 63, 18)
$Label5 = GUICtrlCreateLabel("1.2.0", 199, 144, 28, 18)
$Label6 = GUICtrlCreateLabel("Created       :", 128, 168, 63, 18)
$Label7 = GUICtrlCreateLabel("GHOST SKIKDA (B. Hocine)", 198, 168, 138, 18)
$Label8 = GUICtrlCreateLabel("Contact Me  :", 128, 192, 64, 18)
$Label9 = GUICtrlCreateLabel("hocin_2000frhotmail.com", 199, 192, 135, 18)
GUICtrlSetFont(-1, 8, 400, 4, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 0)
$Label10 = GUICtrlCreateLabel("Site Pro       :", 128, 216, 65, 18)
$Label11 = GUICtrlCreateLabel("http://www.dreamdz.org", 200, 216, 120, 18)
GUICtrlSetFont(-1, 8, 400, 4, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor(-1, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
$Pic1 = GUICtrlCreatePic("", 15, 2, 487, 49, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
; OR $Pic1=GUICtrlCreatePic("", 15, 2, 487, 49, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
_ResourceSetImageToCtrl($pic1, "JPG_1")

Global $gFile, $gPath
Dim $szDrive, $szDir, $szFName, $szExt
_Check()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $gPath = FileOpenDialog("Open File", @ScriptDir & "", "All Files (*.*)", 2)
            If $gPath <> "" Then
                $TestPath = _PathSplit($gPath, $szDrive, $szDir, $szFName, $szExt)
                _NTFS($szDrive)
            Else
                _Control()
                _Check()
            EndIf
        Case $Button2
            If FileExists(GUICtrlRead($Input1)) Then
                If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
                    DirCreate("BackUp")
                    FileCopy($gPath, $szDrive & $szDir & "\BackUp\"&$szFName & $szExt & ".bak")
                Else
                EndIf
                _RunDOS("fsutil file  setzerodata" & " " & "offset=0 length=1" & " " & '"' & GUICtrlRead($Input1) & '"'); length=15000000
                MsgBox(64, "Info", "Complete !")
            Else
                MsgBox(16, "Error ! ", "This file does not exist !")
                GUICtrlSetState($Button2, $GUI_DISABLE)
                GUICtrlSetState($Button3, $GUI_DISABLE)
                GUICtrlSetState($Button4, $GUI_DISABLE)
                GUICtrlSetState($Button6, $GUI_DISABLE)
                GUICtrlSetState($Checkbox1, $GUI_DISABLE)
                GUICtrlSetData($Input1, "")
            EndIf
        Case $Button3
            If FileGetSize(GUICtrlRead($Input1)) > 1024 Then
                $gFile = FileGetSize(GUICtrlRead($Input1)) / 1024
                MsgBox(64, "Info File", "File  Size : " & $gFile & " kb")
            Else
                $gPath = FileGetSize(GUICtrlRead($Input1))
                MsgBox(64, "Info File", "File  Size : " & $gPath & " b")
            EndIf
        Case $Button4
            If FileExists(GUICtrlRead($Input1)) Then
                If MsgBox(33, "Warning ! ", "Do you want to delete the file : " & GUICtrlRead($Input1) & "  ?") = 1 Then
                    FileDelete(GUICtrlRead($Input1))
                    MsgBox(64, "Deleted", "Thank you :)")
                    _Control()
                    _Check()
                Else
                EndIf
            Else
                MsgBox(16, "Error ! ", "This file does not exist !")
            EndIf
        Case $Button5
            Exit
        Case $Button6
            ShellExecute(GUICtrlRead($Input1))
        Case $Label9
            ShellExecute("MAILTO: hocin_2000fr@hotmail.com")
        Case $Label11
            ShellExecute("www.dreamdz.org")
    EndSwitch
WEnd

;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Func _NTFS($gFile)
    $var = DriveGetFileSystem($gFile)
    If $var <> "NTFS" Then
        MsgBox(16, "Error", "This Drive " & '"' & $szDrive & '"' & " is not NTFS  " & @CRLF & $szDrive & " " & $var)
        GUICtrlSetData($Input1, "")
        GUICtrlSetState($Button2, $GUI_DISABLE)
        GUICtrlSetState($Button3, $GUI_DISABLE)
        GUICtrlSetState($Button4, $GUI_DISABLE)
        GUICtrlSetState($Button6, $GUI_DISABLE)
        GUICtrlSetState($Checkbox1, $GUI_DISABLE)
    Else
        GUICtrlSetState($Button2, $GUI_ENABLE)
        GUICtrlSetState($Button3, $GUI_ENABLE)
        GUICtrlSetState($Button4, $GUI_ENABLE)
        GUICtrlSetState($Button6, $GUI_ENABLE)
        GUICtrlSetState($Checkbox1, $GUI_ENABLE)
        GUICtrlSetData($Input1, $gPath)
    EndIf
EndFunc   ;==>_NTFS

Func _Check()
    If GUICtrlRead($Input1) = "" Then
        GUICtrlSetState($Button2, $GUI_DISABLE)
        GUICtrlSetState($Button3, $GUI_DISABLE)
        GUICtrlSetState($Button4, $GUI_DISABLE)
        GUICtrlSetState($Button6, $GUI_DISABLE)
        GUICtrlSetState($Checkbox1, $GUI_DISABLE)
    Else
        GUICtrlSetState($Button2, $GUI_ENABLE)
        GUICtrlSetState($Button3, $GUI_ENABLE)
        GUICtrlSetState($Button4, $GUI_ENABLE)
        GUICtrlSetState($Button6, $GUI_ENABLE)
        GUICtrlSetState($Checkbox1, $GUI_ENABLE)
    EndIf
EndFunc   ;==>_Check

Func _Control()
    GUICtrlSetData($Input1, "")
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
EndFunc   ;==>_Control

;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Posted Image

Good Luck

ghostskikda.zip


[center]I LOVE ALGERIA .... ;-)[/center]

Share this post


Link to post
Share on other sites

My opinion: 5 stars with 0 replies for a script which uses "fsutil"? is way too over-rated (if those 5 stars are "legit").

1 star from me (normally I wouldn't rate it even 1 star but I do it to lower the rating).

Seriously, sometimes there are ridiculous ratings. :idea:


SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script

wannabe "Unbeatable" Tic-Tac-Toe

Paper-Scissor-Rock ... try to beat it anyway :)

Share this post


Link to post
Share on other sites

If FileExists(GUICtrlRead($Input1)) Then
                If MsgBox(33, "Warning ! ", "Do you want to delete the file : " & GUICtrlRead($Input1) & "  ?") = 1 Then
                    FileDelete(GUICtrlRead($Input1))
                    MsgBox(64, "Deleted", "Thank you :)")
                    _Control()
                    _Check()

It's not safe delete.

Did you see this

[center]I LOVE ALGERIA .... ;-)[/center]

Share this post


Link to post
Share on other sites

If MsgBox(33, "Warning ! ", "Do you want to delete the file : " & GUICtrlRead($Input1) & "  ?") = 1 Then

Did you see this?

There is no safe. It's only "FileDelete".

This program isn't helpful! 1 star from me. :idea:

Thank you for 1 Star :)


[center]I LOVE ALGERIA .... ;-)[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...