亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

QWERTY密碼：加密與解密vbs版

2019-10-26 18:06:00
字體：大 中 小
來源：轉載
供稿：網友
昨天在做Arthur's Online Riddle的時候有這么一道題目：

If QWERTY = ABCDEF then, OLSQFR = ?

Qwerty 是各國使用的基于拉丁字母的標準的打字機和計算機鍵盤。QWERTY 是鍵盤第一行的前六個字母。鍵的安排順序由克里斯多?！な挔査梗–hristopher 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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
国产精品xxx视频| 久久精品中文字幕一区| 亚洲少妇激情视频| 欧美另类在线播放| 欧美国产日产韩国视频| 国产精品第一视频| 欧美激情视频一区二区三区不卡| 国产精品白丝jk喷水视频一区| 欧美成人黑人xx视频免费观看| 日韩综合视频在线观看| 国内精品伊人久久| 欧美日韩视频免费播放| 91av视频在线播放| 亚洲四色影视在线观看| 亚洲精品福利在线| 亚洲一区二区在线| 国产成人精彩在线视频九色| 最好看的2019年中文视频| 午夜精品视频在线| 国产精品电影一区| 亚洲天堂第一页| 中文在线资源观看视频网站免费不卡| 成人欧美在线视频| 日韩免费观看在线观看| 久久中文字幕在线视频| 亚洲日韩欧美视频一区| 精品久久久久久久久中文字幕| 成人妇女淫片aaaa视频| 久久综合伊人77777尤物| 久久精品国产欧美激情| 久久久精品视频成人| 91免费的视频在线播放| 国产精品网红直播| 国产美女精品免费电影| 日韩在线观看网址| 亚洲免费伊人电影在线观看av| 欧美色欧美亚洲高清在线视频| 欧美一级成年大片在线观看| 亚洲精品网站在线播放gif| 久久久久久国产精品| 亚洲精品成人免费| 精品久久久久久久久久国产| 国产成人精品视频在线| 日韩欧美高清在线视频| 久久精品91久久久久久再现| 国产精品美女视频网站| 亚洲爱爱爱爱爱| 欧美在线一区二区三区四| 亚洲精品成人av| 日韩精品免费在线视频| 欧美成人剧情片在线观看| 91综合免费在线| 精品久久中文字幕| 亚洲激情视频网| 色琪琪综合男人的天堂aⅴ视频| 国产精品999| 乱亲女秽乱长久久久| 国产一区视频在线播放| 91免费视频网站| 欧美激情亚洲综合一区| 亚洲国产私拍精品国模在线观看| 国模私拍一区二区三区| 国产精品1区2区在线观看| 国产精品成人免费电影| 亚洲深夜福利网站| 成人日韩在线电影| 欧美三级欧美成人高清www| 亚洲美女av在线播放| 欧美中文在线免费| 亚洲偷熟乱区亚洲香蕉av| 亚洲国产精品yw在线观看| 久久69精品久久久久久久电影好| 欧美成人小视频| 在线亚洲国产精品网| 日韩精品极品毛片系列视频| 国产精品91免费在线| 美女久久久久久久久久久| 色老头一区二区三区在线观看| 韩国三级日本三级少妇99| 国产精品扒开腿爽爽爽视频| 中文字幕在线精品| 亚洲性日韩精品一区二区| 9.1国产丝袜在线观看| 亚洲午夜精品视频| 在线电影中文日韩| 欧美日韩另类视频| 久久天堂电影网| 欧美成人午夜免费视在线看片| 久久国产精品久久国产精品| 成人妇女免费播放久久久| 亚洲国产一区二区三区在线观看| 亚洲国产欧美一区二区丝袜黑人| 在线午夜精品自拍| 国产精品夜间视频香蕉| 日韩欧美亚洲国产一区| 91夜夜揉人人捏人人添红杏| 全色精品综合影院| 福利一区福利二区微拍刺激| 成人黄色片网站| 日韩精品视频在线播放| 日韩av有码在线| 久久久久国产精品免费| 亚洲电影免费观看高清完整版| 日本欧美中文字幕| 日韩av一区在线观看| 欧美激情a∨在线视频播放| 欧美专区中文字幕| 国产精品三级网站| 日本久久久久亚洲中字幕| 亚洲视频一区二区三区| 国产亚洲精品久久久久动| 亚洲自拍偷拍网址| 亚洲理论电影网| 精品一区二区亚洲| 午夜精品美女自拍福到在线| 国产欧洲精品视频| 中文字幕不卡在线视频极品| 日韩黄色高清视频| 最近更新的2019中文字幕| 国产综合在线视频| 国产精品女主播| 日本视频久久久| 欧美亚洲在线视频| 97在线观看免费| 亚洲视频日韩精品| 懂色av影视一区二区三区| 久久久久久久久久久免费精品| 国产精品88a∨| 孩xxxx性bbbb欧美| 久久久久久中文| 国产xxx69麻豆国语对白| 欧美日韩爱爱视频| 日韩欧美在线视频免费观看| 91av在线看| 国产在线日韩在线| 91亚洲精品视频| 亚洲最大在线视频| 91夜夜揉人人捏人人添红杏| 精品无人区乱码1区2区3区在线| 蜜臀久久99精品久久久久久宅男| 日韩精品极品在线观看播放免费视频| 国产日韩中文在线| 欧美成人网在线| 国产亚洲精品久久| 日韩av免费观影| 久久久久久久久爱| 国产91在线视频| 日韩成人av网址| 色诱女教师一区二区三区| 亚洲成人精品视频| 亚洲一区二区中文| 91久久国产精品91久久性色| 精品久久久久久久久久| 日韩美女免费观看| 日韩最新av在线| 久久天天躁狠狠躁夜夜爽蜜月| 亚洲人精选亚洲人成在线| 一本久久综合亚洲鲁鲁| 国产精品久久久久久久9999| 免费不卡欧美自拍视频| 亚洲日本中文字幕免费在线不卡| 日韩欧美aⅴ综合网站发布| 亚洲一区二区三区香蕉| 亚洲男人天堂视频|