منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود python وتحويله vb.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم
لدي كود بلغة بايثون واريد تحويله vb.net
وشكرا لكم

كود :
تم ايجاد الحل
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

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

شكرا لك ولكن هذا كود اخر
اخي ميدو راسلتك في الخاص

اخي ميدو راسلتك في الخاص
هذا هو الكود بعد التحويل تم تحويله آلي عن طريق استخدام الطريقة التالية في التحويل
PHP كود :
Imports base64
Imports AES 
Crypto.Cipher.AES

Namespace [Namespace]
 
   Module [Module]
 
       Function decrypt(ByVal enc As Object) As Object
            Dim unpad 
= Function(ss(_.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_keyAES.MODE_CBCiv)
 
           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(ss(_.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_keyAES.MODE_CBCiv)
 
           Return unpad(cipher.decrypt(enc(16)))
 
       End Function
 
   End Module
End 
Namespace 
جرب ووافنا بالنتائج
اما عن طريقة التحويل اولا استخدمت هذا الموقع للتحويل من بيثون الي سي شرب هنا ثم هذا الموقع للتحويل من سي شرب الي فجولبيسك دوتنت هنا
ربما كانت هذه طريقة طويلة ولكن للأسف لا يوجد طريق واحد للتحويل من بيثون للفجول 
أرجو ان أكون قد افدتك 
تمنياتي بالتوفيق

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

حقيقة لم اجرب الكود بعد التحويل ولم افكر حتي بصحته قمت بتحويله من اجلك وتركت لك تجربته فحسب
ولكن هل حاولت تصحيح الكود او تتبع الأخطاء
(16-05-21, 08:39 PM)أبو عبدالله الحلواني كتب : [ -> ]
إقتباس :وتوقفت عندها لان الكود خاطئ

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

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

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

ولو امكن اين تجد الخطأ في الكود المحول
الصفحات : 1 2