تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود python وتحويله vb.net
#1
السلام عليكم
لدي كود بلغة بايثون واريد تحويله 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=="))
الرد
تم الشكر بواسطة:
#2
up up up up
الرد
تم الشكر بواسطة:
#3
أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410

ام ان هذا كود مختلف عن الآخر
قد صادفت موقع يقوم بتحويل الأكود من لغة بيثون الي لغة أخري سأبحث لك عن هذا الموقع وارسل لك رابطه ان شاء الله
الرد
تم الشكر بواسطة: ميدو الفنان
#4
(16-05-21, 06:18 PM)أبو عبدالله الحلواني كتب : أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410

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

شكرا لك ولكن هذا كود اخر
الرد
تم الشكر بواسطة:
#5
اخي ميدو راسلتك في الخاص

اخي ميدو راسلتك في الخاص
الرد
تم الشكر بواسطة:
#6
هذا هو الكود بعد التحويل تم تحويله آلي عن طريق استخدام الطريقة التالية في التحويل
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 
جرب ووافنا بالنتائج
اما عن طريقة التحويل اولا استخدمت هذا الموقع للتحويل من بيثون الي سي شرب هنا ثم هذا الموقع للتحويل من سي شرب الي فجولبيسك دوتنت هنا
ربما كانت هذه طريقة طويلة ولكن للأسف لا يوجد طريق واحد للتحويل من بيثون للفجول 
أرجو ان أكون قد افدتك 
تمنياتي بالتوفيق
الرد
تم الشكر بواسطة: ميدو الفنان
#7
(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 
جرب ووافنا بالنتائج
اما عن طريقة التحويل اولا استخدمت هذا الموقع للتحويل من بيثون الي سي شرب هنا ثم هذا الموقع للتحويل من سي شرب الي فجولبيسك دوتنت هنا
ربما كانت هذه طريقة طويلة ولكن للأسف لا يوجد طريق واحد للتحويل من بيثون للفجول 
أرجو ان أكون قد افدتك 
تمنياتي بالتوفيق

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

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

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

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

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

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة: ميدو الفنان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في كود python وتحويله vb.net ميدو الفنان 1 506 07-05-21, 10:29 PM
آخر رد: march

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم