体育资讯网

您现在的位置是:首页 > 分类12 > 正文

分类12

易语言源码加密字符串(易语言加密解密文本)

hacker2022-06-09 00:48:22分类1260
本文目录一览:1、请问大神们易语言源码设置了密码了,这么能打开源码

本文目录一览:

请问大神们易语言源码设置了密码了,这么能打开源码

程序→设置→其易语言源码加密字符串他   里面设置密码

打开易语言源码加密字符串的时候易语言源码加密字符串,就会提示输入密码了,不是吗。。。

要是你打开别人加密易语言源码加密字符串的源码,那就没办法了。。。除非你知道密码

易语言怎么加密字符数字?

.版本 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加密(不能解密)

发表评论

评论列表

  • 泪灼酒颂(2022-06-09 07:34:34)回复取消回复

    里面设置密码打开易语言源码加密字符串的时候易语言源码加密字符串,就会提示输入密码了,不是吗。。。要是你打开别人加密易语言源码加密字符串的源码,那就没办法了。。。除非你知道密码易语言怎么加密字符数字?.版本 2.支持库 dp1.程序集 窗口程序集1.子程序 _

  • 俗野卮酒(2022-06-09 03:49:44)回复取消回复

    = 删全部空 (编码文本)编码文本 = 子文本替换 (编码文本, #换行符, , , , 真)文本长度 = 取文本长度 (编码文本)整倍数 = 文本长度 \ 4.如果真 (文

  • 辞眸欲奴(2022-06-09 05:03:32)回复取消回复

    四字节组, 字节型, , "4".局部变量 编码值.局部变量 X.局部变量 n.局部变量 二进制数据, 字节集编码文本 = 删全部空 (编码文本)编码文本 = 子文本替换 (编码文本, #换行符, , , , 真)文本长度 = 取文本长度 (编码文本)整倍数 = 文

  • 寻妄木落(2022-06-09 03:32:31)回复取消回复

    本文目录一览:1、请问大神们易语言源码设置了密码了,这么能打开源码2、易语言怎么加密字符数字?3、易语言文字加密解密问题!4、易语言源码如何加密?5、易语言如何进行文本加密请问大神们易语言源码设置了密码了,这么能打开源码程序→设置→其易语言源码加密字符串他   里面设置密码打开易语言源码加密字符