;;加密一个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

(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

赠金笔

加载中，请稍候......

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

发评论

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

昵   称：

评论并转载此博文

发评论

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

//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;

}