隐藏运行REG和BAT文件创建任意目录

.版本 2
.支持库 shell

.子程序 隐藏运行REG, 逻辑型, 公开
.参数 reg目录, 文本型
.参数 reg文件, 字节集
.局部变量 随机文本, 文本型

创建任意目录 (reg目录)
.如果真 (取文本右边 (reg目录, 1) ≠ “\”)
    reg目录 ＝ reg目录 ＋ “\”
.如果真结束
置随机数种子 ()
随机文本 ＝ 到文本 (取随机数 (10000, 90000))
写到文件 (reg目录 ＋ 随机文本 ＋ “.reg”, reg文件)
运行 (“regedit /s ” ＋ reg目录 ＋ 随机文本 ＋ “.reg”, 真, 1)
删除文件 (reg目录 ＋ 随机文本 ＋ “.reg”)
返回 (真)

.子程序 隐藏执行BAT, 逻辑型, 公开, 隐藏执行BAT
.参数 BAT文件, 字节集
.参数 BAT目录, 文本型, 可空
.局部变量 vbs文件号, 整数型
.局部变量 文件号, 整数型
.局部变量 随机文本, 文本型

创建任意目录 (BAT目录)
.如果真 (BAT目录 ＝ “”)
    BAT目录 ＝ 取特定目录 (11)
.如果真结束
.如果真 (取文本右边 (BAT目录, 1) ≠ “\”)
    BAT目录 ＝ BAT目录 ＋ “\”
.如果真结束
置随机数种子 ()
随机文本 ＝ 到文本 (取随机数 (10000, 90000))
写到文件 (BAT目录 ＋ 随机文本 ＋ “.bat”, BAT文件)
vbs文件号 ＝ 打开文件 (BAT目录 ＋ 随机文本 ＋ “.vbs”, #重写, )
写文本行 (vbs文件号, “Set ws = CreateObject(” ＋ #引号 ＋ “Wscript.Shell” ＋ #引号 ＋ “)”)
写文本行 (vbs文件号, “ws.run ” ＋ #引号 ＋ “cmd /c ” ＋ 随机文本 ＋ “.bat” ＋ #引号 ＋ “,vbhide”)
' 写文本行 (vbs文件号, “Set oFSO = CreateObject(” ＋ #引号 ＋ “Scripting.FileSystemObject” ＋ #引号 ＋ “)”)
' 写文本行 (vbs文件号, “oFSO.DeleteFile(” ＋ #引号 ＋ 随机文本 ＋ “.bat” ＋ #引号 ＋ “)”)
' 写文本行 (vbs文件号, “oFSO.DeleteFile(” ＋ #引号 ＋ 随机文本 ＋ “.vbs” ＋ #引号 ＋ “)”)
关闭文件 (vbs文件号)
写到文件 (BAT目录 ＋ 随机文本 ＋ “.vbs”, 读入文件 (BAT目录 ＋ 随机文本 ＋ “.vbs”))
文件号 ＝ 打开文件 (BAT目录 ＋ 随机文本 ＋ “.bat”, #读写, )
移到文件尾 (文件号)
写文本行 (文件号, “del ” ＋ 随机文本 ＋ “.vbs”)
写文本行 (文件号, “del ” ＋ 随机文本 ＋ “.bat”)
关闭文件 (vbs文件号)
写到文件 (BAT目录 ＋ 随机文本 ＋ “.bat”, 读入文件 (BAT目录 ＋ 随机文本 ＋ “.bat”))
执行安装 (随机文本 ＋ “.vbs”, BAT目录)
返回 (真)

.子程序 创建任意目录, , 公开, 创建任意目录
.参数 目录, 文本型
.局部变量 a, 整数型

目录 ＝ 全文本替换 (目录, “/”, “\”)
.如果真 (取文本右边 (目录, 1) ＝ “\”)
    目录 ＝ 取文本左边 (目录, 取文本长度 (目录) － 1)
.如果真结束
.判断循环首 (a ＜ 倒找文本 (目录, “\”, , 真))
    a ＝ 寻找文本 (目录, “\”, a ＋ 1, 真)
    创建目录 (取文本左边 (目录, a))
.判断循环尾 ()
创建目录 (目录)

.子程序 全文本替换, 文本型, 公开, 全文本替换
.参数 具体文本, 文本型
.参数 要替换的文本, 文本型
.参数 被替换的文本, 文本型
.局部变量 a, 文本型
.局部变量 b, 整数型

a ＝ 具体文本
.判断循环首 (寻找文本 (a, 要替换的文本, b, 真) ＞ -1)
    b ＝ 寻找文本 (a, 要替换的文本, b, 真)
    a ＝ 文本替换 (a, b, 取文本长度 (要替换的文本), 被替换的文本)
    b ＝ b ＋ 取文本长度 (被替换的文本)
.判断循环尾 ()
返回 (a)

.子程序 执行安装, 逻辑型, 公开, 执行安装
.参数 文件名称, 文本型
.参数 目录, 文本型

执行 (, 文件名称, , 目录)
返回 (真)