(16-05-21, 06:18 PM)أبو عبدالله الحلواني كتب : أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410

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

(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 


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

إقتباس :وتوقفت عندها لان الكود خاطئ

(16-05-21, 08:39 PM)أبو عبدالله الحلواني كتب :

إقتباس :وتوقفت عندها لان الكود خاطئ

حقيقة لم اجرب الكود بعد التحويل ولم افكر حتي بصحته قمت بتحويله من اجلك وتركت لك تجربته فحسب
ولكن هل حاولت تصحيح الكود او تتبع الأخطاء

إقتباس :هل كان كود بايثون يعمل قبل التحويل بشكل طبيعي بدون أخطاء 

لقد قمت بفتح كود بيثون وظهر لي خطأ في استيراد المكتبة كما بالصورة