منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مساعدة في تحويل كود بايثون الى فيجوال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة في تحويل كود بايثون الى فيجوال (/showthread.php?tid=40535)

الصفحات: 1 2

مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 21-01-22

السلام عليكم
لدي كود بلغة بايثون اريد تحويله الى فيجوال بيسك
كود :
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"))


RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 21-01-22

Up up up up

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 23-01-22

up up up up

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 27-01-22

up up up up

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 29-01-22

up up up up

RE: مساعدة في تحويل كود بايثون الى فيجوال - سعود - 29-01-22

(29-01-22, 04:36 PM)ميدو الفنان كتب : up up up up

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

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 31-01-22

(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="))
ولكن تم تغير نوع التشفير واضافة اشياء اخري فانا قمت بعمله بالبايثون فهذه لغتي التي اتقنها جيدا ولكن حاولت اني اعمله بالفيجوال بيسك ولكن للاسف لم انجح

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 08-02-22

up up up up

RE: مساعدة في تحويل كود بايثون الى فيجوال - asmarsou - 08-02-22

(08-02-22, 02:19 AM)ميدو الفنان كتب : up up up up

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

RE: مساعدة في تحويل كود بايثون الى فيجوال - ميدو الفنان - 09-02-22

(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/

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