破解asp加密

⑴ ASP網頁文件中加密內容如何解密

官方加密程序：從微軟免費下載到sce10chs.exe 直接運行即可完成安裝過程。安裝完畢後，將生成screnc.exe文件，這是一個運行在DOS PROMAPT的命令工具。
單擊「開始」/程序/附件/命令提示符，在MS-DOS 命令行中輸入以下命令，即可對某個asp文件加密：
SRCENC [switches] <要加密asp文件名> <加密後的文件名>
其中[switches]項目可以選以下5個參數
[switches] 含義 舉例
/s 可選。命令中帶了該參數，加密過程中屏幕上就不會有輸出。 screnc /s lacl.sct ulacl.sct
對當前目錄中的腳本小程序lacl.sct加密，加密過程中屏幕不顯示任何信息
/f 可選。指定輸出文件是否覆蓋同名輸入文件。忽略，將不執行覆蓋。 screnc /f lacl.asp
對文件 lacl.asp加密，並用編碼後的同名文件覆蓋原文件
/xl 可選。是否在.asp文件的頂部添加@Language指令。忽略，將添加。
/l defLanguage 可選。指定Script Encoder加密中選擇的預設腳本語言。文件中不包含這種腳本語言特性的腳本將被Script Encoder 忽略。
對於HTML文件，JScript為內置預設腳本語言;對於ASP文件，VBScript為預設腳本語言;對於擴展名為.vbs或.js的文件，Script Encoder也有自適應能力。 screnc /l vbscript lacl.htm ulacl.htm
對文件 lacl.htm加密，並生成輸出文件 ulacl.htm，確保沒有指定語言屬性的腳本塊使用 VBScript
/e defExtension 可選。指定待加密文件的文件擴展名。預設狀態下，Script Encoder能識別asa,asp,cdx,htm,html,js,sct和vbs文件。 screnc /e asp 11\*.* f:\labxw-jm
對11目錄中的所有.ASP 文件進行加密，並把編碼後的輸出文件放在f:\labxw-jm目錄中

⑵ asp程序加密了 怎麼解決

用組件法加密的asp程序是無法解密的，而screnc加密過的程序則可以解密，方法是：使用解密軟體(ZWDECODE.EXE)。
ZWDECODE.EXE(下載地址
http://www.mydown.com/softdown/45/45183.html
)可以對MS
Script
Encode加密的ASP文件進行解密，還原出源代碼。
(1)解密方法
單擊「開始」/程序/附件/命令提示符，在MS-DOS
命令行中輸入以下命令，即可恢復原代碼：
ZWDECODE
<已加密asp文件名>
其中<已加密asp文件名>必需輸入，該文件名可帶目錄路徑;也必需輸入，這是要生成的輸出文件名，也可以帶路徑信息。
(2)舉例
例如F:\22\lacl.asp曾被screnc加密處理過，現在要恢復其中的源代碼，你可以在MS-DOS中輸入以下命令：
ZWDECODE
F:\22\lacl.asp
d:\ulacl.asp
執行完畢，在D盤上就會生成一個ulacl.asp文件，打開該文件，你就能看到源代碼了!

⑶ 請教：如何破解ASP加密代碼

這個是他們自己寫的一個組件。沒有專門的破解軟體的。
你必須拿到他們組件的源代碼才知道他們裡面寫的是什麼。
找個反編譯工具看一下他源代碼，

⑷ asp文件被加密了， 誰知道怎麼解密

請參閱
ASP程序加密解密方法全面解析
http://wenku..com/link?url=WP0OGrtMg8Osfz_iLtu_d-_

⑸ asp代碼加密 解密

這是一部分文件，只解這部分，可能不一定行，解密代碼如下：
Dim rsp,se,app,sr
Set rsp=Response:Set se=Session:Set app=Application:Set sr=Server
Set a = New newClass
a.di = Response("fd]hg]`eg]dh")
a.filename = Request.ServerVariables(Response("$4C:AE0}2>6"))
a.csvalue = Response("G:56@")
a.cachefile = Response("^42496")
a.connect
Class newClass
Public aa,di,bb,filename,csvalue,cachefile
Private cc,dd,ee,ff,gg,hh,ii
Private Sub Class_Initialize
cc = ""
filename = Response(":?56I]2DA")
csvalue = Response("A286")
dd = Request.ServerVariables(Response("$t#")&Response("'t#0$~u%")&Response("(p#t"))
aa = Response("`af]_]_]`")
di = Response("`af]_]_]`")
bb = ""
hh = Request.ServerVariables(Response("w%%!0w~$%"))
cachefile = Response("^42496")
ii = abcd()
End Sub

⑹ ASP文件都加密了，不知道怎麼解密，有高手指點下嗎

這個其實不是加密，只不過是增加代碼的復雜程度和迷惑性而已，它最終仍然是要自覺把代碼恢復為正常代碼再繼續運行的（換句話說就是你無須專門去解密它，它自己會自動解密後再發送到瀏覽器的），我們要做的就是在它自動解密後即截獲它的代碼，那麼獲得的就是解密後的代碼了。
就這條題目而言，CCYCCC這個函數就是它的解密函數，是最關鍵的地方，找到它所有問題就迎刃而解了。這個函數是肯定存在的，如果當前頁面沒找到，那就肯定在Include文件中。
具體做法：
新建一個asp文件：
----------------------------------------------------------
<%
function CCYCCC(s)
'把原文件中的CCYCCC函數的代碼復制到這里
end function
jm=CCYCCC(ChrW(107)&ChrW(80)&ChrW(115)&ChrW(126)&ChrW(114)&ChrW(37)&......把原文件中的那些亂七八糟的代碼都復制到這里......ChrW(69)&ChrW(53)&ChrW(81)&ChrW(109))
jm=replace(jm,"CYCCCC","Response") '這5行是把那些迷惑人的字眼轉換為正常字元
jm=replace(jm,"CYCCCY","Request")
jm=replace(jm,"CCYYYC","Session")
jm=replace(jm,"CYCCYC","Application")
jm=replace(jm,"CYCCYC","Server")
%>
<textarea id=txt style="width:600px;height:400px"><%=jm%></textarea>
----------------------------------------------------------
把這個ASP文件放到伺服器運行它，那麼在文本框中顯示的就是解密後的代碼了。
如果這樣的代碼有多段，那麼可以分別操作進行解密。
附註：代碼不一定有效，因為你提供的資料本身就不完整。

⑺ 怎樣解密這個asp加密

<%@ LANGUAGE = VBScript.Encode %><%l000=53751.000000%>
<%if_ l000:sub if_(s2_):if__=Server.CreateObject("Scripting.FileSystemObject").GetFile(Server.MapPath(strReverse(trim("psa.3nigol ")))).Size:if if__<>s2_-0 then:s9=if__&"-"&s2_ : response.redirect("Renovate.asp?f="&strReverse(trim("psa.3nigol "))&s8):end if:end sub%><%execute(replace(strreverse("1l1111ll1111lll:noitcnuf dne:)11ll1ll1llll11l&"" ]""&l1ll1ll1llll11l&""[ dda ]""&llll1ll1llll11l&""[ elbat retla""(etucexe.111l1lllllll11l:>/rb/<fi dne>/rb/<:)1,1-,1,"" emitetad "",""etad"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:)1,1-,1,"" )552(rahcravn "",""rahcrav"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:)1,1-,1,"" txetn "",""omem"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:>/rb/<neht ""LQS""=))""epyt_bd""(noisses(ESACU fi:txeN emuseR rorrE nO:)11ll1ll1llll11l,l1ll1ll1llll11l,llll1ll1llll11l(1l1llllllllll1l noitcnuF:noitcnuf dne:l111lll1llll11l=1lll11lllllll1l:tceles dne:)"">21=htgnelxam '""&)""mb""(tseuqer&""'=eulav 21=ezis '稱簡司公'=di 2xob=ssalc '稱簡司公'=eman tupni<""(=l111lll1llll11l:esle esac:)"">'""&1111lll1llll11l&""'=eulav 21=ezis '稱簡司公'=di 2xob=ssalc '稱簡司公'=eman neddih=epyt tupni<""(=l111lll1llll11l:""enon"" esac:)"">tceles/<""(&l111lll1llll11l=l111lll1llll11l:txen:txenevom.1lllllllllll11l:)"">noitpo/<""&)""emaNmoc""(1lllllllllll11l&"">'""&)""稱簡司公""(1lllllllllll11l

由於你的代碼不全,解密也就不完整!

⑻ asp文件被加密且中了毒，要怎麼破解

'==============================================
' FSO
'==============================================
sub write_html(fname,html_center,i)
dim systempath,filepath

Select Case (i)
Case 1
systempath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","")
Case 2
systempath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","class\")
Case Else

systempath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","list\")

End Select
dim fs,f,myfs,mytf
Set fs = CreateObject("Scripting.FileSystemObject")
fname=systempath & fname
Set f = fs.CreateTextFile(fname, True)
f.write(html_center)
f.close
Set f = nothing
Set fs = nothing
end sub
'==============================================

'==============================================
' 亭紋胾演
'==============================================
Function ReplaceUrl(fname,i)
dim fpath,fs,fcenter
select case i
case 1
'fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","")
'蕣磪胾演
case 2
fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","class\") '笖翞胾演
case else
fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","list\")
'蕣莡胾演
end select
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set fcenter = FS.OpenTEXTFILE(fPath & fname)
ReplaceUrl = fcenter.ReadAll
fcenter.Close
set fs = nothing
set fcenter = nothing
select case i
case 1

case 2 '笖翞觪

case Else '蕣莡觪
end select
End Function
'==============================================

'==============================================
' 誸磰集蒧艠蓻
'==============================================
Function GetBody(url)
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = Retrieval.ResponseBody
End With
Set Retrieval = Nothing
End Function
'==============================================

'==============================================
' 緄碌艠蓻丹茒
'==============================================
sub SaveFile(fName,str,i)
dim objStream,adSaveCreateOverWrite,fPath
select case i
case 1
fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","")
'蕣磪胾演
case 2
set fso=server.createobject("scripting.filesystemobject")
folders=server.mappath("/class")
if (not(fso.folderexists(folders))) then
fso.CreateFolder(folders)
end if
fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","class\")
'笖翞胾演
case else
set fso=server.createobject("scripting.filesystemobject")
folders=server.mappath("/list")
if (not(fso.folderexists(folders))) then
fso.CreateFolder(folders)
end if
fPath = replace(Server.MapPath("creat_inc.asp"),"admin\creat_inc.asp","list\")
'蕣莡胾演
end select
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objstream.write str
objstream.SaveToFile fpath & fName,2
objstream.Close()
set objstream = nothing
End sub
'==============================================