+ Reply to Thread
Results 1 to 6 of 6

Thread: Security

  1. #1
    Full Member j_spawn_h's Avatar
    Using
    not specified
    Join Date
    May 2006
    Posts
    90

    Default Security

    Registered forum members do not see this ad.

    Is there any thing I can put in my lisp to keep someone from using it if they copied from my computer to theirs?

  2. #2
    Quantum Mechanic Lee Mac's Avatar
    Computer Details
    Lee Mac's Computer Details
    Operating System:
    Windows 7 Ultimate (32-bit)
    Discipline
    Multi-disciplinary
    Lee Mac's Discipline Details
    Discipline
    Multi-disciplinary
    Details
    Custom Programming / Software Customisation
    Using
    AutoCAD 2013
    Join Date
    Aug 2008
    Location
    London, England
    Posts
    19,322

    Default

    Quote Originally Posted by j_spawn_h View Post
    Is there any thing I can put in my lisp to keep someone from using it if they copied from my computer to theirs?
    Hard-code your AutoCAD serial number (_PKSER) (or some other unique identifier to your computer) into the LISP, then compile the LISP to a VLX to make it uneditable.
    Lee Mac ProgrammingTwitterExchange App StoreDropbox (500MB free)

    With Mathematics there is the possibility of perfect rigour, so why settle for less?

  3. #3
    Forum Deity pBe's Avatar
    Computer Details
    pBe's Computer Details
    Operating System:
    Windows 8.1
    Discipline
    Landscape
    Using
    AutoCAD 2015
    Join Date
    Apr 2010
    Posts
    2,951

    Default

    I usually use loginame, but AutoCAD serial number sounds a lot cooler .

    I'll try that.

    Tnx Lee

  4. #4
    Senior Member ketxu's Avatar
    Computer Details
    ketxu's Computer Details
    Operating System:
    Sorry, my English not well :(
    Computer:
    Sorry, my English not well :(
    Motherboard:
    Sorry, my English not well :(
    CPU:
    Sorry, my English not well :(
    RAM:
    Sorry, my English not well :(
    Graphics:
    Sorry, my English not well :(
    Primary Storage:
    Sorry, my English not well :(
    Secondary Storage:
    Sorry, my English not well :(
    Monitor:
    Sorry, my English not well :(
    Using
    AutoCAD 2007
    Join Date
    Sep 2010
    Location
    Sorry, my English not well :(
    Posts
    204

    Default

    Oh.. Somewhere all people use a crac* version, so their _PKSER always is "000-00000000" or "999-99999999", or has same Serial.....(might be OP ^^)
    Hi, just a joke ^^ I think we should use HDD Serial or sth similar

  5. #5
    Quantum Mechanic Lee Mac's Avatar
    Computer Details
    Lee Mac's Computer Details
    Operating System:
    Windows 7 Ultimate (32-bit)
    Discipline
    Multi-disciplinary
    Lee Mac's Discipline Details
    Discipline
    Multi-disciplinary
    Details
    Custom Programming / Software Customisation
    Using
    AutoCAD 2013
    Join Date
    Aug 2008
    Location
    London, England
    Posts
    19,322

    Default

    Quote Originally Posted by ketxu View Post
    Hi, just a joke ^^ I think we should use HDD Serial or sth similar
    Maybe (virtual serial):

    Code:
    (defun HDSerial ( drive / fso drv ser )
      (vl-catch-all-apply
        (function
          (lambda nil
            (setq fso (vlax-create-object "Scripting.FileSystemObject")
                  drv (vlax-invoke-method fso 'getdrive drive)
                  ser (vlax-get-property drv 'serialnumber)
            )
          )
        )
      )
      (if drv (vlax-release-object drv))
      (if fso (vlax-release-object fso))
      ser
    )
    Or, for the manufacturer's Serial number (only works in Vista or 7):

    Code:
    (defun HDSerial ( / wmi srv drv ser )
      (vl-catch-all-apply
        (function
          (lambda ( )
            (if
              (setq wmi (vlax-create-object "WbemScripting.SWbemLocator")
                    srv (vlax-invoke wmi 'connectserver nil nil nil nil nil nil nil nil)
                    drv (vlax-invoke srv 'execquery "Select SerialNumber from Win32_DiskDrive")
              )
              (vlax-for item drv
                (vlax-for prop (vlax-get item 'Properties_)
                  (if (eq "SERIALNUMBER" (strcase (vlax-get prop 'name)))
                    (setq ser (vl-string-trim " " (vlax-get prop 'value)))
                  )
                )
              )
            )
          )
        )
      )
      (if drv (vlax-release-object drv))
      (if srv (vlax-release-object srv))
      (if wmi (vlax-release-object wmi))
      ser
    )
    Lee Mac ProgrammingTwitterExchange App StoreDropbox (500MB free)

    With Mathematics there is the possibility of perfect rigour, so why settle for less?

  6. #6
    Quantum Mechanic ReMark's Avatar
    Computer Details
    ReMark's Computer Details
    Operating System:
    Windows 7 Pro 64-bit
    Computer:
    Thinkmate
    Motherboard:
    Intel DX58SO2 LGA1366 X58
    CPU:
    Intel i7-960 Quad-core 3.20GHz 8MB cache
    RAM:
    12GB (3x4GB) PC3-106000 DDR3
    Graphics:
    nVidia Quadro K4200, 4GB GDDR5
    Primary Storage:
    150GB Velocipraptor 10,000 rpm
    Secondary Storage:
    none
    Monitor:
    Dell P24LLH - 24" wide screen LCD
    Discipline
    See details...
    ReMark's Discipline Details
    Occupation
    CAD Draftsman/Designer...chemical manufacturing.
    Discipline
    See details below.
    Details
    I work for a specialty chemical manufacturer. I do a little bit of everything from P&IDs to civil to architectural and structural.
    Using
    AutoCAD 2018
    Join Date
    Nov 2005
    Location
    Norwalk, CT USofA
    Posts
    46,375

    Default

    Registered forum members do not see this ad.

    I thought that most people write lisp routines because they DO want to share them. Now share can mean 1) free or 2) at a cost but don't you want the world beating a path to your door demanding the perfect lisp routine you went through all the trouble to create? Have you ever "borrowed" someone else's lisp routine?
    "I have only come here seeking knowledge. Things they wouldn't teach me of in college." The Police

    Eat brains...gain more knowledge!

    I'm now a full member of the Society for the Promotion of Mediocrity in CAD. Standards? We don't need no stinkin' standards! Take whatever advice I offer and do the opposite.

Similar Threads

  1. Security??
    By resident in forum SolidWorks
    Replies: 4
    Last Post: 11th Jul 2008, 06:08 pm
  2. Security Blocks?
    By CADken in forum AutoCAD Drawing Management & Output
    Replies: 3
    Last Post: 15th Oct 2007, 01:54 pm
  3. ADT Security Cad Symbols??
    By bordominc in forum AutoCAD Drawing Management & Output
    Replies: 0
    Last Post: 23rd Feb 2007, 03:21 pm
  4. Security - Password
    By zars in forum AutoCAD Drawing Management & Output
    Replies: 6
    Last Post: 23rd Aug 2006, 10:08 pm
  5. SECURITY
    By cadiva in forum AutoCAD Drawing Management & Output
    Replies: 2
    Last Post: 15th Aug 2005, 06:09 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts