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


usual code...



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

Venkatramasamy SN

Hi thanks for your solution but still there is some thing remaining
i have three text boxes
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)

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

Exit Sub
Unload Me
End If
End With
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.