HOW TO MAKE A SECRET TEXT FILES PART-1

How to make a text encryption program part-1
---------------------------------------------------------------------

Here is how to convert a piece of text string into a secret code using a given a password! All you need is notepad.

1. Open notepad and paste the code given below:

code = ""
text = Inputbox("Enter the text to encrypt:", "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 (text = "") Then
Encrypt()
Else
End If
End If
End Function

Function Encrypt()
pswd = pswd Mod 255
Do Until text = ""
num = Asc(Left(text, 1))
num = num+pswd Mod 255
lttr = Chr(num)
code = code & lttr
text = Replace(text, Left(text, 1), "", 1, 1)
Loop
junk = Inputbox("Encrypted text:", "REJIMALson", code)
End Function

2. Save the code as a .vbs file. You can name it anything but remeber to put .vbs at the end while saving.

Open the file and enjoy!