Mike55 Posted June 17, 2014 Share Posted June 17, 2014 Is there a way to give a encrypted lisp program as a trial that would only run one or two time then corrupt ,delete or erase its self? Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 17, 2014 Share Posted June 17, 2014 run one or two time then corrupt ,delete or erase its self Yes, yes, yes. I would not go down the delete path, rather use number of goes or by date, simple way would be to read & write to the registery and read a number if 11 dont work any more. There is examples here about using registery entries. Quote Link to comment Share on other sites More sharing options...
Mike55 Posted June 19, 2014 Author Share Posted June 19, 2014 Thanks I found this (setq datst (rtos (getvar "cdate") 2 0)) (setq date-string (strcat (substr datst 5 2) "/" (substr datst 7 2) "/" (substr datst 1 4) ) ) Quote Link to comment Share on other sites More sharing options...
nod684 Posted June 19, 2014 Share Posted June 19, 2014 Thanks I found this (setq datst (rtos (getvar "cdate") 2 0)) (setq date-string (strcat (substr datst 5 2) "/" (substr datst 7 2) "/" (substr datst 1 4) ) ) how do you use this? Quote Link to comment Share on other sites More sharing options...
MSasu Posted June 19, 2014 Share Posted June 19, 2014 I think Mike55 thought about using the date retrieved programmatically to limit the usage allowance; a code for this may be: (if (> (getvar "cdate") 20140618) (progn (alert "The limit was June 18, 2014") (exit) ) ) However this will not control the number of calls. Please don't miss also that the date is retrieved from system, so this solution can be very easily circumvented. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 20, 2014 Share Posted June 20, 2014 Like Msasu says date is easy to reset and just reload program resets it also, as I hinted a better way is to write to the registery a number increment each time. Say give them ten goes doesn't matter if they reload set clock etc using a compiled lisp FAS unless they know about checking the registery for added entries this is probably 99.9999% good. There is some posts here with code how to make a reg key and retrieve will need to serach for them, pretty sure under same theme protecting code. Quote Link to comment Share on other sites More sharing options...
Mike55 Posted June 21, 2014 Author Share Posted June 21, 2014 Bigal you are right I do like write to the registry better. I tried to use the # tag but it did not work? (if (not (getenv "MyDemo")) (setenv "MyDemo" "1") (setenv "MyDemo" (itoa (1+ (atoi (getenv "MyDemo")))))) (if (> (atoi (getenv "MyDemo")) 10) (progn (alert "You Have Exceeding to Demo Time") (exit))) Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 23, 2014 Share Posted June 23, 2014 Just a bit of spelling (alert "You Have Exceeded Your Demonstration Time") Quote Link to comment Share on other sites More sharing options...
MSasu Posted June 23, 2014 Share Posted June 23, 2014 I tried to use the # tag but it did not work? You will have to select the code excerpt and next press the "#" button. Or just write "[/code]" and its end, respectivelly " [/i]" at beginning. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.