بحث پيرامون پکت های پرتوکل ياهو (YMSG)

[DeepFreez]

سلام آقا من یه کیلاگر نوشتم که با آیدی لوگین میشه تقریبآ یه چیزی مثل troya Messenger اما موقع لوگین شدن آیدیش با مشکل برخوردم و لوگین نمیشه؟چیکار باید بکنم؟

[zirak]

سلام آقا من یه کیلاگر نوشتم که با آیدی لوگین میشه تقریبآ یه چیزی مثل troya Messenger اما موقع لوگین شدن آیدیش با مشکل برخوردم و لوگین نمیشه؟چیکار باید بکنم؟

عزیز اول قشنگ همه پستها رو بخون بعدآ اگه مشکل داشتی بپرس.
توی صفحه ی قبل یک فایل گذاشتم توش روش لوگین هم هست.

[W-I-L-S-O-N]

سوال فنی
من یه سرچ تو سایت زدم دیدم آقای CrazYFULL گفته بودن برای کانکت شدن به سرور ویس یاهو باید از yacscom.dll استفاده کرد کسی کار کردن با این dll بلده؟
تو همون پست یه لینک از سایت www.planet-source-code.com گذاشته بودن من رفتم ولی چیزه زیادی ازش نفهمیدم خیلی کم یه چیزایی متوجه شدم ولی کامل نبود

[~XT~]

واسه کجا میخوای کنفرانس یا روم؟

---

[W-I-L-S-O-N]

واسه کجا میخوای کنفرانس یا روم؟

---

دوست عزیز من برای روم میخام اگه لطف کنی کمکم کنی

[~XT~]

با سلام دوست عزیز برای لاگین کردن ویس در روم ابتدا باید Space Room روم و VC TOKEN مربوط رو در کیس مورد نظر جدا کنید که برای Space اونو باید در بازه ی

کد:

À€129À€

جدا کنید و برای TOKEN اونو باید در بازه ی

کد:

À€130À€

جدا کنید اگه نمونه سورس خواستی برات آماده میکنم. موفق باشی.

[W-I-L-S-O-N]

سلام
اون 2 بازه ای که شما گفتید داخل data که بعد از وارد شدن به روم دریافت میکنم پیدا کردم.

کد:

......1131104Hong Kong Global Chat:1105Discuss issues with potential visitors, residents, and expats1084812632870412810321291130130nT1aOBG7cuWP.IngeWDXeNwFJyMEP76vc-109ketutdulu1100111neuter1131024109o0ocyanideo0o1100111neuter......

و اگه من اشتباه نکرده باشم Space Room باید 1130 باشه و Vc Token باید این باشه

کد:

nT1aOBG7cuWP.IngeWDXeNwFJyMEP76vc-

حالا اگه من اشتباه نکردم و این 2تارو درست هستن باید چکارشون کنم؟
نمونه سورسی که گفتی اگه لطف کنی بزاری که خیلی ممنونت میشم

[~XT~]

کاملا درست هست حالا میرسیم به اینجا

کد:

Public Function Voice(UserName As String, CFname As String, CFkey As String, Host As String, YAcs As YAcs)
YAcs.appInfo = "me(8, 1, 0, 421)&u=" & LCase(UserName) & "&ia=us"
YAcs.UserName = LCase(UserName)
YAcs.HostName = Host
YAcs.ConfKey =TOKEN
YAcs.ConfName =  "ch/" & Room & "::" & Space
YAcs.inputGain = 100
YAcs.outputGain = 100
YAcs.inputAGC = 100
YAcs.loadSound LCase(UserName)
YAcs.createAndJoinConference
YAcs.inputSource = 100
End Function

[W-I-L-S-O-N]

حاجی اینجا آخرشه ؟
خوب اون Function شمارو اینجوری تغیررش دادم آخه برا Cf بود اینجوری مشکلی نداره؟

کد:

Public Function Voice(UserName As String, Host As String, Token As String, Room As String, Space As String)
Form1.YAcs.appInfo = "me(8, 1, 0, 421)&u=" & LCase(UserName) & "&ia=us"
Form1.YAcs.UserName = LCase(UserName)
Form1.YAcs.HostName = Host
Form1.YAcs.ConfKey = Token
Form1.YAcs.ConfName = "ch/" & Room & "::" & Space
Form1.YAcs.inputGain = 100
Form1.YAcs.outputGain = 100
Form1.YAcs.inputAGC = 100
Form1.YAcs.loadSound LCase(UserName)
Form1.YAcs.createAndJoinConference
Form1.YAcs.inputSource = 100
End Function
__________________________________________
__________________________________________
Private Sub Voice_Click(Index As Integer)
Call Voice(ID.Text, "v2.vc.sp1.yahoo.com", Token.Text, "asia global chat:148", Space.Text)
End Sub

اینجا متغیر Host درست پر کردم؟
آخه هرکاری کردم بازم ویسی نگرفت با این سرورهم تست کردم vc.yahoo.com بازم نشد.
بعدش چطور میشه فهمید که ویسی گرفته یا نه؟

[W-I-L-S-O-N]

خوب آقا الان Voice On میشه ولی بلد نیستم Audio On کنم که ایدی ببرم رو تالک

[sevdaboy]

آقا این پکت Add هست من Sniff کردم ولی جواب نمیده

میشه بگین چرا ؟ با پروتوکل 102 وصل میشم !


Public Function Add(YahooID As String, victim As String, msg As String, group As String) As String
Dim Packet As String
Packet = "14À€" & msg & "À€65À€" & group & "À€97À€1À€216À€" & " Fuck U " & "À€254À€" & "Fuck" & "À€1À€" & YahooID & "À€302À€319À€300À€319À€7À€" & victim & "À€301À€319À€303À€319À"
Add = YMSGHeader(Packet, String(4, 0), String(4, 0), 131)
End Function