از همه اونایی که اومدن تو این تاپیک فقط یک نفر سوال پرسیده !!! واقعاً مایوس کننده است ... لا اقل یه نظری چیزی بدین ...
سورسی رو که این دفعه میخواهم بزارم مربوط به کد کردن و دیکد کردن نوشته است که در زیر میبینید .
در این کد یک textbox به نام pass وجود دارد که با فشار دادن command1 متن داخل آن کد شده و در یک متغیر ذخیره می شود ... با فشردن command2 متن رمز شده درون متغیر به حالت اول بر میگردد ... در هر دو حالت رمز گزاری و بازکردن رمز متن مورد نظر درون یک پیام نمایش می دهد که میتوان از آن استفاده های دیگری هم کرد ...کد:
Dim login, pass1 As String
Dim passch(8) As String
Dim ctr
Dim PassNew As String
Private Function EncryptPass() As String
On Error Resume Next
Dim Passtemp As String
PassNew = ""
pass1 = Len(Trim(pass.Text))
ctr = 1
Do While ctr <= pass1
PassNew = CStr(PassNew) & Chr((Asc(Mid(Trim(pass), ctr, 1)) + 17))
ctr = ctr + 1
Loop
MsgBox "Your Password after encryption is " & PassNew
End Function
Private Function DecryptPass() As String
On Error Resume Next
Dim Passlength As Integer, Cntr As Integer
Dim tempChar As String
Dim OldPass As String
Cntr = 1
Passlength = Len(PassNew)
Do While Cntr <= Passlength
OldPass = OldPass + Chr((Asc(Mid(Trim(PassNew), Cntr, 1)) - 17))
Cntr = Cntr + 1
Loop
MsgBox "The oldpassword was " & OldPass
Unload Me
End Function
Private Sub Command1_Click()
EncryptPass
End Sub
Private Sub Command2_Click()
DecryptPass
End Sub
اگر سوالی بود بپرسید ...
