爱尚多功能源码

111111a111111 · 发表于 2016-10-31 11:25:58

自动更新机制过好木马就可以了

.版本 2

提升进程权限 ()
初始化DLL ()
监视热键 (&初始化 , #Home键)
监视热键 (&安全退出, #End键)
返回 (0) ' 返回值被忽略。

.子程序 Dll入口函数, 逻辑型, 公开
.参数 DLL实例句柄, 整数型
.参数调用类型, 整数型
.参数保留, 整数型

.判断开始 (调用类型＝ 1)
返回 (初始化DLL ())
.判断 (调用类型＝ 0)
释放DLL ()
.默认

.判断结束
返回 (真)

.子程序初始化DLL, 逻辑型

dll ＝ LoadLibrary (取运行目录 () ＋ “\ijl15.dll”)
.如果真 (dll ＝ 0)
返回 (假)
.如果真结束
ijlErrorStr ＝ GetProcAddress (dll, “ijlErrorStr”)
.如果真 (ijlErrorStr ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
ijlFree ＝ GetProcAddress (dll, “ijlFree”)
.如果真 (ijlFree ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
ijlGetLibVersion ＝ GetProcAddress (dll, “ijlGetLibVersion”)
.如果真 (ijlGetLibVersion ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
ijlInit ＝ GetProcAddress (dll, “ijlInit”)
.如果真 (ijlInit ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
ijlRead ＝ GetProcAddress (dll, “ijlRead”)
.如果真 (ijlRead ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
ijlWrite ＝ GetProcAddress (dll, “ijlWrite”)
.如果真 (ijlWrite ＝ 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
返回 (真)

.子程序释放DLL

.如果真 (dll ≠ 0)
FreeLibrary (dll)
.如果真结束

.子程序 Jmp, 整数型
.参数地址, 整数型
.参数参数一, 整数型, 可空
.参数参数二, 整数型, 可空
.参数参数三, 整数型, 可空
.参数参数四, 整数型, 可空
.参数参数五, 整数型, 可空
.参数参数六, 整数型, 可空
.参数参数七, 整数型, 可空
.参数参数八, 整数型, 可空
.参数参数九, 整数型, 可空
.参数参数十, 整数型, 可空
.参数参数十一, 整数型, 可空
.参数参数十二, 整数型, 可空
.参数参数十三, 整数型, 可空
.参数参数十四, 整数型, 可空

返回 (_Jmp (地址, 参数一, 参数二, 参数三, 参数四, 参数五, 参数六, 参数七, 参数八, 参数九, 参数十, 参数十一, 参数十二, 参数十三, 参数十四))

.子程序 _Jmp, 整数型
.参数函数指针, 整数型
.参数参数一, 整数型
.参数参数二, 整数型
.参数参数三, 整数型
.参数参数四, 整数型
.参数参数五, 整数型
.参数参数六, 整数型
.参数参数七, 整数型
.参数参数八, 整数型
.参数参数九, 整数型
.参数参数十, 整数型
.参数参数十一, 整数型
.参数参数十二, 整数型
.参数参数十三, 整数型
.参数参数十四, 整数型

置入代码 ({ 201, 88, 135, 4, 36, 255, 224 })
返回 (0)

.子程序 ijlErrorStr, 整数型, 公开

返回 (Jmp (ijlErrorStr))

.子程序 ijlFree, 整数型, 公开

返回 (Jmp (ijlFree))

.子程序 ijlGetLibVersion, 整数型, 公开

返回 (Jmp (ijlGetLibVersion))

.子程序 ijlInit, 整数型, 公开

返回 (Jmp (ijlInit))

.子程序 ijlRead, 整数型, 公开

返回 (Jmp (ijlRead))

.子程序 ijlWrite, 整数型, 公开

返回 (Jmp (ijlWrite))

联系我时，请说是在挂海论坛上看到的，谢谢！