09-02-22, 03:24 AM
(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