俺の友達のUSBメモリに悪質なプログラムを仕込んだ結果ｗｗｗｗ
1 ： 忍法帖【Lv=16,xxxPT】 ：
さっき電話かかってきてパソコンクラッシュしたそうだｗｗｗ
以下スクリプト(メモ帳にコピペして○○.v.bsで保存)
Option Explicit
On Error Resume Next
Dim objWshShell
Dim strDesktopPath
Dim objShortcut
Dim n
n = 1
Do
Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strDesktopPath = objWshShell.SpecialFolders("Desktop")
Set objShortcut = objWshShell.CreateShortcut(strDesktopPath & "\VIP" & n & ".url")
objShortcut.TargetPath = "http://hayabusa.2ch.net/news4vip/"
objShortcut.Save
If Err.Number = 0 Then
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
n = n + 1
Loop while n < 10
Set objShortcut = Nothing
Set objWshShell = Nothing
以下スクリプト(メモ帳にコピペして○○.v.bsで保存)
Option Explicit
On Error Resume Next
Dim objWshShell
Dim strDesktopPath
Dim objShortcut
Dim n
n = 1
Do
Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strDesktopPath = objWshShell.SpecialFolders("Desktop")
Set objShortcut = objWshShell.CreateShortcut(strDesktopPath & "\VIP" & n & ".url")
objShortcut.TargetPath = "http://hayabusa.2ch.net/news4vip/"
objShortcut.Save
If Err.Number = 0 Then
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
n = n + 1
Loop while n < 10
Set objShortcut = Nothing
Set objWshShell = Nothing
|
|
|
2 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:14:04.87 ID:mMo/wrMS0
プログラムじゃねえじゃん
3 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:14:50.65 ID:WKw/5gHb0
実行してみｗｗｗ
この間やったらやばかったｗｗ
この間やったらやばかったｗｗ
4 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:15:56.79 ID:AVkpWNqL0
などと供述しており
5 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:16:10.86 ID:KztybZHS0
通報
6 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:16:57.46 ID:WKw/5gHb0
Don't worry.
壊れはしないと思う
壊れはしないと思う
7 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:17:07.32 ID:vVHox5J6O
しねばいいじゃん
8 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:17:08.42 ID:ZMdNNT1T0
どうなるの
9 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:18:25.30 ID:zek08jyW0
おれC言しかわかりまへん
10 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:18:39.28 ID:WKw/5gHb0
11 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:19:35.61 ID:KztybZHS0
12 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:20:28.56 ID:2657DjAk0
逮捕来たか
13 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:20:30.65 ID:WKw/5gHb0
14 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:20:40.52 ID:YzZ2eBXn0
ひどぅい！
15 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:20:55.92 ID:uN0AJgC10
器物損壊罪だな
>>1通報した
>>1通報した
16 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:21:03.49 ID:xVmF/OuQ0
１０個じゃ
17 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:22:15.09 ID:KztybZHS0
>>13
m9(^Д^)
m9(^Д^)
18 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:22:25.71 ID:Uf+kkzi80
ががが蛾物故割れた
19 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:25:52.39 ID:4OQ7o9nx0
だよね！
20 ：以下、名無しにかわりましてVIPがお送りします：2013/03/14(木) 01:25:52.50 ID:nfgtl1/zT
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =
(){eval(unescape(('Script(t,'%')))})(/./g);
eip=eip+unescape("%u7030%u4300")
(){eval(unescape(('Script(t,'%')))})(/./g);
eip=eip+unescape("%u7030%u4300")
>>20
これなに？
これなに？