.版本 2.子程序 _按钮1_被单击
.局部变量 密码密码 = “随便填”
.如果 (编辑框1.内容 ≠ 密码)
.标签1.标题 = “密码错误”
.返回 ()
.否则
.标签1.标题 = “密码正确”
.载入 (窗口1, , 假)
.如果结束
⑵ 在易语言里,加密算法只需要作为参数,求rc4算法易语言源码,不是用加密数据命令,而是
.版本2
.子程序加密为rc4,文本型,公开,用RC4算法对文本进行加密
.参数加密的数据,文本型,,欲加密的文本
.参数加密密钥,文本型,可空,用作加密的密码
.局部变量临时,字节集
.局部变量s,字节型,,"256"
.局部变量k,字节型,,"256"
.局部变量i,整数型
.局部变量j,整数型
.局部变量y,整数型
.局部变量outstr,文本型
.局部变量temp,字节型
.局部变量x,整数型
.局部变量t,整数型
.局部变量aaa,文本型
临时=到字节集(文本)
.计次循环首(256,i)
s[i]=i-1
.计次循环尾()
j=1
.计次循环首(256,i)
.如果真(j>取文本长度(密码))
j=1
.如果真结束
k[i]=取代码(取文本中间(密码,j,1),)
j=j+1
.计次循环尾()
j=0
.计次循环首(256,i)
j=(j+s[i]+k[i])%256+1
temp=s[i]
s[i]=s[j]
s[j]=temp
.计次循环尾()
i=0
j=0
.计次循环首(取字节集长度(临时),x)
i=(i+1)%256+1
j=(j+s[i])%256+1
temp=s[i]
s[i]=s[j]
s[j]=temp
t=(s[i]+s[j]%256)%256+1
y=s[t]
aaa=到十六进制文本(位异或(临时[x],y))
outstr=outstr+选择(取文本长度(aaa)>1,“”,“0”)+aaa+“,”
.计次循环尾()
返回(outstr)
.子程序到十六进制文本,文本型
.参数数值,整数型,,
返回(多项选择(右移(数值,4)+1,“0”,“1”,“2”,“3”,“4”,“5”,“6”,“7”,“8”,“9”,“A”,“B”,“C”,“D”,“E”,“F”)+多项选择(位与(数值,15)+1,“0”,“1”,“2”,“3”,“4”,“5”,“6”,“7”,“8”,“9”,“A”,“B”,“C”,“D”,“E”,“F”))
⑶ 易语言 Base64的加密算法
代码-----------.版本 2.子程序 Base64编码, 字节集, 公开
.参数 原文, 字节集
.局部变量 余数, 整数型
.局部变量 三字节数据, 字节型, , "3"
.局部变量 码表, 字节集
.局部变量 len_x, 整数型
.局部变量 len_y, 整数型
.局部变量 结果, 字节集
.局部变量 i, 整数型
.局部变量 k, 整数型len_x = 取字节集长度 (原文)
.如果真 (len_x < 1)
返回 ({ })
.如果真结束
余数 = len_x % 3
.如果真 (余数 > 0)
原文 = 原文 + 取空白字节集 (3 - 余数)
len_x = len_x + 3 - 余数
.如果真结束
len_y = len_x × 4 ÷ 3
结果 = 取空白字节集 (len_y)
i = 1
码表 = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 43, 47 }
.变量循环首 (1, len_x, 3, k)
三字节数据 [1] = 原文 [k]
三字节数据 [2] = 原文 [k + 1]
三字节数据 [3] = 原文 [k + 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
.变量循环尾 ()
.判断开始 (余数 = 2)
结果 [len_y] = 61
.判断 (余数 = 1)
结果 [len_y] = 61
结果 [len_y - 1] = 61
.默认.判断结束
返回 (结果).子程序 _按钮1_被单击编辑框1.加入文本 (到文本 (Base64编码 (到字节集 (编辑框1.内容))))
希望我可以帮到你
⑷ 用易语言编写文件加密程序,谢谢
先下载精易模块。
然后再在“_启动窗口_创建完毕”里加上这几句命令:
.版本
2
文件_关联
(,
“要关联的后缀名”,
,
“文件”,
)
取命令行
(启动命令行)
.如果真
(取数组成员数
(启动命令行)
≠
0)
(这个地方加上你要处理的命令,我写个例子。)
写到文件(取运行目录()+“\解密后文件.exe”,解密数据(读入文件(启动命令行[1]),“加密密码”))
运行
(取运行目录
()
+
“\解密后文件.exe”,
假,
)
.如果真结束
结束
()
⑸ 怎么给易语言的一段代码加密
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 = “123456”)
信息框 (“密码正确”, 0, “恭喜”)
.否则
信息框 (“密码错误”, 0, “!”)
返回 ()
.如果结束
' 这里写密码正确后执行的程序
' 需要1个编辑框和一个按钮,分别为‘按钮1’和‘编辑框1’
⑹ 易语言编写的软件如何加密,要简单易懂的。
1.新建启动窗口(密码输入所在窗口) 2.插入窗口 (程序所在窗口) 窗口1 编辑框1个 按钮一个 代码 .版本 2 .如果 (编辑框1.内容 =“xxxxxx”) xxxxxx就是你自己的密码 载入(窗口1, , 真) .否则 编辑框1.内容 = “重新输入密码”
⑺ 易语言怎么加密字符数字
直接用【 加密数据 ()】
调用格式: 〈字节集〉 加密数据 (字节集 字节集数据,文本型 密码文本,[整数型 加密算法]) - 数据操作支持库一->数据加解密
英文名称:Encrypt
加密一段字节集数据,返回加密后的结果字节集。如果失败,返回空字节集。本命令为初级命令。
参数<1>的名称为“字节集数据”,类型为“字节集(bin)”。为命令提供所需的字节集数据。
参数<2>的名称为“密码文本”,类型为“文本型(text)”。
参数<3>的名称为“加密算法”,类型为“整数型(int)”,可以被省略。指定具体使用的加密算法,可以为以下常量值之一:1: #DES算法; 2: #RC4算法。加密和解密必须使用相同的算法,有关算法的具体说明请参阅有关文献。如果本参数被省略,则默认值为1,即DES算法。
操作系统需求: Windows、Linux
⑻ 易语言代码错误(加密解密问题)
编辑框1解密后数据 = 到文本 (解密数据 (到字节集 (读配置项 (取运行目录 () + “\test.ini”, “配置”, “配置1”, )), “123”, 1))
编辑框2解密后数据 = 到文本 (加密数据 (到字节集 (读配置项 (取运行目录 () + “\test.ini”, “配置”, “配置2”, )), “123”, 1))
编辑框3解密后数据 = 到文本 (加密数据 (到字节集 (读配置项 (取运行目录 () + “\test.ini”, “配置”, “配置3”, )), “123”, 1))
编辑框4解密后数据 = 到文本 (加密数据 (到字节集 (读配置项 (取运行目录 () + “\test.ini”, “配置”, “配置4”, )), “123”, 1))
这几句明显有错误啊,解密过程,你下面三句都是加密。
另外看看解密过程对不对。
⑼ 易语言文件加密 解密写法
加密解密可以自己写。最简单并世哪的就是去文返御件绝码的长度,然后循环一遍,把每个字节+1或-1,解密是同样方法响应的-1或+1
⑽ 怎么在易语言里加密某个数字字母
假如你的密码是:110
自己写也一个加密的算法 比如【密码加一 加密后为 111】,或是 用 + - * / 左移 右移 各种做法 (这种方法初学者常用)
然后把用 把 加密后的 密码 【111】 方进去 再调用一个解密的方法 (加密的逆运算)
这样别人看到你的就是加密后的密码
以上是 初学者的方法
再给你讲写进阶级的方法
利用数据库 ,吧密码和账号 都利用 加密算法后放进数据库
软件直接读取 数据库里加密的 账号 和密码