易语言源码加密字符串(易语言加密解密文本)
本文目录一览:
请问大神们易语言源码设置了密码了,这么能打开源码
程序→设置→其易语言源码加密字符串他 里面设置密码
打开易语言源码加密字符串的时候易语言源码加密字符串,就会提示输入密码了,不是吗。。。
要是你打开别人加密易语言源码加密字符串的源码,那就没办法了。。。除非你知道密码
易语言怎么加密字符数字?
.版本 2.支持库 dp1
.程序集 窗口程序集1
.子程序 _按钮1_被单击
' 这是加密
写配置项 (取运行目录 () + “\配置.ini”, “数据”, “数据1”, 到文本 (加密数据 (到字节集 (编辑框1.内容), “这里随便填,但是解密的时候要跟这里填的一样”, #RC4算法)))
写配置项 (取运行目录 () + “\配置.ini”, “数据”, “数据2”, 到文本 (加密数据 (到字节集 (编辑框2.内容), “这里随便填,但是解密的时候要跟这里填的一样”, #RC4算法)))
.子程序 _按钮2_被单击
' 这是解密
编辑框1.内容 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “数据”, “数据1”, )), “这里随便填,但是解密的时候要跟这里填的一样”, #RC4算法))
编辑框2.内容 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\配置.ini”, “数据”, “数据2”, )), “这里随便填,但是解密的时候要跟这里填的一样”, #RC4算法))
易语言文字加密解密问题!
建议不要对加密过的数据直接用到文本()命令转换为文本,建议用base64编码为文本,解密时先base64解码,然后再解密。
可以用超级加解密支持库里的BASE64编码 ()和BASE64解码 ()命令来实现编码和解码。
如果不想下支持库的话下面是BASE64编码和BASE64解码的代码:
.版本 2
.子程序 BASE64编码, 文本型, 公开, BASE64编码处理(返回编码后的文本)
.参数 待编码数据, 字节集, , 待编码字节集
.局部变量 余数
.局部变量 临时, 字节型, , "3"
.局部变量 变量
.局部变量 集合, 字节集
.局部变量 长度, 整数型
.局部变量 字符, 字节集
.局部变量 i
长度 = 取字节集长度 (待编码数据)
.如果真 (长度 < 1)
返回 (“”)
.如果真结束
余数 = 长度 % 3
.如果真 (余数 > 0)
待编码数据 = 待编码数据 + 取空白字节集 (3 - 余数)
.如果真结束
长度 = 取字节集长度 (待编码数据)
字符 = 取空白字节集 (长度 × 4 ÷ 3)
i = 1
集合 = 到字节集 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”)
.变量循环首 (1, 长度, 3, 变量)
临时 [1] = 待编码数据 [变量]
临时 [2] = 待编码数据 [变量 + 1]
临时 [3] = 待编码数据 [变量 + 2]
字符 [i] = 集合 [右移 (临时 [1], 2) + 1]
字符 [i + 1] = 集合 [左移 (位与 (临时 [1], 3), 4) + 右移 (临时 [2], 4) + 1]
字符 [i + 2] = 集合 [左移 (位与 (临时 [2], 15), 2) + 右移 (临时 [3], 6) + 1]
字符 [i + 3] = 集合 [位与 (临时 [3], 63) + 1]
i = i + 4
.变量循环尾 ()
.如果真 (余数 > 0)
长度 = 取字节集长度 (字符)
.如果 (余数 = 1)
字符 [长度 - 1] = 取代码 (“=”, )
字符 [长度] = 取代码 (“=”, )
.否则
字符 [长度] = 取代码 (“=”, )
.如果结束
.如果真结束
返回 (到文本 (字符))
.子程序 BASE64解码, 字节集, 公开, BASE64解码处理(返回解码后的字节集数据)
.参数 编码文本, 文本型, 参考, 待解码的文本
.局部变量 文本长度
.局部变量 整倍数
.局部变量 三字节组, 字节型, , "3"
.局部变量 四字节组, 字节型, , "4"
.局部变量 编码值
.局部变量 X
.局部变量 n
.局部变量 二进制数据, 字节集
编码文本 = 删全部空 (编码文本)
编码文本 = 子文本替换 (编码文本, #换行符, , , , 真)
文本长度 = 取文本长度 (编码文本)
整倍数 = 文本长度 \ 4
.如果真 (文本长度 % 4 ≠ 0)
整倍数 = 整倍数 + 1
.如果真结束
.计次循环首 (整倍数, X)
.计次循环首 (4, n)
四字节组 [n] = 取代码 (编码文本, (X - 1) × 4 + n)
编码值 = 寻找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字节组 [n]), , 假)
.如果真 (编码值 = -1)
跳出循环 ()
.如果真结束
四字节组 [n] = 编码值 - 1
.计次循环尾 ()
三字节组 [1] = 位或 (四字节组 [1] × 4, 四字节组 [2] ÷ 16)
三字节组 [2] = 位或 (四字节组 [2] × 16, 四字节组 [3] ÷ 4)
三字节组 [3] = 位或 (四字节组 [3] × 64, 四字节组 [4])
二进制数据 = 二进制数据 + 到字节集 (三字节组)
处理事件 ()
.计次循环尾 ()
.如果真 (n < 5) ' 最后一组4字符是提前退出的,截取字节集
n = 5 - n
二进制数据 = 取字节集左边 (二进制数据, 取字节集长度 (二进制数据) - n)
.如果真结束
返回 (二进制数据)
易语言源码如何加密?
打开源码 点程序菜单 配置 在配置程序对话空中点 其他选项卡 这里提示源码安全 输入个密码在保存 以后打开源码就提示需要输入密码了
易语言如何进行文本加密
可以把文本转换成字节集,然后在把每个字节加上(或减去)一个数,解密时同样把每个字节减去(或加上)之前那个数。易语言有加密数据()和解密数据()。还可以用RC4加密。如果处理的是密码的话用MD5加密(不能解密)