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

(16-05-21, 08:10 PM)أبو عبدالله الحلواني كتب : هذا هو الكود بعد التحويل تم تحويله آلي عن طريق استخدام الطريقة التالية في التحويل

PHP كود :

Imports base64
Imports AES = Crypto.Cipher.AES

Namespace [Namespace]
    Module [Module]
        Function decrypt(ByVal enc As Object) As Object
            Dim unpad = Function(s) s(_._ - ord(s((len(s) - 1))))
            Dim private_key = base64.b64decode("loACCyXcAAlsCHFPlwu+RwUfDwJzPObKC0Us9w9dsAY=")
            enc = base64.b64decode(enc)
            Dim iv = enc(_._, 16)
            Dim cipher = AES.[new](private_key, AES.MODE_CBC, iv)
            Return unpad(cipher.decrypt(enc(16)))
        End Function
    End Module
End Namespace 


جرب ووافنا بالنتائج
اما عن طريقة التحويل اولا استخدمت هذا الموقع للتحويل من بيثون الي سي شرب هنا ثم هذا الموقع للتحويل من سي شرب الي فجولبيسك دوتنت هنا
ربما كانت هذه طريقة طويلة ولكن للأسف لا يوجد طريق واحد للتحويل من بيثون للفجول 
أرجو ان أكون قد افدتك 
تمنياتي بالتوفيق

شكرا لك ولكن الكود خاطئ هذا هو الناتج اللي وصلتله سابقا لقد فعلت كما فعلت انت وتوقفت عندها لان الكود خاطئ