تمت الإجابة Get Mid And Csrt Instagram

تم تحميل الصفحة في 1,7711210 ثانية
Get Mid And Csrt Instagram
الحالة
مغلق و غير مفتوح للمزيد من الردود.

Hackoo

Beginner Developer
rank
إنضم
6 فبراير 2018
المشاركات
85
الإعجابات
92
النقاط
18
Hi ;)
i found for you a vbscript that may be help you to get the cookie
كود:
Option Explicit
Function Fetch(ByVal URL, ByVal sHdrName)
    Dim http
    Set http = CreateObject("Microsoft.XmlHttp")
        http.open "GET", URL, False
        http.Send
        Fetch = getHeaders(http, sHdrName)
    Set http = Nothing 
End Function

Function getHeaders(oReq, sHdrName)
    Dim tHdrName : tHdrName = Trim(sHdrName) & ": "
    Dim tArr : tArr = Split(oReq.getAllResponseHeaders(), vbCrLf)
    tArr = Filter(tArr, tHdrName, True, vbTextCompare)
    Dim i
    For i = 0 To UBound(tArr)
        tArr(i) = Mid(tArr(i), Len(tHdrName) + 1, Len(tArr(i)))
    Next
    getHeaders = tArr 'Returns Array
End Function

'Iterate & Fetch
Dim iHdrVal
For Each iHdrVal In Fetch("https://www.instagram.com/accounts/web_create_ajax", "Set-Cookie")
    WScript.Echo iHdrVal
Next
 
إنضم
25 سبتمبر 2017
المشاركات
43
الإعجابات
11
النقاط
8
الإقامة
Iraq
[QUOTE = "Hackoo، post: 6887373، member: 187661"] مرحبًا ;)
لقد وجدت لك vbscript التي قد تساعدك على الحصول على ملف تعريف الارتباط
[الشفرة]
الخيار صريح
وظيفة الجلب (ByVal URL ، ByVal sHdrName)
البعد المتشعب
تعيين http = CreateObject ("Microsoft.XmlHttp")
http.open "GET" ، URL ، False
http.Send
الجلب = getHeaders (http ، sHdrName)
تعيين http = لا شيء
وظيفة النهاية

وظيفة getHeaders (oReq ، sHdrName)
Dim tHdrName: tHdrName = Trim (sHdrName) & ":"
Dim tArr: tArr = Split (oReq.getAllResponseHeaders ()، vbCrLf)
tArr = تصفية (tArr ، tHdrName ، صواب ، vbTextCompare)
ط قاتمة
من أجل i = 0 إلى UBound (tArr)
tArr (i) = Mid (tArr (i)، Len (tHdrName) + 1، Len (tArr (i)))
التالى
getHeaders = tArr 'Returns Array
وظيفة النهاية

"التكرار والجلب
Dim iHdrVal
لكل iHdrVal In Fetch ("https://www.instagram.com/accounts/web_create_ajax"، "Set-Cookie")
WScript.Echo iHdrVal
التالى
[/ كود] [/ QUOTE]
توجد اخطاء في هذا الكود !
 
إنضم
25 سبتمبر 2017
المشاركات
43
الإعجابات
11
النقاط
8
الإقامة
Iraq
[QUOTE = "Hackoo، post: 6887373، member: 187661"] مرحبًا ;)
لقد وجدت لك vbscript التي قد تساعدك على الحصول على ملف تعريف الارتباط
[الشفرة]
الخيار صريح
وظيفة الجلب (ByVal URL ، ByVal sHdrName)
البعد المتشعب
تعيين http = CreateObject ("Microsoft.XmlHttp")
http.open "GET" ، URL ، False
http.Send
الجلب = getHeaders (http ، sHdrName)
تعيين http = لا شيء
وظيفة النهاية

وظيفة getHeaders (oReq ، sHdrName)
Dim tHdrName: tHdrName = Trim (sHdrName) & ":"
Dim tArr: tArr = Split (oReq.getAllResponseHeaders ()، vbCrLf)
tArr = تصفية (tArr ، tHdrName ، صواب ، vbTextCompare)
ط قاتمة
من أجل i = 0 إلى UBound (tArr)
tArr (i) = Mid (tArr (i)، Len (tHdrName) + 1، Len (tArr (i)))
التالى
getHeaders = tArr 'Returns Array
وظيفة النهاية

"التكرار والجلب
Dim iHdrVal
لكل iHdrVal In Fetch ("https://www.instagram.com/accounts/web_create_ajax"، "Set-Cookie")
WScript.Echo iHdrVal
التالى
[/ كود] [/ QUOTE]
اريدهة بلغه vb.net
 
إنضم
25 سبتمبر 2017
المشاركات
43
الإعجابات
11
النقاط
8
الإقامة
Iraq
[QUOTE = "Hackoo، post: 6887378، member: 187661"] قمت بتعديل vbscript من أجل استخراج قيمة ملف تعريف الارتباط مع RegExp
لاختبار هذا فقط نسخ ولصق هذا الرمز في المفكرة الخاصة بك وحفظه كـ GetCookie.vbs

[VisualBasic] GetCookie.vbs - Pastebin.com [/ QUOTE]
صديقي اريد الاكواد بلغه vb.net
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,773
الإعجابات
1,543
النقاط
123
الإقامة
iraq
كود:
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim data As String = "theinput=" + "https://www.instagram.com/" + "%2F&thetest=httpheaders&name_of_nonce_field=a84533d9c7&_wp_http_referer=%2Fhttp-header-check%2F"
        Dim s As String = String.Concat(data)
        Dim cookieContainer As CookieContainer = New CookieContainer()
        Dim bytes As Byte() = New UTF8Encoding().GetBytes(s)
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://hackertarget.com/http-header-check/"), HttpWebRequest)
        httpWebRequest.Method = "POST"
        httpWebRequest.Headers.Add("X-Requested-With: XMLHttpRequest")
        httpWebRequest.Headers.Add("Cookie", "ga=GA1.2.390350752.1497889015; gid=GA1.2.740214741.1497889015; _gat=1")
        httpWebRequest.KeepAlive = True
        httpWebRequest.CookieContainer = cookieContainer
        httpWebRequest.ContentType = "application/x-www-form-urlencoded"
        httpWebRequest.Referer = "https://hackertarget.com/http-header-check/"
        httpWebRequest.AllowAutoRedirect = True
        httpWebRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        httpWebRequest.ContentLength = CLng(bytes.Length)
        Dim requestStream As Stream = httpWebRequest.GetRequestStream()
        requestStream.Write(bytes, 0, bytes.Length)
        requestStream.Close()
        Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
        cookieContainer.Add(httpWebResponse.Cookies)
        Dim text As String = New StreamReader(httpWebResponse.GetResponseStream()).ReadToEnd()
        Dim mid As String = Regex.Match(text, "mid=(.*?);").Groups(1).Value
        Dim csr As String = Regex.Match(text, "csrftoken=(.*?);").Groups(1).Value
        MsgBox("csr=  " + csr & vbCrLf + "mid=   " + mid)
    End Sub
End Class
 
التعديل الأخير:
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل