سورس Socks Chacker (سوال)

[Salivan]

دوستان عزیز سلام
سورس یه برنامه Socks Chacker میخوام.
خیلی ممنون میشم بذارید
من خودم یه دونه دارم , ولی کار نمیکنه هرچی تقیر بلد بودم دادم ولی بازهم کار نمیکنه
حالا سورس اون یه تیکه که تست می کنه رو میذارم ببینید اشکال از کجاست!

کد:

Private Sub Command5_Click()
On Error Resume Next

If running = True Then Exit Sub
running = True
StatusBar1.Panels(1).Text = "Status - Checking Proxies..."

If running = True And List1.ListCount > 0 Then
For x = 1 To Combo1.Text
Winsock1(x).Close
Winsock1(x).RemoteHost = Split(List1.List(0), ":")(0)
Winsock1(x).RemotePort = Split(List1.List(0), ":")(1)
Winsock1(x).Connect

Timer1(x).Interval = Combo2.Text * 1000
Timer1(x).Enabled = True
List1.RemoveItem 0
DoEvents
Next x
End If
End Sub

ببینید اول از لیست یه دونه بر میداره و تست میکنه!
ولی خوب اصلا نمیتونه سالم بودن و یا سوخته بودنشون رو مشخص کنه!
!!

[Salivan]

دوستان کسی نظری نداره!؟

[Mr.pRoGraMmer]

سلام
سورس برنامتو بذار

[Salivan]

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

کسی نمیتونه راهنماییی کنه
خیلی لازم دارم!
فکر می کنم همه بدونن چیه!!
یه برنامه که یه سری SOCKS میگیره و تست می کنه و اونایی که سالم هست رو لیست می کنه!

اینم یه سری Socks سبز (سالم)
برای امتحان کردن!

کد:

201.253.76.209:1080
201.27.77.10:1080
201.27.77.39:1080
200.171.77.166:1080
201.255.77.198:1080
200.171.77.231:1080
200.168.78.44:1080
201.13.78.47:1080
201.252.78.169:1080
201.68.80.70:1080
201.27.80.116:1080
201.252.80.141:1080
201.254.80.208:1080
200.171.81.84:1080
201.27.82.12:1080
200.168.82.56:1080
201.43.82.50:1080
200.168.83.155:1080
201.26.85.13:1080
201.254.85.52:1080
201.27.85.60:1080
190.30.86.36:1080
201.27.86.204:1080

[Mr.pRoGraMmer]

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

[CRazYFULL]

سلام
ساکس های شما همه سوخته هستند
اين قطعه سورس که گذاشتی احتمال زياد مربوط ميشه به پورت اسکنر
===========================

برای اين کار ابتدا بايد به هاست و پورت ساکس کانکت شد

کد:

Winsock1.Connect SockHost, SocksPort

بعد بايد منتظر باشی رويداد Connect وينساک به کار بيوفته بايد برای اين قسمت يک زمان تايم اوت در نظر بگيری مثلاً اگه بعد از کانکت شدن با گذشت ده ثانيه رويداد اتفاق نيفتاد و يا socks Error داد اون ساکس سوخته به حساب مياد.
اما اگه رويداد Connect اتفاق افتاد يعنی اين IP وجود داره و پورت باز هست اما هنوز مشخص نيست که ميتونيد از ساکس استفاده کنيد يا نه برای تست کردن بايد سه بايت 5 1 0 رو بفرستید

کد:

Private Sub Winsock1_Connect()
Winsock1.SendData Chr(5) & Chr(1) & Chr(0)
End Sub

بعد بايد منتظر باشید رويداد dataarrival اتفاق بيفته اگر اتفاق نيفتاد و يا socks error داد ساکس سوخته به حساب مياد.
اما اگه بايت 0 5 برگشت داده شد بعد بايد مطمئن شويم که ساکس ميتونه به هاست و پورت مورد نظر ما کانکت بشه
برای اين کار از تابع که ديشب نوشتم استفاده ميکنيم

کد:

Function PckSock5(ByVal SockHost As String, ByVal SockPort As String) As String
PckSock5 = Chr(5) & Chr(1) & Chr(0) & Chr(3) & Chr(Len(SockHost)) & SockHost & Chr(Int(Val(SockPort / 256))) & Chr(Int(Val(SockPort Mod 256)))
End Function

Winsock1.SendData PckSock5("scsc.msg.yahoo.com", 5050)

بعد از فرستادن اين پکت اگه 10 بايت ديتا برگشت داده شد و بايت دوم يا سوم نال (Null Or Chr(0)) بود اين ساکس سالم هست
اما اگه طول ديتا کمتر از ده بايت بود و يا هيچ ديتا برگشت داده نشد و يا Close شد احتمال داره که ساکس 4 باشه و بايد از نو کانکت شده و پکت مربوط به ساکس 4 رو بفرستيد

کد:

Winsock1.SendData Chr(4) & Chr(1) & Chr(19) & Chr(186) & Chr(66) & Chr(163) & Chr(181) & Chr(178) & Chr(0) 'sock 4

اگه طول باز گشتی پکت هشت بايت باشه و بايت دوم Z يا (Chr(90 باشه ساکس سالم هست
========================
برای کانکت شدن به وسيله ساکس هم دقيقاً به اين صورت انجام ميشه

[babyy]

سلام

socks میشه بگید چیه و به چهکاری میاد ؟؟

ممنون

[CRazYFULL]

ساکس جزو دسته پراکسيها محسوب ميشه اما فرقش با پراکسی اينه که پراکسی فقط توانايی ارتباط با پروتکل HTTP و HTTPS رو داره اما ساکس توانايی ارتباط بين تمام پروتکل های اينترنت رو داره.
ساکس به ديگر کامپيوتر ها اين امکان رو ميده تا از طريق اون با مقصد ارتباط غير مستقيم برقرار بشه.
مثل يک واسطه عمل ميکنه به جای اينکه مستقيم با مقصد ارتبط برقرار بشه تمام درخواست ها از طريق ساکس انجام ميشه و هيچگونه ارتباط مستقيمی بين مبدا و مقصد انجام نميشه
بيشترين مورد استفاده از ساکس برای رد شدن از محدوديت ها هست

[babyy]

سلام

چه باحال

پس یعنی یه سری کامپوترهایی هستند که باید با اونا ارتباط برقرار شه ، درسته ؟؟
اگه آره ، چطور باید پیدا کردشون ؟؟

بعد از اینکه کانکت شدیم ، چطور باید بفهمون که میخواییم با چه پروتکلی ارتباط برقرار کنیم ؟؟

[CRazYFULL]

پس یعنی یه سری کامپوترهایی هستند که باید با اونا ارتباط برقرار شه ، درسته ؟؟

آره

اگه آره ، چطور باید پیدا کردشون ؟؟

معمولاً روی يک رنج خاص ip هستند که با ساکس اسکنر ها ميشه پيداشون کرد اما وقت و حوصله و سرعت زيادی ميخواد
بعضی از سايت ها هم برای بيشتر کردن بازديدشون هر چند وقت يکبار تعداد زيادی ساکس برای استفاده ميذارند اما يا بيشتر ساکس ها سوخته هستند يا سرعت خيلی کمی دارند

بعد از اینکه کانکت شدیم ، چطور باید بفهمون که میخواییم با چه پروتکلی ارتباط برقرار کنیم ؟؟

توی مرحله آخر که اين پکت فرستاده ميشه بايد هاست و پورت مورد نظر که قرار هست کانکت بشيم رو مشخص کنيم

کد:

Winsock1.SendData PckSock5("parsprog.com", 80)

در ديتا بازگشتی اگه ساکس اجازه کانکت شدن رو داد (بالا توضيح دادم) به اصطلاح سبز و سالم بود مثل قبل با پروتکل رفتار ميشه و پکت های مربوط به اون پروتکل فرستاده ميشوند.
مثلاً اگه بخوام يه آدّرس سايت باز کنم بعد از اينکه ساکس اجازه
کانکت رو داد اين پکت مربوط به پروتکل HTTP رو ميفرستم:

کد:

Winsock1.SendData PckGETUrl

Function PckGETUrl() As String
Dim Pck As String
Pck = "GET /test/seeip.php HTTP/1.1" & vbNewLine
Pck = Pck & "Host: parsprog.com" & vbNewLine
Pck = Pck & "Connection: keep-alive" & vbNewLine
PckGETUrl = Pck & vbNewLine
End Function