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)
NextIf 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.SetFocusExit 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
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.