精华内容
下载资源
问答
  • lisp加密
    2020-12-21 11:01:45

    (defun UseLimit(/ FIND_SERIALNUMBER regNumber num regnum reg_path *error*)

    (defun *error* (msg / ent count)

    (princ)

    )

    (defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)

    (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))

    ;;(vlax-dump-object FILSYS t)

    (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))

    ;;(vlax-dump-object VAL t)

    (setq VAL (vl-catch-all-apply

    'vlax-get

    (list VAL "SerialNumber")

    )

    )

    (vlax-release-object FILSYS)

    (if(vl-catch-all-error-p VAL)

    (setq VAL NIL)

    VAL

    )

    )

    (setq reg_path "HKEY_CURRENT_USER\\Software\\VB and VBA Program Settings\\temp")

    (setq regNumber (vl-registry-read reg_path "注册码"))

    (if (/= regNumber

    (itoa

    (/ (atoi (rtos (atoi (rtos (FIND_SERIALNUMBER "C:"))))) 2);;;注册码=申请码/2

    )

    )

    (progn

    (alert

    (strcat

    "请注册!")

    )

    (setq num (rtos (FIND_SERIALNUMBER "C:")))

    (setq regnum (itoa (/ (atoi (rtos (atoi num))) 2)));;;注册码=申请码/2

    (textscr)

    (princ

    (strcat "您的申请码为: " num)

    )

    (setq regNumber (getstring "\n请输入注册码:"))

    (if (/= regNumber regnum)

    (progn

    (alert "注册码无效!")

    (exit)

    )

    (progn

    (vl-registry-write reg_path "注册码" regnum)

    (alert "您已成功注册!")

    )

    )

    T

    )

    )

    (princ)

    )

    更多相关内容
  • Lisp破解程序

    2015-09-24 14:44:09
    Lisp破解程序,可以破解加密lisp程序,autocad专用程序。
  • 加密一个lisp文件(defun C:TT4 (/ FF FNAME LST TMP);;读文件(if (setq fname (getfiled "***选择Lsp文件***" "" "lsp" 16))(progn(setq FF (open fname "r"))(while (setq TMP (read-char FF))(setq LST (cons TMP ...

    ;;加密一个lisp文件

    (defun C:TT4 (/ FF FNAME LST TMP)

    ;;读文件

    (if (setq fname (getfiled "***选择Lsp文件***" "" "lsp" 16))

    (progn

    (setq FF (open fname "r"))

    (while (setq TMP (read-char FF))

    (setq LST (cons TMP LST))

    )

    (close FF)

    (setq Lst (reverse Lst))

    (setq FF (open fname "w"))

    ;;写入文件头

    (foreach N (vl-string->list "AutoCAD PROTECTED LISP file")

    (write-char N FF)

    )

    (write-char 13 FF)

    (write-char 10 FF)

    (write-char 26 FF)

    ;;写入

    (write-char 65 FF)

    (setq LST (++++ LST 65))

    (foreach N LST (write-char N FF))

    (close FF)

    )

    )

    (princ)

    )

    ;;;========================================================

    ;;;功能:定义函数,实现 左移一位操作

    ;|;;测试:(setq lst (vl-string->list "(princ)"))

    (++++ lst  65)

    |;

    ;;转入十进制,输入十进制

    (defun F+ (INT / TMP)

    ;;十进制转化为二进制

    (setq TMP (DEG->BIN INT))

    ;;补齐为 8 位

    (while (< (strlen TMP) 8)

    (setq TMP (strcat "0" TMP))

    )

    ;;将首位移动到末位

    (setq TMP (strcat (substr TMP 2 7) (substr TMP 1 1)))

    ;;返回

    (BIN->DEG TMP)

    )

    ;;;========================================================

    ;;;功能:仿autolisp加密文本

    (defun ++++ (LST KEYSCI / LST1 N TMP)

    (foreach N LST

    (progn

    ;;异或操作

    (setq TMP (boole 6 KEYSCI N))

    (setq LST1 (cons TMP LST1))

    ;;计算下一个 密匙

    (setq KEYSCI (F+ TMP))

    )

    )

    ;;(vl-list->string (reverse LST1))

    (reverse LST1)

    )

    ;;;======================================================================================

    ;;;十进制转化为二进制

    ;;;例如:(deg->bin 3) 返回"11"

    ;;;      (deg->bin 5) 返回"101"

    (defun DEG->BIN        (INT / A B)

    (if        (< INT 1)

    "0"

    (if (= INT 1)

    "1"

    (progn

    (setq A        (/ INT 2)

    B        (- INT (* A 2))

    )

    (strcat        (DEG->BIN A)

    (itoa B)

    )

    )

    )

    )

    )

    ;;;======================================================================================

    ;;;二进制转化为十进制

    ;;;例如:(bin->deg "11")  返回 3

    ;;;      (deg->bin "101") 返回 5

    (defun BIN->DEG        (STR)

    (if        (<= (strlen STR) 1)

    (if (= STR "1")

    1

    0

    )

    (if (= (substr STR 1 1) "1")

    (+ (expt 2 (- (strlen STR) 1))

    (BIN->DEG (substr STR 2))

    )

    (BIN->DEG (substr STR 2))

    )

    )

    )

    展开全文
  • alisp文件加密测试.LSP

    2021-01-13 00:31:41
    |alisp文件加密的探索AutoLISP保护文件的格式AutoCAD虽然没有提供加密、解密AutoLISP的工具软件,但其本身却可以接收两种格式的LISP文件.一种是保护格式的;另一种是文本格式的.读入文件后,AutoCAD首先会作出判断,一旦...

    alisp文件加密测试.LSP

    (2012-02-26 17:02:35)

    标签:

    四柱液压机

    娱乐

    alisp文件加密测试.LSP

    最后修改时间: ;|alisp文件加密的探索AutoLISP保护文件的格式

    AutoCAD虽然没有提供加密、解密AutoLISP的工具软件,但其本身却可以接收两种格式的LISP文件.一种是保护格式的;另一种是文本格式的.读入文件后,AutoCAD首先会作出判断,一旦确定文件是保护格式的,则在加载该程序前,自动将加密文件代码予以还原,然后再读入命令解释器.下面我们来看看AutoLISP保护格式文件的格式.起始地址及终止地址(Bytes)

    功能 0-29 保护文件的标识字符串计30Bytes,为"AutoCAD PROTECTED

    LISP file\0x0D\0x0A\0x1A". 30 密码字符,只有一个字节. 31及以后

    已加密的程序码.注意:前30个字节用户不得改动; 第30位是密码字母,龙门液压机,用户可以任意给定,譬如字母'A';

    第31位起可由附录程序经过加密计算后写入文件.**加密与解密的原理**

    加密与解密的一个重要工具是"按位异或(^)运算".其作用是判断两运算量相应位的值是否"相异",若为异,则为1,否则为0.即:0^0=0;0^1=1;1^0=1;1^1=0.因其具有双向转换、还原的能力,四柱三梁,故在密码学上得到广泛应用.让我们来看看:

    A|01000001 8|00111000 ^y|01111001 ^A|01000001 8|00111000

    y|01111001上式中0x41='A'、0x79='y'、0x38='8',

    'A'^'y'='8';'8'^'A'='y';'y'^'8'='A'. 可以看出按位异或运算具有双向转换、还原的能力.

    AutoCAD在加密、解密时,除了运用上述方法外,四柱液压机,另外还使用了一个技巧,就是移位运算,

    将被转换字符的8个位全部左移一位,相当于将该整数乘以2,若最高位是1(移位后>256),

    则将溢出位1移至最末位,否则用0代替末位,这样就保证了加密码与原代码一一对应.我们假设用函数F表示这一运算过程.----字符0x96,二进制为10010110,则F(0x96)=F(10010110)=00101101=0x2D.----我们用下面两个算式,三梁四柱油压机,来说明加密、解密的具体过程,式中各符号的意义:A0->B=A^B;A-B=F(A)^B;A/B=F(A)^B;各字符均以16进制表示,假设密码字母是'A'(0x41).原始程序码为:(PRINC)加密过程如下:----(princ)

    -> 28 70 72 69 6E 63 29 具体过程为: 1、0x41^0x28=0x69;

    (按位异或) 2、F(0x69)=0xD2; (移位运算) 3、0xD2^0x70=0xA2; (按位异或)

    2、F(0xA2)=0x45; (移位运算) 3、0x45^0x72=0x37;结果(69 A2 37 07 60 A3

    6E)解密过程如下:----41->

    69-A2-37-76-0A-36-ED-hh(依次类推)----287072696E6329结果(PRINC)具体过程为:1、0x41^0x69=0x28;(字符'(')2、F(0x69)=0xD2;3、0xD2^0xA2=0x70;(字符'p')hh|功能:定义函数,实现

    左移一位操作;|;;测试:(setq lst (vl-string->list

    "(princ)lst 65)|;(defun F+ (INT / TMP) ;;先转换成二进制

    (setq TMP (DEG->BIN INT)) ;;补齐为 8 位(while

    (< (strlen TMP) 8) (setq TMP (strcat

    "0" TMP)) ) ;;将首位移动到末位 (setq TMP

    (strcat (substr TMP 2 7) (substr TMP 1 1))) ;;返回

    (BIN->DEG TMP)功能:仿autolisp加密文本(defun ++++ (LST

    KEYSCI / LST1 N TMP) (setq LST1 foreach N LST (progn 异或操作 (setq TMP

    (boole 6 KEYSCI N)) (setq LST1 (cons TMP LST1)计算下一个 密匙 (setq KEYSCI

    (F+ TMP)返回 ;;(vl-list->string (reverse LST1))

    (reverse LST1)解密;;; (defun ---- (LST KEYSCI / LST1 N TMP) (setq

    LST1 foreach N LST (progn 异或操作 (setq TMP (boole 6 KEYSCI N)) (setq

    LST1 (cons TMP LST1)计算下一个 秘匙 (setq KEYSCI (F+ N)返回

    ;;(vl-list->string (reverse LST1)) (reverse

    LST1)defun C:TT1 (/ STR LST FF N) ;; (setq STR

    "(PRINC

    \"OK\")") (setq

    LST (vl-string->list STR)) (setq LST (++++ LST 65))

    ;;写入文件 (setq FF (open

    "d:\\test\\test.txt"

    "w")) (foreach N LST (write-char

    N FF) ) (close FF) (princ)defun C:TT2 (/ LST FF TMP N) (setq LST

    '()) ;;读文件 (setq FF (open

    "d:\\test\\test.txt"

    "r")) (while (setq TMP (read-char

    FF)) (setq LST (cons TMP LST)) ) (close FF) ;; (setq LST (----

    (reverse LST) 65)) (princ (vl-list->string LST))

    (princ)加入文件头(defun C:TT3 (/ LST FF TMP N I) (setq LST '()) ;;读文件

    (setq FF (open

    "d:\\test\\test.txt"

    "r")) (while (setq TMP (read-char

    FF)) (setq LST (cons TMP LST)) ) (close FF) ;;写入文件 (if (setq FF

    (open "d:\\test\\test.lsp"

    "w")) (progn ;;写入文件头 (foreach N

    (vl-string->list "AutoCAD PROTECTED

    LISP file") (write-char N FF) ) (write-char 13 FF)

    (write-char 10 FF) (write-char 26 FF) ;;写入 (write-char 65 FF)

    ;;写入文件内容 (setq STR "(alert

    \"测试成功\")(PRINC

    \"OK\")") (setq

    LST (vl-string->list STR)) (setq LST (++++ LST 65))

    (foreach N LST (write-char N

    FF)princ)十进制转化为二进制;;;例如:(deg->bin 3)

    返回"11";;;

    (deg->bin 5)

    返回"101"(defun

    DEG->BIN (INT / A B) (if (< INT 1)

    "0" (if (= INT 1)

    "1" (progn (setq A (/ INT 2) B (-

    INT (* A 2)) ) (strcat (DEG->BIN A) (itoa

    B)二进制转化为十进制;;;例如:(bin->deg

    "11") 返回 3;;;

    (deg->bin "101")

    返回 5(defun BIN->DEG (STR) (if (<=

    (strlen STR) 1) (if (= STR "1") 1

    0 ) (if (= (substr STR 1 1) "1")

    (+ (expt 2 (- (strlen STR) 1)) (BIN->DEG (substr STR

    2)) ) (BIN->DEG (substr STR 2)) ) ))

    分享:

    喜欢

    0

    赠金笔

    加载中,请稍候......

    评论加载中,请稍候...

    发评论

    登录名: 密码: 找回密码 注册记住登录状态

    昵   称:

    评论并转载此博文

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

    展开全文
  • 加密cad图形的lisp文件

    2010-08-14 16:59:44
    加密cad图纸的lisp文件,加密后只能看不能编辑,源码开放
  • Ironclad是完全用Common Lisp编写的加密库。 它包括对几种流行的,, 和算法的支持。 对于一些支持Gray流的实现,包含了对方便的。 尽管几乎在所有情况下都提供了可移植代码作为替代方法,但是大多数算法都是针对...
  • //lsp文件加密文件的解密:bool unProtected_Lisp_1(){char fin[1000];char fou[1000];// 选择的文件名称CString lv_strFileName = _T("");// 设置文件过滤格式CString lv_strFilterLSP = _T("lsp文件(*.lsp)|*.lsp|...

    //lsp文件加密文件的解密:

    bool unProtected_Lisp_1()

    {

    char fin[1000];

    char fou[1000];

    // 选择的文件名称

    CString lv_strFileName = _T("");

    // 设置文件过滤格式

    CString lv_strFilterLSP = _T("lsp文件(*.lsp)|*.lsp|");

    CString lv_strFileFilter = lv_strFilterLSP;

    // 设置文件后缀名称

    CString lv_strName[] = {"", "lsp",""};

    CString lv_strExtension = _T("");

    CString m_strFilePathName;

    CString m_strFileName;

    CString m_strExtName;

    // 打开保存文件对话框

    CFileDialog lv_FileOpenDlg(FALSE, NULL, NULL, OFN_HIDEREADONLY, lv_strFileFilter);

    lv_FileOpenDlg.m_ofn.lpstrTitle   =   "【LISP文件解密】 选择已加密的LISP文件:";

    if (IDOK != lv_FileOpenDlg.DoModal())

    {

    return false;

    }

    else

    {

    //  CString CFileDialog::GetPathName :得到完整文件名,包括目录名和扩展名如:c:/test/test1.txt

    //  CString CFileDialog::GetFileName :得到完整文件名,包括扩展名如:test1.txt

    //  CString CFileDialog::GetFileExt  :得到完整文件扩展名,如:txt

    //  CString CFileDialog::GetFileTitle:得到完整文件名,不包括目录名和扩展名如:test1

    m_strFilePathName = lv_FileOpenDlg.GetPathName();

    m_strFileName = lv_FileOpenDlg.GetFileName();

    m_strExtName = lv_FileOpenDlg.GetFileExt();

    strcpy(fin,((LPSTR&)m_strFilePathName));

    CString m_strOutFilePathName=m_strFilePathName.Left(m_strFilePathName.GetLength()-4);

    m_strOutFilePathName.Replace("_pro","");

    m_strOutFilePathName+="_res.lsp";

    strcpy(fou,((LPSTR&)m_strOutFilePathName));

    }

    //

    FILE *in_file,*out_file;

    //register char zf1,zf2;

    in_file=fopen(fin,"rb");

    if(in_file==NULL)

    {

    AfxMessageBox("\n不能打开LISP已加密的源文件!");

    return false;

    }

    CString strINdex;

    fgets((LPSTR&)strINdex, 28, in_file);

    if(strINdex.Find("PROTECTED LISP")==-1)

    {

    fclose(in_file);

    AfxMessageBox("\nLISP文件没有加密,不用解密!");

    return false;

    }

    out_file=fopen(fou,"wb");

    if(out_file==NULL)

    {

    fclose(in_file);

    AfxMessageBox("\n不能建立LISP解密文件!");

    return false;

    }

    //30:1Bytes,存储密码字符,如'A'

    //fputc('A',out_file);

    unsigned char pass_ch;

    long strPass=30;

    fseek(in_file,strPass,SEEK_SET);

    pass_ch=fgetc(in_file);

    //fputs(";;AutoCAD unPROTECTED LISP file",out_file);//27个

    //fputs("\0x0D\0x0A",out_file);

    //putc(0x0A,out_file);//27个 0x0A

    //printf("strPass=%s\n",pass_ch);

    //CString strFormat;

    //strFormat.Format("strPass=%d\n",pass_ch);

    //AfxMessageBox(strFormat);

    int nIndex=0;

    unsigned char old_ch;

    unsigned char new_ch;

    unsigned int i;

    fseek(in_file,31,SEEK_SET);

    while (! feof (in_file))

    {

    old_ch=fgetc(in_file);

    //文件结束中断循环

    if (old_ch == 0x1A) //0x1A 文件结束

    {

    break;

    }

    //若为回车继续循环

    if (old_ch == 0x0D) //0x0D 回车

    continue;

    //异或运算

    new_ch = pass_ch ^ old_ch;

    //用上一密码字符

    if ((new_ch == 0x0D)||(new_ch == 0x1A)) //是 回车 或 文件结束

    new_ch=old_ch;

    //若为换行,则加回车

    if (new_ch == 0x0A) //0x0A 换行

    putc (0x0D,out_file); //0x0D 回车

    //写入已加密字符

    putc(new_ch,out_file);

    //左移一位,相当于乘2

    i=old_ch; //注意:这里与加密不同!!!

    i = i<<1;

    //溢出位1,加到末位

    if (i>255)

    i=i-255;

    //产生新的密码字符

    pass_ch = (unsigned char) i;

    }

    fclose (in_file);

    //putc(0x1A,out_file);

    fclose (out_file);

    return true;

    }

    展开全文
  • Emacs Lisp中的RSA密码术这是的Emacs Lisp实现。 Emacs的calc用于大整数运算。 密钥是从/dev/urandom生成的。 该软件包不处理协议或密钥存储(例如,硬部分)。 这只是数学函数。 阅读更多:快速演示这是一个使用...
  • 一个用Common Lisp编写的加密货币行情收录器应用程序。 感谢包装了ECL和EQL5。 该项目的规范主页为 (该项目也被推送到GitLab和GitHub,但是不监视这些站点的支持。) 已知的问题 我想我忘记了获取更新的KrakenD...
  • 可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之后,变成了块参照,我需要再对它执行一次explode命令,希望高人指点一下,我对lisp程序不是很懂,我的思路是...
  • [下载][原创]非常好用的AutoLisp工具集合(New)********************************************************** AyungerStudio AutoCAD-Tools 更新日期: 2006.06.16 *************************************************...
  • 门罗币工具这是一个使用 Monero 加密货币的 Common Lisp 工具箱。 有几种系统: monero-utils :基本实用函数(整数/字节转换、base58 编码等)。 monero-tools :可以离线使用的工具(加密函数、地址生成等)。 ...
  • Visual LISP语言可以访问CAD的对象模型, 不仅使程序开发变得更容易,更快捷,还提供了新的LISP语言应用功能。例如,可以使用VLISP以LISP语言访问ActiveX对象。还可以通过VLISP与其他支持ActiveX方法的Windows应用...
  • Lisp-加密-教程 圣地亚哥梅萨社区学院计算机科学入门课程使用 Lisp 解释加密的教程。 本课将向学生介绍使用匿名函数、柯里化和 lambda 的凯撒密码。 Chet Allmon 的知识共享许可 Lisp 加密教程根据知识共享署名 4.0...
  • 本人收集到的几个小CAD二次开发LISP程序,与大家分享
  • Visual LISP学习资料.rar

    2019-08-02 20:25:49
    DCL控件 加密解密案例 AutoCAD-LISP实用程序 AutoLISP入门教程.doc Visual LISP程序设计及其应用教程 周明 LISP函数参考2008中文版.chm
  • 图纸加密lockdwg.zip

    2019-09-01 21:32:41
    CAD图纸加密程序,可防止CAD图纸被别人修改,使用超级简单,压缩包内有教程。
  • ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;读原始数据文件,得到全信息的表文件;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;...;;;;......
  • 多用户通用 lisp repl 了解这里的每个 Common Lisp 系统都包含更大的 :MUCLR 项目的一部分,... 还具有简单的聊天和文件共享功能,这两个方面都包括对用户透明的加密和可配置以适应个人的加密品味。 A :MUCLR 集线器
  • 要在Windows中获得加密安全的随机数,需要付出更多的努力,因此我没有打扰。 漂亮的标准Lisp软件包。 cl-diceware.asd中的系统定义。 在Clozure Common Lisp(CCL)和Steel Bank Common Lisp(SBCL)中进行了测试...
  • 加密锁驱动UKEY3000 兼容chrome,IE,火狐等浏览器,支持c#,c++,java,PHP等引用,包含全部手册
  • 现在的加密方式为 ;;;获取物理磁盘C的序列号进行除2取整运算 ;;;所以注册码=取整(申请码/2) ;;;如申请码为1550011861,则注册码=1550011861/2=775005930.5,去掉小数 ;;;注册码则为775005930,即可注册成功 当然,...
  • CAD文件加密插件

    2012-12-06 22:23:22
    该插件用于CAD文件加密,采用visuallisp语言编写,可对cad文件进行无解加密。使用方法:打开所需加密的cad文件》命令"appload"》加载该文件》命令"lockup",即可完成加密
  • .fas是加密的lsp格式,也就是说我们用记事本打不开,无法进行二次编辑。 .vlx是.lsp,.dcl,.fas三者的加密格式。 了解了三种插件格式后,我们来看看区别,这里以最常见的.lsp和.vlx为例。 .lsp是以命令方式使用 .vlx...
  • Twinkle Notes是具有隐私权的个人知识库,具有端到端的加密同步功能。 注释存储在加密的sqlite3文件(SQLCipher)中。 有关更多信息,请参见 我们决定开源该应用程序,因为我们相信 仅当数据隐私至关重要时,您才...
  • #if !HC2019usingAutodesk.AutoCAD.ApplicationServices;usingAutodesk.AutoCAD.DatabaseServices;usingAutodesk.AutoCAD.DatabaseServices.Filters;usingAutodesk.AutoCAD.EditorInput;usingAutodesk.AutoCAD.Geome...
  • 经过不断地编码和调试,您开发的LISP应用程序已经满足需求了,但这并不意味着整个开发阶段完成,还需要发布您的工作成果。本节介绍发布LISP程序的步骤:整理源代码也许您在开发过程中就已经完成了这项工作,但是在...
  • 国外网站收集的851个LISP源码,全部是lisp的未加密文档
  • 加密狗的介绍

    千次阅读 2012-04-05 12:10:41
     加密狗是外形酷似U盘的一种硬件设备,正名加密锁,后来发展成如今的一个软件保护的通俗行业名词,"加密狗"是一种插在计算机并行口上的软硬件结合的加密产品(新型加密狗也有usb口的)。一般都有几十或几百字节的非...
  • 我CAD自带的VLisp编写了一个Lisp程序,测试OK的,但生成vlx文件加载进来,确提示不能识别...本节通过一个简单的实例来讲述LISP程序的创建过程,介绍编制LISP程序的一些基本步骤,以及LISP...下面是我找到的资料,希望对...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,436
精华内容 1,374
关键字:

lisp加密

友情链接: plaf.rar