1.?易语言安语言验证????԰?ȫ??֤Դ??
2.怎么写易语言软件的收费源码
3.CRC16校验算法源码（易语言）
4.易语言编写YY验证源码,可以让使用软件的人到指定YY频道,不去就无法使用.

?????԰?ȫ??֤Դ??

       月数不好定，因为每个月天数不一样。全验算到天就行了。证源部门评议系统源码

       代码如下：

       .版本 2

       .支持库 spec

       .子程序 _按钮1_被单击

       .局部变量 运行时间,码易码模 整数型, , , 毫秒

       运行时间 ＝ 取启动时间 ()

       调试输出 (取毫秒到天 (运行时间))

       .子程序 取毫秒到天, 文本型

       .参数 参_秒, 整数型

       .局部变量 参_秒, 整数型

       .局部变量 天, 整数型

       .局部变量 小时, 整数型

       .局部变量 分钟, 整数型

       .局部变量 秒, 整数型

       参_秒 ＝ 取启动时间 () ÷

       天 ＝ 参_秒 ÷ ÷ ÷

       小时 ＝ (参_秒 － 天 × × ) ÷

       分钟 ＝ (参_秒 － 天 × × － 小时 × ) ÷

       秒 ＝ 参_秒 ％

       返回 (到文本 (天) ＋ “天” ＋ 到文本 (小时) ＋ “小时” ＋ 到文本 (分钟) ＋ “分钟” ＋ 到文本 (秒) ＋ “秒”)

怎么写易语言软件的收费源码

       可以的,这就是关系到软件的验证问题,验证方式通常有2种:

       1:本地验证模式

       通过提取用户电脑的特征码,然后加密一下,然后要求用户在购买时提供相关加密后的特征码!

       然后在给用户软件时,重新把特征码写到程序中去,在程序运行时判断特征码是否相符!

       当然,你需要自己写一个提取特征码并加密后输出的小工具给用户!

       工具代码例:

       .版本 2

       .支持库 dp1

       .局部变量 i

       i ＝ 取硬盘特征字 ()

       .如果真 (i ＝ 0)

        编辑框1.内容 ＝ “提取机器码失败”

        返回 ()

       .如果真结束

       编辑框1.内容 ＝ 取数据摘要 (加密数据 (到字节集 (i), “自定义加密钥匙”, ))

       上面的代码采用硬盘的特征字来作为前提,然后再将内容加密,然后再将加密后的内容转为MD5,并显示到编辑框中,要求用户把编辑的内容发给你!

       然后就是在软件中去效验一下了!较为安全的做法例子:

       .版本 2

       .支持库 dp1

       .子程序 __启动窗口_创建完毕

       .局部变量 i

       .局部变量 用户提供的特征, 文本型

       .局部变量 当前提取的特征, 文本型

       用户提供的特征 ＝ “在程序中应该将用户提供的特征再次MD5来避免破解者使用内存工具来破解验证部分”

       ' 用户提供的特征 ＝取数据摘要(到字节集 (用户提供的特征))'这是2次MD5的方式,但要另外做好,然后再在程序中直接赋值

       ' 当然了,你可以多次MD5,更加安全一些

       i ＝ 取硬盘特征字 ()

       .如果真 (i ＝ 0)

        信息框 (“验证失败!”, 0, ) ' 编辑框1.内容 ＝ “提取机器码失败”

        返回 ()

       .如果真结束

       ' 然后用同样的方法,将提取到的特征加密后,然后再根据你事先MD5的次数来处理

       当前提取的特征 ＝ 取数据摘要 (加密数据 (到字节集 (i), “自定义加密钥匙”, ))

       .如果真 (当前提取的特征 ≠ 用户提供的特征)

        时钟1.时钟周期 ＝ ' 不直接结束程序,而是使用一个5秒的时钟

       .如果真结束

       '正常处理代码

       .子程序 _时钟1_周期事件

       结束 () ' 这样的处理方式,能做一些小欺骗,避免被轻易破解!

       以上是一些验证方面的代码以及一些商业软件应具备一些防破解的意识!

       当然了,要想真正做到防破解并不容易,这里的代码只能起到一些很小的作用,对于大鸟来说,这是没用的!防破解的技术比较复杂这里就不再说这个问题先!

       2:c/s验证模式

       即客户端和服务器通讯方式进行验证,这里的做法就好比QQ登陆一样,

       提供一个用户注册的界面,而且为应用程序制作一个服务器,E语言可以使用客户端和服务器控件

       进行TCP通讯,服务器部分需要有数据库,把用户的注册数据记录在数据库中!

       客户端部分在用户操作注册的同时,把用户电脑的特征字也一并发送到服务器,

       客户端再提供一个用户登陆界面,这样,用户输入账号和密码进行登陆,客户端把登陆的信息和当前登陆的用户的电脑的特征字发给服务器,服务器进行用户信息的验证和处理,服务器部分就可以根据这些信息进行处理!服务器处理后,再将结果发送给客户端,就好比QQ登陆时,当你的密码输入错误,服务器会发送一个密码输入错误的信息给客户端,然后客户端收到这个数据包后,就弹出一个窗口提醒用户,密码不正确,登陆失败的提示!代码太多,这就不写出来了!大致上需要掌握就是E的服务器和客户端控件的应用!

       当然了,一般服务器比分,如果自己架设不适合的话,就需要去租服务器!

       但是成本较大,租网页形式的,就需要会学ASP.net

       并且有服务器的情况下,还可以考虑制作自动更新,每次客户端登陆的时候都把当前客户端的版本发给服务器,服务器进行版本验证,检查是否有更新的版本,然后通知客户端有新版本是否立即更新!

       这里涉及更多的技术知识,我就不一一陈述了!

       以上回答都是纯手工回答,贴出的代码均为实时在E中编写并贴出!

       转载请注明出处...谢谢

CRC校验算法源码（易语言）

       CRC校验算法源码在易语言中的实现如下：

       版本 2

       子程序 _CRC校验计算, 参数 预校验内容, 预校验内容为字节型数组

       局部变量 crc, 用于存储校验值，初始值为 "2"

       局部变量 返回数据,易语言安语言验证变老特效源码 用于存储最终的校验值，类型为整数型

       局部变量 j,全验整站源码配置安装 用于数组索引，类型为整数型

       局部变量 被校验内容,证源 用于存储数组中的每个字节，类型为字节型

       局部变量 i,码易码模 用于循环计数，类型为整数型

       局部变量 CY,易语言安语言验证 用于判断当前位是否为1，类型为整数型

       局部变量 crc高位,全验 用于存储高位校验值，类型为文本型

       局部变量 crc低位,证源 用于存储低位校验值，类型为文本型

       初始化crc为 { ,码易码模 }

       计次循环首 (取数组成员数 (预校验内容), j)

       被校验内容 ＝ 预校验内容 [j]

       crc [2] ＝ 位异或 (被校验内容, crc [2])

       计次循环首 (8, i)

       CY ＝ 位与 (crc [2], 1) ' 检查CRC[2]与1有没有共同位

       如果 (CY ＝ 1) ' 如果CRC[2]与1有共同位

       crc [2] ＝ 右移 (crc [2], 1) ' 低位右移一位

       如果真 (位与 (crc [1], 1) ＝ 1) ' 如果校验高位与1有共同位

       crc [2] ＝ 位或 (crc [2], ) ' 给crc低位最高位补1

       如果真结束

       crc [1] ＝ 右移 (crc [1], 1) ' crc高位右移一位

       crc [2] ＝ 位异或 (crc [2], 1) ' CRC低位与生成多项式0XA求异或

       crc [1] ＝ 位异或 (crc [1], ) ' CRC高位与生成多项式0XA求异或

       否则

       crc [2] ＝ 右移 (crc [2], 1) ' 低为右移一位

       如果真 (位与 (crc [1], 1) ＝ 1) ' 如果校验高位与1有共同位

       crc [2] ＝ 位或 (crc [2], ) ' 给crc低位最高位补1

       如果真结束

       crc [1] ＝ 右移 (crc [1], 1) ' 高位右移1位

       否则结束

       计次循环尾 ()

       计次循环尾 ()

       如果真 (取文本长度 (到文本 (crc [1])) ＝ 1)

       crc高位 ＝ “” ＋ 到文本 (crc [1])

       如果真结束

       如果真 (取文本长度 (到文本 (crc [1])) ＝ 2)

       crc高位 ＝ “0” ＋ 到文本 (crc [1])

       如果真结束

       如果真 (取文本长度 (到文本 (crc [1])) ＝ 3)

       crc高位 ＝ 到文本 (crc [1])

       如果真结束

       如果真 (取文本长度 (到文本 (crc [2])) ＝ 1)

       crc低位 ＝ “” ＋ 到文本 (crc [2])

       如果真结束

       如果真 (取文本长度 (到文本 (crc [2])) ＝ 2)

       crc低位 ＝ “0” ＋ 到文本 (crc [2])

       如果真结束

       如果真 (取文本长度 (到文本 (crc [2])) ＝ 3)

       crc低位 ＝ 到文本 (crc [2])

       如果真结束

       返回 (crc高位 ＋ crc低位)

易语言编写YY验证源码,可以让使用软件的人到指定YY频道,不去就无法使用.

       .版本 2

       .支持库 eAPI

       .程序集 窗口程序集1

       .子程序 __启动窗口_创建完毕

       时钟1.时钟周期 ＝

       .子程序 _时钟1_周期事件

       .局部变量 系统进程列表, 进程信息, , "0"

       .局部变量 所有窗口标题, 文本型, , "0"

       .局部变量 x, 整数型

       .局部变量 y, 整数型

       .局部变量 YY进程, 文本型

       .局部变量 频道ID, 文本型

       .局部变量 频道名称, 文本型

       .局部变量 打开频道, 逻辑型

       时钟1.时钟周期 ＝ 0

       打开频道 ＝ 假

       YY进程 ＝ “duospeak.exe”

       频道ID ＝ “” ' 根据自己的频道修改

       频道名称 ＝ “[K歌]8o年代〆娱乐休闲会所-ID： 我的电脑会唱歌，叫醒你的易语言安语言验证api授权系统源码耳朵~”

       系统进程列表 ＝ 取系统进程列表 ()

       .计次循环首 (取数组成员数 (系统进程列表), x)

        .如果真 (到大写 (YY进程) ＝ 到大写 (系统进程列表 [x].进程名称))

        所有窗口标题 ＝ 取所有窗口列表 ()

        .计次循环首 (取数组成员数 (所有窗口标题), y)

        .如果真 (寻找文本 (取窗口标题 (到数值 (所有窗口标题 [y])), 频道ID, 0, 假) ＞ 0)

        .如果真 (寻找文本 (取窗口标题 (到数值 (所有窗口标题 [y])), 频道名称, 0, 假) ＞ 0)

        打开频道 ＝ 真

        跳出循环 ()

        .如果真结束

        .如果真结束

        .计次循环尾 ()

        .如果真结束

       .计次循环尾 ()

       .如果真 (打开频道 ＝ 假)

        信息框 (“请打开YY并进入频道：” ＋ 频道ID ＋ “,再打开软件！”,全验 0, “错误提示”)

        销毁 ()

       .如果真结束

       时钟1.时钟周期 ＝

       黏贴在易语言，就能让你看懂！证源股东带走公司源码！