M8SPY_OK
چهارشنبه 19 دی 1386, 09:07 صبح
Code کردن متن !
Public Function CodeStr(TextStr As String) As String
On Error Resume Next
Pr.Min = 0
Pr.Max = Len(TextStr)
Pr.Value = 0
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
Pr.Value = Pr.Value + 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) + 2)
Next i
CodeStr = OutputStr
End Function
Decode کردن متن
Public Function DeCodeStr(TextStr As String) As String
On Error Resume Next
Pr.Min = 0
Pr.Max = Len(TextStr)
Pr.Value = 0
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
Pr.Value = Pr.Value + 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) - 2)
Next i
DeCodeStr = OutputStr
End Function
در اینجا می تونید از یک ProgressBar با نام Pr واسه نشون دادن پیشرفت کار استفاده کنید .
Public Function CodeStr(TextStr As String) As String
On Error Resume Next
Pr.Min = 0
Pr.Max = Len(TextStr)
Pr.Value = 0
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
Pr.Value = Pr.Value + 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) + 2)
Next i
CodeStr = OutputStr
End Function
Decode کردن متن
Public Function DeCodeStr(TextStr As String) As String
On Error Resume Next
Pr.Min = 0
Pr.Max = Len(TextStr)
Pr.Value = 0
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
Pr.Value = Pr.Value + 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) - 2)
Next i
DeCodeStr = OutputStr
End Function
در اینجا می تونید از یک ProgressBar با نام Pr واسه نشون دادن پیشرفت کار استفاده کنید .