论坛压缩包不能打开的修复程序

yxp · 发表于 2021-12-19 19:36

论坛可能避免为病毒感染，自动添加修改了首字节，运行下面的lisp程序可以自动删除首字节，
压缩包即可正常解开。这个程序就不打包上传了，不然无法解开压缩包。

;; 明经通道论坛 2021-12-19 yxp
;; 删除一个文件多余的head字节，0D0A
(vl-load-com)
(defun c:deletebyte (/ a LSP isUnnec)
(setq a (getfiled "选择需要删除首字节的文件"
(if filesPathDefault filesPathDefault "")
"*"
0
)
)
(if a
(progn
(setq filesPathDefault a
LSP (read_Bin a)
isUnnec (and (= (car LSP) 13) (= (cadr LSP) 10))
exten (vl-filename-extension a)
fnanme (vl-string-trim exten a)
newFilesName (strcat fnanme "_mod" exten)
)
(if isUnnec
(progn
(write_Bin (cddr LSP) newFilesName)
(princ "\n文件首字节已删除，保存在 ")
(princ newFilesName)
)
(princ "文件首字节不符合删除要求")
)
)
)
(princ)
)
(defun write_Bin (Blist file / ADO vbin)
(setq vbin (vlax-make-safearray 17 (cons 0 (1- (length Blist)))))
(vlax-safearray-fill vbin Blist)
(vlax-make-variant vbin)
(setq ADO (vlax-create-object "ADODB.Stream"))
(vlax-put-property ADO 'type 1)
(vlax-invoke-method ADO 'open 'nil 'nil 'nil 'nil 'nil)
(vlax-invoke-method ADO 'Write vbin)
(vlax-invoke-method ADO 'saveToFile file 2)
(vlax-invoke-method ADO 'close)
(vlax-release-object ADO)
)
(defun read_Bin (file / vbin ADO)
(setq ADO (vlax-create-object "ADODB.Stream"))
(vlax-put-property ADO 'type 1)
(vlax-invoke-method ADO 'open 'nil 'nil 'nil 'nil 'nil)
(vlax-invoke-method ADO 'LoadFromFile file)
(setq vbin (vlax-invoke-method ADO 'read 'nil))
(vlax-invoke-method ADO 'close)
(vlax-release-object ADO)
(vlax-safearray->list (vlax-variant-value vbin))
)
(princ "载入成功，命令:deletebyte")
(princ)

;; 明经通道论坛 2021-12-19  yxp 
;; 删除一个文件多余的head字节，0D0A 
(vl-load-com) 
 
(defun c:deletebyte (/ a LSP isUnnec) 
  (setq a (getfiled "选择需要删除首字节的文件" 
                    (if filesPathDefault filesPathDefault "") 
                    "*" 
                    0 
          ) 
  ) 
  (if a 
    (progn 
      (setq filesPathDefault a 
            LSP              (read_Bin a) 
            isUnnec          (and (= (car LSP) 13) (= (cadr LSP) 10)) 
            exten            (vl-filename-extension a) 
            fnanme           (vl-string-trim exten a) 
            newFilesName     (strcat fnanme "_mod" exten) 
      ) 
      (if isUnnec 
        (progn 
          (write_Bin (cddr LSP) newFilesName) 
          (princ "\n文件首字节已删除，保存在 ") 
          (princ newFilesName) 
        ) 
        (princ "文件首字节不符合删除要求") 
      ) 
    ) 
  ) 
  (princ) 
) 
 
 
(defun write_Bin (Blist file / ADO vbin) 
  (setq vbin (vlax-make-safearray 17 (cons 0 (1- (length Blist))))) 
  (vlax-safearray-fill vbin Blist) 
  (vlax-make-variant vbin) 
  (setq ADO (vlax-create-object "ADODB.Stream")) 
  (vlax-put-property ADO 'type 1) 
  (vlax-invoke-method ADO 'open 'nil 'nil 'nil 'nil 'nil) 
  (vlax-invoke-method ADO 'Write vbin) 
  (vlax-invoke-method ADO 'saveToFile file 2) 
  (vlax-invoke-method ADO 'close) 
  (vlax-release-object ADO) 
) 
 
 
(defun read_Bin (file / vbin ADO) 
  (setq ADO (vlax-create-object "ADODB.Stream")) 
  (vlax-put-property ADO 'type 1) 
  (vlax-invoke-method ADO 'open 'nil 'nil 'nil 'nil 'nil) 
  (vlax-invoke-method ADO 'LoadFromFile file) 
  (setq vbin (vlax-invoke-method ADO 'read 'nil)) 
  (vlax-invoke-method ADO 'close) 
  (vlax-release-object ADO) 
  (vlax-safearray->list (vlax-variant-value vbin)) 
) 
 
(princ "载入成功，命令:deletebyte") 
(princ)

baitang36 · 发表于 2021-12-19 19:50

很不错的lsp程序

紫苏炒黄瓜 · 发表于 2021-12-19 20:23

666

不错的lsp

白色微風1991 · 发表于 2021-12-20 07:35

很不錯的lsp程序

lxl217114 · 发表于 2021-12-20 12:52

感谢y版的修复工具

趣意人生 · 发表于 2021-12-20 22:26

很不錯的lsp程序

429014673 · 发表于 2021-12-21 09:18

本帖最后由 429014673 于 2021-12-21 09:57 编辑

chrome浏览器用Internet Download Manager下载，不用搞修复这回事，一点问题都没有

k1nger · 发表于 2021-12-21 10:21

这个也是一个大神写的，海大神的，也分享给大家！
(vl-Load-COM)
(defun try-file-ReadBinary (FileName / node size str stream xmldom)
      (setq xmldom (vlax-create-object "Microsoft.XMLDOM"))
      (setq node (vlax-invoke-method xmldom 'CreateElement "binary"))
      (vlax-put-Property node 'DataType "bin.hex")
      (setq stream (vlax-create-object "ADODB.Stream"))
      (vlax-put-Property stream 'type 1)
      (Vlax-Invoke stream 'open)
      (vlax-invoke-method
            stream
            'LoadFromFile
            FileName
      )
      (setq size(vlax-get-Property stream 'size))
      (vlax-put-Property node 'NodeTypedValue (Vlax-Invoke-Method stream 'Read size))
      (Vlax-Invoke-Method stream 'close)
      (setq str (vlax-get-Property node 'text))
      (vlax-release-object xmldom)
      str
)
(defun try-file-WriteBinary (file str / node stream xmldom)
      (setq xmldom (vlax-create-object "Microsoft.XMLDOM"))
      (setq node (vlax-invoke-method xmldom 'CreateElement "binary"))
      (vlax-put-Property node 'DataType "bin.hex")
      (vlax-put-Property node 'Text str)
      (setq stream (vlax-create-object "ADODB.Stream"))
      (vlax-put-Property stream 'type 1)
      (Vlax-Invoke stream 'open)
      (vlax-invoke-method stream 'write
            (vlax-get-Property node 'NodeTypedValue)
      )
      (vlax-invoke-method stream 'saveToFile file 2)
      (Vlax-Invoke-Method stream 'close)
      (vlax-release-object xmldom)
      (vlax-release-object stream)
)
(defun c:mjtd (/ file h16 h16-2 newfile)
      (setq file(getfiled "选择一个文件" "" "*" 0))
      (or file (exit))
      (setq
            h16(try-file-ReadBinary file)
            h16-2(substr h16 5)
      )
      (setq newfile (strcat(vl-filename-directory file)"\\"(vl-filename-base file)"_new"(vl-filename-extension file)))
      (try-file-WriteBinary newfile h16-2)
      (princ(strcat"\n处理完成，生成新文件"newfile))(princ)
)

cghdy · 发表于 2021-12-21 10:28

大神的ssget总结让人受益匪浅

hhuhuwei · 发表于 2021-12-21 14:12

不错不错，收藏使用了

账号		自动登录	找回密码
密码			注册

[资源] 论坛压缩包不能打开的修复程序

评分

点评