[原创]：用AutoLisp开发的加密程序

wujimmy

今天斑主又给我加币了,想想怪不好意思的,自己在这里学了好多
却没有什么好东东回报大家,
想来想去,还是公开一下自已刚刚写的代码吧,也算是为大家做贡献吧
在没有公开前这代码可能还能用,公开后就不知道了
这是一种加密算法.因为数学不好,无法验证其保密性如何.
参考:
http://www.google.com/search?q=% ... dow=1&start=10&sa=N

[pcode=lisp,true]
(defun crypt (min_wen mi_yao)
  (while (< (length mi_yao) (length min_wen))
    (setq
      mi_yao (strcat  mi_yao mi_yao)    )
  )
  (setq min_wen_lst min_wen)
  (setq mi_yao_lst mi_yao)
  (setq i% 0
        mi_wen nil)
  (repeat (length min_wen_lst)
     (progn
       (setq mi_wen_si (boole 6 (nth i% min_wen_lst) (nth i% mi_yao_lst)))
       ;(setq mi_wen_si (boole 6 mi_wen_si (nth i% mi_yao_lst)))
       (setq mi_wen (append mi_wen (list mi_wen_si)))
       (setq i% (1+ i%))
       );_progn
    );_repeat  
mi_wen
  )

;;;加密
(setq min_wen (vl-string->list "www.wujimmy.com"))
(setq mi_yao (vl-string->list"wujimmy"))
(setq mi_wen(crypt min_wen mi_yao))
;;;加密

;;;解密
(setq mi_yao (vl-string->list"wujimmy"))
(setq min_wen (crypt mi_wen mi_yao))
(setq min_wen (vl-list->string min_wen))
;;;解密
[/pcode]
***************************************************************
***以下内容来自internet,非本人作品,如果....那么....
***************************************************************

在密码学里，有一种理想的加密方案，叫做一次一密乱码本（one-time pad）。

one-time pad的算法有以下要求：
1、密钥必须随机产生
2、密钥不能重复使用
3、密钥和密文的长度是一样的。

one-time pad是最安全的加密算法，双方一旦安全交换了密钥，之后交换信息的过程就是绝对安全的啦。这种算法一直在一些要求高度机密的场合使用，据说美国和前苏联之间的热线电话、前苏联的间谍都是使用One-time pad的方式加密的。不管超级计算机工作多久，也不管多少人，用什么方法和技术，具有多大的计算能力，都不可能破解。
public class OneTimePadUtil {
    public static byte[] xor(byte[] bytes, byte[] keyBytes) {
        if (keyBytes.length != bytes.length) {
            throw new IllegalArgumentException();
        }

        byte[] resultBytes = new byte[bytes.length];

        for (int i = 0; i < resultBytes.length; ++i) {
            resultBytes = (byte) (keyBytes ^ bytes);
        }

        return resultBytes;
    }
}


String plainText = "明文明文还没有加密啊";
String keyText = "密码密码我是密码";

byte[] plainBytes = plainText.getBytes();
byte[] keyBytes = keyText.getBytes();

assert plainBytes.length == keyBytes.length;

//加密
byte[] cipherBytes = OneTimePadUtil.xor(plainBytes, keyBytes);

//解密
byte[] cipherPlainBytes = OneTimePadUtil.xor(cipherBytes, keyBytes);

qjcpj

研究一下！

aliu22

请问能否实现cad图可以游览但不可以修改的里lisp程序吗

wujimmy

最初由 aliu22 发布
[B]请问能否实现cad图可以游览但不可以修改的里lisp程序吗 [/B]

这个问题目前要看autodesk公司的了

njshf

我也想要加密

taner

请问在编程中怎么使用你的这个加密程序啊

wkai

按位异或是最常见的加密方法。

wujimmy

这个加密程序主要是用来加密字符串的
结合我的一篇"[密技]：用visual isp也能利用网络连接(比如做个聊天软件,网上验证)"
就可以在网络验证上加密了

也可以用于注册码加密啊,等等....

yunlong3000

有点问题：mi_yao是以表的形式传递给函数crypt的，可是在函数crypt中又对mi_yao进行strcat操作。出现如下错误：“错误: 参数类型错误: stringp (119 117 106 105 109 109 121)”

是否应将strcat改为append

wujimmy

这么久了,,终于有一个人对这个感兴趣啊 : - )
mi_yao其实就是密码,,密码是越长越好,按照上面的写法,不大好
因为通过统计学的方法,就可以找出密码来,所以用一个算法可以把mi_yao的长度变的和
明文一样长的方法 就是很好的一个方法
比如说,把密码看成是一个数,那么用数与数相X就会得到更长的数
这样就可以得到one-time pad的效果了
不知道这样的说法对不对.不过起码比原来的这个简单的好多了

bluesky111

这个方法不是太可行，最好是用注册码或加密狗．

雨箭风刀

(while (< (length mi_yao) (length min_wen))
    (setq
      mi_yao (strcat  mi_yao mi_yao)    )
  )
这里有问题  strcat

lewyee

是注册还是加密源码?注册无论如何都可以破解得,加密只要是FAS他就没办法了,一般我会限制使用次数!好简单哦,菜鸟都编得出来!

neuwzy

好东西啊
谢谢楼主

lidejun_55

感觉没有什么意义