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

السلام عليكم
لدي كود بلغة بايثون واريد تحويله vb.net
وشكرا لكم

كود :

import base64
from Crypto.Cipher import AES

def decrypt(enc):
   unpad = lambda s: s[:-ord(s[len(s) - 1:])]
   private_key = base64.b64decode("loACCyXcAAlsCHFPlwu+RwUfDwJzPObKC0Us9w9dsAY=")
   enc = base64.b64decode(enc)
   iv = enc[:16]
   cipher = AES.new(private_key, AES.MODE_CBC, iv)
   return unpad(cipher.decrypt(enc[16:]))

print(decrypt("QAWhEk+FdZzNXdv+OAGBp+4zMMhKfTyUbegMOX9On/Z9EFNIQXrUIyY8gnxNpNPc15OHWv8ckxzmrK4AHnc9cnDL7Df3KfzkEOnLEcW6PmD+V+1Q0CpZn9rWkScpLwIIQiaukMuyOwcQULbAWdWXPQ=="))

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

up up up up

[أبو عبدالله الحلواني]

أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410

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

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

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

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

شكرا لك ولكن هذا كود اخر

[crazykinko]

اخي ميدو راسلتك في الخاص

---

اخي ميدو راسلتك في الخاص

[أبو عبدالله الحلواني]

هذا هو الكود بعد التحويل تم تحويله آلي عن طريق استخدام الطريقة التالية في التحويل

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: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)أبو عبدالله الحلواني كتب :

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

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

حاولت كثيرا

[أبو عبدالله الحلواني]

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

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

ولو امكن اين تجد الخطأ في الكود المحول