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 juddy504@gmail.com

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

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

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

This article has been dead for over six months. Start a new discussion instead.