Encrypting and Decrypting software

[Mpiangu]

Hi every body am emma, am trying to develop an encrypting and decypting software in VB6.0 but am kind of strunded in simple terms am using two richtextbox controls and a button but i can not get the trick to get the text in richtextbox1 to two when encrypted.

How can i let the pc know each letter that i type in richtextbox1 may be that can help please am desparate it is my project am supposed to present.
you can also toss me an email on [e-mail]

[venkatramasamy]

Hi,

usual code...

SrcStr=richtextbox1.text

RichtextBox1.text=EncrText

after encryption i assum that the encrptr text is stored in the The string variable EncrText

If still the Problem Exists post your complete code

regards
Venkatramasamy SN

[Mpiangu]

Hi thanks for your solution but still there is some thing remaining
i have three text boxes
key.text
plain.text
and
cipher.text
i first put a key in key.tex for example 2
so when i type a string in palin.text for examle "Emma" and click on the button
cipher.text must be equal to 'goob"
how do i go about that?
Thanks for your time

[hawisme000]

here try to understand this code, your prob might be on the "Key down" event,

If rs.RecordCount > 0 Then
With rs
'Decrypt Password
For x_cnt = 1 To Len(.Fields("fldPassword"))
x_newword = x_newword & Chr(Asc(Mid(.Fields("fldPassword"), x_cnt, 1)) - 10)
Next

If txtpass <> x_newword Then
MsgBox "Invalid Password", vbInformation, "ERROR"
N = N + 1
If N = 3 Then
MsgBox "Program terminated", vbCritical, "ERROR"
End
End If
txtpass = ""
txtpass.SetFocus

Exit Sub
Else
SCRF.Show
Unload Me
End If
End With
Else
MsgBox "Username does not exist", vbInformation, "STOP"
End If
End If

this from my old login form that i made.

wish it can help u