View difference between Paste ID: ud6dnxFk and teU704kc
SHOW: | | - or go back to the newest paste.
1-
<html><head><title>Message Encrypter/Decrypter - Error Code 401</title><HTA:APPLICATION
1+
<html>
2-
APPLICATIONNAME="Message Encrypter/Decrypter - Error Code 401"
2+
3-
ID="Message Encrypter/Decrypter - Error Code 401"
3+
<head>
4-
VERSION="1.0"
4+
    <title>Message Encrypter/Decrypter - Error Code 401</title>
5-
MAXIMIZEBUTTON="no"
5+
    <HTA:APPLICATION APPLICATIONNAME="Message Encrypter/Decrypter - Error Code 401" ID="Message Encrypter/Decrypter - Error Code 401" VERSION="1.0" MAXIMIZEBUTTON="no" SCROLL="no" />
6-
SCROLL="no"/></head>
6+
</head>
7-
<style> td { color: Black; }
7+
<style>
8-
caption { color: Black; }
8+
td {
9-
body { font-family: Arial; background-color: #708090; color: #808080; }
9+
    color: Black;
10-
input { background-color: #202020; color: #808080; }
10+
}
11-
textarea { background-color: #202020; color: #808080; }
11+
12
caption {
13
    color: Black;
14
}
15-
Dim width,height
15+
16-
width=700
16+
body {
17-
height=500
17+
    font-family: Arial;
18-
self.ResizeTo width,height
18+
    background-color: #708090;
19
    color: #808080;
20
}
21
22
input {
23-
If (pass.value = "") Then
23+
    background-color: #202020;
24
    color: #808080;
25-
Else If (tamsg.value = "") Then
25+
}
26
27
textarea {
28
    background-color: #202020;
29
    color: #808080;
30
}
31
</style>
32
<script language="VBScript">
33
Sub Window_OnLoad
34
Dim width, height
35
width = 700
36-
code = ((Asc(Left(text, 1)))+code)
36+
height = 500
37
self.ResizeTo width, height
38
End Sub
39
Function Validate(ID)
40
On Error Resume Next
41
Key = Int(pass.value)
42
If(pass.value = "") Then
43
X = MsgBox("You have to enter your password..!", 48, "Error")
44
Else If(tamsg.value = "") Then
45
X = MsgBox("Enter the text to encrypt or decrypt!", 48, "ERROR!")
46
Else
47
Junk = SetTimeOut(KEYS(ID), 1)
48
End If
49
End If
50-
cnum = (cnum+key) Mod 255
50+
51
Function KEYS(ID)
52
text = pass.value
53
code = 0
54
Do Until text = ""
55-
tst = tst+26
55+
code = ((Asc(Left(text, 1))) + code)
56-
count = count+1
56+
57
Loop
58
code = code Mod 255
59
akey.value = code
60
Junk = SetTimeOut(ID, 1)
61
End Function
62
Function Encrypt
63
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")
64
text = tamsg.value
65
code = ""
66
key = Int(akey.value)
67
Do Until text = ""
68
cnum = Asc(Left(text, 1))
69
cnum = (cnum + key) Mod 255
70-
num = Asc(Left(lttr, 1))-65
70+
71
count = 0
72
tst = num
73
Do Until tst = cnum
74-
num = num+26
74+
tst = tst + 26
75-
count = count+1
75+
count = count + 1
76
Loop
77-
num = num-key
77+
78
text = Replace(text, Left(text, 1), "", "1", "1")
79-
num = num+255
79+
80
tamsg.value = code
81
End Function
82
Function Decrypt
83
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")
84
text = tamsg.value
85
code = ""
86
key = Int(akey.value)
87-
<body bgcolor="black"> <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more http://www.errorcode401.blogspot.in">
87+
88
lttr = Left(text, 2)
89-
<tr> <td align="center"><span title="Enter your Full message here"><textarea id="tamsg" cols="80" rows="15"></textarea></span></td> </tr>
89+
num = Asc(Left(lttr, 1)) - 65
90-
&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">
90+
91
count = 0
92-
<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>
92+
93-
</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>
93+
num = num + 26
94
count = count + 1
95
Loop
96
num = num - key
97
Do While num <= 0
98
num = num + 255
99
Loop
100
Code = code & Chr(num)
101
text = Replace(text, Left(text, 2), "", "1", "1")
102
Loop
103
tamsg.value = code
104
End Function
105
</script>
106
107
<body bgcolor="black">
108
    <input type="hidden" id="akey"> <span title=""> <span title="Visit our blog for more http://www.errorcode401.blogspot.in">
109
<caption style="font-family:Book Antiqua; font-size:20;"><hr color="black"><b>Message Encrypter-Decrypter</b><hr color="black"></caption>
110
<tr> <td align="center"><span title="Enter your Full message here"><textarea id="tamsg" cols="80" rows="15"></textarea></span></td>
111
    </tr>
112
    &nbsp;&nbsp;&nbsp;&nbsp;
113
    <td color="black" style="font-family: Book Antiqua; font-size:18;">
114
        <hr color="black"> Password &nbsp;<span title="Enter your password here">
115
<input type="password" id="pass"></span> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
116
        <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>
117
    </tr>
118
    <tr>
119
        <td align="right">
120
            <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>
121
    </tr>
122
    </table>
123
</body>
124
125
</html>