تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في كود python وتحويله vb.net
#1
تم الحل الحمد لله
الرد
تم الشكر بواسطة:
#2
(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="))
الرد



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


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