پروژه ی وارد شدن به روم یاهو

[lesolai]

اگه میشه آموزش اسنیف کردن پکت های یاهو رو بزارید تا ما هم یاد بگیریم.

[Snoopboy]

برای اسنایف کردن پکت های یاهو از برنامه Yahoo Protocol Assistan استفاده کنید . آموزش هم در گوگل هست . برنامه های حرفه ای تری هم هست ولی این برنامه براتون پکت ها رو اماده میده و به اندازه فعلا کارتون رو راه میندازه

سورس مولتی لوگین و ورود به روم هم آماده شد .


Multi-Login.rar

[zidanerfan]

Snoopboy با سپاس و تشکر فروان خدمت شما خیلی ممنون به زبان کردی ==========> زور سپاس

[zidanerfan]

Snoopboy خیلی ممنون

[zidanerfan]

Snoopboy میشه وقتی میرم تو روم بتونم بروم رو تالک و صحبت کنم یعنی میشه ؟

[Snoopboy]

به قول مدیران سایت از همون دکمه تشکر استفاده می کردی کافی بود
بله میشه .ولی جدیدا حدود 1 سال یا شاید هم کمتر سیستم Vc یاهو عوض شده و یه کم تغییرات داشته . منم خودم قبلا این کار رو می کردم . حدود 1 ساله که اصلا برای VC هیچ برنامه ای ننوشتم ولی با استفاده از گوگل 100 % می تونی سورس هایی رو در این زمینه پیدا کنی
موفق باشید

[zidanerfan]

ای ولا خیلی ممنون از دکمه ی تشکر استفاده کردم خیلی آقای همیشه از دکمه استفاده می کنم بازم ممنون

[xrezax]

2 تا سوال دیگه. وقت داشتی جواب بدی ممنون میشم.
1) چطور با ساسک لاگین کنم.
2) آی دی های هر رومو می خوام که وارد شدم توی یک تکستی سیو کنه واسم

مرسی

[Snoopboy]

برای ورود به روم هم کد جمع اوری یوزر ها رو از سورس Get_Pm بردار و بزار توی مولتی و از یه Pause هم استفاده کن که برنامه هنگ نکنه . برای لوگین با ساکس هم باید از یک یوزر کنترل استفاده کنی که با یک وینسوک کوکی هارو میگیری و با یوزر کنترل به سرور می فرستی. برات یه نمونه حاضر کردم اگه امکانات بیشتر خواستی کدهاش توی سورس های قبلی هست

With_socks.rar

[xrezax]

میشه واسم ادیتش کنی؛ بشه باش ای دی لاگین کرد و یوزرارو سیو کرد با ساسک؛ راستی آموزش اسنیفم داری بزار؛ بازم مرسی

[_behnam_]

اینم اون چیزی که قول داده بودم ببخشید دیر شد


فیلم آموزش پکت های یاهو

[parselearn]

نحوه ليست كردن رومها چگونه است؟

[zidanerfan]

سلام یه سوال عجیب من با یاهوو سوپرا ای دی لاگ میکنم خب رفتم با پروژه یه پی ام تو روم زدم بله اولین پی ام میره ولی بعد از اولین پی ام پی ام های دیگه نمیرن با یاهوو مسنجر چرا پی ام ها دیده میشه ولی با باهوو سوپرا نه اگه کمکم کنید ممنون میشم

[_behnam_]

نحوه ليست كردن رومها چگونه است؟

واسه گرفتن رومها و تعداد یوزرهای توی اونا باید به سرور هدر ارسال کنی که شامل کوکی میشه
که هر منطقه /ycontent/?chatroom_1029 مخصوص داره

GET /ycontent/?chatroom_1029=0&intl=us HTTP/1.1

Cookie:                                                        

User-Agent: Mozilla/4.0 (compatible; MSIE 5.5)

Host: insider.msg.yahoo.com

Cache-Control: no-cache

[xrezax]

برای ورود به روم هم کد جمع اوری یوزر ها رو از سورس Get_Pm بردار و بزار توی مولتی و از یه Pause هم استفاده کن که برنامه هنگ نکنه . برای لوگین با ساکس هم باید از یک یوزر کنترل استفاده کنی که با یک وینسوک کوکی هارو میگیری و با یوزر کنترل به سرور می فرستی. برات یه نمونه حاضر کردم اگه امکانات بیشتر خواستی کدهاش توی سورس های قبلی هست

With_socks.rar

زحمت ایدیتشو می کشی؟؟ ممنونت میشم.

[zidanerfan]

آقا لینک خرابه مال آموزش سنیف لطف کنید لینک جدید بزارید

[xrezax]

یه سوال دیگه.
میشه وقتی یک آی دی رو با برنامه ادد کردم و طرف اکی داد خود برنامه خود به خود اکی بزنه واسم ؟؟ تا ادد بشه طرف
امیدوارم سوالم واضح باشه. با سورس توضیح بدی ممنونت میشم

[zidanerfan]

یه سوال میشه بتونم تکست های تو روم رو ببینم اگه میشه کمکم کنید

[xrezax]

زحمت اینو می کشی واسم ایدیت کنی. ضمیمه کردم. ممنون میشم

[Snoopboy]

می خوای چیکارش کنی؟ سورس که آپدیت هست . چی می خوای اضافه کنی؟

[xrezax]

نه ایدیت نیست. تستش کن ببین کار نمی کنه. چندتا ایراد داره

در کل میخوام 30 تا آی دی با ساسک لاگین کنم. بعد بفرستمشون توی 30 تا روم . بعد آی دی های هر رومو بهم بده . بعد بتونم توی روم هم مطلب ارسال کنم.

بعد در مورد ساسک توضیح بدی ممنونت میشم. کد نویسیم چطور باشه باوین ساک ساسک (یعنی Exsock5) باشه یا با وینسوک (یعنی Winsock1) . توضیح بدی ممنون میشم. قاطی کردم

[Snoopboy]

می خوای اسپمر بنویسی؟
من کوکی ها رو با Winsock1 گرفتم . شما برای هر کاری باید کد هارو توی Exsock5 بنویسی. کد نویسیش یکییه با Single فقط همرو Index کن.

[zidanerfan]

سلام بازم اومدم با یه سوال عجیب من میخوام یه بوتر برای سوپرا بنویسم من از خیلی ها پرسیدم گفتند باید پکت به ای دی مورد نظر ارسال کنی من 1000 تا پکت در چند ثانیه ارسال کردم تعداد پکت ها به 30000 هزار هم رسید ولی بوت نشد فقط یه بار تونستم بوت کنم اونم شانسی بود خودم تعجب کردم اگه میشه کمی برام توضیح بدین با تشکر از دوستان گلم

[xrezax]

آره می خوام سپمر بنویسم. می تونی کمک کنی ممنونت میشم.

[_behnam_]

سلام بازم اومدم با یه سوال عجیب من میخوام یه بوتر برای سوپرا بنویسم من از خیلی ها پرسیدم گفتند باید پاکت به ای دی مورد نظر ارسال کنی من 1000 تا پاکت در چند ثانیه ارسال کردم تعداد پاکت ها به 30000 هزار هم رسید ولی بوت نشد فقط یه بار تونستم بوت کنم اونم شانسی بود خودم تعجب کردم اگه میشه کمی برام توضیح بدین با تشکر از دوستان گلم

پاکت اشتباه است !!
صحیح آن پکت است

[zidanerfan]

آقا ممنون.
اگه میشه کمکم کنید ؟

[Snoopboy]

برای بوت کردن سوپرا باید سرعت زیاد باشه و از پکت های تلفیقی استفاده کنی . یعنی به صورت همزمان از چند پکت استفاده کنی

برای نوشتن اسپمر هم راهنماییت می کنم . خودت بنویس .
برای اینکه به چند روم وارد شی از لی لیست باکس استفاده کن و کدهای زیر Case 150 رو برای لیست باکس بنویس دیگه به هیچ جا نیازی نیست تغییرات اعمال کنی

[zidanerfan]

سلام 2باره داداش میشه بگی چرا این پروژه پی ام یا تکست فارسی نمی کنه یعنی وقتی میرم تو روم میخوام یه چیزی با فارسی تکست کنم تو روم اصلاً هیچی نشون نمیده ولی واسه انگلیسی کار میکنه ؟ اگه تونستی این تغییر هم اعمال کنید خیلی ممنون

[Snoopboy]

Option Explicit

Public Function Send_Message(Str As String) As String

On Error Resume Next

  Dim i     As Integer

  Dim N     As Integer

  Dim St    As String

    For i = 1 To Len(Str)

        N = 2

        If Left(Str, 1) = Chr(215) Then

            St = St & ChrW(195) & Chr(151)

            N = 2

        ElseIf Left(Str, 1) = Chr(161) Then

            St = St & ChrW(216) & Chr(140)

            N = 2

        ElseIf Left(Str, 1) = Chr(186) Then

            St = St & ChrW(216) & Chr(155)

            N = 2

        ElseIf Left(Str, 1) = Chr(187) Then

            St = St & ChrW(216) & Chr(156)

            N = 2

        ElseIf Left(Str, 1) = Chr(188) Then

            St = St & ChrW(216) & Chr(157)

            N = 2

        ElseIf Left(Str, 1) = Chr(189) Then

            St = St & ChrW(216) & Chr(158)

            N = 2

        ElseIf Left(Str, 1) = Chr(191) Then

            St = St & ChrW(216) & Chr(159)

            N = 2

        ElseIf Left(Str, 1) = Chr(192) Then

            St = St & ChrW(216) & Chr(160)

            N = 2

        ElseIf Left(Str, 1) = Chr(193) Then

            St = St & ChrW(216) & Chr(161)

            N = 2

        ElseIf Left(Str, 1) = Chr(194) Then

            St = St & ChrW(216) & Chr(162)

            N = 2

        ElseIf Left(Str, 1) = Chr(195) Then

            St = St & ChrW(216) & Chr(163)

            N = 2

        ElseIf Left(Str, 1) = Chr(196) Then

            St = St & ChrW(216) & Chr(164)

            N = 2

        ElseIf Left(Str, 1) = Chr(197) Then

            St = St & ChrW(216) & Chr(165)

            N = 2

        ElseIf Left(Str, 1) = Chr(198) Then

            St = St & ChrW(216) & Chr(166)

            N = 2

        ElseIf Left(Str, 1) = Chr(199) Then

            St = St & ChrW(216) & Chr(167)

            N = 2

        ElseIf Left(Str, 1) = Chr(200) Then

            St = St & ChrW(216) & Chr(168)

            N = 2

        ElseIf Left(Str, 1) = Chr(201) Then

            St = St & ChrW(216) & Chr(169)

            N = 2

        ElseIf Left(Str, 1) = Chr(202) Then

            St = St & ChrW(216) & Chr(170)

            N = 2

        ElseIf Left(Str, 1) = Chr(203) Then

            St = St & ChrW(216) & Chr(171)

            N = 2

        ElseIf Left(Str, 1) = Chr(204) Then

            St = St & ChrW(216) & Chr(172)

            N = 2

        ElseIf Left(Str, 1) = Chr(205) Then

            St = St & ChrW(216) & Chr(173)

            N = 2

        ElseIf Left(Str, 1) = Chr(206) Then

            St = St & ChrW(216) & Chr(174)

            N = 2

        ElseIf Left(Str, 1) = Chr(207) Then

            St = St & ChrW(216) & Chr(175)

            N = 2

        ElseIf Left(Str, 1) = Chr(208) Then

            St = St & ChrW(216) & Chr(176)

            N = 2

        ElseIf Left(Str, 1) = Chr(209) Then

            St = St & ChrW(216) & Chr(177)

            N = 2

        ElseIf Left(Str, 1) = Chr(210) Then

            St = St & ChrW(216) & Chr(178)

            N = 2

        ElseIf Left(Str, 1) = Chr(211) Then

            St = St & ChrW(216) & Chr(179)

            N = 2

        ElseIf Left(Str, 1) = Chr(212) Then

            St = St & ChrW(216) & Chr(180)

            N = 2

        ElseIf Left(Str, 1) = Chr(213) Then

            St = St & ChrW(216) & Chr(181)

            N = 2

        ElseIf Left(Str, 1) = Chr(214) Then

            St = St & ChrW(216) & Chr(182)

            N = 2

        ElseIf Left(Str, 1) = Chr(216) Then

            St = St & ChrW(216) & Chr(183)

            N = 2

        ElseIf Left(Str, 1) = Chr(217) Then

            St = St & ChrW(216) & Chr(184)

            N = 2

        ElseIf Left(Str, 1) = Chr(218) Then

            St = St & ChrW(216) & Chr(185)

            N = 2

        ElseIf Left(Str, 1) = Chr(219) Then

            St = St & ChrW(216) & Chr(186)

            N = 2

        ElseIf Left(Str, 1) = Chr(220) Then

            St = St & ChrW(217) & Chr(128)

            N = 2

        ElseIf Left(Str, 1) = Chr(221) Then

            St = St & ChrW(217) & Chr(129)

            N = 2

        ElseIf Left(Str, 1) = Chr(222) Then

            St = St & ChrW(217) & Chr(130)

            N = 2

        ElseIf Left(Str, 1) = Chr(223) Then

            St = St & ChrW(217) & Chr(131)

            N = 2

        ElseIf Left(Str, 1) = Chr(225) Then

            St = St & ChrW(217) & Chr(132)

            N = 2

        ElseIf Left(Str, 1) = Chr(227) Then

            St = St & ChrW(217) & Chr(133)

            N = 2

        ElseIf Left(Str, 1) = Chr(228) Then

            St = St & ChrW(217) & Chr(134)

            N = 2

        ElseIf Left(Str, 1) = Chr(229) Then

            St = St & ChrW(217) & Chr(135)

            N = 2

        ElseIf Left(Str, 1) = Chr(230) Then

            St = St & ChrW(217) & Chr(136)

            N = 2

        ElseIf Left(Str, 1) = Chr(237) Then

            St = St & ChrW(217) & Chr(138)

            N = 2

        ElseIf Left(Str, 1) = Chr(240) Then

            St = St & ChrW(217) & Chr(139)

            N = 2

        ElseIf Left(Str, 1) = Chr(241) Then

            St = St & ChrW(217) & Chr(140)

            N = 2

        ElseIf Left(Str, 1) = Chr(242) Then

            St = St & ChrW(217) & Chr(141)

            N = 2

        ElseIf Left(Str, 1) = Chr(243) Then

            St = St & ChrW(217) & Chr(142)

            N = 2

        ElseIf Left(Str, 1) = Chr(245) Then

            St = St & ChrW(217) & Chr(143)

            N = 2

        ElseIf Left(Str, 1) = Chr(246) Then

            St = St & ChrW(217) & Chr(144)

            N = 2

        ElseIf Left(Str, 1) = Chr(248) Then

            St = St & ChrW(217) & Chr(145)

            N = 2

        ElseIf Left(Str, 1) = Chr(129) Then

            St = St & ChrW(217) & Chr(190)

            N = 2

        ElseIf Left(Str, 1) = Chr(141) Then

            St = St & ChrW(218) & Chr(134)

            N = 2

        ElseIf Left(Str, 1) = Chr(142) Then

            St = St & ChrW(218) & Chr(152)

            N = 2

        ElseIf Left(Str, 1) = Chr(152) Then

            St = St & ChrW(218) & Chr(169)

            N = 2

        ElseIf Left(Str, 1) = Chr(144) Then

            St = St & ChrW(218) & Chr(175)

            N = 2

        Else

            St = St & Left(Str, 1)

        End If

        Str = Mid(Str, N)

    Next i

    Send_Message = St

End Function

این کد رو در یک ماژول بریز و برای ارسال کد زیر زو در دکمه Send بزن

Winsock2.senddata Sendchat(ID , Text Esme Room , Send_Message(Text Message))

به جای Text Esme Room تکست باکس اسم روم رو بزار و به جای Text Message تکست پیامی که می خوای به روم ارسال کنی
این کد باعث میشه پکت یونیکد بشه

[zidanerfan]

داداش میشه بگی این کد مال چی هستش ؟

[zidanerfan]

YAcsUI11 یه کامپوننت هستش که میشه با این کامپوننت وقتی تو روم هستی تال هم فعال کنی اگه میشه یکم برام توضیح بدید خیلی ممنون

[xrezax]

برای بوت کردن سوپرا باید سرعت زیاد باشه و از پکت های تلفیقی استفاده کنی . یعنی به صورت همزمان از چند پکت استفاده کنی

برای نوشتن اسپمر هم راهنماییت می کنم . خودت بنویس .
برای اینکه به چند روم وارد شی از لی لیست باکس استفاده کن و کدهای زیر Case 150 رو برای لیست باکس بنویس دیگه به هیچ جا نیازی نیست تغییرات اعمال کنی

میشه بیشتر توضیح بدی؛ می خوام با ساسک چندتا آی دی لاگین کنم و وارد چندتا روم بشم و آی دی هارو بدست بیارم و بتونم تو روم پی ام بدم؛ پروژه بزاری عالی میشه؛ راستی اون پروژه ای که چند پست بالا زاشتمو هم یه نگاهی بندار ممنونت میشم

[Snoopboy]

داداش میشه بگی این کد مال چی هستش ؟

این کد برای اینه که شما پکت فارسی ارسال کنی

برای نوشتن اسپمر با ساکس کافیه همه کدهای بخش وینسوک در dataarrive رو در یک usercontrol که استفاده کردم دوباره بزاری و اون هم Index کنی. شما کد هاتو بنویس سورس رو تکمیل کن بعد اگه اشکال بود سورس رو بزار تا من یا دوستان مشکلتون رو رسیدگی کنند. چون اینطوری انگار من نوشتم اسپمر رو و شما هیچی یاد نگرفتی

برای Vc در روم هم یک نمونه می زارم

[zidanerfan]

کدی رو که دادی تست کردم نشود ؟

[Snoopboy]

درست جایگزین نکردی . چون خودم ار همین پکت ارسال استفاده می کنم هنوزم

[xrezax]

برای نوشتن اسپمر با ساکس کافیه همه کدهای بخش وینسوک در dataarrive رو در یک usercontrol که استفاده کردم دوباره بزاری و اون هم Index کنی.
میشه یکمی بیشتر در مورد این توضیح بدی واسم ؟؟

[Snoopboy]

بله
ببین برایی اینکه شما از ساکس استفاده کنی باید با یه سوکت کوکی ها رو بگیری و از یک سوکت دیگه برای فرستادن دیتا استفاده کنی
تو برای اینکه این کار رو انجام بدی از یک یوزر کنترل برای استفاده از گرفتن کوکی ها استفاده کنی ولی به جای سرور و پورت از IP و Port ساکس ها استفاده کنی و توی سورس مولتی که گذاشتم اگه بلد نیستی هرچی توی DataArrive سوکت هست بریز توی dataarrive سوکتی که برای لوگین با ساکس نوشتی

[zidanerfan]

میشه بگید اگه بازم یاهو captcha chang کنه من چجوری این پروژه رو درست کنم ؟

[Snoopboy]

شما می تونی وقتی وارد روم میشی از یاهو پکت هارو اسنایف کنی و از پاکت اسنایف شده ادرس رو Split کنید و کدش رو بدست بیارید

[zidanerfan]

خوب اگه میشه یه نمونه فیلم آموزشی بزارید خیلی ممنون از لطفت