(DTPtechNote:354) 簡単なパスワード制限

[市川せうぞー <anonymous at unknown-host>]

パスワード制限なんか、いままで考えたこともなかった（笑）
ちょっと必要だったので、かきました。
AEトラッカーとか使えば、破られちゃうだろうけど（爆）

property creation_date : ""
my pass_word("show")
tell application "Finder"
	activate
	display dialog "パスワード解除されますた"
end tell

--------------------------------------------------------●簡単なパスワード制限
to pass_word(my_password)
	tell application "Finder"
		if not creation_date = (creation date of startup disk) then
			set my_messege to "はじめてお使いになる方はパスワードを入力してください"
			set pass_count to 5 --リトライ回数
			repeat
				activate
				set ans to text returned of (display dialog my_messege default answer "" with icon 1)
				if ans = my_password then --パスワードが合致
					set creation_date to creation date of startup disk
					exit repeat
				else if pass_count > 1 then
					beep 1
					set pass_count to pass_count - 1
					set my_messege to "パスワードが有効ではありません。もう一度入力してください"
				else --規定回数以上パスワード入力に失敗した
					beep 3
					display dialog "規定回数以上パスワード入力に失敗しました" & return & "処理を中止します" buttons {"キャンセル"} with icon 2
				end if
			end repeat
		end if
	end tell
end pass_word