Rover12421's Blog

The End.

用DOS发E-mail(163成功)+vbs 自动

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
telnet smtp.163.com 25
helo rover12421
ehlo rover12421
AUTH LOGIN
dXNlcm5hbWU=
cGFzc3dvcmQ=
mail from:<rover12421@163.com>
rcpt to:<rover12421@163.com>
data
<CR><LF>
From:rover12421@163.com
To:Rover12421@163.com
Data:Mon,25 Oct 2008 14:24:27 +0800
Subject:test mail
Hello!
if you see the e-mail
wo are ok !
.<CR><LF>
<CR><LF>.<CR><LF>
..
.
quit

VBS

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
on error resume next
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run"cmd"
WshShell.AppActivate"c:\windows\system32\cmd.exe"
WScript.Sleep 200
WshShell.SendKeys"telnet smtp.163.com 25"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 100
WshShell.AppActivate"telnet.exe "
WScript.Sleep 2000
WshShell.SendKeys"helo rover12421"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"ehlo rover12421"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"AUTH LOGIN"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"dXNlcm5hbWU="
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"cGFzc3dvcmQ="
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"mail from:<rover12421@163.com>"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"rcpt to:<rover12421@163.com>"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"data"
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"From:rover12421@163.com"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"To:Rover12421@163.com"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"Subject:test2 send mail"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"Hello!"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"if you see the e-mail"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"wo are ok !"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"{ENTER}"
WshShell.SendKeys"."
WshShell.SendKeys"{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys"quit"

用户名和密码要base64加密

Comments