The MOIs Factory
Hello World!
Now we are going to share new Tricks, Tips and everything related to computer on our youtube channel and on our new facebook page. Please do Subscribe our youtube channel and Like out facebook page to get every single video direct to your computer/mobile.
Stay Connected To Get More!

Please Subscribe our new youtube channel The MOIs Factory - Youtube and Like our new facebook page The MOIs Factory - Facebook To get more about computer.

Create Simple Message Encrypter/Decrypter Using Notepad

HTML Application for message Encrypter/Decrypter

Hello with this Simple HTML Application you can Encrypt and Decrypt your message by password. First of all I will show you how to create it and then I will show you how to use it.
Let’s Start.

Step 1 : First if all open your notepad. [Start >> Run >> Type “Notepad” >> Enter]

Step 2 : Copy the following code in notepad which is starting from <html> to </html>

<html><head><title>Message Encrypter/Decrypter - Error Code 401</title><HTA:APPLICATION
APPLICATIONNAME="Message Encrypter/Decrypter - Error Code 401"
ID="Message Encrypter/Decrypter - Error Code 401"
<style> td { color: Black; }
caption { color: Black; }
body { font-family: Arial; background-color: #708090; color: #808080; }
input { background-color: #202020; color: #808080; }
textarea { background-color: #202020; color: #808080; }
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
self.ResizeTo width,height
End Sub
Function Validate(ID)
On Error Resume Next
Key = Int(pass.value)
If (pass.value = "") Then
X = MsgBox("You have to enter your password..!", 48, "Error")
Else If (tamsg.value = "") Then
X = MsgBox("Enter the text to encrypt or decrypt!", 48, "ERROR!")
Junk = SetTimeOut(KEYS(ID), 1)
End If
End If
End Function
Function KEYS(ID)
text = pass.value
code = 0
Do Until text = ""
code = ((Asc(Left(text, 1)))+code)
text = Replace(text, Left(text, 1), "", "1", "1")
code = code Mod 255
akey.value = code
Junk = SetTimeOut(ID, 1)
End Function
Function Encrypt
Alpha = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = tamsg.value
code = ""
key = Int(akey.value)
Do Until text = ""
cnum = Asc(Left(text, 1))
cnum = (cnum+key) Mod 255
num = cnum Mod 26
count = 0
tst = num
Do Until tst = cnum
tst = tst+26
count = count+1
code = code & Alpha(num) & count
text = Replace(text, Left(text, 1), "", "1", "1")
tamsg.value = code
End Function
Function Decrypt
Alpha = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = tamsg.value
code = ""
key = Int(akey.value)
Do Until text = ""
lttr = Left(text, 2)
num = Asc(Left(lttr, 1))-65
chk = Right(lttr, 1)
count = 0
Do Until count = Int(chk)
num = num+26
count = count+1
num = num-key
Do While num <= 0
num = num+255
Code = code & Chr(num)
text = Replace(text, Left(text, 2), "", "1", "1")
tamsg.value = code
End Function
<body bgcolor="white"> <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more">
<marquee color="white" bgcolor="black" style="font-family= Book Antiqua;">This code is uploaded on <font color="cyan"></font></marquee> </span> <table align="center" width="400">
<caption style="font-family:Book Antiqua; font-size:20;"><hr color="black"><b>Message Encrypter-Decrypter</b><hr color="black"></caption>
<tr> <td align="center"><span title="Enter your Full message here"><textarea id="tamsg" cols="80" rows="15"></textarea></span></td> </tr>
&nbsp;&nbsp;&nbsp;&nbsp; <td color="black" style="font-family: Book Antiqua; font-size:18;"><hr color="black"> Password &nbsp;<span title="Enter your password here">
<input type="password" id="pass"></span> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span title="Click Here to Encrypt your Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family:Book Antiqua;" type="button" Value="Encrypt" id="btnenc" onClick="Validate('Encrypt')" onmouseover="'#102030'" onmouseout="'#203040'"> </span> <span title="Click Here to Decrypt your Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family: Book Antiqua; font-size:13;" type="button" Value="Decrypt" id="btndec" onClick="Validate('Decrypt')" onmouseover="'#102030'" onmouseout="'#203040'"> </span></td>
</tr> <tr> <td align="right"><hr color="black"><span title="All rights reserved by Attract Tech" style="font-size: 13px; font-family:Book Antiqua;">&copy; 2013 Attract Tech - All rights reserved.</span></td> </tr> </table> </body> </html>

 Step 3 : Save it with .hta extension [eg. MSG – EncDec.hta]

Now your application has been created.

How to use?

Step 1 : Double click on it. Then one window will open as shown in the following Image.

Step 2 : Write your Message/String in TextArea as shown in given Image.

Step 3 : Type your message in Password textbox.

Step 4 : Click on Encrypt Button. 

Then you will see your Encrypted message in TextArea. Copy it and save it anywhere.

When you want Original message then Copythat encrypted message in textare. Write same password in password box then click on Decrypt Button you will get your original message.


Watch our youtube Video for How to use?