Question

我有一段加密解密的算法，但不知如何在易语言中写出，请高手帮忙，在线等，我的财富不多了，多帮助吧

这是加密算法
'===================================================================================
Function sjjiami(neirong,key)
Dim shuju,mima
if key="" then
key="key"
end if
mima = sjdxwb(10)
shuju = aes.CipherStrToHexStr(128,neirong,mima & key)
sjjiami = sjdxwb(10) & mima & shuju & sjdxwb(12)
End Function
'===================================================================================
解密算法
'===================================================================================
Function sjjiemi(neirong,key)
Dim shuju,mima
if key="" then
key="key"
end if
shuju = mid(neirong,21,len(neirong) - 32)
mima = mid(neirong,11,10)
sjjiemi = aes.InvCipherHexStrToStr(128,shuju,mima & key)
End Function

Answer 1

.版本 2
.支持库 dp1

.程序集 窗口程序集1

.子程序 _按钮加密_被单击

.如果 (编辑框加密前.内容 ＝ “”)
信息框 (“不可为空”, 0, “错误”)
.否则
子程序加密数据 ()
.如果结束

.子程序 子程序加密数据
.局部变量 密码, 文本型

输入框 (“请输入解密密码”, “加密”, , 密码, #输入文本)
编辑框加密后.内容 ＝ 到文本 (加密数据 (到字节集 (编辑框加密前.内容), 密码, #DES算法))

.子程序 _按钮解密_被单击

.如果 (编辑框加密后.内容 ＝ “”)
信息框 (“不可为空”, 0, “错误”)
.否则
子程序解密数据 ()
.如果结束

.子程序 子程序解密数据
.局部变量 密码, 文本型

输入框 (“请输入解密密码”, “解密”, , 密码, #输入文本)
编辑框加密前.内容 ＝ 到文本 (解密数据 (到字节集 (编辑框加密后.内容), 密码, #DES算法))

Answer 2

我去，这是VB还是什么东西啊？我貌似有点看懂了，但是要写很麻烦呀，你能等我写完吗？——怕我写完了，你已经把别人的回答采取了

追问

易语言写这个算法很麻烦吗？

追答

我觉得有点，不过完全可以写出来，然后再优化的话就需要时间了

追问

可以帮我写一下吗，实现随机加密解密实现就可以了，多谢了，如果确实是麻烦，我有偿收购我

追答

诶，我大致写了下，发现你那个aes加密算法还是有点不懂，所有就换了RC4算法的，你先看下行不行。程序没有写完，先看，如果可以 ，我再添加

Answer 3

这个不是易语言的代码吧？易语言里面有条命令是加密的，你用这条命令加密数据然后算法自己写

追问

如何写呢，具体不是很清楚，希望帮忙 多谢了

追答

加我QQ先把，我电脑重装了，先下载易语言，等等告诉你吧，QQ：75004782

Answer 4

追问

能实现类似加密后成为“13A7C7240E3C148F1FBDB71562A87DD6140E6DE6C644AD7882A3E3CB523025F728A856D6130BDB1B976A990178443E500F39BD2F1A1D62E968C6F0B1BC616BB139EC4C3A452BD423A75”类似的吗，如果麻烦，有偿收购

追答

可以实现，上面的源码改下就可以了，取映射表时大于127的数据处理下，小于127的原数据也处理下就可以了。。。

追问

能帮忙写下吗，易语言不是很好 ，多谢了

追答

其实直接用MD5加密就可以实现你的要求，我现在没时间，要去吃饭了。。。。。