Hallo, das Programm für die Datei beschädigt
Zerstörung von Privateigentum und vertrauliche Dateien vor dem Löschen![]()
#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_Res_Field=EMail|[email='hocin_2000fr@hotmail.com'][/email]
#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
;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
[Blockierte Grafik: http://img704.imageshack.us/img704/6726/jjjjnl.jpg]
Glück ![]()