by Ronilo Siasat (SOFTNET College of Science and Technology (1 Submission)
Category: String Manipulation
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Fri 1st October 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A Simple text " Encryption and Decryption " used for creating Password.
API Declarations
'for more info you can e-mail me at [email protected]
'or call/text me at my cellphone 09173655752
'objects needed to work the source code
'2 textbox name it as txtp and text1
'2 command button
Public crypto, crypt
crypto = vbNullString
For crypt = 1 To Len(txtp.Text) Step 1
crypto = crypto & IIf(crypt <> 1, Chr(Asc(Mid(txtp.Text, crypt, 1)) + crypt), Chr(Asc(Left(txtp.Text, crypt)) + Len(txtp.Text)))
Next
Text1.Text = crypto
End Sub
Private Sub Command2_Click()
crypto = vbNullString
For crypt = 1 To Len(Text1.Text) Step 1
crypto = crypto & IIf(crypt <> 1, Chr(Asc(Mid(Text1.Text, crypt, 1)) - crypt), Chr(Asc(Left(Text1.Text, crypt)) - Len(Text1.Text)))
Next
txtp.Text = crypto
End Sub
Private Sub txtp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
No comments have been posted about A Simple text Encryption and Decryption used for creating Password.. Why not be the first to post a comment about A Simple text Encryption and Decryption used for creating Password..