asp字元串加密解密

⑴ 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.net的MD5加密，可怎麼解密呢（C#）

史上MD5解密之最快方法整理-md5在線加密解密一般來說，形如1e4dc79d489e86b2的16位或者32位密碼就是經過MD5加密的，(當然也有特殊，比如DVBBS在登陸時候會先產生一個16位的隨機密碼,當然，這個密碼還是和MD5密碼的形式有點區別，相同的是都是16位的數字+字母組合 。); 這個一般來說可以用一個叫dv.exe的工具來破解。他可以破解加密前是10位以下的純數字或者純字母，破解純數字的，速度超快，但是純字母的，就慢了，當然他還有其他功能，但是其他功能沒什麼特別之處，所以不說。 破解純數字時候:dv -p a.txt -b num 純字母: dv -p a.txt -b char [以上的兩a.txt是保存要破解的密碼存放的文件，存放格式是每行一組，例如: 1e4dc79d489e86b2 admin 1e4dc79d489e86b3 admin2 注意:在要破解的密碼和後面的admin 用戶名之間有一個空格。 當然還有很多字典破解 的工具，不建議使用。 還有就是有很多網站提供MD5密碼查詢，比如: http://www.md5lookup.com/?category=01-3&searck=on http://www.md5.org.cn http://www.xmd5.org/ http://www.milw0rm.com/md5/info.php http://www.neeao.com/md5/ http://md5.mmkey.com/ http://gdataonline.com/seekhash.php http://www.plain-text.info/search.php http://passcracking.com/Good_values_list.asp http://www.hashchecker.com/index.php?_sls=search_hash http://md5.rednoize.com/ http://us.md5.crysm.net/ http://uploadpage.net/ap/php/projects/rt/addhash.php http://www.cmd5.com 這個是我經常用的 http://www.md5lookup.com/ (對數字破解比較好) http://md5.rednoize.com/ (對字母破解比較好) http://nz.md5.crysm.net/ (從1到4位數字)- 好像關了 http://us.md5.crysm.net/ (美英字典的破解收集和IP地址) http://www.xmd5.org/ (對數字破解比較好) http://gdataonline.com/ (估計是基礎字典的破解) http://www.hashchecker.com/ (這個倒是說得很厲害,但是在實際中,很多次我在這里都找不到) http://passcracking.ru/ http://www.milw0rm.com/md5 http://plain-text.info/ (這個是我比較喜歡一個.也請你提交一些已破解的MD5) http://www.securitystats.com/tools/hashcrack.php (多種破解.我試過...沒有一次破解出來.非常沒用) http://www.schwett.com/md5/ - (破解挪威人(Norwegian)字典) http://passcrack.spb.ru/ http://shm.pl/md5/ http://www.und0it.com/ http://www.neeao.com/md5/ http://md5.benramsey.com/ http://www.md5decrypt.com/ http://md5.khrone.pl/ http://www.csthis.com/md5/index.php http://www.md5decrypter.com/ http://www.md5encryption.com/ http://www.md5database.net/ http://md5.xpzone.de/ http://md5.geeks.li/ http://www.hashreverse.com/ http://www.cmd5.com/english.aspx http://www.md5.altervista.org/ http://md5.overclock.ch/biz/index.php?p=md5crack&l=en http://alimamed.pp.ru/md5/ (如果你看不懂俄文,我告訴你,把你的MD5放到第2個格子) http://md5crack.it-helpnet.de/index.php?op=add (德國的....) http://cijfer.hua.fi/ (Projects->md5 reverse lookup) http://shm.hard-core.pl/md5/ http://www.mmkey.com/md5/HOME.ASP http://www.thepanicroom.org/index.php?view=cracker http://rainbowtables.net/services/results.php (我試過破過幾次在這里) http://rainbowcrack.com/ (需要捐獻) http://www.securitydb.org/cracker/ http://passwordsecuritycenter.com/index.php?main_page=proct_info&cPath=3&procts_id=7 這個是證明他們的破解商品的質量..好讓你來買這個破解程序...但是...只要能破解到即可.你又不一定要買.. http://0ptix.co.nr/md5 http://www.abcbit.com/md5/ http://mao8.com/Checkmd5.asp 前兩個是今天入侵剛用過的算是比較好使 下面的是以前搜到的，一般。 http://www.xmd5.com/index_cn.htm http://www.md5lookup.com/?category=01-3&searck=on http://www.md5.org.cn http://www.xmd5.org/ http://www.milw0rm.com/md5/info.php http://www.neeao.com/md5/ http://md5.mmkey.com/ http://gdataonline.com/seekhash.php http://www.plain-text.info/search.php http://passcracking.com/Good_values_list.asp http://www.hashchecker.com/index.php?_sls=search_hash http://md5.rednoize.com/ http://us.md5.crysm.net/ http://uploadpage.net/ap/php/projects/rt/addhash.php

⑶ ASP字元串加密解密

<%
'ASP 字元串加密函數EncryptText()
'strEncryptionKey:加密key字元串，用以區別不同模塊加密演算法
'strTextToEncrypt:欲加密字元串
Function EncryptText(ByVal strEncryptionKey, ByVal strTextToEncrypt)
Dim outer, inner, Key, strTemp
For outer = 1 To Len(strEncryptionKey)
key = Asc(Mid(strEncryptionKey, outer, 1))
For inner = 1 To Len(strTextToEncrypt)
strTemp = strTemp & Chr(Asc(Mid(strTextToEncrypt, inner, 1)) Xor key)
key = (key + Len(strEncryptionKey)) Mod 256
Next
strTextToEncrypt = strTemp
strTemp = ""
Next
EncryptText = strTextToEncrypt
End Function

response.write EncryptText("mima","zifuchuan")
%>

⑷ 求ASP字元串的加密解密函數

rsa.asp
<%
rem 在ASP中實現加密與解密,加密方法:根據RSA
rem 聯系:[email protected]
Class clsRSA

Public PrivateKey
Public PublicKey
Public Molus

Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Molus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Molus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Molus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Molus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function

Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function

Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function

Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function

End Class
%>

test.asp
<!--#INCLUDE FILE="RSA.asp"-->
<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA

LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message

Set ObjRSA = New clsRSA

ObjRSA.PublicKey = LngKeyE
ObjRSA.Molus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function

function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA

LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message

Set ObjRSA = New clsRSA

ObjRSA.PrivateKey =LngKeyD
ObjRSA.Molus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function

dim last,first
first="sohu"
Response.Write "加密前為:"&first
last=Encryptstr(first)
Response.Write "加密後為"&last
Response.Write "解密後為" &decryptstr(last)
%>

⑸ Asp 對字元串 簡單 加密解密 高效演算法

'試試這個函數如何
<%
Function Enc(s)
str=""
key=""
dim l(130)
for i=1 to 130
if i=32 then l(i)=" "
li=instr(str,chr(i))
if li>0 then l(i)=mid(key,li,1)
next
for i=1 to len(s)
e=e&l(asc(mid(s,i,1)))
next
enc=e
End Function
%>

<%=Enc("hello world")%>

生成隨機Key的方法

<%
Function GetKey()
randomize
key=""
for n=1 to 1000
i=int(rnd*62)+1
j=int(rnd*62)+1
si=mid(key,i,1)
sj=mid(key,j,1)
key=replace(key,si,"-")
key=replace(key,sj,si)
key=replace(key,"-",sj)
next
GetKey=key
End Function
%>

⑹ 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里字元串怎麼加密

自己寫一族蔽個加密、解稿液密函數，例如兆敬州：

function jmjm(string)
for i=1 to len(string)
str=mid(string,i,1) XOR 99
next i
jmjm=str
end function

⑻ 已有RSA公鑰字元串，如何用ASP實現RSA加密

這個最好用別人寫好的rsa加密庫，自己寫會有安野則譽全隱患。還有你給的密鑰字元串解出來的盯喚e和頌段n會很大，需要一個大整數類才能表示，long是放不下的

⑼ ASP.NET 對字元串加密解密 只有小寫字母和數字

這是我現在用的。 private static byte[] IV = { 0x12, 0x34, 0x56, 0x78, 0x90, 0xAB, 0xCD, 0xEF }; //密鑰向量 /// <summary> /// 加密 /// </summary> /// <param name="EncryptString">待加密的字元串</param> /// <param name="EncryptKey">加密密鑰</param> /// <returns>加密成功返回加密後的字元串,失敗返回源串</returns> public static string Encrypt(string EncryptString, string EncryptKey) { byte[] byKey = null; byKey = System.Text.Encoding.UTF8.GetBytes(EncryptKey.Substring(0, 8)); DESCryptoServiceProvider des = new DESCryptoServiceProvider(); byte[] inputByteArray = System.Text.Encoding.UTF8.GetBytes(EncryptString); MemoryStream ms = new MemoryStream(); CryptoStream cs = new CryptoStream(ms, des.CreateEncryptor(byKey, IV), CryptoStreamMode.Write); cs.Write(inputByteArray, 0, inputByteArray.Length); cs.FlushFinalBlock(); return Convert.ToBase64String(ms.ToArray()); } /// <summary> /// 解密 /// </summary> /// <param name="EncryptString">待解密的字元串</param> /// <param name="EncryptKey">解密密鑰</param> /// <returns>解密成功返回解密後的字元串,失敗返源串</returns> public static string Decrypt(string EncryptString, string EncryptKey) { byte[] byKey = null; byte[] inputByteArray = new Byte[EncryptString.Length]; try { byKey = System.Text.Encoding.UTF8.GetBytes(EncryptKey.Substring(0, 8)); DESCryptoServiceProvider des = new DESCryptoServiceProvider(); inputByteArray = Convert.FromBase64String(EncryptString); MemoryStream ms = new MemoryStream(); CryptoStream cs = new CryptoStream(ms, des.CreateDecryptor(byKey, IV), CryptoStreamMode.Write); cs.Write(inputByteArray, 0, inputByteArray.Length); cs.FlushFinalBlock(); System.Text.Encoding encoding = new System.Text.UTF8Encoding(); return encoding.GetString(ms.ToArray()); } catch { return ""; } }

⑽ 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