Jump to content

Corrupt File

GHOSTSKIKDA

By GHOSTSKIKDA,
in AutoIt Example Scripts

 Share

Recommended Posts

GHOSTSKIKDA Wayfarer

GHOSTSKIKDA

Posted
Posted

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]
Link to comment
Share on other sites
enaiman Universalist

enaiman

Posted
Posted

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 :)

Link to comment
Share on other sites
GHOSTSKIKDA Wayfarer

GHOSTSKIKDA

Posted
  • Author
Posted 

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]
Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...