用VBS发送邮件

2010年07月1日   By Demon   45,185 views

曾经在编写VBS版U盘小偷程序的时候Google过怎么用VBS发送E-Mail,不知道为什么当时Google不到,可能是眼花了吧。使用CDO.Message对象就可以实现,示例代码演示的是gmail发送纯文本并带附件的邮件,至于其他的电子邮箱,需要修改代码中对应的smtp服务器和端口,原理也是一样的,就不举例了。贴出来的代码没有写注释,需要看注释的请下载源码。

Const Email_From = "still.demon@gmail.com"
Const Password = "password"
Const Email_To = "380401911@qq.com"
Set CDO = CreateObject("CDO.Message") 
CDO.Subject = "From Demon"
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "Hello world!"
cdo.AddAttachment "C:\hello.txt"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
With CDO.Configuration.Fields
	.Item(schema & "sendusing") = 2
	.Item(schema & "smtpserver") = "smtp.gmail.com"
	.Item(schema & "smtpauthenticate") = 1
	.Item(schema & "sendusername") = Email_From
	.Item(schema & "sendpassword") = Password
	.Item(schema & "smtpserverport") = 465
	.Item(schema & "smtpusessl") = True
	.Item(schema & "smtpconnectiontimeout") = 60
	.Update
End With
CDO.Send

一个VBS恶作剧程序

2010年06月30日   By Demon   23,784 views

很久很久以前,好像是高考后的那个夏天,收到过朋友的一个恶作剧程序,程序名为“一篇感动人的文章.vbs”,当时什么都不懂,直接双击了,一直耿耿于怀。双击后弹出一个输入框“输入‘我是猪’,否则十五秒后关机。我还以为是搞笑的,什么都没有输入,就真的关机了,觉得很神奇。而现在能够自己写出代码了,却再也找不到以前的快乐。

Option Explicit 
On Error Resume Next 
Dim answer
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪',否则10秒后关机~",0
Do While answer<>"我是猪"
	answer=InputBox("输入'我是猪',否则10秒后关机~","哈哈哈",,7000,8000)
Loop 
WshShell.Run "Shutdown /a",0
MsgBox "哈哈哈,好玩不?",,"哈哈哈"

打开记事本,把代码复制粘贴进去,保存为“一篇感动人的文章.vbs”,一个恶作剧程序就完成了,接下来做什么就超出本文范围了。

暴风一号病毒VBS源码解密

2010年06月29日   By Demon   35,512 views

一个寂寞的人写的VBS病毒,即网上所谓的1KB文件夹快捷方式病毒。只不过是恶作剧程序罢了,只能拿来吓吓不明真相的同学,根本不算严格意义上的病毒,不过为了方便,我在文中仍然称之为病毒。话说回来,我第一次看到这个程序的时候震惊了一下,因为第一眼看上去貌似全部都是注释,全是注释怎么可能执行呢,然后仔细一看,原来有一行没有注释,代码就是从这一行开始执行的。作者真是太寂寞了,写个VBS病毒还加密,VBS加密只能拿来骗骗杀毒软件,在人眼面前就没有任何秘密可言了。不过事实证明某些杀毒软件还是很好骗的,比如某款自吹永久免费的流氓软件,好像叫361还是什么来着,我不记得了。反正我直接双击病毒它不报毒(注,不是我的电脑,我的电脑没有这种软件),然后双击根据病毒代码改写的专杀程序,弹出一个警告,笑死我了。

解密的方法很简单,只要弄清楚没有注释的那一行代码做了什么就行了。那么那一行做了什么呢?自己去看代码吧。简单的说,就是读取病毒自身,将注释解密以后得到最后的病毒代码,然后通过VBS的Execute语句执行解密后的病毒代码,同时变换加密后把新加密的代码写入源文件。所以,我们只要把最后的Execute语句改写输出语句,就可以得到病毒解密后的代码了。下面是我根据病毒代码改写的解密程序,只要把病毒拖动到解密程序上,就会在同一文件夹生成病毒解密后的代码。代码太长就不贴出来了,感兴趣的自己下载。不得不说,代码的写的很整齐,对学习VBS很有借鉴的价值。

警告:病毒源码仅供VBS学习之用,请勿非法使用,由于非法使用造成的后果与本人无关

解密前的暴风一号病毒(1KB文件夹快捷方式病毒)

[download id=21]

暴风一号病毒(1KB文件夹快捷方式病毒)解密程序

[download id=20]

解密后的暴风一号病毒(1KB文件夹快捷方式病毒)

[download id=22]

根据暴风一号病毒(1KB文件夹快捷方式病毒)源码改写的专杀程序

[download id=23]

快捷方式都以IE打开的解决方法

2010年06月28日   By Demon   16,711 views

曾经有个朋友把桌面的快捷方式(*.lnk)都设置成以IE浏览器的打开方式打开了,导致所有的lnk文件都用IE打开导致出现问题。桌面上好多好多IE图标,很好看呢。我研究了好久都没找到设置windows快捷方式都以同一种打开方式打开的方法,不知道她是怎么弄的(其实在控制面板可以改,但是她不是这样弄的),真乃神人。

解决的方法很简单,按下快捷键win+R(注:win键一般是左边Ctrl和Alt之间的那个键,上面画着windows徽标),打开“运行”对话框,输入regedit,回车,打开注册表编辑器。找到

HKEY_CURRENT_USER\Software\Microsoft\Windows
\CurrentVersion\Explorer\FileExts\.lnk

正常情况下应该只有有OpenWithList和OpenWithProgids两项,但是如果用户修改了快捷方式文件默认的打开方式,就会多出UserChoice一项。把UserChoice这一项删除,注销用户后重新登录,或者重启explorer进程,打开方式就恢复默认的了。

IPv6免费传文件——uTorrent鲜为人知的功能

2010年06月27日   By Demon   29,022 views

使用uTorrent高级功能中的Embedded Tracker功能可以实现IPv6传文件。这也是六维空间某个XX版主所谓的“作弊”功能,我就不评论了。不懂不可怕,可怕的是不懂装懂。

废话不多说了,正文开始:

首先要安装uTorrent,一般都装了,没装的可以到uTorrent官网下载,安装过程就不讲了
然后选择Options->Preferences或按快捷键Ctrl+P,选择Advanced选项卡,将bt.enable_Tracker设为true,如图

1

阅读这个条目剩下部分 »