就是这个技术，防止信息侧漏
本文由按键学院提供技术支持
按键学院交流①群（1群已满）：376122403
按键学院交流②群（2群）：372671254
按键学院交流③群（3群）：170084238
昨天闲逛论坛，发现某大大很早以前发的一篇帖子，写的誓静重于文字加密小程序，纯属娱乐型的，小编觉得还蛮有意思的，这边先照搬过来分享下，小情人之间可以利用这个写秘密情书哦~
| 加密文字小程序 |
1。选择加密还是解密 0是加密1是解密 可以做成自定义界面啊
2。加密文字
3。加密结果
83480860158602378307834808730179893847719864587543826787940778626860237960986521
4。解密文字
5。解密结果
相关代码
[hide]
代码原作者：乱闯
- ''UserVar Var1=DropList{"加密":0|"解密":1} "加密还是解密"[/blockquote]
- var1=InputBox("请输入加密解密 0：加密 1解密","加密")
- If var1=0 then
- text0=InputBox("请输入要加密的信息","加密")
- Call 加密
- End if
- If var1=1 then
- text1=InputBox("请输入要解密的信息","解密")
- call 解密
- End if
- Sub 加密
- pts=""
- For i=1 to len(text0)
- sd=mid(text0,i,1)
- pt=asc(sd)
- pt=pt+98563
- pt=pt+50
- pts=pts & pt
- Next
- Call Plugin.Sys.SetCLB(pts)
- MsgBox "加密内容已经复制到剪切板"
- End sub
- Sub 解密
- pts=""
- For i=1 to len(text1) step 5
- sd=mid(text1,i,5)
- sd=sd-50
- sd=sd-98563
- pts=pts & chr(sd)
- Next
- Call Plugin.Sys.SetCLB(pts)
- MsgBox pts& chr(13) & "解密内容已经复制到剪切板"
- End sub
- [blockquote]
[/hide]
当时小编看了这个帖子就觉得这就是个相对简单的字符串加密啊，难道咱们按键就没有能直接实现类似功能的命令嘛
接着小编就去搜索下了，发现咱们按键2.9号的时候增加了新命令插件，里面就有字符串加密的命令，下面就跟大家简单介绍下Encrypt 加解密插件里的部分加解密命令
[2015.2.9]官方新增插件命令[hide]
StringEncode字符串加密
命令名称 StringEncode 字符串加密 命令功能 对字符串内容进行加密 命令参数 参数1，字符串型：字符串内容
参数2，字符串型：密钥（最多16个字）返 回 值 字符串:
返回识别到的字符串
命令名称 StringDecode 字符串解密 命令功能 对字符串内容进行解密 命令参数 参数1，字符串型：字符串内容
参数2，字符串型：密钥（最多16个字）返 回 值 字符串:
返回字符串明文
知道上面的字符串加解密命令后我们就可以把前面的代码精简成
- var1=InputBox("请输入加密解密 0：加密 1解密","加密")[/blockquote]
- If var1=0 then
- text0 = InputBox("请输入要加密的信息", "加密")
- Call 加密
- elseif var1=1 then
- text1=InputBox("请输入要解密的信息","解密")
- call 解密
- End if
- Sub 解密
- iPlain = Plugin.Encrypt.StringDecode(text1,"1")
- Call Plugin.Sys.SetCLB(iPlain)
- msgbox iPlain& vblf&"友情提示，解密内容已经复制到剪切板"
- End sub
- Sub 加密()
- iCipher = Plugin.Encrypt.StringEncode(text0, "1")
- Call Plugin.Sys.SetCLB(iCipher)
- MsgBox iCipher &vblf& "友情提示，加密内容已经复制到剪切板"
- End Sub[blockquote]
小拓展 按键精灵中加解密字符串的应用场景
1.用于加密文档（或qui界面框）里保存的需要自动登录的账号和密码等
比如这篇院刊 再也不用担心用户密码泄露啦（QUI）
2.像上面的小程序一样，用于制作私密消息发送器等
[/hide]经常上网下载东西的时候，有看到下载说明软件的MD5数值。也有网友说什么MD5不对什么的，那么Md5是什么呢？
MD5加密
小编接下来就跟大家一起来看看MD5到底是啥，如何依靠MD5避免网上提供的“七个身材健壮的男人欺负一个穿着暴露的女士”，
下载下来却是 “葫芦娃大战蛇精”悲剧呢？
加密一般有两种：双向密码和单向加密。双向加密码是最常用的，前面说的StringEncode 字符串加密，其实就是个双向加密
的例子，它是可逆的，既能加密又能解密；而单向加密只能对数据进行加密，而不能对其解密，MD5加密就是单向加密，
MD5加密是不可解出原文的(目前部分解密网站收集了数字+字母组合的答案)，你只能将明文加密后得出密文再与之前保存
的密文进行比较，以此判断两次输入是否一致，所以现在MD5加密技术广泛应用于校验文件是否被改动过。
比如某些网上公开下载的软件，视频，尤其是镜像文件。如果被修改了可能会导致用不了或者其他的问题，发布者将镜像通
过MD5算法计算成一组数值。让下载的用户进行MD5数值对比，也就是MD5校验啦。由于MD5加密不可逆算，如果数值一样，
那就表示文件没有被修改的。反之，则被修改了，下面咱们来了解下按键自带的MD5加密命令
命令名称 Md5String 字符串MD5加密 命令功能 对字符串内容进行MD5加密 命令参数 参数1，字符串型：字符串内容 返 回 值 字符串:
返回MD5值
命令名称 Md5File 文件MD5加密 命令功能 对路径文件进行MD5加密 命令参数 参数1 字符串型，文件路径 返 回 值 字符串:
返回MD5值
下面是通过MD5加密绑定机器码的一个简单的小代码
- Dim 硬盘码[/blockquote]
- 硬盘码 = Plugin.GetSysInfo.GetHDDSerialNumber()
- UserVar Var1=0 "设置内容"
- TextMD5 = Plugin.Encrypt.Md5String(硬盘码 + 2)
- TracePrint TextMD5
- If TextMD5=Var1 Then
- Else
- Msgbox "验证失败！您非授权用户！"
- EndScript
- End If[blockquote]
小拓展 按键精灵中MD5J加密的应用场景
1.用于绑定机器码，生成注册码之类的，限制脚本只能在注册过的机子上使用
2.用于校验文件或软件是被更改过，主要用来判断脚本是否被破解等