Skip to content

How to create encryption program in Notepad

28/04/2017

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>

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
<body bgcolor=”white”> <input type=”hidden” id=”akey”> <span title=””> <span title=”Visit our blog for more http://www.errorcode401.blogspot.in”&gt;
<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&gt; </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=”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;”>&copy; 2013 Attract Tech – All rights reserved.</span></td> </tr> </table> </body> </html>

 

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

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.

Write same password in password box then click on Decrypt Button you will get your original message.

Reference

https://errorcode401.blogspot.co.uk/2013/07/Create-Simple-Message-EncrypterDecrypter-Using-Notepad.html

Advertisements
Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: