GHOSTSKIKDA 0 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] Share this post Link to post Share on other sites
GHOSTSKIKDA 0 Posted April 21, 2010 [center]I LOVE ALGERIA .... ;-)[/center] Share this post Link to post Share on other sites
enaiman 16 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 scriptwannabe "Unbeatable" Tic-Tac-ToePaper-Scissor-Rock ... try to beat it anyway :) Share this post Link to post Share on other sites
Splash 1 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: Share this post Link to post Share on other sites
logmein 3 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] Share this post Link to post Share on other sites
GHOSTSKIKDA 0 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] Share this post Link to post Share on other sites
GHOSTSKIKDA 0 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] Share this post Link to post Share on other sites
czardas 1,269 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 Share this post Link to post Share on other sites