• Home
 · 
• String Manipulation
 · 
• a 10 line encryption/decryption program

a 10 line encryption/decryption program

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:)

Assumes
'1 text box '2 command buttons (encrypt, decrypt)

Rate a 10 line encryption/decryption program

• 1
• 2
• 3
• 4
• 5

(40(40 Vote))

'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