文章目录：
如何破解所谓的“网页源代码加密”？
“网页源代码加密”？----是rar或其他源文件加密了你需要去破解，如果是，找个破解软件试试；如果是网站中网页源文件“加密”了看不到源代码，那就很简单了，用ie、maxthon、chrome的插件都可以看到源代码，但是重点推荐火狐的firebug功能，html、js、css都可以看到，还可以本地对元素进行操作（可在线编辑），功能很强大。不知道能否为你解惑
html加密解密代码
HTMLHEADTITLE纯真过往-方宁 - 加密/解密HTML源代码/TITLE
META content="text/html; charset=gb2312" http-equiv=Content-Type
META content="script,windows" name=keywords
STYLE.tablinks A {COLOR: blue}
.tablinks A:visited { COLOR: blue}
.tablinks A:hover {COLOR: brown}
input{ font-family: Tahoma; font-size: 9pt; color: #000080 }
body,textarea{ font-family: Tahoma; font-size: 9pt; color: blue}
/STYLE
/HEAD
BODY bgColor=#D6D3CE leftMargin=0 marginwidth="0" scroll=no oncontextmenu="self.event.returnValue=false"
div align="center"
center
TABLE border=0 cellPadding=0 cellSpacing=0 width="600"
TBODY
TR
TD align=left vAlign=top
div align="center" style="width: 598; height: 42"
div align="center"
font color="#0066ff"加密页面源代码脚本/font
/div
pfont color="#800000"将你的页面源代码粘贴在下面的框内,要包括所有的标签例如html
, head, body等。/font/p
/div
P align=center
P align=left!--webbot bot="HTMLMarkup" startspan --
SCRIPT language=JavaScript
var i=0;
var ie=(document.all)?1:0;
var ns=(document.layers)?1:0;
function generate() /* Generation of "Compilation" */
{
code = document.pad.text.value;
if (code)
{
document.pad.text.value='纯真过往-方宁正在加密中...请等待！';
setTimeout("compile()",1000);
}
else alert('纯真过往-方宁提醒您:还没有放入要加密的网页代码!')
}
function compile() /* The "Compilation" */
{
document.pad.text.value='';
compilation=escape(code);
document.pad.text.value="script\n!--\ndocument.write(unescape(\""+compilation+"\"));\n//--\n\/script";
i++;
alert("(纯真过往)已将所选内容加密成功!请点预览查看效果!");
}
function selectCode() /* Selecting "Compilation" for Copying */
{
if(document.pad.text.value.length0)
{
document.pad.text.focus();
document.pad.text.select();
}
else alert('纯真过往-方宁提醒您：没有任何内容可以选定！')
}
function preview() /* Preview for the "Compilation" */
{
if(document.pad.text.value.length0)
{
pr=window.open("","Preview","scrollbars=1,menubar=1,status=1,width=700,height=320,left=50,top=110");
pr.document.write(document.pad.text.value);
}
else alert('纯真过往-方宁提醒您：没有任何内容可以预览！')
}
function uncompile() /* Decompiling a "Compilation" */
{
if (document.pad.text.value.length0)
{
source=unescape(document.pad.text.value);
document.pad.text.value=""+source+"";
}
else alert('纯真过往-方宁提醒您：请把你需要解密的代码放到此处！')
}
// --
/SCRIPT
TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"
TBODY
TR
TD width="100%"!-- Compilation Panel --
FORM method=post name=pad align="center"TEXTAREA cols=58 name=text rows=11 style="BACKGROUND-COLOR: #f0f0f0;width=100%"/TEXTAREABRp align="center"INPUT name=compileIt onclick=generate() type=button value=加密
INPUT name=select onclick=selectCode() type=button value=选定
INPUT name=view onclick=preview() type=button value=预览
INPUT name=retur onclick=uncompile() type=button value=解密
INPUT name=clear type=reset value=清除
/FORM!-- Compilation Panel --/TD/TR/TBODY/TABLE!--webbot bot="HTMLMarkup" endspan --
/table
/center
/div
p align="center"a href=" " target="_blank"纯真过往-方宁
;/a/p
/BODY
网页源码可以加密吗？
html是不可以加密的！因为浏览器不支持加密！
网上有许多所谓加密其实就是把网页通过Unicode码的转换实现的，这些加密都是可以
通过简单的Unicode码的转换景象解密，并没有什么卵用。而且这些加密手段只有在右键查看源代码的时候才会看到加密信息，如果是浏览器F12调试页面
的话，会直接显示解密后的页面。
并且中文文字太多会导致将你的加密过后页面代码膨胀。英文反会有压缩效果。
asp.net(VB)加密解密源代码
答案如下 (经本人测试，肯定是可以用的……)
'-----------------------------------------
' 随机选8个字节既为密钥也为初始向量
Private Shared KEY_64() As Byte = {42, 162, 39, 156, 78, 4, 218, 32}
Private Shared IV_64() As Byte = {55, 113, 346, 79, 36, 99, 167, 3}
'------------------------------------------------
'标准的DES加密
Public Function Encrypt(ByVal value As String) As String
If value "" Then
Dim cryptoProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider
Dim ms As MemoryStream = New MemoryStream
Dim cs As CryptoStream = New CryptoStream(ms, cryptoProvider.CreateEncryptor(KEY_64, IV_64), CryptoStreamMode.Write)
Dim sw As StreamWriter = New StreamWriter(cs)
sw.Write(value)
sw.Flush()
cs.FlushFinalBlock()
ms.Flush()
'--------------------------------------
'再转换为一个字符串
Return Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
Else
Return ""
End If
End Function
'----------------------------------
'标准的DES解密
Public Function Decrypt(ByVal value As String) As String
If value "" Then
Dim cryptoProvider As DESCryptoServiceProvider = New DESCryptoServiceProvider
'---------------------------------------
'从字符串转换为字节组
Dim buffer As Byte() = Convert.FromBase64String(value)
Dim ms As MemoryStream = New MemoryStream(buffer)
Dim cs As CryptoStream = New CryptoStream(ms, cryptoProvider.CreateDecryptor(KEY_64, IV_64), CryptoStreamMode.Read)
Dim sr As StreamReader = New StreamReader(cs)
Return sr.ReadToEnd()
Else
Return ""
End If
End Function
ontent="script,windows" name=keywordsSTYLE.tablinks A {COLOR: blue}.tablinks A:visited { COLOR: blue}.tablinks A:hover {COLOR: b