解决给20分 用异或Xor就行了,是最简单的加密方法。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果要对字符串的话,也必须逐一加密,将所有数字都转换成UNICODE或ASCII,然后加密。如果你希望得到好的加密算法,到网上查一下RAS和DES加密算法。 更简单的,用NOT就可以变成乱码,再NOT一下恢复,够简单的了吧 如果对安全性要求不高,打乱次序或是keycode+1不就行了。 在每个char前加一个字节,和email乱码原理一样 简单点,还是用ASCII+某个数。如果要复杂的话先要把所有的东西都转成16进制。然后每16或32或64位进行矩形排列,然后按一定的顺序互换位置,知道吗?再复杂点,这需要有离散数学的基础矩形排列后,有一个离散公式得到某点公式,然后由此公式得到点放置的相应位置和加密的数值,一般为三次排列(二次为加密),可得到加密的东西,标准的乱码。还原是通过离散公式的母公式进行还原。当然具体还有许多操作这叫RAS加密。美国现在的128位加密算法就是这样的。 Option ExplicitPrivate Sub Command1_Click() Text1.Text = ChrB(129) & Text1.TextEnd SubPrivate Sub Form_Load() Text1.Text = "你好"End Sub vb 复选框变单选 VB编程滚动文字问题 图片修改保存的问题 有时间的请看,200元急求一VB简单程序。 如何使用windows media player 9.0 控件来播放音乐?如何添加列表并播放呢? 发现了VB里的一个API“GetWindowsDirectory” 的BUG vb重载word事件(withevents)时遇到问题,欢迎高手进来调试这段代码 一个小小的发现,希望能给大家带来启示 谁知道如何在TEXT控件中高亮显示网址和EMAIL地址? lifasnake在不在,我想跟你讨论工作流的问题 VB6.0能实现控件注册吗? 如何在制作VB安装文件时加一个卸载本程序的菜单?
如果你希望得到好的加密算法,到网上查一下RAS和DES加密算法。
先要把所有的东西都转成16进制。
然后每16或32或64位进行矩形排列,然后按一定的顺序互换位置,知道吗?
再复杂点,这需要有离散数学的基础
矩形排列后,有一个离散公式得到某点公式,然后由此公式得到点放置的相应位置和加密的数值,一般为三次排列(二次为加密),可得到加密的东西,标准的乱码。
还原是通过离散公式的母公式进行还原。当然具体还有许多操作这叫RAS加密。美国现在的128位加密算法就是这样的。
Text1.Text = ChrB(129) & Text1.Text
End SubPrivate Sub Form_Load()
Text1.Text = "你好"
End Sub