就是这个技术，防止信息侧漏
本文由按键学院提供技术支持
按键学院交流①群（1群已满）：376122403
按键学院交流②群（2群）：372671254
按键学院交流③群（3群）：170084238
昨天闲逛论坛，发现某大大很早以前发的一篇帖子，写的是关于文字加密小程序，纯属娱乐型的，小编觉得还蛮有意思的，这边先照搬过来分享下，小情人之间可以利用这个写秘密情书哦~ |
[tr=rgb(154, 205, 50)]| 加密文字小程序 |
1。选择加密还是解密 0是加密1是解密 可以做成自定义界面啊
- 您所在的用户组无法下载或查看附件
2。加密文字- 您所在的用户组无法下载或查看附件
3。加密结果83480860158602378307834808730179893847719864587543826787940778626860237960986521
4。解密文字- 您所在的用户组无法下载或查看附件
5。解密结果- 您所在的用户组无法下载或查看附件
相关代码代码原作者：乱闯- ''UserVar Var1=DropList{"加密":0|"解密":1} "加密还是解密"
- 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
接着小编就去搜索下了，发现咱们按键2.9号的时候增加了新命令插件，里面就有字符串加密的命令，下面就跟大家简单介绍下Encrypt 加解密插件里的部分加解密命令[2015.2.9]官方新增插件命令[tr=rgb(154, 205, 50)]StringEncode字符串加密
|
| 命令名称 | StringEncode 字符串加密
|
| 命令功能 | 对字符串内容进行加密
|
| 命令参数 | 参数1，字符串型：字符串内容
参数2，字符串型：密钥（最多16个字） |
| 返 回 值 | 字符串:
返回识别到的字符串
|
| 命令名称 | StringDecode 字符串解密
|
| 命令功能 | 对字符串内容进行解密
|
| 命令参数 | 参数1，字符串型：字符串内容
参数2，字符串型：密钥（最多16个字）
|
| 返 回 值 | 字符串:
返回字符串明文
|
知道上面的字符串加解密命令后我们就可以把前面的代码精简成- var1=InputBox("请输入加密解密 0：加密 1解密","加密")
- 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
1.用于加密文档（或qui界面框）里保存的需要自动登录的账号和密码等
比如这篇院刊 再也不用担心用户密码泄露啦（QUI）
2.像上面的小程序一样，用于制作私密消息发送器等[tr=rgb(154, 205, 50)]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 硬盘码
- 硬盘码 = Plugin.GetSysInfo.GetHDDSerialNumber()
- UserVar Var1=0 "设置内容"
- TextMD5 = Plugin.Encrypt.Md5String(硬盘码 + 2)
- TracePrint TextMD5
- If TextMD5=Var1 Then
- Else
- Msgbox "验证失败！您非授权用户！"
- EndScript
- End If
1.用于绑定机器码，生成注册码之类的，限制脚本只能在注册过的机子上使用
2.用于校验文件或软件是被更改过，主要用来判断脚本是否被破解等关于加解密的插件的部分命令就简单介绍到这了，希望不了解的童鞋可以实际的去了解和用用，某些情况下还是比较好用的
关于加密命令库插件的方法可以查看
【院刊】-【201411期】 就是不让你看源代码-加密关于自动登录账号密码安全等可以查看
【院刊】-【201409期】再也不用担心用户密码泄露啦（QUI输入）点此查看院刊总目录 
闽公网安备 35010002000112号