Passsssssword!!!!!!

Can any one tell me how to decode a characters in password field in to readable characters?

What password field?

Here you go:

Code:

---

'Let's say you have 2 textboxes.
'One is txtPass and the second is txtSolve.
'txtPass is the text wich the password is entered.
'txtSolve is the textbox which will show the password.
Private Sub txtPass_Change()
txtSolve.Text = txtPass.Text
End Sub

---

It's that simple!

Are you referring to the PasswordChar property?

And changing it back to readable text?

Code:

---

Text1.PasswordChar = ""

---

i think he means to like decode passwords in another program.

You could use the SendMessage api function to set the password char to 0.

You sure can use SendMessage API to get the text from the password textbox, but bare in mind that it works only in Win95 (that was a Microsoft bug).

SendMessage API works only in '95. but i need a way to figure it out in NT and '98. U guys have any ideas.

SendMessage API works only in '95. but i need a way to figure it out in NT and '98. U guys have any ideas.

What do you mean SendMessage works only in Win95. I have Win98 And this code works fine. (it doesn't work only in WinNt) It gets the pass characters.

Code:

---

Public Const WM_GETTEXTLENGTH = &HE
Public Const WM_GETTEXT = &HD
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim tl as Long
Dim t as String
tl = SendMessage(hWndOfPassWindow, WM_GETTEXTLENGTH, 0, 0)
tl = tl + 1
t = Space(tl)
SendMessage hWndOfPassWindow, WM_GETTEXT, tl, ByVal t
Text1.Text  = t

---

Thanx for ur correspondence