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

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

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