🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.mac
Article #20216

Protecting your HyperCard stack

#20216
From: Paul Molenaar
Date: Tue, 13 Oct 1987 09:45
47 lines
1775 bytes
Chuq von Rospach asked a question about the protection of his
stacks, which was replied by someone else describing a method
of disabling the command-key.

I tried this method, but it proved to be flaky if the user
persisted in pressing the cmnd-period keys. The user would even
be brought to script-editing level if pressed enough times (about
3 or 4 times was enough). Another method was making a button in
some stack saying "go to card..." and "edit script of this card"

I used that script and added some extra features that seem to do
the job correctly. It also provides a reasonably good password
protection to your stack, making it possible to always edit your
stack, while others can only use it. Put in the stack-script (editable
in stack-info) and replace my password with your favourite password.

Here it is:

on idle
if the commandkey is down then deadkey
put the time into card field "time"
pass idle
end idle

on deadkey
answer "Sorry, command-key disabled" with "OK"
end deadkey

on domenu
ask password "Give password"
if it is not 2690438967
then
answer "Sorry, wrong password" with "OK"
else
pass domenu
end if
end domenu

on edit
ask password "Give password"
if it is not 2690438967
then
answer "Sorry, wrong password" with "OK"
else
pass edit
end if
end edit
Technical Details
Message-ID: <254@nikhefk.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!mcvax!nikhefk!paulm

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!mcvax!nikhefk!paulm
From: paulm@nikhefk.UUCP (Paul Molenaar)
Newsgroups: comp.sys.mac
Subject: Protecting your HyperCard stack
Message-ID: <254@nikhefk.UUCP>
Date: Tue, 13-Oct-87 05:45:57 EDT
Article-I.D.: nikhefk.254
Posted: Tue Oct 13 05:45:57 1987
Date-Received: Wed, 14-Oct-87 05:20:38 EDT
Organization: Nikhef-K, Amsterdam (the Netherlands).
Lines: 47