Decrypt 1999 lisp routine I created
@Anonymous wrote:
..I wrote some routines back in the late 1990's but I failed to save the ascii version and all I have are the AutoCAD Protected versions.
It's more fun to rewrite the code, especially after you have gain more experience throughout the years.
For starters, you can pick one and let us try replicate the program.
@Anonymous wrote:
Okay, there is only 1 routine I would put time into at this point, and it is totally for fun. The routine created two entity types, points/nodes and a mesh sphere. It then ran though a random number generator for the x, y, & z insertion points. The sphere object got a sizing multiplier and an axis rotation as well.
I take it the cube is always the same size as it is not included on the items on the dcl ?
I also think that you ran the program at least 3 times on the attached drawing sample and change the layers of the previous build.
Good thing is, i've seen a program like this before way back 2014/15 , and i think i saved a copy of the code. if only i can find it again.
And you wrote this at least 2 decades ago. That's mighty impressive 🙂.
Let's see what we can do .
[ searching for the code ... ]
You can customize from sphere3D to ac3Dsolid-triangles.
You can fly with command 3dorbit
@Anonymous wrote:
The cube size is dependent on the random multiplier number and the distances from corner points gets in the scientific notation e6 or something like that.
Lets start with the cube first, now it creates solids and points but of different colors, no layers yet, no rotation on z axis for now.
Using @ronjonp's working code and an updated dialog
(defun c:Nebula ( / lm:rand dch lm:randrange a d ms p sp )
;; ronjonp | pbe | Lee Mac ;;
;; http://www.lee-mac.com/random.html
;; Rand - Lee Mac
;; PRNG implementing a linear congruential generator with
;; parameters derived from the book 'Numerical Recipes'
(defun lm:rand (/ a c m)
(setq m 4294967296.0
a 1664525.0
c 1013904223.0
$xn (rem (+ c
(* a
(cond ($xn)
((getvar 'date))
)
)
)
m
)
)
(/ $xn m)
)
(defun lm:randrange (a b) (+ (min a b) (fix (* (lm:rand) (1+ (abs (- a b)))))))
(or InitVal
(setq InitVal '(("size" "250000")
("dcnt" "2000")
("scnt" "100")
("srot" "0")
)
)
)
(foreach Var InitVal
(if (setq dflt (eval (read (car var))))
dflt (set (read (car var)) (cadr var))
)
)
(cond
( (<= (setq dch (load_dialog "Galaxy 2.0.dcl")) 0)
(princ "\nUnable to find/load Nebula.dcl file.")
)
( (not (new_dialog "Nebula" dch))
(princ "\nUnable to display dialog.")
)
( (set_tile "mine" (strcat (getvar 'loginname) "'s Galaxy"))
(foreach key '("size" "dcnt" "scnt" "srot")
(set_tile key (eval (read key)))
(action_tile key
(vl-prin1-to-string (quote
(set (read $key) (get_tile $key))
)
)
)
)
(mode_tile "srot" 1)
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq flag (start_dialog))
)
)
(if (< 0 dch) (unload_dialog dch))
(if (zerop flag)
(princ "\n<<< User cancelled >>>")
(progn
(setq ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(setq d (distof size))
(setq a (lm:randrange 1 (/ d 20.)));<-- we will do this later ;;
;; For now we are using 3DSolid ;;
(repeat (atoi scnt)
(setq p (list (lm:randrange (- d) d) (lm:randrange (- d) d) (lm:randrange (- d) d)))
(if (setq sp (vlax-invoke ms 'addsphere p (lm:randrange 1 a)))
(vla-put-color sp (lm:randrange 1 255))
)
)
(repeat (atoi dcnt)
(setq p (list (lm:randrange (- d) d) (lm:randrange (- d) d) (lm:randrange (- d) d)))
(entmake (list '(0 . "POINT") (cons 10 p) (cons 62 (lm:randrange 1 255))))
)
)
)
(princ)
)
DCL Code (to be saved as Galaxy 2.0.dcl):
dcl_settings : default_dcl_settings { audit_level = 3; }
ed : edit_box { fixed_width = true; width = 6; alignment = right;}
tx : text {alignment = left; height = 0.1;}
Nebula : dialog {
//label = "Create virtual galaxy";
key = "mine";
: boxed_column {
label = "Quantities of...";
: row {
: column {
spacer_0 ;
: tx { label = "\tGalaxy Size:" ; }
: tx { label = "\tDust particles:" ; }
: tx { label = "\tStars:" ; }
: tx { label = "\tStar axis rotation increment:" ; }
}
: column {
: ed { key = "size"; }
: ed { key = "dcnt"; }
: ed { key = "scnt"; }
: ed { key = "srot"; }
}
}
spacer ;
}//bc1
spacer_1;
ok_cancel;
}
@Anonymous wrote:
There is one particle application from the routine and that is to provide a visual idea of distance in space...by connecting points with a line and then use the 3d Orbit to inspect the line(s).
We will deal with that later, we need to know the requirements for the connection
HTH
@diagodose2009 wrote:
I decode your programe, work fine.
That is so nice of you to do that @diagodose2009
Since @Anonymous IS the author, then send it over to the OP.
Save us the trouble of figuring out the rest of the code 🙂
Better yet, share the file to decrypt [ protect.exe ? AUTODC.EXE ? , whatever ] the protected lisp code with the OP,
Of course if its a program that you created, then its a different story 😆
Accepted solution
@Anonymous wrote:
So fantastic to see it. It is faster and better. You all are amazing!
...
Can you fill me in on your findings?
Glad you like it. @ronjonp did all the work really, saves me time looking for the lisp file, but i would have coded it in a similar way anyways as i do recall how it was done.
As for my findings, we know the file is already decrypted so there's no point in continuing, I just hope my appeal to @diagodose2009 to send you the raw file will be heard. 🙂
A friend of mine has a copy of protect.exe but i was told it will not work on 64bit version of windows.
Fun Fact:
In the 4th century BCE Greece, philosophers developed the geocentric model, based on astronomical observation; this model proposed that the center of the Universe lies at the center of a spherical, stationary Earth, around which the Sun, Moon, planets, and stars rotate.