关于国内某知名大学网站加密算法的研究(页 1) - 原创专区 - 【3.A.S.T】网络安全爱好者 -- 网络安全，势在必行

柔肠寸断 发表于 2009-4-19 21:52

关于国内某知名大学网站加密算法的研究

原创作者：柔肠寸断 [3.A.S.T] [url]http://www.3ast.com.cm[/url]&hH.a`6M2NL:c.v
原始出处：[url]http://www.3ast.com.cm[/url]?0x0?{!FpL
{EiqA Lb
看不懂的直接绕过
加密前为:hwy123456%e.VX'g*X,_/K n1Y
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家]sTEA `
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod '^e$@3x4x7{`
Dim lLngResult 9k.weX!|M%x'u U
Dim lLngIndex
If pLngKey Mod 2 = 0 Then Z-bC/u%~
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 4d9l9BP|&m.l#m
lLngMod = (pLngMessage ^ 2) Mod Modulus 7w8a5Z%b2N Yk5p2n
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 5M.s ~!o#Q!@+Tql"z/q
lLngResult = pLngMessage Mh1c:L;d+Y1}DL
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus W[6W8~ ]5EQXIut
On Error Resume Next '?2l#s!L:V1Nle
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function /ez$Fn/x9j
Next
End If
Crypt = lLngResult
End Function
u"JoOv,w
Public Function Encode(ByVal pStrMessage) P'f)@t5Z,Z
Dim lLngIndex +@U%X{;L'Wt0N'?~$[
Dim lLngMaxIndex SA ]/n6CSw
Dim lBytAscii
Dim lLngEncrypted pml{D6pR;Pg
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex n/{RK|[;`
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) *FF9WhK,B
Next ~u_)d'x
End Function
Public Function Decode(ByVal pStrMessage) !f0Z5M1lk
Dim lBytAscii
Dim lLngIndex _*D1j$[\`~
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) "c!b,|Q"LC)P
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) .IL,k^n#l9UlLmu
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) #UIC2L!x@F-rB"u
End Function
Private Function HexToNumber(ByRef pStrHex) I.jwu F;Xd
HexToNumber = CLng("&h" & pStrHex)
End Function -yYnw#B4Z+T
End Class
function Encryptstr(Message) } Qn7~ t)?5\!g
Dim LngKeyE #}(b2M9}+on8L~\}
Dim LngKeyD
Dim LngKeyN
Dim StrMessage "t]nD'xm(Mh @
Dim ObjRSA
LngKeyE = "32823" #I@J;S$G2imr"M
LngKeyD = "20643" 5}jM-mF
LngKeyN = "29893" $aE |6`nyu9_p#F
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE :o1i7F8D+A-i)o
ObjRSA.Modulus = LngKeyN !g-Jk*Sq^$E'i@FR)P
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing J0r&z g,Z
end function"W%Aln$uv aQ4] T:R
Function Decryptstr(Message) P~g\]gcq;B0nXp
Dim LngKeyE NQ/uR/\
Dim LngKeyD 4b%SM!SRX}]
Dim LngKeyN
Dim StrMessage zDKKf-w"S B;CRJ
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 7w9U[%`S
LngKeyN = "29893" +}Fs@?t
StrMessage = Message \U9G!K4[tz+nM
Set ObjRSA = New clsRSA O%Y.SQ/NRX/~@
ObjRSA.PrivateKey =LngKeyD `8|(K h)qt
ObjRSA.Modulus=LngKeyN 1[&}#@h2sg2?F
decryptstr=ObjRSA.Decode(StrMessage) sR.YL4T
Set ObjRSA = Nothing [(bJ2Yy-gh
end function 5a[+Wwo GH~y$s7I
%>Yd4K hg7z7o8Rl
===============================================O&S A&e/H x UhI
)^o$Y5p V_Y-h+z
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) C:BlP%c
Dim LngKeyE 0g2^/@.uP(x0n Xqn
Dim LngKeyD )BK!K!Lk5M\ W
Dim LngKeyN 'U,Y_-R&HYC9R
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" /nAs+g9}
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 0|+ly!M2R`dP%hx8w
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 8_Tb#aT]E[w
Dim LngKeyN
Dim StrMessage N T u~&d{ Bf
Dim ObjRSA
LngKeyE = "32823" X.[f js5KhhW+lf"b\
LngKeyD = "20643" +zli%~*F9a
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7Q l#n[ T o-{9Y
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) AY{3Fpwi
Set ObjRSA = Nothing
end function dxR5YT?%k
dim last,first
first="!@#$%^&*()" K-x?J$IC#tskwu#Q
Response.Write "加密前为:"&first &B5iN^!nj&zI
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) pq \{&b
%> ============================================== DP4LU-T2a
剩下的就是字符的对照表了XkE$@!LR]4s
===================字符集================
1_____6EBB;j/L\J|*B,Rk"h F&k
2_____5C1FHJwL.JO
3_____4D75
4_____26CC
5_____4F88K6T"Q7G+K3pY.x
6_____3F4E
7_____0A9D
8_____1A1C3[ e(L4~gx:l b
9_____6D20
0_____10890f| V^&V0^]$`
a_____0F3Eu2TC2blS]7J$zc
b_____3159
c_____3517
d_____419C!@r7eS-] c}1i
e_____615C*[HQ8y [O.Y
f_____556F7d%gw7J.\j)Yd
g_____2B7F }X;a%S#d
h_____0F9C
i_____00FA
j_____5A50-EKR(O#H4hO'E
k_____2850
l_____3E7B%C'h?2mV~}'j1bM
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8^P4AV5zE[;v1K7j
q_____6085e7_w~m6l V qO
r_____3AC4
s_____2F50M9A2u1O3w4Yf
t_____36F8
u_____7010eCFew)^Y8L
v_____0B42
w_____1C7ARp1s@TNc
x_____16F8:LYBd6VVN$?
y_____2EE7
z_____5CF38T2fs}(M aZ9I-[
!_____62332g.D _2a*]by
@_____3A456L%or!])H)PH8Q
#_____2291
$_____5D5C
%_____09B9
^_____43EAaoM,^3|
&_____62B9*~:U p\c3z
*_____6301
(_____4659
)_____5C82

鱼儿无心 发表于 2011-12-4 17:17

收藏了。。。。。。。。

页: [1]

【3.A.S.T】网络安全爱好者's Archiver

关于国内某知名大学网站加密算法的研究