• Home
 · 
• String Manipulation
 · 
• A Simple text Encryption and Decryption used for creating Password.

A Simple text Encryption and Decryption used for creating Password.

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



Rate A Simple text Encryption and Decryption used for creating Password.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  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