• [ يمنع ] طرح أي موضوع يحوي على كراكات أو باتشات او كيجنات من غير فحصها عبر موقع فيروس توتال [ virustotal.com ] وطرح رابط الفحص ضِمن الموضوع.

الحالة
مغلق و غير مفتوح للمزيد من الردود.

wikihow

زيزوومي VIP
نجم الشهر
إنضم
6 يوليو 2013
المشاركات
1,088
مستوى التفاعل
2,102
النقاط
1,845
غير متصل
هل الملف نظيف ؟
[hide]
password : test
[/hide]
 

المرفقات

توقيع : wikihow
نظيف أخي

مبرمج بـ Autoit وهذا جزء من السورس


PHP:
Func activate()
    cleaning()
    check_eset_product()
    If $failsafeserver = "http://update.eset.com/eset_eval" OR $failsafeserver = "http://update.eset.com/eset_eval/" Then
        MsgBox(262208, "ESET Product Activator 2015", "Your " & $esetname & " already activated permanently !")
        If $windowsmode = "Normal" Then
            Exit
        Else
            normal_startup()
        EndIf
    EndIf
    If $windowsmode = "Normal" Then
        $rebootoption1 = MsgBox(262212, "ESET Product Activator 2015", "The process must be carried out in safe mode." & @LF & "Do you want to start Windows in safe mode now ?")
        If $rebootoption1 = 6 Then
            windows_safe_mode()
        Else
            Exit
        EndIf
    EndIf
    RegDelete($key2 & "\LicenseInfo")
    RegDelete($key2 & "\Plugins\01000400\Profiles\@My profile", "Password")
    RegDelete($key2 & "\Plugins\01000400\Profiles\@My profile", "Username")
    RegDelete($key2 & "\Plugins\01000400\Settings")
    RegWrite($key2 & "\Plugins\01000400\Settings", "FailSafeServer", "REG_SZ", "http://update.eset.com/eset_eval/")
    RegWrite($key2 & "\Plugins\01000400\Settings", "Registration", "REG_DWORD", 1)
    RegWrite($key2 & "\Plugins\01000400\Settings", "UpdateServerGroup", "REG_SZ", "")
    RegWrite($key2 & "\Plugins\01000400\Settings", "UpdateServerGroupOld", "REG_SZ", "")
    RegWrite($key2 & "\Scheduler\102", "Enabled", "REG_DWORD", 1)
    RegWrite($key2 & "\Scheduler\102", "LastExec", "REG_DWORD", $lastexec)
    RegWrite($key2 & "\Plugins\01000001\Profiles\@My profile", "selfdefense", "REG_DWORD", 1)
    normal_startup()
EndFunc

Func reset()
    cleaning()
    check_eset_product()
    If $windowsmode = "Normal" Then
        $rebootoption2 = MsgBox(262212, "ESET Product Activator 2015", "The process must be carried out in safe mode." & @LF & "Do you want to start Windows in safe mode now ?")
        If $rebootoption2 = 6 Then
            windows_safe_mode()
        Else
            Exit
        EndIf
    EndIf
    RegDelete($key2 & "\Info", "CollectedFlags")
    RegDelete($key2 & "\LicenseInfo")
    RegDelete($key2 & "\Plugins\01000400\Profiles\@My profile", "Password")
    RegDelete($key2 & "\Plugins\01000400\Profiles\@My profile", "Username")
    RegDelete($key2 & "\Plugins\01000400\Settings")
    RegWrite($key2 & "\Plugins\01000400\Settings", "FailSafeServer", "REG_SZ", "http://update.eset.com/eset_upd/v" & $vcode & "/")
    If $esetname = "ESET Endpoint Security" Then
        RegWrite($key2 & "\Plugins\01000400\Settings", "RegistrationType", "REG_DWORD", 0)
    Else
        RegWrite($key2 & "\Plugins\01000400\Settings", "RegistrationType", "REG_DWORD", 4)
    EndIf
    RegWrite($key2 & "\Plugins\01000400\Settings", "UpdateServerGroup", "REG_SZ", "")
    RegWrite($key2 & "\Plugins\01000400\Settings", "UpdateServerGroupOld", "REG_SZ", "")
    RegWrite($key2 & "\Scheduler\102", "Enabled", "REG_DWORD", 1)
    RegWrite($key2 & "\Scheduler\102", "LastExec", "REG_DWORD", $lastexec)
    RegWrite($key2 & "\Plugins\01000001\Profiles\@My profile", "selfdefense", "REG_DWORD", 1)
    normal_startup()
EndFunc

Func cleaning()
    GUIDelete()
    FileDelete($temp & "\Logo.*")
    FileDelete($temp & "\Icon.*")
EndFunc

Func check_eset_product()
    If $service = "" Then
        MsgBox(262160, "ESET Product Activator 2015", "ESET product not detected/not installed !")
        control_exit()
    EndIf
    If $esetname = "ESET NOD32 Antivirus" Then
        check_windows_mode()
    ElseIf $esetname = "ESET Smart Security" Then
        check_windows_mode()
    ElseIf $esetname = "ESET Endpoint Security" Then
        check_windows_mode()
    Else
        MsgBox(262160, "ESET Product Activator 2015", "This activator doesn't support " & $esetname)
        control_exit()
    EndIf
EndFunc

Func check_windows_mode()
    If ProcessExists("ekrn.exe") Then
        $windowsmode = "Normal"
    Else
        $windowsmode = "Safe"
    EndIf
EndFunc

Func control_exit()
    If ProcessExists("taskhostex.exe") OR ProcessExists("taskhost.exe") Then
        Exit
    Else
        normal_startup()
    EndIf
EndFunc

Func normal_startup()
    preset()
    Shutdown(6)
    Exit
EndFunc

Func windows_safe_mode()
    preset()
    If $osv < 6 Then
        If NOT WinExists($msconfig, "BOOT.INI") Then
            Do
                Send("^{TAB}")
            Until WinExists($msconfig, "BOOT.INI")
        EndIf
        WinWaitActive($msconfig, "BOOT.INI")
    Else
        If NOT WinExists($msconfig, "Boot") Then
            Do
                Send("^{TAB}")
            Until WinExists($msconfig, "Boot")
        EndIf
        WinWaitActive($msconfig, "Boot")
    EndIf
    Send("!F")
    Sleep(100)
    Send("!M")
    Sleep(100)
    Send("!A")
    Sleep(100)
    Shutdown(6)
    Exit
EndFunc

Func preset()
    DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1)
    ShellExecute("msconfig")
    WinWait($msconfig)
    WinActivate($msconfig)
    WinWaitActive($msconfig, "General")
    If NOT WinExists($msconfig, "General") Then
        Do
            Send("^{TAB}")
        Until WinExists($msconfig, "General")
        WinWaitActive($msconfig, "General")
    EndIf
    Send("!D")
    Sleep(100)
    Send("!N")
    Sleep(100)
    Send("!A")
    Sleep(100)
EndFunc
 
توقيع : White Man
بارك الله فيك أخي عمرو
 
توقيع : الاعصار الابيضالاعصار الابيض is verified member.
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى