用VBS实现的凯撒密码算法
例如,当偏移量是左移3的时候(解密时的密钥就是3):
明文字母表:ABCDEFGHIJKLMNOPQRSTUVWXYZ
密文字母表:DEFGHIJKLMNOPQRSTUVWXYZABC
以上都是废话啦,最近在教一个小朋友VBS,给她出了一道题,让她实现凯撒密码算法,不过貌似有点难了。Google了一下凯撒密码,出来的基本都是C和Java的实现,还是我自己写吧。
Function Caesar(str,offset)
Dim length,char,i
Caesar = ""
length = Len(str)
For i = 1 To length
char = Mid(str,i,1)
If char >= "A" And char <= "Z" Then
char = Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26
Caesar = Caesar & Chr(char)
ElseIf char >= "a" And char <= "z" Then
char = Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26
Caesar = Caesar & Chr(char)
Else
Caesar = Caesar & char
End If
Next
End Function
WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3)
WordPress的默认主题真不好使,代码竟然溢出了,将就着看吧,或者给我推荐一个好看点的主题也行。
原文:http://demon.tw/programming/vbs-caesar.html
通过vbs修改目录名称与快捷方式名称的实现代码
setfso=wscript.createobject("scripting.filesystemobject")OldFolderName1="263EnterpriseMessenger"newFolderName1="PeacemapMessenger"OldFileName1="263EnterpriseMessenger.lnk"newFileName1="PeacemapMesseng
用VBScript制作QQ自动登录的脚本代码
一直用的是狂人版的QQ,也用它附赠的自动登录器很久了,不过最近一版的狂人QQ不知为何取消了自动登录组件。好在QQ2009已经能够同时记住多个号码的
VBSCript之GenerateSDDL函数(权限设置)
FunctionGenerateSDDL(AccountName,AccessFlag,AccessType,AccessMask)DimAccounts,ObjWMI,ObjSID,ObjTru,ObjACEConstSET_DACL_PRESENT=&H8004SetObjWMI=GetObject("winmgmts:"&"{impersonationLevel=impersonate,(S