?? test_aes.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="aes.asp"-->
<%
dim aes, s, key, Result, CipherText, KeySize, sKeySize
set aes = new aes_class
s = Request.Form("plainText")
key = Request.Form("password")
KeySize = Request.Form("KeySize")
select case KeySize
case 256 sKeySize = "<input type=""radio"" name=""KeySize"" value=""128"">128位(16字符密碼) <input type=""radio"" name=""KeySize"" value=""192"">192位(24字符密碼) <input name=""KeySize"" type=""radio"" value=""256"" checked>256位(32字符密碼)"
case 192 sKeySize = "<input type=""radio"" name=""KeySize"" value=""128"">128位(16字符密碼) <input type=""radio"" name=""KeySize"" value=""192"" checked>192位(24字符密碼) <input name=""KeySize"" type=""radio"" value=""256"">256位(32字符密碼)"
case else
sKeySize = "<input type=""radio"" name=""KeySize"" value=""128"" checked>128位(16字符密碼) <input type=""radio"" name=""KeySize"" value=""192"">192位(24字符密碼) <input name=""KeySize"" type=""radio"" value=""256"" >256位(32字符密碼)"
end select
CipherText = aes.CipherStrToHexStr(KeySize, s, key)
Result = aes.InvCipherHexStrToStr(KeySize, CipherText, key)
if isnull(s) or s = "" then
CipherText = ""
Result = ""
end if
's = "我是明文，都能看到吧"
'key = "ABCDEFGHIJKLMNOPQRSTUVWX"
'keysize = 192
'Response.Write("<BR>明文<BR>")
'Response.Write(S)
'Response.Write("<BR>密文<BR>")
'Response.Write(aes.CipherStrToHexStr (keysize, s, key))
'Response.Write("<BR>解密字符串<BR>")
'Response.Write(aes.InvCipherHexStrToStr(keysize, aes.CipherStrToHexStr (keysize, s, key), key))
'Response.Write("<BR>解密十六進制字符串<BR>")
'Response.Write(aes.InvCipherHexStrToHexStr(keysize, aes.CipherStrToHexStr (keysize, s, key), key))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>AES加密/解密測試</title>
</head>
<body>
<form name="form_aes" method="post" action="">
<table width="842" border="0">
<tr>
<td width="200" align="right">明文:</td>
<td width="535"><textarea name="plainText" cols="80" rows="5" id="plainText"><%=s%></textarea></td>
<td width="93"> </td>
</tr>
<tr>
<td width="200" align="right">密碼:</td>
<td><input name="password" type="password" id="password" size="80" maxlength="32" value="<%=key%>"></td>
<td> </td>
</tr>
<tr>
<td align="right">密碼明文:</td>
<td><input name="password1" type="text" id="password1" size="80" maxlength="32" value="<%=key%>" readonly></td>
<td> </td>
</tr>
<tr>
<td align="right">密鑰強度:</td>
<td><%=sKeySize%></td>
<td> </td>
</tr>
<tr>
<td width="200" align="right">密文:</td>
<td><textarea name="CipherText" cols="80" rows="5" id="CipherText" readonly><%=CipherText%></textarea></td>
<td> </td>
</tr>
<tr>
<td width="200" align="right">解密結(jié)果:</td>
<td><textarea name="Result" cols="80" rows="5" id="Result" readonly><%=Result%></textarea></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -