[ميدو الفنان]

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

[march]

(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="))