07-05-21, 06:47 PM
07-05-21, 10:29 PM
(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="))