This code shows how to decrypt the string to ASCII
Dim strTempChar As String = Nothing, i As Integer
For i = 1 To Len(dpwd)
If Asc(Mid$(dpwd, i, 1)) < 128 Then
strTempChar = _
CType(Asc(Mid$(dpwd, i, 1)) + 128, String)
ElseIf Asc(Mid$(dpwd, i, 1)) > 128 Then
strTempChar = _
CType(Asc(Mid$(dpwd, i, 1)) - 128, String)
End If
Mid$(dpwd, i, 1) = _
Chr(CType(strTempChar, Integer))
Next i
Return dpwd
|
No responses found. Be the first to respond and make money from revenue sharing program.
|