Что нового

Запуск exe по паролю.

Detre

Новичок
Сообщения
61
Репутация
0
Всем доброго дня, хотелось бы поставить пароль на запуск exe, защита от "Детей". Пока не сталкивался еще с методами реализации оного, пошукал в форуме, пока не нашел аналог. Заранее большое спасибо)
Сообщение автоматически объединено:

Всем доброго дня, хотелось бы поставить пароль на запуск exe, защита от "Детей". Пока не сталкивался еще с методами реализации оного, пошукал в форуме, пока не нашел аналог. Заранее большое спасибо)

Извиняюсь, нашел на англофоруме. https://www.autoitscript.com/forum/topic/81102-setting-a-password-on-my-script-and-exe-resolved/
Код:
Password_Protect()
; Dated: Sep-23-2008
; WB: ChromeFan
Func Password_Protect()
    $Total_Counts = 3
    $Try = 1
    $File_Access =  "Disallowd"
    $Your_Password =  "ChromeFan"
    ConsoleWrite(""    & @CRLF)
    $InputBox_1 = InputBox( "Access Protected",  "Please Enter your password (Case sensitive)" & @CRLF & @CRLF & "My Program Name (Example)"& @CRLF & @CRLF &"Author: Your Name",  "",  "*")
    If $InputBox_1 == $Your_Password Then
        $File_Access =  "Granted"
        MsgBox(64,  "Password Accepted",  "Welcome," & @CRLF & @CRLF & @UserName & @CRLF & @CRLF & @ComputerName)
    Else
        Do
            $InputBox_2 = InputBox( "Access Denied",  "The Password provided by you is wrong."& @CRLF & @CRLF &"Please Reinter your password."& @CRLF & @CRLF &"Author: Your Name",  "",  "*")
            If $Your_Password = $InputBox_2 Then
                $File_Access =  "Granted"
                MsgBox(64,  "Password Accepted",  "Welcome," & @CRLF & @CRLF & @UserName & @CRLF & @CRLF & @ComputerName)
                ExitLoop
            EndIf
            $Try += 1
        Until $Try = $Total_Counts
    EndIf
    If $File_Access =  "Allowed" Then
        MsgBox(48, "Access Granted", "Some Text")
    Else
        MsgBox(48, "You can not access this program!",  "You have tried more then 3 times to enter the correct password."&@CRLF&"But the password was always wrong."&@CRLF&"Sorry! Program will now close.")
        Exit
    Return
    endif
EndFunc ;==>_Password_Protect()
 
Верх