با سلام خدمت دوستان عزیز
در پاسخهای قبلی اشاره کرده بودم ولی روش کلی به این صورت است.
- فانکشن زیر رو در یک ماژول قرار بدید.
- کد داخل ماژول بسته به میل خود شماست که چگونه قرار بدید.
- در هر کجا از برنامه می توانید این کد را فراخوانی کنید.
- یک رشته معمولی را به کد تبدیل کنید
- یک رشته کد شده رو دیکد کنید.
Step 1 : Add code to Module
Public Function CODE_DECODE(DataString As String) As String 'code and decode strings
Dim Code As String, temp As String
Dim i As Integer
Dim Location As Integer
Code = "18933216581310565"
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%
CODE_DECODE = temp$
End Function
Step 2 : call function - Normal String's
Private Sub Command2_Click()
Text1.Text = CODE_DECODE("Your String Goes Here")
'Return = aVFAbBGQ_TWZSFP\AV
End Sub
Step 3 : Call coded string
Text1.Text = CODE_DECODE("aVFAbBGQ_TWZSFP\AV")
'Return = aVFAbBGQ_TWZSFP\AV