با سلام و تشکر از برنامه ای که گذاشتید و بزرگواریتون
در مورد فرم login به کار رفته در این برنامه، چون دی کد شده فکر کنم اگر پسورد هم عوض کنیم عمل نکنه
من عملکرد این کد رو می خواستم و اینکه اگر ممکنه اصلاح شده این کد رو بذارید ممنون میشم
چون من پسورد رو تغییر دادم عمل نکرد از طرفی شرح عملکرد این کد هم برام مهمه
هر کدوم از دوستان یا اساتید اگه لطف کنند ممنون میشم
Dim Code As String, DataString As String, Temp As String
Sub Translate()
Dim Code As String
Code = ""
Dim I As Integer
Dim location As Integer
Temp$ = ""
For I = 1 To Len(DataString$)
location = (I Mod Len(Code$)) + 1
Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I, 1)) Xor _
Asc(Mid$(Code$, location, 1)))
Next I
End Sub
پاسخ با نقل قول