用素数的原根对程序加密

ashleytgg

     我对 http://bbs.mjtd.com/forum.php?mo ... 414&fromuid=7316343 这个帖子中 的内容稍微修改了下。我修改的内容 ，是用素数的原根 对一个字符串进行加密。
   比如素数为239，原根为7， 7是模239的原根时，7^0,7^1，……7^(239-1)构成模 239的简化剩余系。  再次声明， 本程序的大部分都是从别人那里引用来的，我只是改了一下。

1. ;; 求7 的222次方摸 239 的余数
   
2. (defun mode_N (Base_number exponent modulo / y)
   
3.   (setq y 1)
   
4.   (repeat exponent
   
5.     (setq y (* y Base_number)
   
6.     y (rem y modulo)
   
7.     )
   
8.   )
   
9.   y
   
10. )
    
11. ;;  ( mode_N  7 222 239)   
    
12. 
    
13. ;| 制造一个函数 对序列号 进行混淆  用素数239 的原根7 进行重排
    
14.   (setq str (wdy_mac )  ) 返回值"60:36:DD:6D:95:75"
    
15.   输入参数 : prime_number 素数，
    
16.             该素数的原根 Prime_primitive_root
    
17.     (setq  prime_number  239  Prime_primitive_root 7)   
    
18. |;
    
19. (defun num_Confused (str     prime_number   Prime_primitive_root
    
20.          /       str2     code
    
21.          lennum     lennum2   strlst2
    
22.          strlst
    
23.         )
    
24.   (setq  strlst  (vl-string->list str)
    
25.   lennum  (length strlst)
    
26.   str2
    
27.     "i love you ,china ,i love you ,my son
    
28.    ,i love you my wife ,you are all my passion"
    
29.   strlst2  (vl-string->list str2)
    
30.   strlst2  (append strlst2 strlst)
    
31.   lennum2  (length strlst2)
    
32.   )
    
33.   ;; 用strlst2 把strlst 元素个数 补成 prime_number 239个
    
34.   (setq i 0)
    
35.   (repeat (- prime_number lennum)
    
36.     (setq strlst (append strlst
    
37.        (list (nth (rem i lennum2) strlst2))
    
38.      )
    
39.     i   (1+ i)
    
40.     )
    
41.   )
    
42.   ;; 用 prime_number239 的原根7 对  strlst  进行重排
    
43.   (setq  i    0
    
44.   code nil
    
45.   )
    
46.   ;; (mode_N 7 i 239) 表示: 求 7^i (mode 239)  
    
47.   (repeat (length strlst)
    
48.     (setq code (cons
    
49.      (nth (mode_N Prime_primitive_root i prime_number)
    
50.           strlst
    
51.      )
    
52.      code
    
53.          )
    
54.     i    (1+ i)
    
55.     )
    
56.   )
    
57.   (vl-list->string (reverse code))
    
58. )
    
59. ;;    (LM:MD5 (vl-string->list  (num_Confused   str  239 7 )  ) )  

;; 求7 的222次方摸 239 的余数 <br /> (defun mode_N (Base_number exponent modulo / y)<br />   (setq y 1)<br />   (repeat exponent<br />     (setq y (* y Base_number)<br />     y (rem y modulo)<br />     )<br />   )<br />   y<br /> )<br /> ;;  ( mode_N  7 222 239)   <br /> <br /> ;| 制造一个函数 对序列号 进行混淆  用素数239 的原根7 进行重排<br />   (setq str (wdy_mac )  ) 返回值"60:36:DD:6D:95:75" <br />   输入参数 : prime_number 素数，<br />             该素数的原根 Prime_primitive_root<br />     (setq  prime_number  239  Prime_primitive_root 7)   <br /> |;<br /> (defun num_Confused (str     prime_number   Prime_primitive_root<br />          /       str2     code<br />          lennum     lennum2   strlst2<br />          strlst<br />         )<br />   (setq  strlst  (vl-string->list str)<br />   lennum  (length strlst)<br />   str2<br />     "i love you ,china ,i love you ,my son<br />    ,i love you my wife ,you are all my passion"<br />   strlst2  (vl-string->list str2)<br />   strlst2  (append strlst2 strlst)<br />   lennum2  (length strlst2)<br />   )<br />   ;; 用strlst2 把strlst 元素个数 补成 prime_number 239个<br />   (setq i 0)<br />   (repeat (- prime_number lennum)<br />     (setq strlst (append strlst<br />        (list (nth (rem i lennum2) strlst2))<br />      )<br />     i   (1+ i)<br />     )<br />   )<br />   ;; 用 prime_number239 的原根7 对  strlst  进行重排<br />   (setq  i    0<br />   code nil<br />   )<br />   ;; (mode_N 7 i 239) 表示: 求 7^i (mode 239)  <br />   (repeat (length strlst)<br />     (setq code (cons<br />      (nth (mode_N Prime_primitive_root i prime_number)<br />           strlst<br />      )<br />      code<br />          )<br />     i    (1+ i)<br />     )<br />   )<br />   (vl-list->string (reverse code))<br /> )<br /> ;;    (LM:MD5 (vl-string->list  (num_Confused   str  239 7 )  ) )  

烟盒迷唇

感谢分享啊   

zj20190405

大佬，厉害啊

zj20190405

非常感谢非常感谢非常感谢

zj20190405

非常感谢非常感谢非常感谢

zj20190405

大佬们，注册机无法编辑修改申请码，如何解决