(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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
