Author Topic: [original works] adds GOTO instruction to AutoLisp language  (Read 12082 times)

0 Members and 1 Guest are viewing this topic.

baitang36

  • Bull Frog
  • Posts: 213
[original works] adds GOTO instruction to AutoLisp language
« on: March 21, 2020, 01:27:12 AM »
As we all know, lisp has no unconditional jump instructions, and programs can only be executed sequentially. Fas supports unconditional jump instructions, but normal compilers cannot generate them. We can do this indirectly. In the LSP source code to write a special string, compiled into the normal fas program after modification, so you can achieve the purpose of unconditional jump between functions.
See the source code:
Code - Auto/Visual Lisp: [Select]
  1. (defun c:zhuce()
  2.   (setq zcm (getint "Please enter the registration code:"))
  3.   (if (= zcm 3637)(setq syz_goto 959461169)(princ "Registration code error!"));Jump if the registration code is correct
  4.   (princ)
  5. )
  6. (defun t1 ()(princ "Check registration code")
  7. (setq syz_loc1 959461170 ) ;Let the program jump here to start execution
  8. (princ "The registration code is correct. Welcome to use")
  9.   ;Insert the program you want to run here
  10.   (princ)
  11. )
Here (setq syz_goto 959461169) and (setq syz_loc1 959461170) are two tokens, the unconditional jump instruction of fas is 57h (decimal 87),
as long as we find the two tokens, calculate the size of the interval between the two tokens, we can modify the jump,
to achieve our purpose.959461169 in hexadecimal in fas is 31709,959461170 is 32709, which is easy to find.
Using winhex to see  tmp.fas is like this:
Offset           0  1  2  3  4  5  6  7            8  9  A  B  C  D  E  F
00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D
00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!
00000020   0D 0A 31 31 31 0D 0A 31  32 20 24 14 00 00 00 00     111  12 $     
00000030   09 0B 00 35 01 0A 00 03  06 09 00 03 09 00 33 35      5          35
00000040   0E 00 00 35 02 08 00 03  67 0D 00 00 00 33 31 37      5    g    317
00000050   30 39 06 07 00 57 09 00  00 00 09 06 00 35 01 05   09   W       5 
00000060   00 03 0A 35 00 05 00 03  16 14 00 00 00 00 09 04      5           
00000070   00 35 01 05 00 03 0A 35  00 03 00 03 0A 33 32 37    5     5     327
00000080   30 39 06 02 00 09 01 00  35 01 05 00 03 0A 35 00   09      5     5
00000090   05 00 03 0A 35 00 05 00  03 16 24 0D 0A 32 38 30       5     $  280
The modified tmp.fas is as follows:
Offset      0  1  2  3  4  5  6  7   8  9  A  B  C  D  E  F
00000000   0D 0A 20 46 41 53 34 2D  46 49 4C 45 20 3B 20 44      FAS4-FILE ; D
00000010   6F 20 6E 6F 74 20 63 68  61 6E 67 65 20 69 74 21   o not change it!
00000020   0D 0A 31 31 31 0D 0A 31  32 20 24 14 00 00 00 00     111  12 $     
00000030   09 0B 00 35 01 0A 00 03  06 09 00 03 09 00 33 35      5          35
00000040   0E 00 00 35 02 08 00 03  67 0D 00 00 00 57 33 00      5    g    W3
00000050   00 00 20 20 20 57 09 00  00 00 09 06 00 35 01 05        W       5 
00000060   00 03 0A 35 00 05 00 03  16 14 00 00 00 00 09 04      5           
00000070   00 35 01 05 00 03 0A 35  00 03 00 03 0A 33 32 37    5     5     327
00000080   30 39 06 02 00 09 01 00  35 01 05 00 03 0A 35 00   09      5     5
00000090   05 00 03 0A 35 00 05 00  03 16 24 0D 0A 32 38 30       5     $  280
A modified program cannot be decomcompiled correctly because normal lisp does not have goto.
« Last Edit: April 02, 2020, 08:59:36 PM by baitang36 »

VovKa

  • Water Moccasin
  • Posts: 1626
  • Ukraine
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #1 on: March 21, 2020, 09:41:22 AM »
nice research, baitang36, as always

you often mention 'a popular decompiler', i'm not sure what exactly it is
but how will uncoditional jumping protect your code?
the 'hacker' will simply delete c:zhuce function from the decompiled lsp.

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #2 on: March 22, 2020, 10:56:30 PM »
Fas to LSP program is a commercial software written by my friend. It can be converted almost perfectly, and most of the LSP generated can be loaded and run normally. He sells the software for 200 dollars. You can provide an fas file and I will decompile it for you to see

Rod

  • Newt
  • Posts: 185
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #3 on: March 22, 2020, 11:50:19 PM »
Takes me back.
I remember GOTO and GOSUB from the first program I wrote as a kid on the apple IIe.
"All models are wrong, some models are useful" - George Box

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #4 on: March 23, 2020, 12:13:20 AM »
Coolio! I took my first programming course on a IIC. The instructor was aghast and extremely apologetic at course end as he couldn’t assign the final grade I had achieved - his grades app would only accept values 0-99. It was then when I knew I was on to something, lol. :lol:
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #5 on: March 23, 2020, 01:04:00 AM »
Takes me back.
I remember GOTO and GOSUB from the first program I wrote as a kid on the apple IIe.
GOTO is more free, you can jump anywhere you want, there are no restrictions.

Did you learn the poems of Petofi Sandor?
<Freedom and love>

Life is precious,

Love costs more.

For freedom's sake,

Both can be thrown!

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #6 on: March 23, 2020, 01:09:48 AM »
Coolio! I took my first programming course on a IIC. The instructor was aghast and extremely apologetic at course end as he couldn’t assign the final grade I had achieved - his grades app would only accept values 0-99. It was then when I knew I was on to something, lol. :lol:
The programming language I learned in school was Fortran77, and I learned it on an apple ii, which had a green screen and a series of English letters. I didn't understand English then

d2010

  • Bull Frog
  • Posts: 323
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #7 on: March 23, 2020, 04:39:10 AM »
Coolio! I took my first programming course on a IIC. Th

Yesterday, I compile this source to (fas for Autocad)  and (des for BrisCad)
The programe Decompilator-exe can restore, reveal 100%autolisp-source?
Code: [Select]
       len=php_strlen(utmZone);
       // Changed from utmZone.Last as the Linq version is much slower than simply indexing
       // the last position in the string's array of characters
       if (len>1)
              {   isNorthHemisphere = substr(utmZone,len,1),
                  diflat = -0.00066286966871111111111111111111111111,
  diflon = -0.0003868060578,
                  utmZone = substr(utmZone,1,len-1);
  c_sa = 6378137.000000;
  c_sb = 6356752.314245;
  e2 = math_pow((math_Pow(c_sa, 2) - Math_Pow(c_sb, 2)), 0.5) / c_sb;
  e2cuadrada = Math_Pow(e2, 2);
  c = math_pow(c_sa, 2) / c_sb;
  x = utmX - 500000;
                  isNorthHemisphere =(isNorthHemisphere >"N")?T:nil;
  y = isNorthHemisphere ? utmY : utmY - 10000000;
                  zone=atoi(utmZone);
  s = ((zone * 6.0) - 183.0);
  lat = y / (6366197.724 * 0.9996); // Change c_sa for 6366197.724
  v = (c / math_pow(1 + (e2cuadrada * math_pow(cos(lat), 2)), 0.5)) * 0.9996;
  a = x / v;
  a1 = sin(2 * lat);
  a2 = a1 * math_pow((cos(lat)), 2);
  j2 = lat + (a1 / 2.0);
  j4 = ((3 * j2) + a2) / 4.0;
                  j6 = (5 * j4 + a2 * math_pow((cos(lat)), 2)) / 3.0; // saque a2 de multiplicar por el coseno de lat y elevar al cuadrado
  alfa = (3.0 / 4.0) * e2cuadrada;
  beta = (5.0 / 3.0) * math_pow(alfa, 2);
  gama = (35.0 / 27.0) * math_pow(alfa, 3);
  bm = 0.9996 * c * (lat - alfa * j2 + beta * j4 - gama * j6);
  b = (y - bm) / v;
                  epsi = ((e2cuadrada * math_pow(a, 2)) / 2.0) * math_pow((cos(lat)), 2);
                  eps = a * (1 - (epsi / 3.0));
  nab = (b * (1 - epsi)) + lat;
  senoheps = (math_exp(eps) - Math_Exp(-eps)) / 2.0;
  delt = atan(senoheps / (cos(nab)));
  tao = atan(cos(delt) * sin(nab) / cos(nab));
                  longitude = (delt / Math_PI) * 180 + s;
  latitude = (((lat + (1 + e2cuadrada * math_pow(cos(lat), 2) - (3.0 / 2.0) * e2cuadrada * sin(lat) * cos(lat) * (tao - lat)) * (tao - lat))) / Math_PI) * 180.0; // era incorrecto el calculo
  rr=strcat("\nLatitud: " ,rtos(latitude,2,12),"\tLongitud: " , rtos(longitude,2,12));

« Last Edit: March 23, 2020, 05:28:15 AM by d2010 »

snownut2

  • Swamp Rat
  • Posts: 971
  • Bricscad 22 Ultimate
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #8 on: March 23, 2020, 06:28:48 AM »
D2010 what about lsp as a bricscad compiled file?

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #9 on: March 23, 2020, 08:05:51 AM »
The programming language I learned in school was Fortran77, and I learned it on an apple ii, which had a green screen and a series of English letters. I didn't understand English then

There was a time when I wanted to learn Fortran but there was no use in my field (civil eng. design) at the time. I can’t image learning a programming language whilst simultaneously translating back and forth to another spoken language; yeow. As for the green screens, remember them well. When I bought my first PC (Zenith Z150) I had to choose between green and amber. I went amber as it was unusual at the time and text appeared much crisper.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #10 on: March 23, 2020, 08:48:04 AM »
Yesterday, I compile this source to (fas for Autocad)  and (des for BrisCad)
The programe Decompilator-exe can restore ...

Non trivial accomplishment but I have no interest.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

BIGAL

  • Swamp Rat
  • Posts: 1396
  • 40 + years of using Autocad
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #11 on: March 23, 2020, 09:06:29 PM »
Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.

Ps here is my GOTO Autocad command.

A man who never made a mistake never made anything

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #12 on: March 23, 2020, 09:49:19 PM »
Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.

Ps here is my GOTO Autocad command.

GOTO is a very old programming concept and/or "thing". GOTO is for compiled languages and it is translated by the compiler as a "statement to jump to a specific memory address".  ...stack/heap discussions abound.

NOTE: you can also use GOTOs in windows command scripts too for a good visual aid of how they were used (made code messy and yucky).


The example used in the first post is quite interesting but I agree with VovKa.

TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #13 on: March 23, 2020, 10:06:54 PM »
Coolio! I took my first programming course on a IIC. Th

Yesterday, I compile this source to (fas for Autocad)  and (des for BrisCad)
The programe Decompilator-exe can restore, reveal 100%autolisp-source?
Code: [Select]
       len=php_strlen(utmZone);
       // Changed from utmZone.Last as the Linq version is much slower than simply indexing
       // the last position in the string's array of characters
       if (len>1)
              {   isNorthHemisphere = substr(utmZone,len,1),
                  diflat = -0.00066286966871111111111111111111111111,
  diflon = -0.0003868060578,
                  utmZone = substr(utmZone,1,len-1);
  c_sa = 6378137.000000;
  c_sb = 6356752.314245;
  e2 = math_pow((math_Pow(c_sa, 2) - Math_Pow(c_sb, 2)), 0.5) / c_sb;
  e2cuadrada = Math_Pow(e2, 2);
  c = math_pow(c_sa, 2) / c_sb;
  x = utmX - 500000;
                  isNorthHemisphere =(isNorthHemisphere >"N")?T:nil;
  y = isNorthHemisphere ? utmY : utmY - 10000000;
                  zone=atoi(utmZone);
  s = ((zone * 6.0) - 183.0);
  lat = y / (6366197.724 * 0.9996); // Change c_sa for 6366197.724
  v = (c / math_pow(1 + (e2cuadrada * math_pow(cos(lat), 2)), 0.5)) * 0.9996;
  a = x / v;
  a1 = sin(2 * lat);
  a2 = a1 * math_pow((cos(lat)), 2);
  j2 = lat + (a1 / 2.0);
  j4 = ((3 * j2) + a2) / 4.0;
                  j6 = (5 * j4 + a2 * math_pow((cos(lat)), 2)) / 3.0; // saque a2 de multiplicar por el coseno de lat y elevar al cuadrado
  alfa = (3.0 / 4.0) * e2cuadrada;
  beta = (5.0 / 3.0) * math_pow(alfa, 2);
  gama = (35.0 / 27.0) * math_pow(alfa, 3);
  bm = 0.9996 * c * (lat - alfa * j2 + beta * j4 - gama * j6);
  b = (y - bm) / v;
                  epsi = ((e2cuadrada * math_pow(a, 2)) / 2.0) * math_pow((cos(lat)), 2);
                  eps = a * (1 - (epsi / 3.0));
  nab = (b * (1 - epsi)) + lat;
  senoheps = (math_exp(eps) - Math_Exp(-eps)) / 2.0;
  delt = atan(senoheps / (cos(nab)));
  tao = atan(cos(delt) * sin(nab) / cos(nab));
                  longitude = (delt / Math_PI) * 180 + s;
  latitude = (((lat + (1 + e2cuadrada * math_pow(cos(lat), 2) - (3.0 / 2.0) * e2cuadrada * sin(lat) * cos(lat) * (tao - lat)) * (tao - lat))) / Math_PI) * 180.0; // era incorrecto el calculo
  rr=strcat("\nLatitud: " ,rtos(latitude,2,12),"\tLongitud: " , rtos(longitude,2,12));

What language is this?

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #14 on: March 23, 2020, 10:18:33 PM »
Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.

Ps here is my GOTO Autocad command.

GOTO is a very old programming concept and/or "thing". GOTO is for compiled languages and it is translated by the compiler as a "statement to jump to a specific memory address".  ...stack/heap discussions abound.

NOTE: you can also use GOTOs in windows command scripts too for a good visual aid of how they were used (made code messy and yucky).


The example used in the first post is quite interesting but I agree with VovKa.
made code messy and yucky.That's the purpose
Standard fas is equivalent to source code
You can send me an Fas, I give you its LSP source code

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #15 on: March 23, 2020, 10:20:58 PM »
Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.

Ps here is my GOTO Autocad command.
thank you
You don't see what I mean. My GOTO is executed in the middle of one LSP function to the middle of another.

d2010

  • Bull Frog
  • Posts: 323
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #16 on: March 24, 2020, 01:35:39 PM »
RE:Why do you say there is no GOTO you can use defun statements, I wrote a bubble sort that required dual defuns for the testing part and looping through the data set. Took a BASIC version and rewrote in lisp.
 :whistling:
Even today i keep this Qsort.lisp(after 25years). I think is very good-source. You can replace Bsort.Lsp with qsort.lsp

Code: [Select]
;Lisp2C
;AutoLISP to C (ADS) Translator User's Manual, Version 2.9, 1st revision
;(C) 1993, 1995 BASIC d.o.o Jesenkova 5, 61000 Ljubljana, Slovenia
;Tel: +386 1 314 069Fax: +386 1 318 211 e-mail: Jure Spiler jure @basic.si Joze Marincek
joze.marincek@mat.uni-lj.si CompuServe: [70541,1765]


;;implementat la (_lspfn_list_qsort)
(defun Qsort (lst / x l e g)
  (if lst
   (progn
    (setq x (nth (/ (length lst) 2) lst)
          l nil e nil g nil)

    (while (not (null lst))
      (cond ((= (car lst) x) (setq e (cons x e)))
            ((< (car lst) x) (setq l (cons (car lst) l)))
            (t (setq g (cons (car lst) g)))
      )
      (setq lst (cdr lst))
    )
    (setq l (Qsort l)
          g (Qsort g))
    (append l e g)
   )
   nil
  )
)

kozmos

  • Newt
  • Posts: 114
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #17 on: March 27, 2020, 02:22:30 AM »
Fas to LSP program is a commercial software written by my friend. It can be converted almost perfectly, and most of the LSP generated can be loaded and run normally. He sells the software for 200 dollars. You can provide an fas file and I will decompile it for you to see
a crack software can claim itself as "commecial" software! shame
KozMos Inc.

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #18 on: March 27, 2020, 04:14:19 AM »

a crack software can claim itself as "commecial" software! shame
Crack usually means to modify, the software just translates, it doesn't change the content of the program

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #19 on: March 27, 2020, 04:16:46 AM »
This approach has become a tool. See     http://bbs.mjtd.com/thread-181151-1-1.html

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #20 on: March 27, 2020, 04:19:26 AM »

Coder

  • Swamp Rat
  • Posts: 827
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #21 on: March 27, 2020, 04:35:06 AM »
a crack software can claim itself as "commecial" software! shame

Agree with you.

Crack usually means to modify, the software just translates, it doesn't change the content of the program

Crack means that you are violating people's rights, in other words crackers = hackers = thieves ( burglars ).

I don't know why the admins allow you to post such threads in this esteemed and professional forum that is full of great people !



baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #22 on: March 27, 2020, 07:31:50 AM »
a crack software can claim itself as "commecial" software! shame

Agree with you.

Crack usually means to modify, the software just translates, it doesn't change the content of the program

Crack means that you are violating people's rights, in other words crackers = hackers = thieves ( burglars ).

I don't know why the admins allow you to post such threads in this esteemed and professional forum that is full of great people !

You don't understand me at all. I study conservation, not destruction. It is true that decompilation exists, and I want it to fail!

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #23 on: March 27, 2020, 07:46:05 AM »
According to the law, in order to learn and study the design ideas and principles contained in the software, users who use the software by means of installation, display, transmission, storage, etc., do not need to obtain the license of the software copyright owner, and do not need to pay compensation to the owner

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #24 on: March 27, 2020, 08:38:50 AM »
Crack means that you are violating people's rights, in other words crackers = hackers = thieves ( burglars ).

x 2

According to the law, in order to learn and study the design ideas and principles contained in the software, users who use the software by means of installation, display, transmission, storage, etc., do not need to obtain the license of the software copyright owner, and do not need to pay compensation to the owner

Citation needed.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #25 on: March 27, 2020, 08:42:20 AM »
Ignoring the fact that decompilers exist will not make them go away. baltang36 is posting methods to improve compilations through the use of better programming methods and information. Meaning: use the knowledge (s)he is posting to improve your programs/methods/etc. so your compiled programs are harder to decompile.
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #26 on: March 27, 2020, 08:50:05 AM »
I’m going to break into your house. I will lift some property while I’m there but worry not - I’m doing research - I will share with others how I was able to breach your security. In the end your house - and your friend’s houses - will be much safer - the property I lifted was merely an education fee.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #27 on: March 27, 2020, 09:10:59 AM »
If I had better locks then you couldn't.  ...Around and around we go.


I agree that people should be nice too--who wouldn't--but I don't ignore that there are bad people. If I used a stick as a door lock to my house; who should I then be angry at if my house gets broken into?
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #28 on: March 27, 2020, 09:40:37 AM »
If I used a stick as a door lock to my house; who should I then be angry at if my house gets broken into?

Rationalizing burglary is _______ ______.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

JohnK

  • Administrator
  • Seagull
  • Posts: 10605
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #29 on: March 27, 2020, 09:59:34 AM »
Acknowledging that burglary exists, or studying how a lock works, or wanting a better lock in general is ‘rationalizing burglary’? Don’t be absurd.

I don’t agree with compiling lisp code but I don’t begrudge the people that want to protect their IP if they feel it’s necessary.
TheSwamp.org (serving the CAD community since 2003)
Member location map - Add yourself

Donate to TheSwamp.org

Coder

  • Swamp Rat
  • Posts: 827
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #30 on: March 27, 2020, 02:34:00 PM »
You don't understand me at all. I study conservation, not destruction. It is true that decompilation exists, and I want it to fail!

Please be patient with my frank questions.

1- If you are really working against decompilation, how could you know the return of functions as you already described in this thread without practicing decompilation yourself?

2- How can I trust what you have described and explained in this thread is not the opposite way for crackers to facilitate their process?
Can you give us a real example proving that ( question No. 2) ?

Finally, I believe that you are trying to get fame in this community for private messages requests asking you for decompliations and of course with paid fees which means that you are lurking behind a very transparent curtain that can't stand for too long for all users to get that truth.

You are not working against me because I don't have any complied programs yet but such a conduct cracks me up and I have seen many professional users publishing their applications for a few dollars and what you are presenting is against humanity and not only against their people's income.

Reverse engineering is not welcome anywhere.





VovKa

  • Water Moccasin
  • Posts: 1626
  • Ukraine
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #31 on: March 27, 2020, 03:05:50 PM »
i don't think this very thread is about cracking
it is about protecting, a kind of...
i find it quite useful

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #32 on: March 27, 2020, 07:37:00 PM »
Ignoring the fact that decompilers exist will not make them go away. baltang36 is posting methods to improve compilations through the use of better programming methods and information. Meaning: use the knowledge (s)he is posting to improve your programs/methods/etc. so your compiled programs are harder to decompile.
Thank you for your understanding

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #33 on: March 27, 2020, 07:52:44 PM »
You don't understand me at all. I study conservation, not destruction. It is true that decompilation exists, and I want it to fail!

Please be patient with my frank questions.

1- If you are really working against decompilation, how could you know the return of functions as you already described in this thread without practicing decompilation yourself?

2- How can I trust what you have described and explained in this thread is not the opposite way for crackers to facilitate their process?
Can you give us a real example proving that ( question No. 2) ?

Finally, I believe that you are trying to get fame in this community for private messages requests asking you for decompliations and of course with paid fees which means that you are lurking behind a very transparent curtain that can't stand for too long for all users to get that truth.

You are not working against me because I don't have any complied programs yet but such a conduct cracks me up and I have seen many professional users publishing their applications for a few dollars and what you are presenting is against humanity and not only against their people's income.

Reverse engineering is not welcome anywhere.
Reverse engineering is really annoying, but it's a technology. We can't ignore it. As a lisp developer, we have to come up with a way to fight it. In fact, I have developed the Fas protector, pfas2. X, and dozens of LISP developers are using it. It can resist all the current decompilations and make it fail. I only sell it for $60.

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #34 on: March 27, 2020, 08:02:20 PM »
I’m going to break into your house. I will lift some property while I’m there but worry not - I’m doing research - I will share with others how I was able to breach your security. In the end your house - and your friend’s houses - will be much safer - the property I lifted was merely an education fee.
My research is to help you build walls so that no one can break into your house.

Coder

  • Swamp Rat
  • Posts: 827
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #35 on: March 28, 2020, 02:23:08 AM »
Reverse engineering is really annoying, but it's a technology. We can't ignore it. As a lisp developer, we have to come up with a way to fight it. In fact, I have developed the Fas protector, pfas2. X, and dozens of LISP developers are using it. It can resist all the current decompilations and make it fail. I only sell it for $60.

Its good to approve is that your goal to gain from ( protecting ) compiled programs as I already mentioned in my last reply although you did not prove if what you are discussing deserve to think of.

You did not reply to any of my questions which assure my points is that what you are sharing is just unreal analysis that no one can trust to even trust your applications.

If you purchase fish in a sea then that's your problem but you need to visit a psychologist as soon as possible.  :uglystupid2:

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #36 on: March 28, 2020, 05:46:48 AM »
Reverse engineering is really annoying, but it's a technology. We can't ignore it. As a lisp developer, we have to come up with a way to fight it. In fact, I have developed the Fas protector, pfas2. X, and dozens of LISP developers are using it. It can resist all the current decompilations and make it fail. I only sell it for $60.

Its good to approve is that your goal to gain from ( protecting ) compiled programs as I already mentioned in my last reply although you did not prove if what you are discussing deserve to think of.

You did not reply to any of my questions which assure my points is that what you are sharing is just unreal analysis that no one can trust to even trust your applications.

If you purchase fish in a sea then that's your problem but you need to visit a psychologist as soon as possible.  :uglystupid2:
I have shared the practice, and someone has successfully applied this method and made tools. How can I answer you if you still doubt it?
What's the relationship between buying fish in the sea and psychiatrists? I don't understand your logic.

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #37 on: March 28, 2020, 05:51:45 AM »
i don't think this very thread is about cracking
it is about protecting, a kind of...
i find it quite useful
You really understand. Thank you

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #38 on: March 29, 2020, 12:34:43 AM »
It's possible I've misunderstood the bent of this thread as I quickly perused it and I'm exhausted from a 64 hour work week that's not over yet. Will reread from the start sometime down the road; peace + cheers.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #39 on: March 29, 2020, 07:02:55 AM »
It's possible I've misunderstood the bent of this thread as I quickly perused it and I'm exhausted from a 64 hour work week that's not over yet. Will reread from the start sometime down the road; peace + cheers.
64 hour work week?
Are you working for a capitalist? Marx said that the extension of labor time is an effective way to improve the degree of exploitation.

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #40 on: March 29, 2020, 11:07:09 AM »
  • I normally work a 37.5 hour week.
  • I’m 1 of a team of 5 working feverishly in response to challenges born of COVID-19 so our engineering team can all work remotely.
  • I’m not being exploited, was not ordered to work. I stepped up to do my part to help out our company.
  • I do the work gladly; grateful I have skills and experience that are useful to solve the challenges we’re experiencing.
  • F**k Marxism.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

myloveflyer

  • Newt
  • Posts: 152
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #41 on: March 29, 2020, 11:44:18 AM »
  • I normally work a 37.5 hour week.
  • I’m 1 of a team of 5 working feverishly in response to challenges born of COVID-19 so our engineering team can all work remotely.
  • I’m not being exploited, was not ordered to work. I stepped up to do my part to help out our company.
  • I do the work gladly; grateful I have skills and experience that are useful to solve the challenges we’re experiencing.
  • F**k Marxism.
MP!
COVID-19 has brought a crisis to the world. I hope that you and your family can protect yourself very well, pay attention to rest, wash your hands frequently, and go out with a mask. Now we are also working from home. Hope the epidemic will end soon!
Never give up !

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #42 on: March 29, 2020, 06:31:37 PM »
  • I normally work a 37.5 hour week.
  • I’m 1 of a team of 5 working feverishly in response to challenges born of COVID-19 so our engineering team can all work remotely.
  • I’m not being exploited, was not ordered to work. I stepped up to do my part to help out our company.
  • I do the work gladly; grateful I have skills and experience that are useful to solve the challenges we’re experiencing.
  • F**k Marxism.
You are a good employee and all bosses like you. Do you own shares in the company? Are you a shareholder?

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #43 on: March 29, 2020, 06:39:00 PM »
  • I normally work a 37.5 hour week.
  • I’m 1 of a team of 5 working feverishly in response to challenges born of COVID-19 so our engineering team can all work remotely.
  • I’m not being exploited, was not ordered to work. I stepped up to do my part to help out our company.
  • I do the work gladly; grateful I have skills and experience that are useful to solve the challenges we’re experiencing.
  • F**k Marxism.
MP!
COVID-19 has brought a crisis to the world. I hope that you and your family can protect yourself very well, pay attention to rest, wash your hands frequently, and go out with a mask. Now we are also working from home. Hope the epidemic will end soon!
Covid-19 is the common enemy of human beings, only by working together.
You have to wear masks when you go out, because there are many asymptomatic infected people in the crowd. They don't get sick themselves, but they can infect others. Wearing masks is the only way to do it.
Take care.
We can go to work normally and leave the city freely, but we must wear masks.

hanhphuc

  • Newt
  • Posts: 64
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #44 on: March 30, 2020, 05:49:51 AM »
i don't think this very thread is about cracking
it is about protecting, a kind of...
i find it quite useful

yes i agree too, i notice VLX is not fully compiled, you can see like  FAS4-FILE ; Do not change it!
it seems splits each FAS file? if we open with notepad, the DCL are at the buttom part of the file, is still readable!!
does it mean reading (without decompile) violating the rules?

after all like many free source code forums, i hardly see people sharing VLX or FAS.
IMO, i think @baitang is white hat hacker.
assume you are expert knowledge in LISP and it's core technology, i don't think you need to decompile or violating others VLX os FAS. besides It's hard to study other's codes, every programmers has its own logic & unique styles like LM,MP,EEA etc.  as conclusion: I think you are x10000 faster to write a new code than hacking people's code.

PRO: 1. Helpful as anti-virus
        2. 'Forensic' investigation: if a guy customizes LM's codes selling online. one day a user notice a familiar DCL but author name
            changed it violates LM copyright, the user reports to LM. so baitang helps  decompilation, is it legal or illegal?
        3. helping us extra protection. encourage programmers feel safe to sell their copyrighted VLX
       
CON: 1. next generation virus will be vulnerable like COVID-19
         2. that copycat guy upgrade his VLX. forensic failed!


 

« Last Edit: March 30, 2020, 05:54:41 AM by hanhphuc »
( apply 'equal "hp" "happy" "hạnh phúc" "ハッピー" "幸福" "행복" ) ; error: too many arguments

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #45 on: April 02, 2020, 08:38:11 PM »
What language is this?
Code: [Select]
      len=php_strlen(utmZone);
       if (len>1)
              {   isNorthHemisphere = substr(utmZone,len,1),                  diflat = -0.00066286966871111111111111111111111111,diflon = -0.0003868060578,
                  utmZone = substr(utmZone,1,len-1);c_sa = 6378137.000000;
  c_sb = 6356752.314245;e2 = math_pow((math_Pow(c_sa, 2) - Math_Pow(c_sb, 2)), 0.5) / c_sb; e2cuadrada = Math_Pow(e2, 2);
  c = math_pow(c_sa, 2) / c_sb;  x = utmX - 500000;
                  isNorthHemisphere =(isNorthHemisphere >"N")?T:nil;
  y = isNorthHemisphere ? utmY : utmY - 10000000;
                  zone=atoi(utmZone); s = ((zone * 6.0) - 183.0);
  lat = y / (6366197.724 * 0.9996); // Change c_sa for 6366197.724
[/quote]thank you  sir

baitang36

  • Bull Frog
  • Posts: 213
Re: [original works] adds GOTO instruction to AutoLisp language
« Reply #46 on: April 02, 2020, 08:52:52 PM »
nice research, baitang36, as always
 how will uncoditional jumping protect your code?
the 'hacker' will simply delete c:zhuce function from the decompiled lsp.
In this program, if the hacker removes c:zhuce, nothing will run. it exit.
Code - Auto/Visual Lisp: [Select]
  1. (defun t1 ()(princ "Check registration code")
The entry of normal program is entered through special goto.
 If c: Zhe is deleted, there will be no entry, and the program will never be executed.
In order to run normal programs, hackers also need to delete (exit). In FAS, exit is hard to find
« Last Edit: April 02, 2020, 08:57:53 PM by baitang36 »