15-05-21, 09:16 PM
الصفحات : 1 2
16-05-21, 05:06 PM
up up up up
16-05-21, 06:18 PM
أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410
ام ان هذا كود مختلف عن الآخر
قد صادفت موقع يقوم بتحويل الأكود من لغة بيثون الي لغة أخري سأبحث لك عن هذا الموقع وارسل لك رابطه ان شاء الله
http://vb4arb.com/vb/showthread.php?tid=38410
ام ان هذا كود مختلف عن الآخر
قد صادفت موقع يقوم بتحويل الأكود من لغة بيثون الي لغة أخري سأبحث لك عن هذا الموقع وارسل لك رابطه ان شاء الله
16-05-21, 06:25 PM
(16-05-21, 06:18 PM)أبو عبدالله الحلواني كتب : [ -> ]أعتقد ان هذا الرابط قدتم حل مشكلتك به
http://vb4arb.com/vb/showthread.php?tid=38410
ام ان هذا كود مختلف عن الآخر
قد صادفت موقع يقوم بتحويل الأكود من لغة بيثون الي لغة أخري سأبحث لك عن هذا الموقع وارسل لك رابطه ان شاء الله
شكرا لك ولكن هذا كود اخر
16-05-21, 06:27 PM
اخي ميدو راسلتك في الخاص
اخي ميدو راسلتك في الخاص
اخي ميدو راسلتك في الخاص
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:15 PM
(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
إقتباس :وتوقفت عندها لان الكود خاطئ
حقيقة لم اجرب الكود بعد التحويل ولم افكر حتي بصحته قمت بتحويله من اجلك وتركت لك تجربته فحسب
ولكن هل حاولت تصحيح الكود او تتبع الأخطاء
16-05-21, 08:39 PM
(16-05-21, 08:39 PM)أبو عبدالله الحلواني كتب : [ -> ]إقتباس :وتوقفت عندها لان الكود خاطئ
حقيقة لم اجرب الكود بعد التحويل ولم افكر حتي بصحته قمت بتحويله من اجلك وتركت لك تجربته فحسب
ولكن هل حاولت تصحيح الكود او تتبع الأخطاء
حاولت كثيرا
16-05-21, 09:15 PM
إقتباس :هل كان كود بايثون يعمل قبل التحويل بشكل طبيعي بدون أخطاء
لقد قمت بفتح كود بيثون وظهر لي خطأ في استيراد المكتبة كما بالصورة
ولو امكن اين تجد الخطأ في الكود المحول
الصفحات : 1 2