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"
VERSION="1.0"
MAXIMIZEBUTTON="no"
SCROLL="no"/></head>
<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; }
</style>
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
width=700
height=500
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!")
Else
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")
Loop
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
Loop
code = code & Alpha(num) & count
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
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
Loop
num = num-key
Do While num <= 0
num = num+255
Loop
Code = code & Chr(num)
text = Replace(text, Left(text, 2), "", "1", "1")
Loop
tamsg.value = code
End Function
</script>
<body bgcolor="white"> <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more http://www.errorcode401.blogspot.in">
<marquee color="white" bgcolor="black" style="font-family= Book Antiqua;">This code is uploaded on <font color="cyan">http://www.errorcode401.blogspot.in</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>
<td color="black" style="font-family: Book Antiqua; font-size:18;"><hr color="black"> Password <span title="Enter your password here">
<input type="password" id="pass"></span>
<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="btnenc.style.background='#102030'" onmouseout="btnenc.style.background='#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="btndec.style.background='#102030'" onmouseout="btndec.style.background='#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;">© 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.
