Passsssssword!!!!!!

[pradeep_sai]

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

[Toot]

What password field?

[Asaf_99]

Here you go:

'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?

Text1.PasswordChar = ""

[BuggyProgrammer]

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

[oetje]

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

[Serge]

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).

[pradeep_sai]

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

[pradeep_sai]

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

[Vlatko]

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.

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

[pradeep_sai]

Thanx for ur correspondence