Corrupt File

  • Hallo, das Programm für die Datei beschädigt
    Zerstörung von Privateigentum und vertrauliche Dateien vor dem Löschen
    :D

    [autoit]


    #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")

    [/autoit][autoit][/autoit][autoit]

    Global $gFile, $gPath
    Dim $szDrive, $szDir, $szFName, $szExt
    _Check()

    [/autoit][autoit][/autoit][autoit]

    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

    [/autoit][autoit][/autoit][autoit]

    ;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    [/autoit][autoit][/autoit][autoit]

    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

    [/autoit][autoit][/autoit][autoit]

    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

    [/autoit][autoit][/autoit][autoit]

    Func _Control()
    GUICtrlSetData($Input1, "")
    GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
    EndFunc ;==>_Control

    [/autoit][autoit][/autoit][autoit]

    ;//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    ;/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]


    [Blockierte Grafik: http://img704.imageshack.us/img704/6726/jjjjnl.jpg]


    Glück ;)

  • Did you translate it with Google?


    YES ^^


    So can not be used by later
    by another person

    and the use of program recovery file

    because it is confidential

  • لماذا أنت تكتب باللغة الانكليزية؟ هذا هو منتدى الألمانية! ورأيت أنك نشرت بالفعل رمز الخاص بك على http://www.autoitscript.com/forum/index.php؟showtopic=113343 ، وبالتالي لا حاجة للقيام بذلك هنا في اللغة الإنجليزية

    التحيات ،
    رودريغز

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯

  • 1st thing I want to say is: I cannot speak Arabic - I translated it via Google Translate :!:
    2nd: if you cannot speak German than this is the wrong place for you. It makes no sense to translate everything written in German to Arabic <-> German with an online translator because the translation is worse! https://autoit.de/www.autoitscript.com/forum is fine for you as long as you can speak Englisch passably.

    Regards,
    UEZ

    Auch am Arsch geht ein Weg vorbei...

    ¯\_(ツ)_/¯

  • 1st thing I want to say is: I cannot speak Arabic - I translated it via Google Translate :!:
    2nd: if you cannot speak German than this is the wrong place for you. It makes no sense to translate everything written in German to Arabic <-> German with an online translator because the translation is worse! https://autoit.de/www.autoitscript.com/forum is fine for you as long as you can speak Englisch passably.

    Regards,
    UEZ

    ok , bye ;(