HOW TO MAKE A SECRET TEXT FILES PART-2

How to make a text encryption program - Part 2
---------------------------------------------------------------------

In my previous I showed you how to make a text encryption program. Now here is how to make the program to decrypt the the codes from my previous program.

1. Open notepad and paste the following code:

text = ""
code = Inputbox("Enter the code to decrypt:", "REJIMALson")
pswd = Inputbox("Enter the password:", "REJIMALson")
Validate()

Function Validate()
If Not (IsNumeric(pswd)) Then
X = Msgbox("Not a numeric password!", 48, "REJIMALson")
Else If Not (code = "") Then
Decrypt()
Else
End If
End If
End Function

Function Decrypt()
pswd = pswd Mod 255
Do Until code = ""
num = Asc(Left(code, 1))
num = num-pswd
Do While num < 0
num = num+255
Loop
lttr = Chr(num)
text = text & lttr
code = Replace(code, Left(code, 1), "", 1, 1)
Loop
junk = Inputbox("Decrypted text:", "REJIMALson", text)
End Function

2. Save the file as anything.vbs. Remember to put the .vbs at the end while saving.

Enjoy! This program is only useful for ciphering and deciphering. I am working on a text encryption program which can encrypt long text strings and output in only uppercase letters and numbers. I am hoping to finish it by this month. Hope fully I will post it by the end of this month.

Hope you will be waiting for it. Please share the page with your friends.