ウイルスの作り方！(初級)
※ここに書かれていることはすべて自己責任で行ってください。PCが壊れるようなことはまずないでしょうが（壊れたらこのプログラムよりハードウェアやドライバの故障を疑ったほうがいいでしょう）、友達に仕掛けたからと言って私は責任を取りません。 ※悪用厳禁このページではウイルスの作り方について解説します。実際の被害はさほどなく、注意書きさえ読めば大体何とかなります。 ぜひこのウイルスを使っていたずらしまくりましょう！
広告
ソースコード
以下が偽ウイルスのソースコードです。解説を参考にして使ってみてください。
Dim num,x
num = 2
Do While True num = MsgBox ("ウイルスをインストールしますか？",49,"ウイルス情報")
If num = 1 Then Exit Do
Loop
MsgBox "ウイルスのインストールを始めます",0,"はじめます"
WScript.Sleep(10000)
MsgBox "ウイルスのインストールが完了しました。",16,"完了"
WScript.Sleep(3000)
MsgBox "警告:C:\Windows\system72\picture.sysが破損しています！",16,"Windows"
MsgBox "警告:C:\Windows\system72\activate.datが破損しています！",16,"Windows"
WScript.Sleep(20)
MsgBox "警告:C:\Windows\system72\registry.dllが破損しています！",16,"Windows"
WScript.Sleep(1000)
MsgBox "警告:C:\Windows\system72\mathematica.exeが破損しています！",16,"Windows"
WScript.Sleep(1000)
MsgBox "警告:C:\Windows\system72\cmd.7zipが破損しています！",16,"Windows"
MsgBox "警告:C:\Windows\system72\b_screen.zipが破損しています！",16,"Windows"
WScript.Sleep(1000)
MsgBox "警告:C:\Windows\system72\monument.zipが破損しています！",16,"Windows"
WScript.Sleep(2000)
MsgBox "警告:C:\Windows\system72\userdata.logが破損しています！",16,"Windows"
MsgBox "警告:C:\Windows\system72\osinfoが破損しています！",16,"Windows"
WScript.Sleep(1000)
MsgBox "警告:C:\Windows\system72\explolerが破損しています！",16,"Windows"
MsgBox "警告:低レベルな冗談です",16,"Windows"
---↑これより上がソースです
この「そーすこーど」をメモ帳で書いて、test.vbsで保存する。
使い方を紹介します。
１．保存したデータをスタート＞プログラム＞スタートアップに保存する。
次回起動時に表示されます。いたずらでわざと仕掛けてみて友達に一泡吹かせてみましょう！
（※自己責任の上で実行してください。また、友達に十分説明してください。）
２．直接起動する。
test.vbsを起動してください。
使うとどうなるのか・・・
「ウイルスをインストールしますか？」
はい＞次に進む
いいえ＞最初に戻る
ウイルスをインストールしますが出て、１０秒くらいで
「ウイルスのインストール完了」のメッセージが出る。
システムファイルが壊れたというメッセージが出ます（system72などはないため冗談です。 Windowsをある程度知っている人にはわかるようにしてあります。） というかsystem72って・・・。
解説
１．Dim num,x変数の宣言です。
２．num = 2
numに２を代入します。
３．Do While True～Loop
～の内容を永遠に繰り返します。Exit Doで終了します。
４．MsgBox 文章
メッセージを表示します。
５．num = MsgBox ("ウイルスをインストールしますか？",49,"ウイルス情報")
メッセージを表示した後、はいと選んだらnumに１を代入します。
６．If num = 1 Then 処理内容
num=1ならば、処理内容を行います。
注意！
このウイルスは害を与えなければ増殖もせず、感染力は皆無です。 こういうウイルス（もどき）は検索すればあちこちに出てきます。 初心者にカスタマイズしやすいタイプにしてはいますが、もちろん害はありません。 害があるウイルスを作る人がわざわざここを参考にするとは思えないし、 それができる人は、ここに書いてあることは見なくてもできるはずです。 ここを見てウイルスのアイデアが得られるわけでは絶対ありません。 本物のウイルスの作り方は、書きたくないのですから！！！
こんなウイルスでも、リテラシーの低い人なら騙せてしまいます。 もしあなたがそれをやったことをネタばらししなければ、あなたは悪いことをしたことになります。 いたずらでは済まなくなります。いたずらは必ずネタばらしがあるものです。 ウイルス作成罪と言う犯罪があるように（これはウイルスじゃないけど）、「ウイルス」を作ってしまったら捕まります。 注意して使ってください。
必ずネタばらしは行ってください。 学校で仕掛けて、ある人がジョークだと言わなかったために学校のシステムを総リカバリしたところを知っています。 結局ばれて停学等の重い処分を食らったこと・・・はなかったものの、怒られるよね・・・。
当然セキュリティソフトは感知してくれません（ウイルスですらないんだから！）
でも、もしこれがウイルスだったら、ツクール持っていれば３秒くらいで作れるもんね・・・ウイルス・・・ プログラミングをほんの少しでもかじれば馬鹿の一つ覚えでも作れるし・・・
メモ帳に「ウイルスに感染しました」と書かれたテキストファイルもウイルスですし・・・ これはウイルスじゃないんだけど、自己責任で使ってね。 いいか、間違っても学校のＰＣなんかに入れるなよ！
※vbsファイルは起動する前に中身くらい見ましょう。
