「ウイルスの作り方!(初級)」 | キャリアワールド
トップページ < ブログトップページ < ウイルスの作り方!(初級)

ウイルスの作り方!(初級)

※ここに書かれていることはすべて自己責任で行ってください。PCが壊れるようなことはまずないでしょうが(壊れたらこのプログラムよりハードウェアやドライバの故障を疑ったほうがいいでしょう)、友達に仕掛けたからと言って私は責任を取りません。 ※悪用厳禁

このページではウイルスの作り方について解説します。実際の被害はさほどなく、注意書きさえ読めば大体何とかなります。 ぜひこのウイルスを使っていたずらしまくりましょう!

広告

ソースコード

以下が偽ウイルスのソースコードです。解説を参考にして使ってみてください。

Option Explicit
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で保存する。

使い方を紹介します。

1.保存したデータをスタート>プログラム>スタートアップに保存する。
次回起動時に表示されます。いたずらでわざと仕掛けてみて友達に一泡吹かせてみましょう!
(※自己責任の上で実行してください。また、友達に十分説明してください。)

2.直接起動する。
test.vbsを起動してください。

使うとどうなるのか・・・

img/vb1-1.png
「ウイルスをインストールしますか?」

はい>次に進む
いいえ>最初に戻る

img/vb1-2.png

ウイルスをインストールしますが出て、10秒くらいで
「ウイルスのインストール完了」のメッセージが出る。

img/vb1-3.png

img/vb1-5.jpg


システムファイルが壊れたというメッセージが出ます(system72などはないため冗談です。 Windowsをある程度知っている人にはわかるようにしてあります。) というかsystem72って・・・。

解説

1.Dim num,x
変数の宣言です。
2.num = 2
numに2を代入します。
3.Do While True~Loop
~の内容を永遠に繰り返します。Exit Doで終了します。
4.MsgBox 文章
メッセージを表示します。
5.num = MsgBox ("ウイルスをインストールしますか?",49,"ウイルス情報")
メッセージを表示した後、はいと選んだらnumに1を代入します。
6.If num = 1 Then 処理内容
num=1ならば、処理内容を行います。

注意!

このウイルスは害を与えなければ増殖もせず、感染力は皆無です。 こういうウイルス(もどき)は検索すればあちこちに出てきます。 初心者にカスタマイズしやすいタイプにしてはいますが、もちろん害はありません。 害があるウイルスを作る人がわざわざここを参考にするとは思えないし、 それができる人は、ここに書いてあることは見なくてもできるはずです。 ここを見てウイルスのアイデアが得られるわけでは絶対ありません。 本物のウイルスの作り方は、書きたくないのですから!!!

こんなウイルスでも、リテラシーの低い人なら騙せてしまいます。 もしあなたがそれをやったことをネタばらししなければ、あなたは悪いことをしたことになります。 いたずらでは済まなくなります。いたずらは必ずネタばらしがあるものです。 ウイルス作成罪と言う犯罪があるように(これはウイルスじゃないけど)、「ウイルス」を作ってしまったら捕まります。 注意して使ってください。

必ずネタばらしは行ってください。 学校で仕掛けて、ある人がジョークだと言わなかったために学校のシステムを総リカバリしたところを知っています。 結局ばれて停学等の重い処分を食らったこと・・・はなかったものの、怒られるよね・・・。

当然セキュリティソフトは感知してくれません(ウイルスですらないんだから!)

でも、もしこれがウイルスだったら、ツクール持っていれば3秒くらいで作れるもんね・・・ウイルス・・・ プログラミングをほんの少しでもかじれば馬鹿の一つ覚えでも作れるし・・・

vb1-4.png

メモ帳に「ウイルスに感染しました」と書かれたテキストファイルもウイルスですし・・・ これはウイルスじゃないんだけど、自己責任で使ってね。 いいか、間違っても学校のPCなんかに入れるなよ!

※vbsファイルは起動する前に中身くらい見ましょう。

広告

↓記事が気に入ったらポチっと押してください。管理人が喜びます!
にほんブログ村 就職バイトブログ 就活・就職活動へ にほんブログ村 IT技術ブログへ

2016-11-06 21:00:37投稿  カテゴリ:IT関連

コメント

1
2016-11-18 20:40:37 さなぎ
すごい分かりやすい記事でした! これはビビる(笑)
2
2016-11-30 23:24:30 log@管理人
ご利用ありがとうございました。今後ともキャリアワールドをよろしくお願いします。
3
2017-02-01 23:14:05 NIGHTERZ
凄いですね! やってみよう
4
2017-02-03 18:32:58 GINGER NIGHTERZ
あの、起動してもコンパイルエラーしかでません。 コンパイル型は勉強したことが無いのでご指導お願いしいます。
5
2017-03-12 00:10:58 log@管理人
動かないだけでは申し訳ないですがわかりません。私はWindows7で一度コピーしてみましたが動きました。OSなどの情報をお願いします。
6
2017-08-26 20:19:16 名無しになれたらいいのに・・・
プログラムの冒頭で49の数字が出てくるんですけどそれは何ですか? 48ではないのですか?
7
2017-08-26 20:24:35
あ、勘違いでした ごめんなさい
8
2017-08-29 14:14:07 ゆうき
win10でできません どうしてでしょう
9
2017-09-09 07:54:42 紳士
windows10で動作確認 結果:ちゃんと動きました ゆうきさん 名前やコピーする場所はあってますか?
10
2017-11-07 20:51:39 名無しのクラフター
ワカリヤスカクスタデス。アリガトウゴザマシタ。コンゴトモタノシミミステマス...........................................................................................
11
2017-11-07 20:52:07 名無しのクラフター
ワカリヤスカクスタデス。アリガトウゴザマシタ。コンゴトモタノシミミステマス...........................................................................................
12
2017-11-07 20:52:44 名無しのクラフター
ワカリヤスカクスタデス。アリガトウゴザマシタ。コンゴトモタノシミミステマス...........................................................................................
13
2017-11-12 20:18:32 豊田真由子、落選おめでとう!
これ、友達へのどっきりに使えるわwww
14
2017-12-04 15:04:08 akatuki
流石です!ビビりました!
15
2018-01-23 12:21:29 太郎
破損しすぎ
16
2018-02-27 14:49:32 真月 零
なかなか良いですね。
17
2018-03-16 15:05:34 Casilab
Hello. I'm Jeff
18
2018-03-22 17:43:13 daisuke
作ってみたよ
19
2018-04-02 16:24:58 カイ!
これ、パソコンでしかできないんですか?
20
2018-04-26 10:18:33 ジェシカ
おち ん ち ん
21
2018-05-26 11:46:03 n
fack
■トラックバックデータ
■トラックバックURL:
このURLにトラックバックしてください。
  • ブログの間違いなどは「連絡先」でお願いします(ブログのコメントは毎日見ているとは限りません)
  • 個人情報に関するコメントは禁止します。
  • 心無いコメントや中傷行為、荒らしは避けてください。
  • 正義の反対は別の正義、あるいは寛容。誤った正義感で書き込まないように。
  • 不快なコメントは削除し、場合によってはIPを公開します。
※スパム対策のため、一時的にコメントをできなくします。recaptchaを導入するためしばらくお待ちください。何かあれば連絡先でお願いします。
名前(20文字以内): 本文(2000文字以内): 画像認証(スパム対策のためご協力ください)
※送信ボタンを押すと、利用規約に同意したとみなします。

広告

新着記事

仕事が多すぎる!仕事が大変なときの対処・対策法伝授!

仕事が多すぎるのは誰もが経験したことがあると思いますが、すべてを受けるべきでしょうか?むしろ、仕事が多すぎたらこちらから動かなければならないと考えています。今回はその方法を公開します。

子どもの教育にアニメってすごくおすすめだよ?おすすめアニメ4選

子供には、教育のためにも絶対にアニメを見せたほうがいい!逆説的かも知れませんが、友達がいるといっぱい成長できるのと同じく、アニメでも成長できるのです。何を見せればいいの?それを掲載します。

サービス終了するソーシャルゲームの見分け方

ゲームのサービス終了が言い渡されたら嫌ですよね?そうならないための自衛策を公開します。サービス終了になって不幸な目に合わないためにも熟読して自衛しよう!

ランダム記事

子どもの教育にアニメってすごくおすすめだよ?おすすめアニメ4選

子供には、教育のためにも絶対にアニメを見せたほうがいい!逆説的かも知れませんが、友達がいるといっぱい成長できるのと同じく、アニメでも成長できるのです。何を見せればいいの?それを掲載します。

【就活・業界研究】広告代理店を知ろう!業界情報のまとめノート

広告代理店の業界研究に最適!業界の情報が満載です。業界の区分、職種、さらには業界の現状や問題点まで詳しく1つの記事にまとめています。就活生必見の記事です。

サービス終了するソーシャルゲームの見分け方

ゲームのサービス終了が言い渡されたら嫌ですよね?そうならないための自衛策を公開します。サービス終了になって不幸な目に合わないためにも熟読して自衛しよう!