تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة في تحويل كود بايثون الى فيجوال
#1
السلام عليكم
لدي كود بلغة بايثون اريد تحويله الى فيجوال بيسك
كود :
import requests

def decrypt(s, passcode):
   import base64
   s = s.strip()
   s = base64.b64decode(s.encode("utf-8")).decode("utf-8")

   result = ""
   for i in range(len(s)):
       result = result + chr(ord(s[i]) ^ ord(passcode[i % len(passcode)]))
       
   return result

def req(url):
   r = requests.get(url, headers={
       'Accept': 'application/json',
       'User-Agent': 'okhttp/3.12.8'
   })
   t = r.headers.get("t")
   return decrypt(r.text, passcode="wrong key" + t)

print(req("https://pastebin.com/raw/BQvjHiQN"))
الرد }}}
تم الشكر بواسطة:
#2
Up up up up
الرد }}}
تم الشكر بواسطة:
#3
up up up up
الرد }}}
تم الشكر بواسطة:
#4
up up up up
الرد }}}
تم الشكر بواسطة:
#5
up up up up
الرد }}}
تم الشكر بواسطة:
#6
(29-01-22, 04:36 PM)ميدو الفنان كتب : up up up up

اخي الكريم 
ماهي فكرة الكود ؟؟
يمكنك بدءها من الصفر في فيجوال بيسك دوت نت.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: ميدو الفنان
#7
(29-01-22, 10:50 PM)سعود كتب :
(29-01-22, 04:36 PM)ميدو الفنان كتب : up up up up

اخي الكريم 
ماهي فكرة الكود ؟؟
يمكنك بدءها من الصفر في فيجوال بيسك دوت نت.

فكرة الكود هو فك تشفير نص كنت طلبت سابقا وفي شخص ماشاء الله عليه ساعدني فيه وده كان موضوعي سابقا
http://vb4arb.com/vb/showthread.php?tid=38410
وده كان الكود اللى طلبت تحويله في الموضوع القديم
كود :
def decrypt(s, passcode = "abcdefgh"):
   import base64
   s = base64.b64decode(s.encode('ascii')).decode('ascii')

   result = ""
   for i in range(len(s)):
       result = result + chr(ord(s[i]) ^ ord(passcode[i % len(passcode)]))
       
   return result

print(decrypt("GAMcOx5KbAN9PGIrFy0TVVkDSXhGCTtLSmV6Zx40AgdZfVcGRRpgWEovITIXLBkCCw8AIxB3YVVPMSUZWXZPT1YVSmtbd2FQSCMlPVgtRQJbA1R4H1kiZlI+MCBUekcKPlw="))

وساعدني في تحويله عن طريق الكود التالي
كود :
Public Function decrypt(s, Optional passcode = "abcdefgh")
  s = ASCIIEncoding.ASCII.GetBytes(ASCIIEncoding.ASCII.GetString(Convert.FromBase64String(s)))
  Dim result = ""
  For i = 0 To s.Length - 1
      result &= Chr(s(i) Xor Asc(passcode(i Mod passcode.Length)))
  Next
  Return result
End Function
كود :
MsgBox(decrypt("GAMcOx5KbAN9PGIrFy0TVVkDSXhGCTtLSmV6Zx40AgdZfVcGRRpgWEovITIXLBkCCw8AIxB3YVVPMSUZWXZPT1YVSmtbd2FQSCMlPVgtRQJbA1R4H1kiZlI+MCBUekcKPlw="))
ولكن تم تغير نوع التشفير واضافة اشياء اخري فانا قمت بعمله بالبايثون فهذه لغتي التي اتقنها جيدا ولكن حاولت اني اعمله بالفيجوال بيسك ولكن للاسف لم انجح
الرد }}}
تم الشكر بواسطة:
#8
up up up up
الرد }}}
تم الشكر بواسطة:
#9
(08-02-22, 02:19 AM)ميدو الفنان كتب : up up up up

اخي الكريم بالكاد و جدت لك هذا الموقع لتحويل و لكن يحوله الى c++
رابط الموقع
https://pythoncsharp.com/
وهذا رابط موقع اخر لتحويل الاكواد البرمجية من و الى شتى انواع و صيغ
https://www.carlosag.net/tools/codetranslator/
الرد }}}
تم الشكر بواسطة: ميدو الفنان , سعود , سعود
#10
(08-02-22, 11:35 PM)asmarsou كتب :
(08-02-22, 02:19 AM)ميدو الفنان كتب : up up up up

اخي الكريم بالكاد و جدت لك هذا الموقع لتحويل و لكن يحوله الى c++
رابط الموقع
https://pythoncsharp.com/
وهذا رابط موقع اخر لتحويل الاكواد البرمجية من و الى شتى انواع و صيغ
https://www.carlosag.net/tools/codetranslator/

شكرا لك اخي الغالي ولكن حاولت مع عدة مواقع ومنها الموقع الاول ولكن فشلت فهو يحول الى سي شارب ولما احوله الى دوت نت اواجه مشاكل كثيرة لا يمكن حلها
الرد }}}
تم الشكر بواسطة: asmarsou


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة سيد أحمد 0 57 22-12-25, 11:06 AM
آخر رد: سيد أحمد
  كود تحميل فيديو من اليوتيوب عبر بايثون justforit 4 277 23-10-25, 02:58 AM
آخر رد: justforit
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 219 08-10-25, 02:20 PM
آخر رد: salamandal
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,028 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] احتاج مساعدة في كتابة كود sloom00 2 959 21-08-25, 09:09 AM
آخر رد: sloom00
  مساعدة في باركود سيد أحمد 4 1,051 10-07-25, 03:33 PM
آخر رد: atefkhalf2004
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,294 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,242 09-07-25, 12:45 AM
آخر رد: abo ragab
  مساعدة في تمرير اسم المستخدم سيد أحمد 3 960 01-07-25, 12:51 AM
آخر رد: أبو خالد الشكري
  مساعدة في تحديث سيد أحمد 2 565 18-05-25, 03:11 AM
آخر رد: مصمم هاوي

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


يقوم بقرائة الموضوع: