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 | - | <td color="black" style="font-family: Book Antiqua; font-size:18;"><hr color="black"> Password <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;">© 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 | | |
| 113 | <td color="black" style="font-family: Book Antiqua; font-size:18;"> | |
| 114 | <hr color="black"> Password <span title="Enter your password here"> | |
| 115 | <input type="password" id="pass"></span> | |
| 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;">© 2013 Attract Tech - All rights reserved.</span></td> | |
| 121 | </tr> | |
| 122 | </table> | |
| 123 | </body> | |
| 124 | ||
| 125 | </html> |