Topic: Lock a Lisp Routine

[CAB]

You may want to research these threads:
encrypt

[LE]

Just make sure on providing a way of transferring the application to any other computer, without asking you every time.

[It's Alive!]

 I have been thinking about bio fingerprinting, maybe generating some sort of install code from this.

[LE]

I been thinking in something like this.... don't know

[It's Alive!]

I been thinking in something like this.... don't know

Oh yeah, now you’re talking, I like it.

[LE]

or this....

[It's Alive!]

Well, that would work, if you needed a blood sample for a DNA based key.

[LE]

Well, that would work, if you needed a blood sample for a DNA based key.

OK, now in a sem-serious mode I might end up uploading on my show your stuff forum lisp topic, my locklisp project I did using activelock and visual lisp.... one of these days.

[chlh_jd]

A way to get Networkadapter MAC , only test OK with XP WSYS

Code: [Select]

;;Test OK with XP
;;Use WMI to Get Networkadapter MAC.
;;Author :  eachy [eachy@xdcad.net]
;;Web    :  http://www.xdcad.net
;;2005.11.22(xdl-MACAddress)
(defun xdl-MACAddress (/ mac WMIobj con lox sn)
  (if (setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator"))
    (progn
      (setq
con (vl-catch-all-apply
     'vlax-invoke
     (list WMIobj 'ConnectServer "." "" "" "" "" "" 128 nil)
   )
      )
      (if (vl-catch-all-error-p con)
(setq
 con (vlax-invoke WMIobj 'ConnectServer "." "" "" "" "" "")
)
      )
      (setq lox (vlax-invoke
 con
 'ExecQuery
 "Select * From Win32_NetworkAdapter"
)
      )
      (vlax-for item lox
(if (vlax-get item 'NetConnectionID)
 (progn
   (setq sn (vlax-get item 'MACAddress))
   (or
     (member sn mac)
     (setq mac (cons sn mac))
   )
 )
)
      )
      (mapcar 'vlax-release-object
     (list lox con WMIobj)
      )
    )
  )
  (reverse mac)
)


[dgorsman]

... but are more frequently harvesters of others' ingenuity.

Ahhh! They're on to me! Must reverse tin-foil hat...

Remember - shiny side *out*.  Foil has two distinct sides for a reason.  Most wear it with the wrong way 'round which just keeps the crazy in rather than out.   :ugly:

[xiaxiang]

I protect my lisp programs with a key. During the install process, the end user sends me an ‘Install’ code
that’s generated by hardware mapping similar to the Windows Product Activation. The install code is a
136-bit multi-precision integer, which is stored in little endian byte order as a byte array.
The ‘Install’ code can be represented as a sequence of 17 bytes as in

               

Code: [Select]

                  0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX
                  0x94 0xAA 0x46 0xD6 0x0F 0xBD 0x2C 0xC8
                  0x00
Anyway with out getting into too much detail, the bit fields are mapped by

Volume serial number system volume
Network adapter MAC
CD-ROM drive hardware identification
Graphics adapter hardware identification
CPU serial number
Hard drive hardware identification
SCSI host adapter hardware identification
IDE controller hardware identification
Processor model
RAM

The cryptographic algorithm use to encrypt the ‘Install’ code, is a proprietary four-round Feistel cipher.
The result is five alpha numeric strings separated by an “-“, as in

Code: [Select]

FFFFF-GGGGG-HHHHH-JJJJJ-KKKKK
This would be the key that the end user would enter to activate the product.
There are various check points within the program to verify the machine is authorized.

Dan

Aha   So cool! Can you post your algorithm,Dan?

[pkohut]

Anyway with out getting into too much detail, the bit fields are mapped by

Volume serial number system volume
Network adapter MAC
CD-ROM drive hardware identification
Graphics adapter hardware identification
CPU serial number
Hard drive hardware identification
SCSI host adapter hardware identification
IDE controller hardware identification
Processor model
RAM

You're in China, better lock down that keyboard and mouse too.

Now tell us you're J/K'ing, cause some might be taking you seriously.

[xiaxiang]

You're in China, better lock down that keyboard and mouse too.

Now tell us you're J/K'ing, cause some might be taking you seriously.

Nonsense

[pkohut]

You're in China, better lock down that keyboard and mouse too.

Now tell us you're J/K'ing, cause some might be taking you seriously.

What do you mean in this post ? How dare you that ?
So give you a chance to change it...

It has dual meaning, 1) hey dude you forgot 2 other pieces of hardware, 2) reports here state China's software piracy problem is still huge, from 45% to 80% depending on who's reporting, China Daily 2010 or BSA 2009.

No other inference implied.

[xiaxiang]

You're in China, better lock down that keyboard and mouse too.

Now tell us you're J/K'ing, cause some might be taking you seriously.

What do you mean in this post ? How dare you that ?
So give you a chance to change it...

It has dual meaning, 1) hey dude you forgot 2 other pieces of hardware, 2) reports here state China's software piracy problem is still huge, from 45% to 80% depending on who's reporting, China Daily 2010 or BSA 2009.

No other inference implied.

？
Did I misread your post? Did you have more suggestions about Lock a Lisp Routine ? It looks like your code that have been posted works truely well .Any more codes or  ideas? Btw, I just want to talk about this topic ,rather than others.

Xia