asdfghjkl;'

<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="black">
    <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more http://www.errorcode401.blogspot.in">
<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>