Sign in to follow this  
Followers 0
GHOSTSKIKDA

Corrupt File

8 posts in this topic

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



:idea:

:)


[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

What people are saying is that the deleted files can be easily recovered. FileDelete should not be used for the destruction of private and confidential files. Nice screenshot though!

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  
Followers 0