给大家一个加解密的源码

245271830 · 发表于 2010-2-8 13:45:46

.版本 2

.程序集启动窗口程序集
.程序集变量解密, 文本型
.程序集变量加密, 文本型
.程序集变量内容, 整数型

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

.如果 (加密文本框.内容 ≠ “”)
.如果 (加密密码框.内容 ≠ “”)
      加密＝加密文本 (加密文本框.内容, 加密密码框.内容)
      编辑框3.内容＝加密
.否则
      信息框 (“需加密的文本不能为空”, 0, )
.如果结束

.否则
信息框 (“请输入加密密码”, 0, “温馨提示”)
.如果结束

.子程序 _数据清除_被单击

加密文本框.内容＝ “”
解密文本框.内容＝ “”

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

.如果 (解密文本框.内容 ≠ “”)
解密＝解密文本 (解密文本框.内容, 解密密码框.内容)
编辑框3.内容＝解密
.否则
信息框 (“请输入需要解密的文本”, 0, )
.如果结束

.子程序 _复制按钮_被单击

内容＝到整数 (编辑框3.内容)
文本复制 (内容)
信息框 (“已经复制到粘贴板”, 0, )

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

销毁 ()

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

.如果 (编辑框3.内容 ≠ “”)
加密文本框.内容＝编辑框3.内容
编辑框3.内容＝ “”
.否则
信息框 (“所得文本没有内容”, 0, “温馨提示”)
.如果结束

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

.如果 (编辑框3.内容 ≠ “”)
解密文本框.内容＝编辑框3.内容
编辑框3.内容＝ “”
.否则
信息框 (“所得文本没有内容”, 0, “温馨提示”)
.如果结束

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

加密文本框.获取焦点 ()

需要790个模块里的一个叫加密解密文本 - 加密解密文本模块.EC

静哥 · 发表于 2010-2-14 23:05:16

哦坐来看看

pest · 发表于 2010-3-20 16:31:43

谢谢提供，正需要

cszlxl · 发表于 2010-3-22 19:35:26

来学习一下。。。

asqq8 · 发表于 2010-5-15 01:17:17

能否起到加密效果？

a8126678 · 发表于 2010-5-15 08:36:27

学习学习啊啊啊啊

a8126678 · 发表于 2010-5-15 08:36:59

看看如何啊自持你

		自动登录	找回密码
密码			注册

[易源码分享] 给大家一个加解密的源码