GHOSTSKIKDA Posted April 21, 2010 Share Posted April 21, 2010 Hi, This program for Corrupt Filedestruction of private and confidential files before deleting themexpandcollapse popup#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 ;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Good Luckghostskikda.zip [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted April 21, 2010 Author Share Posted April 21, 2010 [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
enaiman Posted April 21, 2010 Share Posted April 21, 2010 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. 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 More sharing options...
Splash Posted April 22, 2010 Share Posted April 22, 2010 It's not safe delete. Automatic Update UDF - IP Address UDF - WinPcap AutoIt _FindDevice()[font="Verdana"][size="2"]AutoIt Spanish/Brasil/World community!!![/size][/font]Use you wanna a dot.tk domain please use my link: Link to comment Share on other sites More sharing options...
logmein Posted April 22, 2010 Share Posted April 22, 2010 There is no safe. It's only "FileDelete". This program isn't helpful! 1 star from me. [font=arial, helvetica, sans-serif][s]Total USB Security 3.0 Beta[/s] | [s]Malware Kill[/s] | Malware Scanner | Screen Hider | Locker | Matrix Generator[s]AUTO-SYNC 1.0 | MD5 Hash Generator | URL Checker | Tube Take [/s]| Random Text[/font] Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted April 22, 2010 Author Share Posted April 22, 2010 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 More sharing options...
GHOSTSKIKDA Posted April 22, 2010 Author Share Posted April 22, 2010 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. Thank you for 1 Star [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
czardas Posted April 22, 2010 Share Posted April 22, 2010 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! operator64 ArrayWorkshop Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now