Base64 解码程序搞定，并且写入二进制到硬盘。

yxpxa

2. ;; Base64 解码程序，可以将任何文件以 Base64 码打包 vlx 。
   
3. ;; 只是解码，不能编码，编码程序可以用第三方工具了
   
4. ;; 进制转换的效率低了点，需要优化算法，提高运算速度
   
5. ;;
   
6. (defun unBase()
   
7. (setq ss (getfiled "打开 Base64 编码文件" "E:\" "" 4))
   
8. (if ss (progn
   
9.     (setq f (open ss "r"))
   
10.     (setq Lncc '())
    
11.     (while (setq row (read-line f)) (setq Lncc (cons row Lncc)))
    
12.     (setq Lncc (reverse Lncc))
    
13.     (close f)
    
14. 
    
15.   (setq Bina (unBase_Binary Lncc))
    
16.   (setq n 0 str16 "")
    
17.   (repeat (length bina)
    
18.    (setq str16 (strcat str16 (B2tof16 (substr (nth n Bina) 1 4))
    
19.                              (B2tof16 (substr (nth n Bina) 5 4)))
    
20.          n (+ n 1))
    
21.    )
    
22.   (setq ss (vl-string-subst "" (vl-filename-extension ss) ss))
    
23.   (Write_Binary ss str16)
    
24. ))
    
25.   (princ)
    
26. )
    
27. ;; 函数: Write_Binary 来自highflybird版主，转载请注明出处
    
28. (defun Write_Binary (FileName buffer / wsObj str)
    
29.   (if (setq wsObj (vlax-create-object "ScriptControl"))
    
30.     (progn
    
31.       (vlax-put wsObj "language" "VBS")
    
32.       (setq str
    
33.        "Sub WriteBinary(FileName, Buf)
    
34. Const adTypeBinary = 1
    
35. Const adSaveCreateOverWrite = 2
    
36. Dim stream, xmldom, node
    
37. Set xmldom = CreateObject("Microsoft.XMLDOM")
    
38. Set node = xmldom.CreateElement("binary")
    
39. node.DataType = "bin.hex"
    
40. node.Text = Buf
    
41. Set stream = CreateObject("ADODB.Stream")
    
42. stream.Type = adTypeBinary
    
43. stream.Open
    
44. stream.write node.NodeTypedValue
    
45. stream.saveToFile FileName, adSaveCreateOverWrite
    
46. stream.Close
    
47. Set stream = Nothing
    
48. Set node = Nothing
    
49. Set xmldom = Nothing
    
50.   End Sub"
    
51.       )
    
52.       (vlax-invoke wsObj 'ExecuteStatement str)
    
53.       (vlax-invoke wsObj 'run "WriteBinary" Filename buffer)
    
54.       (vlax-release-object wsObj)
    
55.       (princ)
    
56.     )
    
57.   )
    
58. )
    

;; Base64 解码程序，可以将任何文件以 Base64 码打包 vlx 。<br /> ;; 只是解码，不能编码，编码程序可以用第三方工具了<br /> ;; 进制转换的效率低了点，需要优化算法，提高运算速度<br /> ;; <br /> (defun unBase()<br /> (setq ss (getfiled "打开 Base64 编码文件" "E:\" "" 4))<br /> (if ss (progn<br />     (setq f (open ss "r"))<br />     (setq Lncc '())<br />     (while (setq row (read-line f)) (setq Lncc (cons row Lncc)))<br />     (setq Lncc (reverse Lncc))<br />     (close f)<br /> <br />   (setq Bina (unBase_Binary Lncc))<br />   (setq n 0 str16 "")<br />   (repeat (length bina)<br />    (setq str16 (strcat str16 (B2tof16 (substr (nth n Bina) 1 4))<br />                              (B2tof16 (substr (nth n Bina) 5 4)))<br />          n (+ n 1))<br />    )<br />   (setq ss (vl-string-subst "" (vl-filename-extension ss) ss))<br />   (Write_Binary ss str16)<br /> ))<br />   (princ)<br /> )<br /> ;; 函数: Write_Binary 来自highflybird版主，转载请注明出处<br /> (defun Write_Binary (FileName buffer / wsObj str)<br />   (if (setq wsObj (vlax-create-object "ScriptControl"))<br />     (progn<br />       (vlax-put wsObj "language" "VBS")<br />       (setq str<br />        "Sub WriteBinary(FileName, Buf)<br /> Const adTypeBinary = 1<br /> Const adSaveCreateOverWrite = 2<br /> Dim stream, xmldom, node<br /> Set xmldom = CreateObject("Microsoft.XMLDOM")<br /> Set node = xmldom.CreateElement("binary")<br /> node.DataType = "bin.hex"<br /> node.Text = Buf<br /> Set stream = CreateObject("ADODB.Stream")<br /> stream.Type = adTypeBinary<br /> stream.Open<br /> stream.write node.NodeTypedValue<br /> stream.saveToFile FileName, adSaveCreateOverWrite<br /> stream.Close<br /> Set stream = Nothing<br /> Set node = Nothing<br /> Set xmldom = Nothing<br />   End Sub"<br />       )<br />       (vlax-invoke wsObj 'ExecuteStatement str)<br />       (vlax-invoke wsObj 'run "WriteBinary" Filename buffer)<br />       (vlax-release-object wsObj)<br />       (princ)<br />     )<br />   )<br /> )<br />

下面一些函数和解码附件程序设置积分权限。

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

下面是晓东空间 logo 的 base64 编码
运行解码程序，选择该txt文件后，可在原路径生成图片，欢迎验证。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:小东家园.png.txt 
下载次数:48  文件大小:22.72 KB 
下载权限: 不限 以上  [免费赚D豆]

有空再写个编码程序
进制转换我用的是最基本的数学原理，速度慢了点。

base64是基于网络传送的通用标准，字符集不能修改。
但是如果把那64个字符集更换一批，或者用汉字代替，或者顺序打乱一下。
那么编码和解码的过程就是比较高级的加密和解密，还是有一定的应用价值。

hao3ren

搞不太懂干什么的

XDSoft

期待楼主算法上在精进下，很好的代码。

yxpxa

算法改进了，跳过字符串的截取操作，跳过进制转换，直接用位运算。
速度提高了6-8倍，解码转换30k的数据，大约需要0.5秒，还是慢了些。
要是能读取指针就好了，速度还能再快些

cabinsummer

进制转化可以用lsh函数，效率快多了。

kqqt6236

学习了。        

Giraffe先生

感谢楼主分享！！！！

byqzhz

感谢楼主分享！！！！

kqqt6236

这个不错。

satan421

特来学习一下！

kurt1000

好像去年这个帖子我能够看的 现在居然看不了 说权限39 不够50 ，这级给降的，也没有干啥坏事啊

zrg1

支持，谢谢分享