t1 = InputBox("Введите пароль:", "Password")
if t1=Oct(Day(date)&Month(date)&Year(date)) then
msgbox "Ура!"
ElseIf t1 <>Oct(Day(date)&Month(date)&Year(date)) then
msgbox ":("
end ifVBS (Генератор пароля для себя):
t1 = InputBox("Пароль:", "GenPass", Oct(Day(date)&Month(date)&Year(date)))Dim a, PassIn, Password
a=Weekday(Now)
Select Case a
Case 1
Password = "1" 'Воскресение. Между "" вставляй пароль. Пароль будет работать только в соответствующий день недели
Case 2
Password = "2" 'Понедельник
Case 3
Password = "3" 'Вторник
Case 4
Password = "4" 'Среда
Case 5
Password = "5" 'Четверг
Case 6
Password = "6" 'Пятница
Case 7
Password = "7" 'Субота
End Select
PassIn = InputBox ("Введите пароль", "Password", "xxxxxxxx")
If PassIn = Password Then
MsgBox "Авторизация прошла успешно!",vbInformation,"SurfBoxTo"
Else
MsgBox "Пороль неверный!", 48, "Password"
WScript.Quit
End If
'Выполняется код
WScript.QuitРебят! Если не сложно... предложите свои варианты кода(и если не сложно объясните что к чему)
Спасибо вам огромное за помощь.
Ты напиши по какой формуле хочешь высчитывать, я напишу код с пояснениями, можешь немного изменить и все! Попозже набросаю пару примеров.
]]>например, 3 раза ввел неправильно пароль, следующие попытки через час.
Всё это легко избежать произведя чистку следов активности скрипта, также возможен запуск в виртуальной машине/песочнице. Подключить HTA к отладчику, и иследовать алгоритм работы проще простого. Обфускация скрипта поможет оттолкнуть взломщика, но не всех 
Нет совершенного пароля и нет идеальной защиты. Подобрать его всё равно смогут. HTA формат не сможет всё равно скрыть пароль, как уже предложили лучше сохранять хеш. Но опять же, время побора - дело времени.
Так можно сделать, например, 3 раза ввел неправильно пароль, следующие попытки через час. а пароль пусть подбирают... хоть он с настоящим паролем не будет сравниваться. Если правильный пароль введет с 4-ой попытки, он скажет что пароль неверный. Вероятность подобрать пароль приближается к нулю, но не даст 100% гарантии.
]]>Ясно... спасибо тебе огромное!
Но еще вопрос , как тогда сделать так чтобы пароль был всегда разный и узнать его смог только я! И как бы я узнавал!
(Главное чтоб ни кто и некогда кроме меня его не подобрал)
Заранее спасибо!
Для того чтобы только ты знал пароль, составь свой алгоритм шифрования. Это не так уж и сложно. 100 процентной гарантии что никто не взломает не даю, но от юзеров помогает.
]]>Dim d, n, Pass(7), Password, PassIn
d = Date
Pass(0) = Mid (d, 1, 1)
Pass(1) = Mid (d, 2, 1)
Pass(2) = Mid (d, 4, 1)
Pass(3) = Mid (d, 5, 1)
Pass(4) = Mid (d, 7, 1)
Pass(5) = Mid (d, 8, 1)
Pass(6) = Mid (d, 9, 1)
Pass(7) = Mid (d, 10, 1)
n = 0
Do
Pass(n) = Pass(n) + 1
n = n + 1
Loop Until n = 8
Password = Pass(0) & Pass(1) & Pass(2) & Pass(3) & Pass(4) & Pass(5) & Pass(6) & Pass(7)
PassIn = InputBox ("Введите пароль", "Password", "xxxxxxxx")
If PassIn = Password Then
MsgBox "Авторизация прошла успешно!",vbInformation,"SurfBoxTo"
Else
MsgBox "Пороль неверный!", 48, "Password"
WScript.Quit
End If
'Выполняется код
WScript.Quit