xiaxiang 发表于 2011-2-23 09:30:15

用lisp操作文本文件

本帖最后由 xiaxiang 于 2011-2-23 09:34 编辑

   在下有两个问题想讨教，都是关于用lisp操作文本文件的。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   一，   用lisp删除特定路径的文本文件，比如：C:\WINDOWS\d.ini。执行此程序，则检查路径里是否有这个文件。有则删除之。程序主要用来查杀某个特定的“病毒”文件。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   二，比较复杂一些。想用lisp获取系统时间，但不是明码，想要使个障眼法。具体要求为：
执行此程序，先检查特定路径是否有指定的文本文件，没有则建立之，比如：C:\WINDOWS\d.ini。有则跳过此步。然后将系统时间写入此文本文件。时间的格式要求分8行，4行年数字+2行月数字+2行日数字。每行的数字为10进制，49-58代表0-9。格式示例：

      51---->         2
      49   ---->          0
      50   ---->          1
      50    ---->         1
      49    ---->         0
      51    ---->         2
      50   ---->      1
      54   ---->      5
这下看得很明白了，系统时间为2011年2月15日。

恳请各路高手不吝赐教！

Andyhon 发表于 2011-2-23 09:30:16

先试这个
(mapcar '1+
(vl-string->list (menucmd "M=$(edtime,$(getvar,date),YYYYMODD)"))
)

xiaxiang 发表于 2011-2-23 10:47:17

关键时候又是ANDYHON大侠出手助我。可否说得详细些？

Andyhon 发表于 2011-2-23 11:29:35

个人习惯套用DosLib

删除特定路径的文本文件...
(dos_delete "c:\\program files\\autocad 2002\\drawing2.dwg")


检查特定路径是否有指定的文本文件....
Syntax
(dos_search filename )
==>
Command: (dos_search "kernel32.dll")
"C:\\WINNT\\System32\\kernel32.dll"

xiaxiang 发表于 2011-2-23 14:32:46

回复 Andyhon 的帖子

那么，敢问ANDYHON，对我的程序要求可有完整的代码？谢谢指点

Andyhon 发表于 2011-2-23 14:57:37

写出文件请参考
http://bbs.mjtd.com/thread-62664-2-1.html

xiaxiang 发表于 2011-2-23 15:28:50

回复 Andyhon 的帖子

谢谢提供链接！

ZZXXQQ 发表于 2011-2-23 19:38:35

楼主想玩加密

xiaxiang 发表于 2011-2-23 21:26:07

回复 ZZXXQQ 的帖子

请问版主有何高招

LONGXIN 发表于 2011-2-24 00:32:21

回复 xiaxiang 的帖子

使用位移加密太弱了吧，可以考虑使用ascii加BOOLE
页: [1] 2
查看完整版本: 用lisp操作文本文件