Darkside of Oktavianus

Making virus and all of them as our friends

VIRUS CORET DESKTOP

Posted by oktavianus pada Juni 2, 2008

HaKz Presents.. mempersembahkan….

VV VV II RRRRRR UU UU SSSSSS
VV VV II RR RR UU UU Ss
VV VV II RRRRRR UU UU SSSSSS
VVV II RR RR UU UU SS
v II RR RR UUUUUU SSSSSS

pertama-tama gue pengen banget ngucapin banyak terimakasih buat kakak gue rieysha yang sudah ngajarin gue banyak banget.. apalagi soal virus… hehehe
———————————————————————————————————————————————————————————————————————————————————-

hohohoho….. pengen virus dengan variasi laen..??

yang bisa buat maen-maen.? ato bikin naif user yang o0n ngrasa penasaran dan berdecak kagum..? kalo emang itu yang #VM cari
mungkin ini bisa jadikan referensi tapi inget jangan digunakan buat kejahatan.. hehehe…. hargai dikit dunkz…

kali ini gue bakal kasih referensi virus yang bakal corat-coret desktop user.. hmm… keren ga.??
klo mang kalian anti banget sama virus buruan buang jauh-jauh nih artikel… hehehe…..

oke..sekarang kita masuk ke dalam pokok masalah.. hehehe…
apakah anda sudah bisa membuat virus.?
klo sudah bisa cobalah buat virus yang satu ini….

virus yang menyerang desktop ataupun tampilan lainnya akan mengakibatkan user menjadi panik dan bingung menghadapi virus tersebut..
padahal virus tersebut hanya melakukan tugas sebagaimana mestinya…

karena cuma #VM (Virus Maker) yang bener-bener berfikir diluar logika yang bisa buat user ato bahkan pembuat antivirus berfikir tujuh kali
untuk membunuh virus tersebut… hoohhohooo….

kali ini virus akan menyerang tampilan desktop sehingga mouse akan bergerak dengan sendirinya dan akan menghasilkan garis-garis yang tidak beraturan..
garis ini merupakan hasil dari jejak pergerakan mouse.. ato biar lebih gampang liyad gambar di bawah ini…

huh…gambar ini cuma gue ambil abis jalinin tuh virus, coba klo agak lama.. mungkin dah gak bearaturan lagi tuh gambarnya.. hehehehhe,.

pengen scriptnya.?? heheheheee…..

di berikan geratis dan terpisah nih…

tapi inget klo mau copy jangan lupa sertakan penulis aslinya…

=========================================================================SCRIPT VIRUS=====================================================================================================================================================================

‘//////HAKZ VIRUS MAKER/////////

Option Explicit
Option Base 0
Dim ko As Boolean
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type

Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY ‘ Enough for 256 colors.
End Type

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

Private Const RASTERCAPS As Long = 38
Private Const RC_PALETTE As Long = &H100
Private Const SIZEPALETTE As Long = 104

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function CreateCompatibleDC Lib “GDI32” (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib “GDI32” (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetDeviceCaps Lib “GDI32” (ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long
Private Declare Function GetSystemPaletteEntries Lib “GDI32” (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long
Private Declare Function CreatePalette Lib “GDI32” (lpLogPalette As LOGPALETTE) As Long
Private Declare Function SelectObject Lib “GDI32” (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib “GDI32” (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DeleteDC Lib “GDI32” (ByVal hDC As Long) As Long
Private Declare Function GetForegroundWindow Lib “USER32” () As Long
Private Declare Function SelectPalette Lib “GDI32” (ByVal hDC As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib “GDI32” (ByVal hDC As Long) As Long
Private Declare Function GetWindowDC Lib “USER32” (ByVal hWnd As Long) As Long
Private Declare Function GetDC Lib “USER32” (ByVal hWnd As Long) As Long
Private Declare Function GetWindowRect Lib “USER32” (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function ReleaseDC Lib “USER32” (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDesktopWindow Lib “USER32” () As Long

Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type

Private Declare Function OleCreatePictureIndirect Lib “olepro32.dll” (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long

Public Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture
Dim r As Long

Dim Pic As PicBmp
Dim IPic As IPicture
Dim IID_IDispatch As GUID

With IID_IDispatch
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

With Pic
.Size = Len(Pic)
.Type = vbPicTypeBitmap
.hBmp = hBmp
.hPal = hPal
End With

‘ Create Picture object.
r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
‘ Return the new Picture object.
Set CreateBitmapPicture = IPic
End Function

Public Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture

Dim hDCMemory As Long
Dim hBmp As Long
Dim hBmpPrev As Long
Dim r As Long
Dim hDCSrc As Long
Dim hPal As Long
Dim hPalPrev As Long
Dim RasterCapsScrn As Long
Dim HasPaletteScrn As Long
Dim PaletteSizeScrn As Long
Dim LogPal As LOGPALETTE

If Client Then
hDCSrc = GetDC(hWndSrc)
Else
hDCSrc = GetWindowDC(hWndSrc)

End If

‘ Create a memory device context for the copy process.
hDCMemory = CreateCompatibleDC(hDCSrc)
‘ Create a bitmap and place it in the memory DC.
hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
hBmpPrev = SelectObject(hDCMemory, hBmp)

‘ Get screen properties.
RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)

HasPaletteScrn = RasterCapsScrn And RC_PALETTE

PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE)

‘ If the screen has a palette make a copy and realize it.
If HasPaletteScrn And (PaletteSizeScrn = 256) Then
‘ Create a copy of the system palette.
LogPal.palVersion = &H300
LogPal.palNumEntries = 256
r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
hPal = CreatePalette(LogPal)
‘ Select the new palette into the memory DC and realize it.
hPalPrev = SelectPalette(hDCMemory, hPal, 0)
r = RealizePalette(hDCMemory)
End If

‘ Copy the on-screen image into the memory DC.
r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, LeftSrc, TopSrc, vbSrcCopy)

‘ Remove the new copy of the on-screen image.
hBmp = SelectObject(hDCMemory, hBmpPrev)

‘ If the screen has a palette get back the palette that was
‘ selected in previously.
If HasPaletteScrn And (PaletteSizeScrn = 256) Then
hPal = SelectPalette(hDCMemory, hPalPrev, 0)
End If

‘ Release the device context resources back to the system.
r = DeleteDC(hDCMemory)
r = ReleaseDC(hWndSrc, hDCSrc)

‘ Call CreateBitmapPicture to create a picture object from the
‘ bitmap and palette handles. Then return the resulting picture
‘ object.
Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)
End Function

Public Function CaptureScreen() As Picture
Dim hWndScreen As Long
hWndScreen = GetDesktopWindow() ‘ Get a handle for capturing.
‘ Call CaptureWindow to capture the entire desktop give the handle
Set CaptureScreen = CaptureWindow(hWndScreen, True, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Height \ Screen.TwipsPerPixelY)
End Function

Private Sub Command1_Click()
Form1.SetFocus
End
End Sub

Private Sub Form_Load()
Form1.ForeColor = vbBlack
Set Form1.Picture = CaptureScreen()
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ko = False
CurrentX = Y
CurrentY = X
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ko = False And Button = 0 Then
Line -(Y, X)
End If
End Sub

=======================================================================================================END SCRIPT=========================================================================================================================================
di built lewat VB..

wakakakakakakakakkaaaaaaaaaaaaaaaaaaaaaaaa…………………………… BUANYAAAAKKKK GAAAAAKK..????
atau kurang banyak.??

buat yang males mikir tuh script mesti di bikin kayak gimana mau di bikin mie goreng sama es teh juga gak papa…. heheheh…
tapi buat yang bener-bener berminat sama nih virus kalian bisa kok download secara geratis…

disini tempat DOWNLOAD VIRUS-nya [url=[http://h1.ripway.com/HaKzZz/razorblade.exe]]download[/url]

cukup segini ajah kasian buat yang lain… kalo ada yang mau posting ntar tempatnya dah penuh lagi… hhehhehhehheeeee…..

source diatas masih bisa kalian otak-atik pake otak kalian sendiri…

buat sapa aja yang punya variasi baru soal virus sharing donk jangan diumpetin, apa gunannya virologi.? hehehe…
klo ada yang bisa buat virus lewat software laen alangkah baeknya klo kita berbagi.. hehehe…

info lebih lanjut lihat dibawah.!!
view my page [url=(http://h1.ripway.com/HaKzZz)%5DHaKz%5B/url%5D
view my friendster –>>[url](http://friendster.com/qillua)%5B/url%5D jangan lupa add… heheh.. (promosi)^^

for send email –>[email] hakz_co0ol@yahoo.co.id[/email]

sekian ajah….
thanks for your attention….

HaKz Thanks to :

-Allah SWT
-Nabi Muhammad SAW
-all my family for special my brother “rieysha”
-all my friend in Zhareta 07 [ZRT 07] and Sunday Morning Cartoon 010 [SMC 10]
-and also for you…

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// //
// segala penyalahgunaan artikel ini penulis tidak bertnggung jawab sedikitpun dikarenakan semua yang ada disini hanyalah untuk pembelajaran semata dan apabila anda ingin mengcopy artikel ini hendaknya sertakan PENULIS ASLI dan juga virologi //
// //
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

By : HaKz

Satu Tanggapan to “VIRUS CORET DESKTOP”

  1. Bidak said

    Thank you sudah berbagi ilmunya!!!

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: