Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: original meaning of System` functions
Replies: 11   Last Post: Jan 11, 2011 7:24 PM

 Messages: [ Previous | Next ]
 hemmecke Posts: 15 Registered: 3/11/10
Re: original meaning of System` functions
Posted: Jan 11, 2011 7:24 PM

On Jan 10, 8:35 am, Bill Rowe <readn...@sbcglobal.net> wrote:
> It is possible to distribute Mathematica code so that the source
> code cannot be accessed in any meaningful way and be usable
> within Mathematica. Take a look at ReadProtected and Encode.

It is clear that Encode must be used, but it doesn't help at all.
The person who should be able to run the code, needs the key when

Ralf

In[1]:= Unprotect[SetAttributes,Attributes];

In[2]:= SetAttributes[Except[{SetAttributes,Set,Attributes}],_]:={}

In[3]:= Attributes=MyAttributes;

In[4]:= SetAttributes[{SetAttributes,Set,Attributes},
{Protected,Locked}];

In[5]:= a[x_] := Module[{z}, z=x+3, z^2];

In[7]:= ??a
Global`a

a[x_] := Module[{z}, z = x + 3, z^2]

In[9]:= ??a
Global`a

a[x_] := Module[{z}, z = x + 3, z^2]

In[10]:= ClearAll[SetAttributes]

ClearAll::wrsym: Symbol SetAttributes is Protected.

In[11]:= Unprotect[SetAttributes]

Protect::locked: Symbol SetAttributes is locked.

Out[11]= {}

In[12]:= ClearAll[Attributes]

ClearAll::wrsym: Symbol Attributes is Protected.

In[13]:= Attributes

Out[13]= MyAttributes

Date Subject Author
1/4/11 hemmecke
1/6/11 lshifr@gmail.com
1/6/11 lshifr@gmail.com
1/6/11 hemmecke
1/9/11 hemmecke
1/10/11 Daniel Lichtblau
1/10/11 Bill Rowe
1/11/11 hemmecke
1/10/11 DrMajorBob
1/11/11 hemmecke
1/11/11 Yuri Kandrashkin
1/11/11 DrMajorBob