This is a encrypt/decrypt program thats only 10 lines long!!!
all it uses is 2 simple fonts to encrypt, times new romand for the text and Money for the encrypted text! please tell me if you like it:)
Original Author: uh oh
Assumptions
‘1 text box
‘2 command buttons (encrypt, decrypt)
Code
'add 2 command buttons
'add 1 text box
'coded by the other matt
'please give me mention if you ever decide to use this in one of you apps:)
Private Sub Command1_Click()
If Text1 = "" Then MsgBox "YOU MUST ENTER SOME TEXT!"
Command1.Caption = "Encrypt"
Text1.Font = "Money"
End Sub
Private Sub Command2_Click()
If Text1 = "" Then MsgBox "YOU MUST ENTER SOME TEXT!"
Command2.Caption = "Decrypt"
Text1.Font = "Times New Roman"
End Sub