以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加密问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69539)
--  作者：新航程小何
--  发布时间：2015/6/6 20:13:00
--  加密问题
各位老师，我想知道能否实现加密的时候，能不能让我可控加密成什么解雇，比如，我想把1234567 加密成 1234，就是这样的意思？

Dim Val1 As String = "龙的传人"
Dim Val2 As String = EncryptText(Val1,"a23","op#") \'加密
Dim Val3 As String = DecryptText(Val2,"a23","op#") \'解密，两个密钥必须和加密的时候相同
Output.Show("加密后：" & val2)
Output.Show("解密后：" & val3)

这个结果我感觉控制不了，不知道他的加密规则
--  作者：狐狸爸爸
--  发布时间：2015/6/6 20:54:00
--  
如果知道规则，就不是加密了。
--  作者：新航程小何
--  发布时间：2015/6/7 15:11:00
--  
关键是现在我是负责加密的，我当然得知道规则了，不然我都不能控制加密结果了
--  作者：大红袍
--  发布时间：2015/6/7 15:14:00
--  
 加密结果都是不可控的不然无法还原值。
[此贴子已经被作者于2015/6/7 15:14:24编辑过]
--  作者：狐狸爸爸
--  发布时间：2015/6/7 16:15:00
--  
你控制秘钥就行，只要知道秘钥，就能解密加密后数据，至于加密规则，无需理会。
--  作者：新航程小何
--  发布时间：2015/6/7 16:50:00
--  
哦，那我能不能在加密后只生成纯数字的结果
--  作者：大红袍
--  发布时间：2015/6/7 16:53:00
--  

 直接说你想做什么。

 

 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=69368&skin=0

 
--  作者：新航程小何
--  发布时间：2015/6/7 17:02:00
--  
我想做的最终结果是这样：
1、我有三列编号分别是：20150101，gb123, 234
2、我想通过加密之后：让这三列变成一个10位的纯数字
3.、解密的时候，还原到成三列编号：20150101，gb123, 234
--  作者：大红袍
--  发布时间：2015/6/7 17:04:00
--  

 你这种，是根本无法做到的。如果能做到。用10位数字不就可以存储任意多的信息，还需要有那么大的硬盘干嘛。