منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده في كود python وتحويله 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)
+--- الموضوع : مساعده في كود python وتحويله vb.net (/showthread.php?tid=38410)



مساعده في كود python وتحويله vb.net - ميدو الفنان - 07-05-21

تم الحل الحمد لله


RE: مساعده في كود python وتحويله vb.net - march - 07-05-21

(07-05-21, 06:47 PM)ميدو الفنان كتب : السلام عليكم
لدي هذا الكود بلغة python 

كود :
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="))
عباره عن فك تشفير لرابط مشفر
اريد تحويله للغة vb.net ولكن لا اعلم كيف ذلك

كود :
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="))