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

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

※ここに書かれていることはすべて自己責任で行ってください。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
22
2018-08-02 12:46:37 匿名さん
Option Explicit Do msgbox("ごめんね さやかちゃん わけが分からないよ") Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") objWshShell.Run """v4.vbs""" Set objWshShell = Nothing Loop
23
2018-08-07 04:18:26 Brettcig
wh0cd654063 <a href=http://tadalafilmedicaid.us.org/>TADALAFIL</a>
24
2018-08-10 21:56:42 X
保存の仕方が分からないのですが?
25
2018-10-20 14:56:03 エビ団子
うまくできた! びっくりしてる友達の顔wwww
26
2018-10-25 13:51:03 bthnoIcy
speedy cash <a href="http://wwwonlinepaydayloans.com/">irs tax debt relief</a> get loan <a href=http://wwwonlinepaydayloans.com/>money loans</a>
27
2018-11-02 16:35:14 あああ
すごいですねーあざす!
28
2018-11-03 04:45:36 vskbidly
viagra online without prescription <a href="http://movietrailershd.org/">viagra online canada</a> viagra samples <a href=http://movietrailershd.org/>buying viagra online</a>
29
2018-11-03 07:42:31 btfomips
cialis for sale <a href="http://genericcialls.com/">buy generic cialis</a> online cialis <a href="http://genericcialls.com/">generic cialis</a>
30
2018-11-03 14:06:56 btzOdono
buy viagra online <a href="http://usa77www.com/">buy viagra</a> viagra online uk <a href=http://usa77www.com/>buy viagra</a>
31
2018-11-27 06:09:14 bumsnugs
viagra generic <a href="http://erectiledysfunctionmedicinesus.com/">buy viagra online</a> generic viagra <a href=http://erectiledysfunctionmedicinesus.com/>generic viagra</a>
32
2018-11-27 14:18:08 Daviwic
https://mavicpilots.com/threads/pro-vs-platinum.40491/
33
2018-12-01 06:17:51 btjtyday
viagra dosage <a href="http://viagrapfhze.com/">generic viagra</a> buy discount viagra <a href=http://viagrapfhze.com/>buy generic viagra online</a>
34
2018-12-13 05:18:00 Showwic
Looking for the best app to watch free movies on your iOS phone? Then your should check Showbox APK. This is the most famous app today that has a big library of tv shows and films. This app is also available for Windows users. But your need to download it first to enjoy free films <a href=http://showbox-all.com>showbox-all.com</a>
35
2018-12-15 01:07:56 Showwic
Looking for the best app to watch free movies on your iOS phone? Then your should check Showbox APK. This is the most famous app today that has a big library of tv shows and movies. This app is also available for pc users. But your need to download it first to enjoy free shows http://showbox-all.com - Showbox for Windows PC
■トラックバックデータ
■トラックバックURL:
このURLにトラックバックしてください。
  • ブログの間違いなどは「連絡先」でお願いします(ブログのコメントは毎日見ているとは限りません)
  • 個人情報に関するコメントは禁止します。
  • 心無いコメントや中傷行為、荒らしは避けてください。
  • 正義の反対は別の正義、あるいは寛容。誤った正義感で書き込まないように。
  • 不快なコメントは削除し、場合によってはIPを公開します。
※スパム対策のため、一時的にコメントをできなくします。recaptchaを導入するためしばらくお待ちください。何かあれば連絡先でお願いします。
名前(20文字以内): 本文(2000文字以内): 画像認証(スパム対策のためご協力ください)
※送信ボタンを押すと、利用規約に同意したとみなします。

広告

新着記事

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

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

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

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

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

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

ランダム記事

業界研究はなぜする必要があるのか・差がつく業界研究のやり方・コツ

業界研究はなぜしなければいけないのでしょうか。理由はなんでしょうか。そして、どうやってやれば有効な業界研究になるのでしょうか。コツはあるのでしょうか。就活生のために、ここで業界研究マニュアルを公開します。

【オタク必見】オタクの就活のやり方・自己アピール方法!

オタクは就活は不利?確かにオタクを強調すればその通りですが、適切な戦術があれば不利になりません。ここでは、オタクの就活の自己アピールなどの立ち回り方を紹介します。

【注意】大手企業に行きたい!本当は怖い大手病・大企業病

就活の志望動機は、本音では所詮は給料と安定にすぎません。それを手にするために大手企業に行きたい、中小企業を敬遠する人も多数います。エリート集団が集まる大手企業に、普通の人が戦えるのでしょうか?