QWERTY密码:加密与解密vbs版

昨天在做Arthur's Online Riddle的时候有这么一道题目:

If QWERTY = ABCDEF then, OLSQFR = ?

Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯(Christopher Sholes)设计的。使用QWERTY排列的打字机在1874年投入批量生产。从此成为应用最广泛的人机接口,大部分的计算机都是使用 Qwerty 键盘。

如果 QWERTY 对应 ABCDEF 的话,那么其他字母的对应关系就是分别按照键盘顺序和字母顺序排列。

QWERTYUIOPASDFGHJKLZXCVBNM <=> ABCDEFGHIJKLMNOPQRSTUVWXYZ

一个一个查找太麻烦,于是写了个 QWERTY 解密的 VBS 脚本:


代码如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/9

Function FromQwerty(str)
Dim d, s, t, i, c, r
s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
t = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To 52
d(Mid(t, i, 1)) = Mid(s, i, 1)
Next
For i = 1 To Len(str)
c = Mid(str, i, 1)
If d.Exists(c) Then
r = r & d(c)
Else
r = r & c
End If
Next
FromQwerty = r
End Function

WScript.Echo FromQwerty("OLSQFR")

顺便也写了一个 QWERTY 加密的:


代码如下:

'Author: Demon
'Website: http://demon.tw
'Date: 2012/2/9

Function ToQwerty(str)
Dim d, s, t, i, c, r
s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
t = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To 52
d(Mid(s, i, 1)) = Mid(t, i, 1)
Next
For i = 1 To Len(str)
c = Mid(str, i, 1)
If d.Exists(c) Then
r = r & d(c)
Else
r = r & c
End If
Next
ToQwerty = r
End Function

WScript.Echo ToQwerty("I LOVE YOU")

If QWERTY = ABCDEF then, O SGCT NGX = I LOVE YOU

来源:http://demon.tw/programming/qwerty-abcdef.html

(0)

相关推荐

  • QWERTY密码:加密与解密vbs版

    昨天在做Arthur's Online Riddle的时候有这么一道题目: If QWERTY = ABCDEF then, OLSQFR = ? Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘.QWERTY 是键盘第一行的前六个字母.键的安排顺序由克里斯多福·萧尔斯(Christopher Sholes)设计的.使用QWERTY排列的打字机在1874年投入批量生产.从此成为应用最广泛的人机接口,大部分的计算机都是使用 Qwerty 键盘. 如果 QWERTY 对应 ABCDE

  • Spring Security使用数据库认证及用户密码加密和解密功能

    流程图: 1.接上一篇博客https://mp.csdn.net/console/editor/html/104576494,准备好环境. 2.spring-security.xml中的配置: <?xml version="1.0" encoding="UTF-8"?> <beans xmlns="http://www.springframework.org/schema/beans" xmlns:security="

  • python实现凯撒密码加密解密的示例代码

    凯撒加密就是通过将字母移动一定的位数来实现加密和解密.明文中的所有字母都在字母表上向后(或向前)按照一个固定数目进行偏移,被替换成密文.例如,当偏移量是2的时候,所有的字母B将被替换成D,C变成E,以此类推Y将变成A,Z变成B.由此可见,偏移量就是凯撒密码加密和解密的密钥. 下面使用python代码来实现凯瑟密码的加密解密. import string def kaisa_jiami(s,k):     lower=string.ascii_lowercase#小写英文字母     upper=

  • VBS脚本加密/解密VBS脚本(简易免杀版1.1)

    Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Args = WScript.Arguments Ver="1.1" CloseTime = 5 FileName = WScript.ScriptNam

  • 基于C#对用户密码使用MD5加密与解密

    C#中常涉及到对用户密码的加密于解密的算法,其中使用MD5加密是最常见的的实现方式.本文总结了通用的算法并结合了自己的一点小经验,分享给大家. 一.使用16位.32位.64位MD5方法对用户名加密 1)16位的MD5加密 /// <summary> /// 16位MD5加密 /// </summary> /// <param name="password"></param> /// <returns></returns&

  • 在asp中通过vbs类实现rsa加密与解密的代码

    在asp中通过vbs类实现rsa加密与解密,建议入精华 本文章有两文件组成 test.asp 测试演示文件 clsrsa.asp 实现rsa加密与解密的vbs类文件 下面是代码: 1. test.asp  复制代码 代码如下: <%  rem 文章标题:在asp中通过vbs类实现rsa加密与解密  rem 收集整理:yanek  rem 联系:aspboy@263.net %>  <%Option Explicit%>  <!--#INCLUDE FILE="cls

  • java实现仿射密码加密解密

    本文实例为大家分享了java实现仿射密码加密解密的具体代码,供大家参考,具体内容如下 加密:将明文转化为对应的数字,如 'a'-> 0, 'b'->1,-,'1'->26,'2'->27,-然后将数字进行仿射运算,求取出来的数字再转化为字符.即 密文=(K1*明文+K2)mod36 解密:密文转化为对应数字,然后进行仿射的逆运算,得到对应数字,然后将其转化为字符明文.解密 K3是K1的乘法逆元 import java.util.Scanner; public class Affin

  • C# 实现对PPT文档加密、解密及重置密码的操作方法

    工作中我们会使用到各种各样的文档,其中,PPT起着不可或缺的作用.一份PPT文档里可能包含重要商业计划.企业运营资料或者公司管理资料等.因此,在竞争环境里,企业重要资料的保密工作就显得尤为重要,而对于重要资料我们可以选择添加密码的形式来进行文档保护.本文将介绍如何通过C#来给PPT添加密码,当然你也可以根据需要来修改密码或者解除密码.下面将对三种操作方法进行具体讲述. 所用工具: Spire.Presentation for. NET Visual Studio 2013 工具使用说明:Spir

  • vue项目中使用AES实现密码加密解密(ECB和CBC两种模式)

    vue项目中使用AES实现密码加密解密 区别 ECB:是一种基础的加密方式,密文被分割成分组长度相等的块(不足补齐),然后单独一个个加密,一个个输出组成密文. CBC:是一种循环模式,前一个分组的密文和当前分组的明文异或或操作后再加密,这样做的目的是增强破解难度.(不容易主动攻击,安全性好于ECB,是SSL.IPSec的标准) 代码实现 先安装 crypto-js npm install crypto-js --save-dev ECB模式: import CryptoJS from "cryp

  • 关于Springboot数据库配置文件明文密码加密解密的问题

    有时候因为安全问题,需要把配置文件的中数据库用户名密码由明文改成密文,大多数其实是为了应付甲方而已. 1.pom.xml引入依赖 <dependency> <groupId>com.github.ulisesbocchio</groupId> <artifactId>jasypt-spring-boot-starter</artifactId> <version>2.1.0</version> </dependenc

随机推荐