[سعود]

up up up up

اخي الكريم بالكاد و جدت لك هذا الموقع لتحويل و لكن يحوله الى c++
رابط الموقع
https://pythoncsharp.com/
وهذا رابط موقع اخر لتحويل الاكواد البرمجية من و الى شتى انواع و صيغ
https://www.carlosag.net/tools/codetranslator/

بارك الله فيك الرابط ممتاز بقي فقط من يجربه

PHP كود :

Imports System.Collections.Generic

Namespace [Namespace]
    Module [Module]
        Function req(ByVal url As Object) As Object
            Dim r = requests.[get](url, headers:=New Dictionary(Of Object, Object) From {
                {"Accept", "application/json"},
                {"User-Agent", "okhttp/3.12.8"}
            })
            Dim t = r.headers.[get]("t")
            Return decrypt(r.text, passcode:="wrong key" & t)
        End Function
    End Module
End Namespace 


لم اجربه  فقط استخدمت صفحة التحويل

---

المشكلة انك جلبت فقط جزء من المشروع.
اكتشفت ان كلمة ord هي function
حاول تجيب كل الكود عشان نساعدك بالتحويل.

---

PHP كود :

Function decrypt(ByVal s As Object, ByVal passcode As Object) As Object
        s = s.strip()
        s = base64.b64decode(s.encode("utf-8")).decode("utf-8")
        Dim result = ""

        For Each i In Enumerable.Range(0, s.Count)
            result = result & Chr(ord(s(i)) Xor ord(passcode(i Mod passcode.Count)))
        Next

        Return result
    End Function

    Function req(ByVal url As Object) As Object
        Dim r = requests.[get](url, headers:=New Dictionary(Of Object, Object) From {
            {"Accept", "application/json"},
            {"User-Agent", "okhttp/3.12.8"}
        })
        Dim t = r.headers.[get]("t")
        Return decrypt(r.text, passcode:="wrong key" & t)
    End Function 


[ميدو الفنان]

up up up up

اخي الكريم بالكاد و جدت لك هذا الموقع لتحويل و لكن يحوله الى c++
رابط الموقع
https://pythoncsharp.com/
وهذا رابط موقع اخر لتحويل الاكواد البرمجية من و الى شتى انواع و صيغ
https://www.carlosag.net/tools/codetranslator/

بارك الله فيك الرابط ممتاز بقي فقط من يجربه

PHP كود :

Imports System.Collections.Generic

Namespace [Namespace]
    Module [Module]
        Function req(ByVal url As Object) As Object
            Dim r = requests.[get](url, headers:=New Dictionary(Of Object, Object) From {
                {"Accept", "application/json"},
                {"User-Agent", "okhttp/3.12.8"}
            })
            Dim t = r.headers.[get]("t")
            Return decrypt(r.text, passcode:="wrong key" & t)
        End Function
    End Module
End Namespace 


لم اجربه  فقط استخدمت صفحة التحويل

---

المشكلة انك جلبت فقط جزء من المشروع.
اكتشفت ان كلمة ord هي function
حاول تجيب كل الكود عشان نساعدك بالتحويل.

---

PHP كود :

Function decrypt(ByVal s As Object, ByVal passcode As Object) As Object
        s = s.strip()
        s = base64.b64decode(s.encode("utf-8")).decode("utf-8")
        Dim result = ""

        For Each i In Enumerable.Range(0, s.Count)
            result = result & Chr(ord(s(i)) Xor ord(passcode(i Mod passcode.Count)))
        Next

        Return result
    End Function

    Function req(ByVal url As Object) As Object
        Dim r = requests.[get](url, headers:=New Dictionary(Of Object, Object) From {
            {"Accept", "application/json"},
            {"User-Agent", "okhttp/3.12.8"}
        })
        Dim t = r.headers.[get]("t")
        Return decrypt(r.text, passcode:="wrong key" & t)
    End Function 


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