有好心人吗 帮我写一个 小功能 实在是没有精币了

老方丈

起因是我想给一个exe程序套个验证 那个程序是加密的没法直接套sp验证
主要想做的功能是

写出文件 生成 随机名.exe 然后运行这个 随机名.exe

这个我自己可以写出来

因为是套验证 所以想 卡密到期 进程结束的时候 同时结束这个 随机名进程

希望有大佬可以帮忙写个例子 跪谢

阿狸阿狸

以下是使用易语言实现EXE程序套壳验证的完整方案，包含进程监控和到期清理功能：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
随机进程ID	整数型
随机文件名	文本型
验证通过	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化核心组件
置随机数种子 ()
验证通过 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮_生成_被单击

' 步骤1：生成随机文件名
随机文件名 ＝ 取运行目录 () ＋ “\” ＋ 生成随机名称 () ＋ “.exe”
' 步骤2：释放加密程序（需提前将目标EXE放入资源）
写到文件 (随机文件名, #加密程序 )  ' #加密程序 为资源中的字节集
' 步骤3：启动程序并监控
启动线程 (&监控进程, , )
运行EXE文件 (随机文件名)

子程序名	返回值类型	公开	备 注
生成随机名称	文本型

变量名	类 型	静态	数组	备 注
名称字典	文本型		0
随机数	整数型

名称字典 ＝ { “Alpine”, “Bison”, “Cobra”, “Dragon”, “Eagle” }
随机数 ＝ 取随机数 (1, 取数组成员数 (名称字典))
返回 名称字典 [随机数] ＋ 到文本 (取现行时间戳 ())

子程序名	返回值类型	公开	备 注
运行EXE文件
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
进程信息	进程信息型

执行文件 (文件路径, 假, 进程信息)
随机进程ID ＝ 进程信息.进程ID

子程序名	返回值类型	公开	备 注
监控进程

判断循环首 (真)
如果真 (验证通过)
跳出循环 ()

' 检查卡密有效期（示例每5秒检查一次）
程序_延时 (5000)

如果真 (是否到期 ())
终止进程 ()
删除文件 (随机文件名)
信息框 (“授权已过期”, 0, )
销毁 ()

判断循环尾 ()

子程序名	返回值类型	公开	备 注
是否到期	逻辑型

' 此处替换为实际的卡密验证逻辑
返回 取小时 (取现行时间 ()) ＞ 20  ' 示例：晚8点后视为过期

子程序名	返回值类型	公开	备 注
终止进程

变量名	类 型	静态	数组	备 注
句柄	整数型

句柄 ＝ 进程_ID取句柄 (随机进程ID)
如果真 (句柄 ≠ 0)
终止进程 (句柄)
关闭句柄 (句柄)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (文件是否存在 (随机文件名))
删除文件 (随机文件名)

.版本 2<br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 随机进程ID, 整数型<br /> .程序集变量 随机文件名, 文本型<br /> .程序集变量 验证通过, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> ' 初始化核心组件<br /> 置随机数种子 ()<br /> 验证通过 ＝ 假<br /> <br /> .子程序 _按钮_生成_被单击<br /> ' 步骤1：生成随机文件名<br /> 随机文件名 ＝ 取运行目录 () ＋ “\” ＋ 生成随机名称() ＋ “.exe”<br /> <br /> ' 步骤2：释放加密程序（需提前将目标EXE放入资源）<br /> 写到文件 (随机文件名, #加密程序)  ' #加密程序 为资源中的字节集<br /> <br /> ' 步骤3：启动程序并监控<br /> 启动线程 (&监控进程, , )<br /> 运行EXE文件 (随机文件名)<br /> <br /> .子程序 生成随机名称, 文本型<br /> .局部变量 名称字典, 文本型, , "0"<br /> .局部变量 随机数, 整数型<br /> <br /> 名称字典 ＝ { “Alpine”, “Bison”, “Cobra”, “Dragon”, “Eagle” }<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (名称字典))<br /> 返回 名称字典 [随机数] ＋ 到文本 (取现行时间戳 ()) <br /> <br /> .子程序 运行EXE文件<br /> .参数 文件路径, 文本型<br /> .局部变量 进程信息, 进程信息型<br /> <br /> 执行文件 (文件路径, 假, 进程信息)<br /> 随机进程ID ＝ 进程信息.进程ID<br /> <br /> .子程序 监控进程<br /> .判断循环首 (真)<br />     .如果真 (验证通过)<br />         跳出循环 ()<br />     .如果真结束<br />     <br />     ' 检查卡密有效期（示例每5秒检查一次）<br />     程序_延时 (5000)<br />     <br />     .如果真 (是否到期 ())<br />         终止进程 ()<br />         删除文件 (随机文件名)<br />         信息框 (“授权已过期”, 0, )<br />         销毁 ()<br />     .如果真结束<br /> .判断循环尾 ()<br /> <br /> .子程序 是否到期, 逻辑型<br /> ' 此处替换为实际的卡密验证逻辑<br /> 返回 取小时 (取现行时间 ()) ＞ 20  ' 示例：晚8点后视为过期<br /> <br /> .子程序 终止进程<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ 进程_ID取句柄 (随机进程ID)<br /> .如果真 (句柄 ≠ 0)<br />     终止进程 (句柄)<br />     关闭句柄 (句柄)<br /> .如果真结束<br /> <br /> .子程序 __启动窗口_将被销毁<br /> .如果真 (文件是否存在 (随机文件名))<br />     删除文件 (随机文件名)<br /> .如果真结束

#
实现原理说明：​动态生成技术：
使用生成随机名称子程序创建唯一文件名
通过资源文件方式嵌入原始EXE程序
运行时释放到临时目录防止直接访问
​进程监控机制：
独立线程实时检测授权状态
通过进程ID精准控制目标程序
5秒间隔检测平衡性能与实时性
​安全增强措施：

  

子程序名	返回值类型	公开	备 注
生成随机名称  ' 增强版

返回 校验_取MD5 (到字节集 (取启动时间 ())) ＋ 到文本 (取随机数 (1000,9999))

.子程序 生成随机名称  ' 增强版<br /> 返回 校验_取MD5 (到字节集 (取启动时间 ())) ＋ 到文本 (取随机数 (1000,9999))

#
部署要求：​
将需要加壳的EXE文件添加为资源（名称设为"加密程序"）
在是否到期子程序中实现实际的卡密验证逻辑
编译后的主程序需要管理员权限运行
高级安全方案：​

  

子程序名	返回值类型	公开	备 注
文件自毁
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
句柄	整数型

句柄 ＝ 打开文件 (文件路径, #改写, )
如果真 (句柄 ≠ 0)
移动文件指针 (句柄, 0)
写字节集 (句柄, 取重复字节集 (取文件尺寸 (文件路径), { 0 }))
关闭文件 (句柄)
删除文件 (文件路径)

.子程序 文件自毁<br /> .参数 文件路径, 文本型<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ 打开文件 (文件路径, #改写, )<br /> .如果真 (句柄 ≠ 0)<br />     移动文件指针 (句柄, 0)<br />     写字节集 (句柄, 取重复字节集 (取文件尺寸 (文件路径), { 0 }))<br />     关闭文件 (句柄)<br /> .如果真结束<br /> 删除文件 (文件路径)

注意事项：​
避免sha毒软件误报：对生成程序进行代码签名
防止重复运行：使用互斥量检测
增强反调试

  

如果真 (检测_是否调试器存在 ())
信息框 (“安全警告：禁止调试操作”, #错误图标, )
终止进程 ()

.如果真 (检测_是否调试器存在 ())<br />     信息框 (“安全警告：禁止调试操作”, #错误图标, )<br />     终止进程 ()<br /> .如果真结束

完整项目需包含以下模块：
精易模块（进程操作）
校验_取MD5（文件校验）
系统_禁用任务管理器（）' 增强防护
建议配合网络验证方案实现商业级保护，例如

  

子程序名	返回值类型	公开	备 注
在线验证

变量名	类 型	静态	数组	备 注
返回数据	文本型

返回数据 ＝ 网页_访问S (“https://api.yourserver.com/check?key=” ＋ 卡密)
如果真 (寻找文本 (返回数据, “success”, , 假) ＝ -1)
返回 假
返回 真

.子程序 在线验证<br /> .局部变量 返回数据, 文本型<br /> <br /> 返回数据 ＝ 网页_访问S (“https://api.yourserver.com/check?key=” ＋ 卡密)<br /> .如果真 (寻找文本 (返回数据, “success”, , 假) ＝ -1)<br />     返回 假<br /> .如果真结束<br /> 返回 真

算法艺术家

进程名 是随机的  那窗口类名肯定是固定的 你可以通过类名来结束进程

算法艺术家

  

子程序名	返回值类型	公开	备 注
结束同类名进程	逻辑型		通过类名结束进程 可包括自身，必须是有窗口的程序，不存在返回假
参数名	类 型	参考	可空	数组	备 注
窗口类名	文本型
自身窗口句柄	整数型				如果类名或窗口标题包括自身 必须填写 否则无法完全结束全部进程
窗口标题	文本型
保留自身	逻辑型				默认为假 不保留 (类名或窗口标题包括自身生效)

变量名	类 型	静态	数组	备 注
句柄组	整数型		0	句柄数组
i	整数型

如果真 (模糊遍历窗口 (, 窗口类名, 窗口标题, 句柄组) ＝ 0)
返回 (假)

计次循环首 (取数组成员数 (句柄组), i)
如果真 (句柄组 [i] ≠ 自身窗口句柄)
进程_结束 (窗口_句柄取进程ID (句柄组 [i]))
处理事件 ()
计次循环尾 ()
如果真 (保留自身 ＝ 假)
如果真 (自身窗口句柄 ≠ 0)
结束 ()

返回 (真)

.版本 2<br /> <br /> .子程序 结束同类名进程, 逻辑型, 公开, 通过类名结束进程 可包括自身，必须是有窗口的程序，不存在返回假<br /> .参数 窗口类名, 文本型<br /> .参数 自身窗口句柄, 整数型, 可空, 如果类名或窗口标题包括自身 必须填写 否则无法完全结束全部进程<br /> .参数 窗口标题, 文本型, 可空<br /> .参数 保留自身, 逻辑型, 可空, 默认为假 不保留 (类名或窗口标题包括自身生效)<br /> .局部变量 句柄组, 整数型, , "0", 句柄数组<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (模糊遍历窗口 (, 窗口类名, 窗口标题, 句柄组) ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (句柄组), i)<br />     .如果真 (句柄组 <i> ≠ 自身窗口句柄)<br />         进程_结束 (窗口_句柄取进程ID (句柄组 <i>))<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> .如果真 (保留自身 ＝ 假)<br />     .如果真 (自身窗口句柄 ≠ 0)<br />         结束 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (真)

小翁哥哥

问:写出文件 生成 随机名.exe 然后运行这个 随机名.exe   答:（把生成的随机文件名存放在全局变量里面）

因为是套验证 所以想 卡密到期 进程结束的时候 同时结束这个 随机名进程 答：进程_结束（变量名）

老方丈

小翁哥哥 发表于 2025-3-11 17:57
问:写出文件 生成 随机名.exe 然后运行这个 随机名.exe   答:（把生成的随机文件名存放在全局变量里面）

...

正在学习易语言的新手小白 能给写个例子吗

老方丈

算法艺术家 发表于 2025-3-11 17:53
[e=3].版本 2

.子程序 结束同类名进程, 逻辑型, 公开, 通过类名结束进程 可包括自身，必须是有窗口的程序 ...

新手小白 不会用 能给写个使用例子吗

老方丈

算法艺术家 发表于 2025-3-11 17:53
[e=3].版本 2

.子程序 结束同类名进程, 逻辑型, 公开, 通过类名结束进程 可包括自身，必须是有窗口的程序 ...

老乡给个联系方式

人杰啊

你想套的不会是我的吧

lishengliang

看看对你有帮助没 https://bbs.125.la/forum.php?mod=viewthread&tid=14834412