Password encryption and binding

[Earl]

I'm adding password encryption to the Employees form. I have a
strongly-typed dataset being used as the datasource for the
EmployeesBindin gSource, and the Employees table set as the datamember. All
controls on the form are bound to the EmployeesBindin gSource. Except for the
password ...

I set up separate handlers for the Password and bind this control manually
when I New() the form:

Private Sub BindPasswordCon trol()
Dim b As Binding = New Binding("Text", EmployeesBindin gSource,
"Password")
AddHandler b.Format, AddressOf PasswordFormat
AddHandler b.Parse, AddressOf PasswordParse
txtPassword.Dat aBindings.Add(b )
End Sub

Private Sub PasswordFormat( ByVal sender As Object, ByVal e As
ConvertEventArg s)
If IsDBNull(e.Valu e) = False Then
e.Value = EncryptPassword (CStr(e.Value))
End If
End Sub

The handlers ARE being called, however, the Password column of the
strongly-typed dataset does not get changed to the password entered into the
Password textbox (it remains null). I can also see that the e.Value is being
passed to the EncryptPassword function. Yet when I check the datatable, the
Password column is empty (all other columns have the correct data). What the
heck am I overlooking here!?

[Bart Mermuys]

Hi,

"Earl" <br******@newsg roups.nospamwro te in message
news:%2******** ********@TK2MSF TNGP06.phx.gbl. ..

I'm adding password encryption to the Employees form. I have a
strongly-typed dataset being used as the datasource for the
EmployeesBindin gSource, and the Employees table set as the datamember. All
controls on the form are bound to the EmployeesBindin gSource. Except for
the password ...

I set up separate handlers for the Password and bind this control manually
when I New() the form:

Private Sub BindPasswordCon trol()
Dim b As Binding = New Binding("Text", EmployeesBindin gSource,
"Password")
AddHandler b.Format, AddressOf PasswordFormat
AddHandler b.Parse, AddressOf PasswordParse
txtPassword.Dat aBindings.Add(b )
End Sub

Private Sub PasswordFormat( ByVal sender As Object, ByVal e As
ConvertEventArg s)
If IsDBNull(e.Valu e) = False Then
e.Value = EncryptPassword (CStr(e.Value))
End If
End Sub

Where is the PasswordParse sub ?

>
The handlers ARE being called, however, the Password column of the
strongly-typed dataset does not get changed to the password entered into
the Password textbox (it remains null). I can also see that the e.Value is
being passed to the EncryptPassword function. Yet when I check the
datatable, the Password column is empty (all other columns have the
correct data). What the heck am I overlooking here!?

According to your code, EncryptPassword is called inside PasswordFormat,
Format means DataSource->Control. If you ask me you should call
EncryptPassword inside Parse and DecryptPassword inside Format....

HTH,
Greetings

>

[Earl]

You are correct, the Encrypt/Decrypt were backwards. Two sets of eyes are
better than one. Thanks.

"Bart Mermuys" <bm************ *@hotmail.comwr ote in message
news:Nf******** *********@phobo s.telenet-ops.be...

Hi,

"Earl" <br******@newsg roups.nospamwro te in message
news:%2******** ********@TK2MSF TNGP06.phx.gbl. ..

>I'm adding password encryption to the Employees form. I have a
strongly-typed dataset being used as the datasource for the
EmployeesBindi ngSource, and the Employees table set as the datamember.
All controls on the form are bound to the EmployeesBindin gSource. Except
for the password ...

I set up separate handlers for the Password and bind this control
manually when I New() the form:

Private Sub BindPasswordCon trol()
Dim b As Binding = New Binding("Text", EmployeesBindin gSource,
"Password")
AddHandler b.Format, AddressOf PasswordFormat
AddHandler b.Parse, AddressOf PasswordParse
txtPassword.Dat aBindings.Add(b )
End Sub

Private Sub PasswordFormat( ByVal sender As Object, ByVal e As
ConvertEventAr gs)
If IsDBNull(e.Valu e) = False Then
e.Value = EncryptPassword (CStr(e.Value))
End If
End Sub

Where is the PasswordParse sub ?

>>
The handlers ARE being called, however, the Password column of the
strongly-typed dataset does not get changed to the password entered into
the Password textbox (it remains null). I can also see that the e.Value
is being passed to the EncryptPassword function. Yet when I check the
datatable, the Password column is empty (all other columns have the
correct data). What the heck am I overlooking here!?

According to your code, EncryptPassword is called inside PasswordFormat,
Format means DataSource->Control. If you ask me you should call
EncryptPassword inside Parse and DecryptPassword inside Format....

HTH,
Greetings

>>