[سعود]

(08-02-22, 11:35 PM)asmarsou كتب :

(08-02-22, 02:19 AM)ميدو الفنان كتب : 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