文章关键字 ‘VB’

Google一下关键词“VBS 下载文件”出来也是一堆一样的，你复制我的，我复制你的，复制来复制去最后不知道是谁的。不过基本都是对的了，原理都一样，使用msxml2.xmlhttp和adodb.stream对象。至于他们所说的第二种方法，使用internet.application对象下载文件，我没有测试过，不知道效果怎么样。

Sub download(url,target)
	Const adTypeBinary = 1
	Const adSaveCreateOverWrite = 2
	Dim http,ado
	Set http = CreateObject("Msxml2.XMLHTTP")
	http.open "GET",url,False
	http.send
	Set ado = createobject("Adodb.Stream")
	ado.Type = adTypeBinary
	ado.Open
	ado.Write http.responseBody
	ado.SaveToFile target
	ado.Close
End Sub

download "https://demon.tw/foo.gif","foo.gif"

代码很简单，我就不多说什么了。我好奇的是他们说这段代码杀毒软件会报毒，我没有测试过不知道会不会报毒，但是这句话表明了他们的不良企图。呵呵，原来大家都喜欢编病毒啊。

在密码学中，恺撒密码（或称恺撒加密、恺撒变换）是一种最简单且最广为人知的加密技术。它是一种替换加密的技术，明文中的所有字母都在字母表上向後（或向前）按照一个固定数目进行偏移後被替换成密文。例如，当偏移量是3的时候，所有的字母A将被替换成D，B变成E，以此类推。这个加密方法是以恺撒的名字命名的，当年恺撒曾用此方法与其将军们进行联系。

例如，当偏移量是左移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的默认主题真不好使，代码竟然溢出了，将就着看吧，或者给我推荐一个好看点的主题也行。