تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل فيجوال بيسك يدعم تقسيم الملف؟ سعود 8 356 07-08-22, 05:38 AM
آخر رد: سعود
  [سؤال] مشكله في تنصيب فيجوال استوديو 2019 حسن الجلب 3 162 02-08-22, 03:44 PM
آخر رد: حسن الجلب
  مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت mohamedallams 7 299 30-07-22, 10:17 PM
آخر رد: asmarsou
  [سؤال] تفعيل برنامج فيجوال استوديو حسن الجلب 5 274 30-07-22, 12:40 PM
آخر رد: حسن الجلب
  ماهي طريقة تحويل الصور إلى pdf ؟ جيولوجي مبتدئ 6 256 30-07-22, 02:24 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] لينك تحميل برنامج فيجوال استوديو 2019 حسن الجلب 1 136 29-07-22, 08:59 PM
آخر رد: أبو خالد الشكري
  محتاج مساعدة في برنامج حضور وغياب الطلبة علي مدار العام hatem555 2 185 25-07-22, 04:00 AM
آخر رد: hatem555
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 234 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  مساعدة في عمل تحديث البرنامج crazykinko 3 254 13-07-22, 10:43 PM
آخر رد: سعود
  [VB.NET] رجاء اريد كود فيجوال بحث عن ملف في كمبيوتر داخل فورم jam3h 5 890 06-07-22, 12:02 AM
آخر رد: jam3h

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


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