vb.net use HttpWebRequest to login to page have firewall

[SEMO.Pa3x]

السلام عليكم، اقدم لكم طريقة بسيطة لإستغلال HttpWebRequest
في تخطي الجدار الناري في بعض صفحات الويب لكي تمكنك من التعامل من الموقع الهدف
بدون اي اعاقة وصعوبة

صورة الجدار لمن لم يفهم قصدي

 
 

Dim USER As String = ""
        Dim PASS As String = ""
        Dim LINK As String = "http://www."
        Dim request As HttpWebRequest = HttpWebRequest.Create(LINK)
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:53.0) Gecko/20100101 Firefox/53.0"
        request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request.Headers.Add("Accept-Language: ar,en-US;q=0.7,en;q=0.3")
        Dim AuthHeader As String = "Authorization: Basic " + Convert.ToBase64String(Encoding.ASCII.GetBytes(Convert.ToString(USER & Convert.ToString(":")) & PASS)) & vbCr & vbLf
        request.Headers.Add(AuthHeader)
        Dim response As HttpWebResponse = request.GetResponse()
        Dim DataStream As Stream = response.GetResponseStream()
        Dim Reader As New StreamReader(DataStream)
        Dim responsefromserver As String = Reader.ReadToEnd
        Reader.Close()
        DataStream.Close()
        response.Close()
        MsgBox(responsefromserver)

املئ البيانات التالية:
USER, PASS, LINK

 

 

تم بحمد الله ، SEMO.Pa3x

[ابو جودي]

استاذ @SEMO.Pa3x

اعتقد هذه الاكواد للارتباط بسيرفر على الانترنت

طب ما هى الطريقة للارتباط بجهاز كمبيوتر على شبكة محلية

[SEMO.Pa3x]

الان, ابا جودى said:

استاذ @SEMO.Pa3x

اعتقد هذه الاكواد للارتباط بسيرفر على الانترنت

طب ما هى الطريقة للارتباط بجهاز كمبيوتر على شبكة محلية

 

استبدل

Dim LINK As String = "http://www."

 

بعنوانك الداخلي مثلا

 

Dim LINK As String = "http://192.168.0.1/Login"

 

[ابو جودي]

طيب بدون اثقال على كاهلكم هل يمكننى ان اطلب على استحياء مرفق

[SEMO.Pa3x]

9 دقائق مضت, ابا جودى said:

طيب بدون اثقال على كاهلكم هل يمكننى ان اطلب على استحياء مرفق

 

بالمناسبة الطريقة التي شرحتها ليست للاكسس للفيجوال دوت نت

[ابو جودي]

منا عمال اجرب وباقول فى شئ غلط علشان كده طلبت مثال هههههههههههههههههههه

بص يا استاذ انا اصلا هاو ولست محترف ولم احاول الا التعامل مع الاكسس 

هل من سبيل لعمل هذا بالاكسس

انا اسف استاذ لم انتبه اننى انتقلت الى قسم اخر غير الاكسس

[SEMO.Pa3x]

2 دقائق مضت, ابا جودى said:

منا عمال اجرب وباقول فى شئ غلط علشان كده طلبت مثال هههههههههههههههههههه

بص يا استاذ انا اصلا هاو ولست محترف ولم احاول الا التعامل مع الاكسس 

هل من سبيل لعمل هذا بالاكسس

انا اسف استاذ لم انتبه اننى انتقلت الى قسم اخر غير الاكسس

 

ماهو نوع السيرفر الذي تريد الاتصال به ؟ هل هو SQL او كيف؟؟

[ابو جودي]

استاذى الحبيب قد اكون صيغت السؤال بطريقة غير صحيحة 

كنت اقصد بالسيرفر هنا جهاز كمبيوتر على شبكة محلية ليس الا

ولكن فى العمل عندى نطلق عليه سيرفر لا يقترب منه احد الا الاشحاص المسرح لهم بذلك فقط لاهمية البيانات عليه ونتعامل معه من خلال الشبكة المحلية

وانا أضع قواعد بيانات الخلفية عليه 

[محمد احمد لطفى]

متابع 

 

[أبو عبدالله الحلوانى]

في ١٠‏/٤‏/٢٠١٩ at 15:11, SEMO.Pa3x said:

بالمناسبة الطريقة التي شرحتها ليست للاكسس للفيجوال دوت نت

هل يمكن اختزال هذا الكود بكائن dll.  حتى يمكن اضافته من ضمن مصادر الأكسس- أعتقد أن هذا ممكن ولكن خبرتى بالدوت نت لا تتجاوز الزيرو الاقليلا.